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

IDEIntf: localized TToolBar designer menu entries

Browse Source 
git-svn-id: trunk@28358 -
This commit is contained in:
maxim 2010-11-19 23:55:37 +00:00
parent c6791a4c61
commit f3363d1270
2 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ideintf/componenteditors.pas
View File

@ -1213,10 +1213,10 @@ end;
function TToolBarComponentEditor.GetVerb(Index: Integer): string; function TToolBarComponentEditor.GetVerb(Index: Integer): string;
begin begin
case Index of case Index of
0: Result := 'New Button'; 0: Result := tbceNewButton;
1: Result := 'New Checkbutton'; 1: Result := tbceNewCheckbutton;
2: Result := 'New Separator'; 2: Result := tbceNewSeparator;
3: Result := 'New Divider'; 3: Result := tbceNewDivider;
else else
Result := ''; Result := '';
end; end;

4
ideintf/objinspstrconsts.pas
View File

@ -190,6 +190,10 @@ resourcestring
tccesDeleteTab = 'Delete tab'; tccesDeleteTab = 'Delete tab';
tccesMoveTabLeft = 'Move tab left'; tccesMoveTabLeft = 'Move tab left';
tccesMoveTabRight = 'Move tab right'; tccesMoveTabRight = 'Move tab right';
tbceNewButton = 'New Button';
tbceNewCheckbutton = 'New CheckButton';
tbceNewSeparator = 'New Separator';
tbceNewDivider = 'New Divider';
//checklistbox editor //checklistbox editor
clbCheckListBoxEditor = 'CheckListBox Editor'; clbCheckListBoxEditor = 'CheckListBox Editor';