pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

tvplanit: Avoid a 3d bevelled border around contact grid in flat drawing mode.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4891 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-07-02 08:56:40 +00:00
parent 7e954aacab
commit 998f2aa164
1 changed files with 3 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
components/tvplanit/source/vpcontactgridpainter.pas
View File

@ -109,13 +109,11 @@ begin
dec(R.Bottom, 1);
case FContactGrid.DrawingStyle of
dsFlat:
begin { draw an outer and inner bevel }
DrawBevelRect(RenderCanvas, R, BevelShadow, BevelHighlight);
InflateRect(R, -1, -1);
DrawBevelRect(RenderCanvas, R, BevelHighlight, BevelShadow);
begin { Draw a simple border rectangle }
DrawBevelRect(RenderCanvas, R, BevelShadow, BevelShadow);
end;
ds3d:
begin { draw a 3d bevel }
begin { Draw a 3d bevel }
DrawBevelRect(RenderCanvas, R, BevelShadow, BevelHighlight);
InflateRect(R, -1, -1);
drawBevelRect(RenderCanvas, R, BevelDarkShadow, BevelFace);