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

fixed updatinf Filename when setting Filename from Luis

Browse Source 
git-svn-id: trunk@5420 -
This commit is contained in:
mattias 2004-04-21 21:22:52 +00:00
parent cacc74364f
commit d3d220257c
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/filectrl.pp
View File

@ -323,8 +323,10 @@ var
i: Integer; i: Integer;
begin begin
i:=IndexOfFile(AValue); i:=IndexOfFile(AValue);
if i<>ItemIndex then if i<>ItemIndex then begin
ItemIndex:=i; ItemIndex:=i;
UpdateSelectedFileName;
end;
end; end;
procedure TCustomFileListBox.SetMask(const AValue: String); procedure TCustomFileListBox.SetMask(const AValue: String);
@ -379,8 +381,6 @@ begin
UpdateFileList; UpdateFileList;
//Initializes the Sorted property. //Initializes the Sorted property.
Sorted := True; Sorted := True;
//An trick for the first time TCustomFileListBox.UpdateSelectedFileName work.
FFileName := '_';
end; end;
destructor TCustomFileListBox.Destroy; destructor TCustomFileListBox.Destroy;
@ -400,6 +400,9 @@ end.
{ {
$Log$ $Log$
Revision 1.27 2004/04/21 21:22:52 mattias
fixed updatinf Filename when setting Filename from Luis
Revision 1.26 2004/04/21 17:41:29 mattias Revision 1.26 2004/04/21 17:41:29 mattias
added directory brackets from Luis added directory brackets from Luis