paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-07 01:29:42 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Give default size for NewDialog layout at first start. Design-time size has no effect. Set constraints.

Browse Source 
git-svn-id: trunk@55302 -
This commit is contained in:
juha 2017-06-10 06:45:35 +00:00
parent 4a86dba032
commit 24a6e20c0d
2 changed files with 30 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

57
ide/newdialog.lfm
View File

@ -2,33 +2,34 @@ object NewOtherDialog: TNewOtherDialog
Left = 281 Left = 281
Height = 434 Height = 434
Top = 191 Top = 191
Width = 950 Width = 741
BorderIcons = [biSystemMenu] BorderIcons = [biSystemMenu]
Caption = 'NewOtherDialog' Caption = 'NewOtherDialog'
ClientHeight = 434 ClientHeight = 434
ClientWidth = 950 ClientWidth = 741
Constraints.MinHeight = 100
Constraints.MinWidth = 450
OnClose = FormClose OnClose = FormClose
OnCreate = FormCreate OnCreate = FormCreate
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '1.7' LCLVersion = '1.9.0.0'
object Panel1: TPanel object Panel1: TPanel
Left = 6 Left = 6
Height = 389 Height = 390
Top = 6 Top = 6
Width = 938 Width = 729
Align = alClient Align = alClient
BorderSpacing.Around = 6 BorderSpacing.Around = 6
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 389 ClientHeight = 390
ClientWidth = 938 ClientWidth = 729
TabOrder = 0 TabOrder = 0
object ItemsTreeView: TTreeView object ItemsTreeView: TTreeView
Left = 0 Left = 0
Height = 389 Height = 390
Top = 0 Top = 0
Width = 504 Width = 295
Align = alClient Align = alClient
DefaultItemHeight = 16
ExpandSignSize = 10 ExpandSignSize = 10
ReadOnly = True ReadOnly = True
ScrollBars = ssAutoBoth ScrollBars = ssAutoBoth
@ -42,20 +43,20 @@ object NewOtherDialog: TNewOtherDialog
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Owner AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
Left = 509 Left = 300
Height = 389 Height = 390
Top = 0 Top = 0
Width = 429 Width = 429
Align = alRight Align = alRight
Caption = 'DescriptionGroupBox' Caption = 'DescriptionGroupBox'
ClientHeight = 363 ClientHeight = 370
ClientWidth = 425 ClientWidth = 427
TabOrder = 1 TabOrder = 1
object DescriptionLabel: TLabel object DescriptionLabel: TLabel
Left = 6 Left = 6
Height = 14 Height = 19
Top = 6 Top = 6
Width = 413 Width = 415
Align = alTop Align = alTop
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'DescriptionLabel' Caption = 'DescriptionLabel'
@ -71,9 +72,9 @@ object NewOtherDialog: TNewOtherDialog
AnchorSideBottom.Control = DescriptionGroupBox AnchorSideBottom.Control = DescriptionGroupBox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 6 Left = 6
Height = 297 Height = 320
Top = 60 Top = 62
Width = 413 Width = 415
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Columns = < Columns = <
@ -83,7 +84,7 @@ object NewOtherDialog: TNewOtherDialog
end end
item item
Caption = 'Unit' Caption = 'Unit'
Width = 250 Width = 313
end> end>
HideSelection = False HideSelection = False
ReadOnly = True ReadOnly = True
@ -101,9 +102,9 @@ object NewOtherDialog: TNewOtherDialog
AnchorSideRight.Control = DescriptionGroupBox AnchorSideRight.Control = DescriptionGroupBox
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 28 Height = 25
Top = 26 Top = 31
Width = 413 Width = 415
ButtonWidth = 23 ButtonWidth = 23
NumGlyphs = 1 NumGlyphs = 1
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
@ -115,8 +116,8 @@ object NewOtherDialog: TNewOtherDialog
end end
end end
object Splitter1: TSplitter object Splitter1: TSplitter
Left = 504 Left = 295
Height = 389 Height = 390
Top = 0 Top = 0
Width = 5 Width = 5
Align = alRight Align = alRight
@ -125,9 +126,9 @@ object NewOtherDialog: TNewOtherDialog
end end
object ButtonPanel: TButtonPanel object ButtonPanel: TButtonPanel
Left = 6 Left = 6
Height = 27 Height = 26
Top = 401 Top = 402
Width = 938 Width = 729
OKButton.Name = 'OKButton' OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True OKButton.DefaultCaption = True
OKButton.OnClick = OkButtonClick OKButton.OnClick = OkButtonClick

2
ide/newdialog.pas
View File

@ -361,7 +361,7 @@ end;
procedure TNewOtherDialog.FormCreate(Sender: TObject); procedure TNewOtherDialog.FormCreate(Sender: TObject);
begin begin
IDEDialogLayoutList.ApplyLayout(Self); IDEDialogLayoutList.ApplyLayout(Self, 750, 410, False);
end; end;
procedure TNewOtherDialog.SetupComponents; procedure TNewOtherDialog.SetupComponents;