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

LCL: made TCustomFileListBox.UpdateFileList public, so the user can refresh the filelist (bug #1595)

Browse Source 
git-svn-id: trunk@10449 -
This commit is contained in:
vincents 2007-01-15 12:25:28 +00:00
parent b43c82f930
commit 53737e0127
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/filectrl.pp
View File

@ -64,7 +64,6 @@ Type
procedure UpdateSelectedFileName; procedure UpdateSelectedFileName;
protected protected
procedure DoChangeFile; virtual; procedure DoChangeFile; virtual;
procedure UpdateFileList; virtual;
procedure Click; override; procedure Click; override;
procedure Loaded; override; procedure Loaded; override;
function IndexOfFile(const AFilename: string): integer; function IndexOfFile(const AFilename: string): integer;
@ -72,6 +71,7 @@ Type
public public
constructor Create(TheOwner: TComponent); override; constructor Create(TheOwner: TComponent); override;
destructor Destroy; override; destructor Destroy; override;
procedure UpdateFileList; virtual;
public public
property Drive: Char Read FDrive Write SetDrive default ' '; property Drive: Char Read FDrive Write SetDrive default ' ';
property Directory: String Read FDirectory Write SetDirectory; property Directory: String Read FDirectory Write SetDirectory;