paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-23 17:52:16 +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 resourcestring
SFileBrowserIDEMenu = 'IDEFileBrowser'; SFileBrowserIDEMenu = 'IDEFileBrowser';
SFileBrowserIDEMenuCaption = 'File Browser window'; SFileBrowserIDEMenuCaption = 'File Browser';
{ TFileBrowserController } { TFileBrowserController }
@ -92,6 +92,7 @@ var
D: string; D: string;
begin begin
FWindow := TFileBrowserForm.Create(Self); FWindow := TFileBrowserForm.Create(Self);
FWindow.Caption:=SFileBrowserIDEMenuCaption;
FWindow.FreeNotification(Self); FWindow.FreeNotification(Self);
FWindow.OnOpenFile := @DoOpenFile; FWindow.OnOpenFile := @DoOpenFile;
FWindow.OnConfigure := @DoConfig; FWindow.OnConfigure := @DoConfig;