diff options
Diffstat (limited to 'src/gui/fpg_tree.pas')
-rw-r--r-- | src/gui/fpg_tree.pas | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/src/gui/fpg_tree.pas b/src/gui/fpg_tree.pas index 2a13c803..3bb86c64 100644 --- a/src/gui/fpg_tree.pas +++ b/src/gui/fpg_tree.pas @@ -74,7 +74,7 @@ type FPrev: TfpgTreeNode; FSelColor: TfpgColor; FSelTextColor: TfpgColor; - FText: string; + FText: TfpgString; FTextColor: TfpgColor; procedure SetCollapsed(const AValue: boolean); procedure SetInactSelColor(const AValue: TfpgColor); @@ -82,14 +82,14 @@ type procedure SetParent(const AValue: TfpgTreeNode); procedure SetSelColor(const AValue: TfpgColor); procedure SetSelTextColor(const AValue: TfpgColor); - procedure SetText(const AValue: string); + procedure SetText(const AValue: TfpgString); procedure SetTextColor(const AValue: TfpgColor); procedure DoRePaint; public constructor Create; destructor Destroy; override; // node related - function AppendText(AText: string): TfpgTreeNode; + function AppendText(AText: TfpgString): TfpgTreeNode; function Count: integer; function CountRecursive: integer; function FindSubNode(AText: string; ARecursive: Boolean): TfpgTreeNode; overload; @@ -117,7 +117,7 @@ type property Next: TfpgTreeNode read FNext write FNext; property Parent: TfpgTreeNode read FParent write SetParent; property Prev: TfpgTreeNode read FPrev write FPrev; - property Text: string read FText write SetText; + property Text: TfpgString read FText write SetText; // color settings property InactSelColor: TfpgColor read FInactSelColor write SetInactSelColor; property InactSelTextColor: TfpgColor read FInactSelTextColor write SetInactSelTextColor; @@ -302,9 +302,9 @@ begin end; end; -procedure TfpgTreeNode.SetText(const AValue: string); +procedure TfpgTreeNode.SetText(const AValue: TfpgString); begin - if aValue <> FText then + if AValue <> FText then begin FText := aValue; DoRePaint; @@ -465,7 +465,7 @@ begin end; end; -function TfpgTreeNode.AppendText(AText: string): TfpgTreeNode; +function TfpgTreeNode.AppendText(AText: TfpgString): TfpgTreeNode; var h: TfpgTreeNode; begin |