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 var
R: TRect; R: TRect;
begin begin
R := RenderIn; R := TPSRotateRectangle(Angle, RenderIn, Rect(RealLeft, RealTop, RealRight - 1, RealBottom - 1));
dec(R.Right, 1);
dec(R.Bottom, 1);
case FContactGrid.DrawingStyle of case FContactGrid.DrawingStyle of
dsFlat: dsNoBorder: ;
begin { Draw a simple border rectangle } dsFlat: DrawBevelRect(RenderCanvas, R, BevelShadow, BevelShadow);
DrawBevelRect(RenderCanvas, R, BevelShadow, BevelShadow); ds3D: DrawBevelRect(RenderCanvas, R, BevelShadow, BevelHighlight);
end;
ds3d:
begin { Draw a 3d bevel }
DrawBevelRect(RenderCanvas, R, BevelShadow, BevelHighlight);
InflateRect(R, -1, -1);
DrawBevelRect(RenderCanvas, R, BevelDarkShadow, BevelFace);
end;
end; end;
end; end;