paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 12:39:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL, Treeview: improve item dots. Issue #22011, patch from Anton

Browse Source 
git-svn-id: trunk@41059 -
This commit is contained in:
juha 2013-05-07 10:02:56 +00:00
parent bed7191fa6
commit ab7b3aa82a
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/include/treeview.inc
View File

@ -4496,7 +4496,7 @@ end;
procedure TCustomTreeView.DoPaintNode(Node: TTreeNode);
var
NodeRect: TRect;
VertMid: integer;
VertMid, VertDelta: integer;
NodeSelected, HasExpandSign: boolean;
function InvertColor(AColor: TColor): TColor;
@ -4522,6 +4522,7 @@ var
if TreeLinePenStyle = psPattern then
begin
// TODO: implement psPattern support in the LCL
Y1 := Y1 + VertDelta;
while Y1 < Y2 do
begin
Canvas.Pixels[X, Y1] := TreeLineColor;
@ -4585,12 +4586,12 @@ var
else
begin
DrawVertLine(CurMid, NodeRect.Top, Max(NodeRect.Top, VertMid - FExpandSignSize div 2));
DrawVertLine(CurMid, VertMid + FExpandSignSize div 2, NodeRect.Bottom - 1);
DrawVertLine(CurMid, VertMid + FExpandSignSize div 2 + VertDelta, NodeRect.Bottom);
end;
end
else
if (Node.Parent = nil) and (Node.GetPrevSibling = nil) then
DrawVertLine(CurMid, VertMid, NodeRect.Bottom)
DrawVertLine(CurMid, VertMid + VertDelta, NodeRect.Bottom)
else
DrawVertLine(CurMid, NodeRect.Top, NodeRect.Bottom);
end else
@ -4862,6 +4863,7 @@ begin
VertMid := (NodeRect.Top + NodeRect.Bottom) div 2;
HasExpandSign := ShowButtons and Node.HasChildren and ((tvoShowRoot in Options) or (Node.Parent <> nil));
VertDelta := Ord(FDefItemHeight and 3 = 2);
//DebugLn(['[TCustomTreeView.DoPaintNode] Node=',DbgS(Node),' Node.Text=',Node.Text,' NodeRect=',NodeRect.Left,',',NodeRect.Top,',',NodeRect.Right,',',NodeRect.Bottom,' VertMid=',VertMid]);
with Canvas do
begin