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); dec(R.Bottom, 1);
case FContactGrid.DrawingStyle of case FContactGrid.DrawingStyle of
dsFlat: dsFlat:
begin { draw an outer and inner bevel } begin { Draw a simple border rectangle }
DrawBevelRect(RenderCanvas, R, BevelShadow, BevelHighlight); DrawBevelRect(RenderCanvas, R, BevelShadow, BevelShadow);
InflateRect(R, -1, -1);
DrawBevelRect(RenderCanvas, R, BevelHighlight, BevelShadow);
end; end;
ds3d: ds3d:
begin { draw a 3d bevel } begin { Draw a 3d bevel }
DrawBevelRect(RenderCanvas, R, BevelShadow, BevelHighlight); DrawBevelRect(RenderCanvas, R, BevelShadow, BevelHighlight);
InflateRect(R, -1, -1); InflateRect(R, -1, -1);
drawBevelRect(RenderCanvas, R, BevelDarkShadow, BevelFace); drawBevelRect(RenderCanvas, R, BevelDarkShadow, BevelFace);