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

IDE, new project dialog: fixed localization, moved TButtonPanel events assignment to LFM.

Browse Source 
git-svn-id: trunk@26579 -
This commit is contained in:
maxim 2010-07-10 17:09:23 +00:00
parent 00933147cf
commit a096753d90
2 changed files with 16 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
ide/newprojectdlg.lfm
View File

@ -3,7 +3,6 @@ object NewProjectDialog: TNewProjectDialog
Height = 302 Height = 302
Top = 451 Top = 451
Width = 561 Width = 561
ActiveControl = ListBox
Caption = 'NewProjectDialog' Caption = 'NewProjectDialog'
ClientHeight = 302 ClientHeight = 302
ClientWidth = 561 ClientWidth = 561
@ -15,30 +14,30 @@ object NewProjectDialog: TNewProjectDialog
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 250 Height = 258
Top = 6 Top = 6
Width = 549 Width = 549
Align = alClient Align = alClient
BorderSpacing.Around = 6 BorderSpacing.Around = 6
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 250 ClientHeight = 258
ClientWidth = 549 ClientWidth = 549
TabOrder = 0 TabOrder = 0
object DescriptionGroupBox: TGroupBox object DescriptionGroupBox: TGroupBox
Left = 251 Left = 251
Height = 250 Height = 258
Top = 0 Top = 0
Width = 298 Width = 298
Align = alClient Align = alClient
Caption = 'DescriptionGroupBox' Caption = 'DescriptionGroupBox'
ClientHeight = 229 ClientHeight = 240
ClientWidth = 290 ClientWidth = 294
TabOrder = 0 TabOrder = 0
object HelpLabel: TLabel object HelpLabel: TLabel
Left = 6 Left = 6
Height = 217 Height = 228
Top = 6 Top = 6
Width = 278 Width = 282
Align = alClient Align = alClient
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'HelpLabel' Caption = 'HelpLabel'
@ -48,7 +47,7 @@ object NewProjectDialog: TNewProjectDialog
end end
object ListBox: TListBox object ListBox: TListBox
Left = 0 Left = 0
Height = 250 Height = 258
Top = 0 Top = 0
Width = 246 Width = 246
Align = alLeft Align = alLeft
@ -59,20 +58,21 @@ object NewProjectDialog: TNewProjectDialog
end end
object Splitter1: TSplitter object Splitter1: TSplitter
Left = 246 Left = 246
Height = 250 Height = 258
Top = 0 Top = 0
Width = 5 Width = 5
end end
end end
object ButtonPanel: TButtonPanel object ButtonPanel: TButtonPanel
Left = 6 Left = 6
Height = 34 Height = 26
Top = 262 Top = 270
Width = 549 Width = 549
OKButton.Name = 'OKButton' OKButton.Name = 'OKButton'
OKButton.Caption = '&OK' OKButton.Caption = '&OK'
HelpButton.Name = 'HelpButton' HelpButton.Name = 'HelpButton'
HelpButton.Caption = '&Help' HelpButton.Caption = '&Help'
HelpButton.OnClick = HelpButtonClick
CloseButton.Name = 'CloseButton' CloseButton.Name = 'CloseButton'
CloseButton.Caption = '&Close' CloseButton.Caption = '&Close'
CloseButton.Enabled = False CloseButton.Enabled = False

5
ide/newprojectdlg.pp
View File

@ -126,7 +126,10 @@ begin
end; end;
DescriptionGroupBox.Caption := lisCodeHelpDescrTag; DescriptionGroupBox.Caption := lisCodeHelpDescrTag;
ButtonPanel.HelpButton.OnClick := @HelpButtonClick;
ButtonPanel.OKButton.Caption := lisOk;
ButtonPanel.HelpButton.Caption := lisMenuHelp;
ButtonPanel.CancelButton.Caption := dlgCancel;
end; end;
procedure TNewProjectDialog.HelpButtonClick(Sender: TObject); procedure TNewProjectDialog.HelpButtonClick(Sender: TObject);