paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 07:59:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: added TTreeview.TreeLinePenStyle from Paul Michell (issue #12459)

Browse Source 
git-svn-id: trunk@17099 -
This commit is contained in:
vincents 2008-10-22 12:45:18 +00:00
parent 609f700362
commit c32d7d3fa6
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/comctrls.pp
View File

@ -2210,6 +2210,7 @@ type
FStates: TTreeViewStates;
FTopItem: TTreeNode;
FTreeLineColor: TColor;
FTreeLinePenStyle: TPenStyle;
FExpandSignColor : TColor;
FTreeNodes: TTreeNodes;
procedure CanvasChanged(Sender: TObject);
@ -2434,6 +2435,7 @@ type
property SeparatorColor: TColor read fSeparatorColor write SetSeparatorColor default clGray;
property TopItem: TTreeNode read GetTopItem write SetTopItem;
property TreeLineColor: TColor read FTreeLineColor write FTreeLineColor default clWindowFrame;
property TreeLinePenStyle: TPenStyle read FTreeLinePenStyle write FTreeLinePenStyle default psDot;
property ExpandSignColor: TColor read FExpandSignColor write FExpandSignColor default clWindowFrame;
published
property TabStop default true;
@ -2528,6 +2530,7 @@ type
property Options;
property Items;
property TreeLineColor;
property TreeLinePenStyle;
property ExpandSignColor;
end;

3
lcl/include/treeview.inc
View File

@ -2772,6 +2772,7 @@ begin
FStateChangeLink.OnChange := @ImageListChange;
FStates:=[tvsMaxLvlNeedsUpdate,tvsMaxRightNeedsUpdate,tvsScrollbarChanged];
FTreeLineColor := clWindowFrame;
FTreeLinePenStyle := psDot;
FExpandSignColor := clWindowFrame;
end;
@ -4273,7 +4274,7 @@ begin
end;
// draw tree lines
Pen.Color:=TreeLineColor;
Pen.Style:=psDot;
Pen.Style:=TreeLinePenStyle;
x:=DrawTreeLines(Node);
Pen.Style:=psSolid;
// draw expand sign