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

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

Browse Source 
git-svn-id: trunk@26578 -
This commit is contained in:
maxim 2010-07-10 17:04:38 +00:00
parent edb4d863d5
commit 00933147cf
2 changed files with 20 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
ide/newdialog.lfm
View File

@ -11,24 +11,24 @@ object NewOtherDialog: TNewOtherDialog
LCLVersion = '0.9.29' LCLVersion = '0.9.29'
object Panel1: TPanel object Panel1: TPanel
Left = 6 Left = 6
Height = 369 Height = 377
Top = 6 Top = 6
Width = 549 Width = 549
Align = alClient Align = alClient
BorderSpacing.Around = 6 BorderSpacing.Around = 6
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 369 ClientHeight = 377
ClientWidth = 549 ClientWidth = 549
TabOrder = 0 TabOrder = 0
object ItemsTreeView: TTreeView object ItemsTreeView: TTreeView
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner AnchorSideTop.Control = Owner
Left = 0 Left = 0
Height = 369 Height = 377
Top = 0 Top = 0
Width = 263 Width = 263
Align = alClient Align = alClient
DefaultItemHeight = 19 DefaultItemHeight = 15
ReadOnly = True ReadOnly = True
ScrollBars = ssAutoBoth ScrollBars = ssAutoBoth
TabOrder = 0 TabOrder = 0
@ -43,19 +43,19 @@ object NewOtherDialog: TNewOtherDialog
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 268 Left = 268
Height = 369 Height = 377
Top = 0 Top = 0
Width = 281 Width = 281
Align = alRight Align = alRight
Caption = 'DescriptionGroupBox' Caption = 'DescriptionGroupBox'
ClientHeight = 348 ClientHeight = 359
ClientWidth = 273 ClientWidth = 277
TabOrder = 1 TabOrder = 1
object DescriptionLabel: TLabel object DescriptionLabel: TLabel
Left = 6 Left = 6
Height = 18 Height = 14
Top = 6 Top = 6
Width = 261 Width = 265
Align = alTop Align = alTop
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'DescriptionLabel' Caption = 'DescriptionLabel'
@ -64,9 +64,9 @@ object NewOtherDialog: TNewOtherDialog
end end
object InheritableComponentsListView: TListView object InheritableComponentsListView: TListView
Left = 0 Left = 0
Height = 318 Height = 333
Top = 30 Top = 26
Width = 273 Width = 277
Align = alClient Align = alClient
Columns = < Columns = <
item item
@ -88,7 +88,7 @@ object NewOtherDialog: TNewOtherDialog
end end
object Splitter1: TSplitter object Splitter1: TSplitter
Left = 263 Left = 263
Height = 369 Height = 377
Top = 0 Top = 0
Width = 5 Width = 5
Align = alRight Align = alRight
@ -97,13 +97,15 @@ object NewOtherDialog: TNewOtherDialog
end end
object ButtonPanel: TButtonPanel object ButtonPanel: TButtonPanel
Left = 6 Left = 6
Height = 34 Height = 26
Top = 381 Top = 389
Width = 549 Width = 549
OKButton.Name = 'OKButton' OKButton.Name = 'OKButton'
OKButton.Caption = '&OK' OKButton.Caption = '&OK'
OKButton.OnClick = OkButtonClick
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/newdialog.pas
View File

@ -330,8 +330,9 @@ begin
DescriptionGroupBox.Caption := lisCodeHelpDescrTag; DescriptionGroupBox.Caption := lisCodeHelpDescrTag;
DescriptionLabel.Caption := ''; DescriptionLabel.Caption := '';
ButtonPanel.OKButton.OnClick := @OKButtonClick; ButtonPanel.OKButton.Caption := lisOk;
ButtonPanel.HelpButton.OnClick := @HelpButtonClick; ButtonPanel.HelpButton.Caption := lisMenuHelp;
ButtonPanel.CancelButton.Caption := dlgCancel;
end; end;
procedure TNewOtherDialog.UpdateDescription; procedure TNewOtherDialog.UpdateDescription;