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

tvplanit: Consistent 3d mode for TVpContactGrid

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8449 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-09-05 10:09:07 +00:00
parent 7a151f2696
commit eb439247e1
1 changed files with 4 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -104,20 +104,11 @@ procedure TVpContactGridPainter.DrawBorders;
var
R: TRect;
begin
R := RenderIn;
dec(R.Right, 1);
dec(R.Bottom, 1);
R := TPSRotateRectangle(Angle, RenderIn, Rect(RealLeft, RealTop, RealRight - 1, RealBottom - 1));
case FContactGrid.DrawingStyle of
dsFlat:
begin { Draw a simple border rectangle }
DrawBevelRect(RenderCanvas, R, BevelShadow, BevelShadow);
end;
ds3d:
begin { Draw a 3d bevel }
DrawBevelRect(RenderCanvas, R, BevelShadow, BevelHighlight);
InflateRect(R, -1, -1);
DrawBevelRect(RenderCanvas, R, BevelDarkShadow, BevelFace);
end;
dsNoBorder: ;
dsFlat: DrawBevelRect(RenderCanvas, R, BevelShadow, BevelShadow);
ds3D: DrawBevelRect(RenderCanvas, R, BevelShadow, BevelHighlight);
end;
end;