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

IDE: simplified

Browse Source 
git-svn-id: trunk@51250 -
This commit is contained in:
mattias 2016-01-11 13:49:11 +00:00
parent a4cd23f7ac
commit ba98cf3c4a
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/toolbarconfig.pas
View File

@ -531,10 +531,10 @@ end;
function TToolBarConfig.RootNodeCaption(Item: TIDEButtonCommand): string;
var
AName: string;
aCaption: string;
begin
AName:= Item.Caption;
case AName of
aCaption:= Item.Caption;
case aCaption of
'IDEMainMenu': Result := lisCoolbarIDEMainMenu; // mnuMain
'SourceTab': Result := lisCoolbarSourceTab; // SourceTabMenuRootName
'SourceEditor': Result := lisCoolbarSourceEditor; // SourceEditorMenuRootName
@ -544,7 +544,7 @@ begin
'Designer': Result := lisCoolbarDesigner; // DesignerMenuRootName
'PackageEditor': Result := lisCoolbarPackageEditor; // PackageEditorMenuRootName
'PackageEditorFiles': Result := lisCoolbarPackageEditorFiles // PackageEditorMenuFilesRootName
else Result := Item.Caption;
else Result := aCaption;
end;
end;