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

Components: simplified AnchorDocking menuitems localization code from r31895 #8236371d00, hint by Flávio Etrusco

Browse Source 
git-svn-id: trunk@31906 -
This commit is contained in:
maxim 2011-08-06 22:05:58 +00:00
parent d827e28a93
commit b7d8429ca2
1 changed files with 5 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
examples/anchordocking/design/registeranchordocking.pas
View File

@ -479,25 +479,12 @@ begin
end;
procedure TIDEAnchorDockMaster.OnIDERestoreWindows(Sender: TObject);
var
i: Integer;
begin
i:=0;
while i<mnuAnchorDockSection.Count do
begin
if mnuAnchorDockSection[i].Name='ADSaveLayoutAsDefault' then
mnuAnchorDockSection[i].Caption:=adrsSaveWindowLayoutAsDefault
else
if mnuAnchorDockSection[i].Name='ADSaveLayoutToFile' then
mnuAnchorDockSection[i].Caption:=adrsSaveWindowLayoutToFile
else
if mnuAnchorDockSection[i].Name='ADLoadLayoutFromFile' then
mnuAnchorDockSection[i].Caption:=adrsLoadWindowLayoutFromFile
else
if mnuAnchorDockSection[i].Name='ADRestoreDefaultLayout' then
mnuAnchorDockSection[i].Caption:=adrsRestoreDefaultLayout;
inc(i);
end;
// localize menu captions
mnuADSaveLayoutAsDefault.Caption:=adrsSaveWindowLayoutAsDefault;
mnuADSaveLayoutToFile.Caption:=adrsSaveWindowLayoutToFile;
mnuADLoadLayoutFromFile.Caption:=adrsLoadWindowLayoutFromFile;
mnuADRestoreDefaultLayout.Caption:=adrsRestoreDefaultLayout;
LoadUserLayout;
end;