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

IDE: Allow translation in component palette options. Issue #27040, patch from Gábor.

Browse Source 
git-svn-id: trunk@46849 -
This commit is contained in:
juha 2014-11-14 12:35:53 +00:00
parent dbf5bd53d4
commit 4ca5c66887
2 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ide/frames/componentpalette_options.pas
View File

@ -91,9 +91,6 @@ implementation
{$R *.lfm} {$R *.lfm}
const
AllComponentsHeader = '<All>';
{ TCompPaletteOptionsFrame } { TCompPaletteOptionsFrame }
function TCompPaletteOptionsFrame.GetTitle: String; function TCompPaletteOptionsFrame.GetTitle: String;
@ -240,7 +237,7 @@ begin
if Assigned(IDEComponentPalette) then if Assigned(IDEComponentPalette) then
begin begin
PagesListBox.Clear; PagesListBox.Clear;
PagesListBox.Items.Add(AllComponentsHeader); PagesListBox.Items.Add(lis_All_);
for i := 0 to IDEComponentPalette.PagesUserOrder.Count-1 do for i := 0 to IDEComponentPalette.PagesUserOrder.Count-1 do
begin begin
PgName := IDEComponentPalette.PagesUserOrder[i]; PgName := IDEComponentPalette.PagesUserOrder[i];
@ -289,7 +286,7 @@ var
StartInd, EndInd: Integer; StartInd, EndInd: Integer;
RealPageName, CompName: String; RealPageName, CompName: String;
begin begin
if aPageName = AllComponentsHeader then if aPageName = lis_All_ then
begin begin
StartInd := 1; // Skip the first entry for all components. StartInd := 1; // Skip the first entry for all components.
EndInd := PagesListBox.Count-1; EndInd := PagesListBox.Count-1;
@ -330,7 +327,7 @@ procedure TCompPaletteOptionsFrame.AddPageButtonClick(Sender: TObject);
var var
s: String; s: String;
begin begin
s := InputBox('New page', 'Page name', ''); s := InputBox(lisNewPage, lisPageName, '');
PagesListBox.AddItem(s, TStringList.Create); PagesListBox.AddItem(s, TStringList.Create);
end; end;

4
ide/lazarusidestrconsts.pas
View File

@ -5864,7 +5864,9 @@ resourcestring
lisShowAbstractMethodsOf = 'Show abstract methods of "%s"'; lisShowAbstractMethodsOf = 'Show abstract methods of "%s"';
lisCopyMoveFileToDirectory = 'Copy/Move File to Directory'; lisCopyMoveFileToDirectory = 'Copy/Move File to Directory';
lisSelectTargetDirectory = 'Select target directory'; lisSelectTargetDirectory = 'Select target directory';
lisNewPage = 'New page';
lisPageName = 'Page name';
lis_All_ = '<All>';
implementation implementation
end. end.