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

tvplanit: Paint flat checkbox in the task list if drawingstyle is dsFlat.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4698 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-06-09 21:11:51 +00:00
parent 15f23123ee
commit 3ac819343a
1 changed files with 27 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
components/tvplanit/source/vptasklist.pas
View File

@ -755,21 +755,33 @@ var
W := RowHeight - TextMargin * 2;
{ draw check box }
if FDrawingStyle = dsFlat then begin
RenderCanvas.Brush.Color := RealCheckBgColor;
RenderCanvas.Pen.Color := RealCheckBoxColor;
TPSRectangle (RenderCanvas, Angle, RenderIn,
Rect (X, Y, X + W, Y + W));
end else
begin
// complete box, rather bright
RenderCanvas.Pen.Color := RGB (192, 204, 216);
RenderCanvas.Brush.Color := RealCheckBgColor;
TPSRectangle (RenderCanvas, Angle, RenderIn,
Rect (X, Y, X + W, Y + W));
// left and top lines
RenderCanvas.Pen.Color := RGB (80, 100, 128);
TPSPolyLine (RenderCanvas, Angle, RenderIn,
[Point(X, Y + W - 2), Point(X, Y), Point(X + W - 1, Y)]);
// left and top lines
RenderCanvas.Pen.Color := RealCheckBoxColor;
TPSPolyLine (RenderCanvas, Angle, RenderIn,
[Point(X + 1, Y + W - 3), Point(X + 1, Y + 1),
Point(X + W - 2, Y + 1)]);
// right and bottom lines
RenderCanvas.Pen.Color := RGB(128, 152, 176);
TPSPolyLine (RenderCanvas, Angle, RenderIn,
[Point(X + 1, Y + W - 2), Point(X + W - 2, Y + W - 2),
Point(X+W-2, Y)]);
end;
{ build check rect }
CR := Rect(X + 3, Y + 3, X + W - 3, Y + W - 3);