paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-11 20:19:14 +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
Top = 451
Width = 561
ActiveControl = ListBox
Caption = 'NewProjectDialog'
ClientHeight = 302
ClientWidth = 561
@ -15,30 +14,30 @@ object NewProjectDialog: TNewProjectDialog
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 6
Height = 250
Height = 258
Top = 6
Width = 549
Align = alClient
BorderSpacing.Around = 6
BevelOuter = bvNone
ClientHeight = 250
ClientHeight = 258
ClientWidth = 549
TabOrder = 0
object DescriptionGroupBox: TGroupBox
Left = 251
Height = 250
Height = 258
Top = 0
Width = 298
Align = alClient
Caption = 'DescriptionGroupBox'
ClientHeight = 229
ClientWidth = 290
ClientHeight = 240
ClientWidth = 294
TabOrder = 0
object HelpLabel: TLabel
Left = 6
Height = 217
Height = 228
Top = 6
Width = 278
Width = 282
Align = alClient
BorderSpacing.Around = 6
Caption = 'HelpLabel'
@ -48,7 +47,7 @@ object NewProjectDialog: TNewProjectDialog
end
object ListBox: TListBox
Left = 0
Height = 250
Height = 258
Top = 0
Width = 246
Align = alLeft
@ -59,20 +58,21 @@ object NewProjectDialog: TNewProjectDialog
end
object Splitter1: TSplitter
Left = 246
Height = 250
Height = 258
Top = 0
Width = 5
end
end
object ButtonPanel: TButtonPanel
Left = 6
Height = 34
Top = 262
Height = 26
Top = 270
Width = 549
OKButton.Name = 'OKButton'
OKButton.Caption = '&OK'
HelpButton.Name = 'HelpButton'
HelpButton.Caption = '&Help'
HelpButton.OnClick = HelpButtonClick
CloseButton.Name = 'CloseButton'
CloseButton.Caption = '&Close'
CloseButton.Enabled = False

5
ide/newprojectdlg.pp
View File

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