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

TreeStorage: rename some identifiers. No functional changes.

Browse Source
This commit is contained in:
Bart 2025-04-01 18:12:35 +02:00
parent 59fa55b803
commit db6fe2baa9
1 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
lcl/treestorage.pp
View File

@ -26,18 +26,18 @@ uses
LazLoggerBase; LazLoggerBase;
type type
TTreeStorageOption = (tsoExpanded, tsoSelected, tsoFocused, tsoVisible, tsoEnabled, TTreeItemStorageOption = (tsoExpanded, tsoSelected, tsoFocused, tsoVisible, tsoEnabled,
tsoImageIndex, tsoSelectedIndex, tsoStateIndex, tsoOverlayIndex); tsoImageIndex, tsoSelectedIndex, tsoStateIndex, tsoOverlayIndex);
TTreeStorageOptions = set of TTreeStorageOption; TTreeItemStorageOptions = set of TTreeItemStorageOption;
const const
tsoAllOptions = [tsoExpanded, tsoSelected, tsoFocused, tsoVisible, tsoEnabled, TreeItemStorageDefaultOptions = [tsoExpanded, tsoSelected, tsoFocused, tsoVisible, tsoEnabled,
tsoImageIndex, tsoSelectedIndex, tsoStateIndex, tsoOverlayIndex]; tsoImageIndex, tsoSelectedIndex, tsoStateIndex, tsoOverlayIndex];
procedure TreeSaveToXML(Tree: TCustomTreeView; Fn: String; Options: TTreeStorageOptions = tsoAllOptions); procedure TreeSaveToXML(Tree: TCustomTreeView; Fn: String; Options: TTreeItemStorageOptions = TreeItemStorageDefaultOptions);
procedure TreeSaveToXML(Tree: TCustomTreeView; St: TStream; Options: TTreeStorageOptions = tsoAllOptions); procedure TreeSaveToXML(Tree: TCustomTreeView; St: TStream; Options: TTreeItemStorageOptions = TreeItemStorageDefaultOptions);
procedure TreeLoadFromXML(Tree: TCustomTreeView; const Fn: String; Options: TTreeStorageOptions = tsoAllOptions); procedure TreeLoadFromXML(Tree: TCustomTreeView; const Fn: String; Options: TTreeItemStorageOptions = TreeItemStorageDefaultOptions);
procedure TreeLoadFromXML(Tree: TCustomTreeView; St: TStream; Options: TTreeStorageOptions = tsoAllOptions); procedure TreeLoadFromXML(Tree: TCustomTreeView; St: TStream; Options: TTreeItemStorageOptions = TreeItemStorageDefaultOptions);
implementation implementation
@ -71,7 +71,7 @@ begin
end; end;
end; end;
procedure TreeSaveToXML(Tree: TCustomTreeView; Fn: String; Options: TTreeStorageOptions); procedure TreeSaveToXML(Tree: TCustomTreeView; Fn: String; Options: TTreeItemStorageOptions);
var var
FS: TFileStream; FS: TFileStream;
begin begin
@ -83,7 +83,7 @@ begin
end; end;
end; end;
procedure TreeSaveToXML(Tree: TCustomTreeView; St: TStream; Options: TTreeStorageOptions); procedure TreeSaveToXML(Tree: TCustomTreeView; St: TStream; Options: TTreeItemStorageOptions);
var var
Doc: TXMLDocument; Doc: TXMLDocument;
RootNode: TDOMElement; RootNode: TDOMElement;
@ -152,7 +152,7 @@ begin
end; end;
end; end;
procedure TreeLoadFromXML(Tree: TCustomTreeView; const Fn: String; Options: TTreeStorageOptions); procedure TreeLoadFromXML(Tree: TCustomTreeView; const Fn: String; Options: TTreeItemStorageOptions);
var var
FS: TFileStream; FS: TFileStream;
begin begin
@ -166,7 +166,7 @@ end;
procedure TreeLoadFromXML(Tree: TCustomTreeView; St: TStream; Options: TTreeStorageOptions = tsoAllOptions); procedure TreeLoadFromXML(Tree: TCustomTreeView; St: TStream; Options: TTreeItemStorageOptions = TreeItemStorageDefaultOptions);
var var
Doc: TXMLDocument; Doc: TXMLDocument;
DomNode: TDOMNode; DomNode: TDOMNode;