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

LCL/FileListbox: Update selected filename when ItemIndex is set

Browse Source 
git-svn-id: trunk@64211 -
This commit is contained in:
wp 2020-12-16 21:17:52 +00:00
parent 569e49e3cb
commit 1c9c36d205
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/filectrl.pp
View File

@ -62,6 +62,7 @@ Type
procedure Loaded; override; procedure Loaded; override;
function IndexOfFile(const AFilename: string): integer; function IndexOfFile(const AFilename: string): integer;
procedure KeyUp(var Key: Word; Shift: TShiftState); override; procedure KeyUp(var Key: Word; Shift: TShiftState); override;
procedure SetItemIndex(AIndex: Integer); override;
public public
constructor Create(TheOwner: TComponent); override; constructor Create(TheOwner: TComponent); override;
destructor Destroy; override; destructor Destroy; override;
@ -420,6 +421,12 @@ begin
UpdateFileList; UpdateFileList;
end; end;
procedure TCustomFileListbox.SetItemIndex(AIndex: Integer);
begin
inherited;
UpdateSelectedFileName;
end;
procedure TCustomFileListBox.SetFileName(const AValue: String); procedure TCustomFileListBox.SetFileName(const AValue: String);
var var
i: Integer; i: Integer;