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

added TTreeView.ExpandSignColor from Sergio

Browse Source 
git-svn-id: trunk@6681 -
This commit is contained in:
mattias 2005-01-25 01:18:09 +00:00
parent 81f9980ad0
commit bfa1106449
2 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/comctrls.pp
View File

@ -1885,6 +1885,7 @@ type
FStates: TTreeViewStates;
FTopItem: TTreeNode;
FTreeLineColor: TColor;
FExpandSignColor : TColor;
FTreeNodes: TTreeNodes;
FUpdateCount: integer;
procedure CanvasChanged(Sender: TObject);
@ -2109,7 +2110,8 @@ type
property SelectionColor: TColor read FSelectedColor write SetSelectedColor default clHighlight;
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 TreeLineColor: TColor read FTreeLineColor write FTreeLineColor default cl3DLight;
property ExpandSignColor: TColor read FExpandSignColor write FExpandSignColor default clWindowFrame;
published
property TabStop default true;
end;
@ -2200,6 +2202,8 @@ type
//property OnStartDock;
property OnStartDrag;
property Items;
property TreeLineColor;
property ExpandSignColor;
end;
@ -2288,6 +2292,9 @@ end.
{ =============================================================================
$Log$
Revision 1.158 2005/01/25 01:18:09 mattias
added TTreeView.ExpandSignColor from Sergio
Revision 1.157 2005/01/07 17:40:59 mattias
fixed TTabSheet.SetPageControl

6
lcl/include/treeview.inc
View File

@ -2518,7 +2518,9 @@ begin
FStateChangeLink := TChangeLink.Create;
FStateChangeLink.OnChange := @ImageListChange;
FStates:=[tvsMaxLvlNeedsUpdate,tvsMaxRightNeedsUpdate,tvsScrollbarChanged];
FTreeLineColor := clWindowFrame;
FTreeLineColor := cl3DLight;
FExpandSignColor := clWindowFrame;
end;
destructor TCustomTreeView.Destroy;
@ -3762,7 +3764,7 @@ var
if not ShowButtons then exit;
with Canvas do begin
Brush.Color:=BackgroundColor;
Pen.Color:=TreeLineColor;
Pen.Color:=FExpandSignColor;
Pen.Style:=psSolid;
HalfSize:=fExpandSignSize shr 1;
if ((FExpandSignSize and 1)=0) then dec(HalfSize);