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

Improve a GUI string in FileBrobser.

Browse Source 
git-svn-id: trunk@33752 -
This commit is contained in:
juha 2011-11-24 09:21:55 +00:00
parent efd91117a1
commit 9c64ab8039
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/filebrowser/regidefilebrowser.pp
View File

@ -59,7 +59,7 @@ const
resourcestring
SFileBrowserIDEMenu = 'IDEFileBrowser';
SFileBrowserIDEMenuCaption = 'File Browser window';
SFileBrowserIDEMenuCaption = 'File Browser';
{ TFileBrowserController }
@ -92,6 +92,7 @@ var
D: string;
begin
FWindow := TFileBrowserForm.Create(Self);
FWindow.Caption:=SFileBrowserIDEMenuCaption;
FWindow.FreeNotification(Self);
FWindow.OnOpenFile := @DoOpenFile;
FWindow.OnConfigure := @DoConfig;