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

Cody: improved 'Add "With" block' dialog localization

Browse Source 
git-svn-id: trunk@32289 -
This commit is contained in:
maxim 2011-09-11 14:30:41 +00:00
parent 0b690c7859
commit f66f0666cb
2 changed files with 15 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
components/codetools/ide/addwithblockdlg.lfm
View File

@ -10,11 +10,12 @@ object AddWithBlockDialog: TAddWithBlockDialog
LCLVersion = '0.9.31'
object ButtonPanel1: TButtonPanel
Left = 6
Height = 42
Top = 203
Height = 34
Top = 211
Width = 350
OKButton.Name = 'OKButton'
OKButton.Caption = '&OK'
OKButton.OnClick = ButtonPanel1OKButtonClick
HelpButton.Name = 'HelpButton'
HelpButton.Caption = '&Help'
CloseButton.Name = 'CloseButton'
@ -26,20 +27,20 @@ object AddWithBlockDialog: TAddWithBlockDialog
end
object WithExprGroupBox: TGroupBox
Left = 6
Height = 191
Height = 199
Top = 6
Width = 350
Align = alClient
BorderSpacing.Around = 6
Caption = 'WithExprGroupBox'
ClientHeight = 170
ClientWidth = 342
ClientHeight = 181
ClientWidth = 346
TabOrder = 1
object WithExprStringGrid: TStringGrid
Left = 0
Height = 170
Height = 181
Top = 0
Width = 342
Width = 346
Align = alClient
AutoFillColumns = True
ColCount = 2
@ -48,19 +49,19 @@ object AddWithBlockDialog: TAddWithBlockDialog
SizePriority = 2
Title.Caption = 'Expression'
Title.PrefixOption = poNone
Width = 170
Width = 171
end
item
Title.Caption = 'Count'
Title.PrefixOption = poNone
Width = 170
Width = 171
end>
FixedCols = 0
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected, goColSizing, goColSpanning, goSmoothScroll]
TabOrder = 0
ColWidths = (
170
170
171
171
)
end
end

4
components/codetools/ide/addwithblockdlg.pas
View File

@ -127,7 +127,9 @@ begin
WithExprStringGrid.Columns[0].Title.Caption:=crsExpression;
WithExprStringGrid.Columns[1].Title.Caption:=crsCount;
ButtonPanel1.OKButton.OnClick:=@ButtonPanel1OKButtonClick;
ButtonPanel1.HelpButton.Caption:=crsHelp;
ButtonPanel1.OKButton.Caption:=crsBTNOK;
ButtonPanel1.CancelButton.Caption:=crsBTNCancel;
end;
procedure TAddWithBlockDialog.ButtonPanel1OKButtonClick(Sender: TObject);