paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-07 15:56:00 +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' LCLVersion = '0.9.31'
object ButtonPanel1: TButtonPanel object ButtonPanel1: TButtonPanel
Left = 6 Left = 6
Height = 42 Height = 34
Top = 203 Top = 211
Width = 350 Width = 350
OKButton.Name = 'OKButton' OKButton.Name = 'OKButton'
OKButton.Caption = '&OK' OKButton.Caption = '&OK'
OKButton.OnClick = ButtonPanel1OKButtonClick
HelpButton.Name = 'HelpButton' HelpButton.Name = 'HelpButton'
HelpButton.Caption = '&Help' HelpButton.Caption = '&Help'
CloseButton.Name = 'CloseButton' CloseButton.Name = 'CloseButton'
@ -26,20 +27,20 @@ object AddWithBlockDialog: TAddWithBlockDialog
end end
object WithExprGroupBox: TGroupBox object WithExprGroupBox: TGroupBox
Left = 6 Left = 6
Height = 191 Height = 199
Top = 6 Top = 6
Width = 350 Width = 350
Align = alClient Align = alClient
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'WithExprGroupBox' Caption = 'WithExprGroupBox'
ClientHeight = 170 ClientHeight = 181
ClientWidth = 342 ClientWidth = 346
TabOrder = 1 TabOrder = 1
object WithExprStringGrid: TStringGrid object WithExprStringGrid: TStringGrid
Left = 0 Left = 0
Height = 170 Height = 181
Top = 0 Top = 0
Width = 342 Width = 346
Align = alClient Align = alClient
AutoFillColumns = True AutoFillColumns = True
ColCount = 2 ColCount = 2
@ -48,19 +49,19 @@ object AddWithBlockDialog: TAddWithBlockDialog
SizePriority = 2 SizePriority = 2
Title.Caption = 'Expression' Title.Caption = 'Expression'
Title.PrefixOption = poNone Title.PrefixOption = poNone
Width = 170 Width = 171
end end
item item
Title.Caption = 'Count' Title.Caption = 'Count'
Title.PrefixOption = poNone Title.PrefixOption = poNone
Width = 170 Width = 171
end> end>
FixedCols = 0 FixedCols = 0
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected, goColSizing, goColSpanning, goSmoothScroll] Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected, goColSizing, goColSpanning, goSmoothScroll]
TabOrder = 0 TabOrder = 0
ColWidths = ( ColWidths = (
170 171
170 171
) )
end end
end end

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

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