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

IDE: improved component palette pages list i18n, bug #28061

Browse Source 
git-svn-id: trunk@49003 -
This commit is contained in:
maxim 2015-05-12 21:45:53 +00:00
parent 58a102b2c5
commit 7e271e4090
3 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/componentpalette.pas
View File

@ -350,7 +350,7 @@ begin
LoadGlyphFromResourceName(HInstance, 'SelCompPage');
Flat := True;
SetBounds(2,1,16,16);
Hint := 'Click to Select Palette Page';
Hint := lisClickToSelectPalettePage;
ShowHint := True;
OnClick := @MainIDE.SelComponentPageButtonClick;
OnMouseWheel := @Pal.OnPageMouseWheel;

5
ide/comppagespopup.pas
View File

@ -11,7 +11,7 @@ interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
ExtCtrls, Buttons, MainBar;
ExtCtrls, Buttons, MainBar, LazarusIDEStrConsts;
type
@ -174,7 +174,8 @@ begin
end;
TreeView1.EndUpdate;
TreeView1.FullExpand;
Panel2.Caption:='Total Pages: '+IntToStr(MainIDEBar.ComponentPageControl.PageCount);
Panel2.Caption:=Format(lisTotalPages, [IntToStr(MainIDEBar.
ComponentPageControl.PageCount)]);
end;
end.

2
ide/lazarusidestrconsts.pas
View File

@ -172,6 +172,8 @@ resourcestring
// component palette
lisSelectionTool = 'Selection tool';
lisClickToSelectPalettePage = 'Click to Select Palette Page';
lisTotalPages = 'Total Pages: %s';
// macros
lisCursorColumnInCurrentEditor = 'Cursor column in current editor';