paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 02:59:17 +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; FStates: TTreeViewStates;
FTopItem: TTreeNode; FTopItem: TTreeNode;
FTreeLineColor: TColor; FTreeLineColor: TColor;
FExpandSignColor : TColor;
FTreeNodes: TTreeNodes; FTreeNodes: TTreeNodes;
FUpdateCount: integer; FUpdateCount: integer;
procedure CanvasChanged(Sender: TObject); procedure CanvasChanged(Sender: TObject);
@ -2109,7 +2110,8 @@ type
property SelectionColor: TColor read FSelectedColor write SetSelectedColor default clHighlight; property SelectionColor: TColor read FSelectedColor write SetSelectedColor default clHighlight;
property SeparatorColor: TColor read fSeparatorColor write SetSeparatorColor default clGray; property SeparatorColor: TColor read fSeparatorColor write SetSeparatorColor default clGray;
property TopItem: TTreeNode read GetTopItem write SetTopItem; 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 published
property TabStop default true; property TabStop default true;
end; end;
@ -2200,6 +2202,8 @@ type
//property OnStartDock; //property OnStartDock;
property OnStartDrag; property OnStartDrag;
property Items; property Items;
property TreeLineColor;
property ExpandSignColor;
end; end;
@ -2288,6 +2292,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $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 Revision 1.157 2005/01/07 17:40:59 mattias
fixed TTabSheet.SetPageControl fixed TTabSheet.SetPageControl

6
lcl/include/treeview.inc
View File

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