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

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

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