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

Designer: ResourceStrings for Size Component Dialog

Browse Source 
git-svn-id: trunk@14735 -
This commit is contained in:
laurent 2008-04-02 19:26:18 +00:00
parent 2107b2ce1a
commit b7ae37634e
2 changed files with 17 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
designer/sizecompsdlg.pp
View File

@ -52,6 +52,7 @@ function ShowSizeComponentsDialog(var HorizSizingID, FixedWidth,
VertSizingID, FixedHeight: integer): TModalResult;
implementation
uses LazarusIDEStrConsts;
function ShowSizeComponentsDialog(var HorizSizingID, FixedWidth,
VertSizingID, FixedHeight: integer): TModalResult;
@ -86,29 +87,29 @@ constructor TSizeComponentsDialog.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
Caption:='Size';
Caption:=fdmSizeWord;
with WidthRadioGroup do begin
Caption:='Width:';
Caption:=dlgWidthPos;
with Items do begin
BeginUpdate;
Add('No change');
Add('Shrink to smallest');
Add('Grow to Largest');
Add('Width:');
Add(lisNoChange);
Add(lisShrinkToSmal);
Add(lisGrowToLarges);
Add(dlgWidthPos);
EndUpdate;
end;
ItemIndex:=0;
end;
with HeightRadioGroup do begin
Caption:='Height:';
Caption:=DlgHeightPos;
with Items do begin
BeginUpdate;
Add('No change');
Add('Shrink to smallest');
Add('Grow to Largest');
Add('Height:');
Add(lisNoChange);
Add(lisShrinkToSmal);
Add(lisGrowToLarges);
Add(DlgHeightPos);
EndUpdate;
end;
ItemIndex:=0;
@ -117,7 +118,7 @@ begin
WidthEdit.Text:='';
HeightEdit.Text:='';
OkButton.Caption:='Ok';
OkButton.Caption:=lisOkBtn;
end;
initialization

4
ide/lazarusidestrconsts.pas
View File

@ -3708,6 +3708,10 @@ resourcestring
lisOff = '? (Off)';
lisOn = '? (On)';
// Designer Size Components Dialog
lisShrinkToSmal = 'Shrink to smallest';
lisGrowToLarges = 'Grow to Largest';
implementation