paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-16 20:40:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL/ShellTreeView: Move FFileInfo from private into protected section of TShellTreeNode.

Browse Source
This commit is contained in:
wp_xyz 2022-12-08 22:12:06 +01:00
parent b8a32b9515
commit e9d296ce8e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/shellctrls.pas
View File

@ -389,9 +389,9 @@ type
TShellTreeNode = class(TTreeNode) TShellTreeNode = class(TTreeNode)
private private
FFileInfo: TSearchRec;
FBasePath: String; FBasePath: String;
protected protected
FFileInfo: TSearchRec;
procedure SetBasePath(ABasePath: String); procedure SetBasePath(ABasePath: String);
public public
function ShortFilename: String; function ShortFilename: String;