paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 07:39:59 +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}
const
AllComponentsHeader = '<All>';
{ TCompPaletteOptionsFrame }
function TCompPaletteOptionsFrame.GetTitle: String;
@ -240,7 +237,7 @@ begin
if Assigned(IDEComponentPalette) then
begin
PagesListBox.Clear;
PagesListBox.Items.Add(AllComponentsHeader);
PagesListBox.Items.Add(lis_All_);
for i := 0 to IDEComponentPalette.PagesUserOrder.Count-1 do
begin
PgName := IDEComponentPalette.PagesUserOrder[i];
@ -289,7 +286,7 @@ var
StartInd, EndInd: Integer;
RealPageName, CompName: String;
begin
if aPageName = AllComponentsHeader then
if aPageName = lis_All_ then
begin
StartInd := 1; // Skip the first entry for all components.
EndInd := PagesListBox.Count-1;
@ -330,7 +327,7 @@ procedure TCompPaletteOptionsFrame.AddPageButtonClick(Sender: TObject);
var
s: String;
begin
s := InputBox('New page', 'Page name', '');
s := InputBox(lisNewPage, lisPageName, '');
PagesListBox.AddItem(s, TStringList.Create);
end;

4
ide/lazarusidestrconsts.pas
View File

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