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

2
ide/newdialog.pas
View File

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