IDE: change spacing and anchoring in compiler optioms GUI

git-svn-id: trunk@42224 -
This commit is contained in:
juha 2013-07-29 08:08:32 +00:00
parent 0df29b9470
commit 2fee7b1ec2
2 changed files with 104 additions and 76 deletions

View File

@ -14,33 +14,37 @@ object CompilerCodegenOptionsFrame: TCompilerCodegenOptionsFrame
AnchorSideTop.Control = grpOptimizationLevels
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Side = asrBottom
Left = 161
Height = 79
Left = 155
Height = 70
Top = 0
Width = 160
Width = 154
AutoSize = True
BorderSpacing.Left = 15
Caption = 'grpUnitStyle'
ClientHeight = 60
ClientWidth = 156
ClientHeight = 51
ClientWidth = 150
TabOrder = 0
object chkSmartLinkUnit: TCheckBox
Left = 6
Height = 21
Top = 6
Top = 3
Width = 144
Align = alTop
BorderSpacing.Around = 6
BorderSpacing.Left = 6
BorderSpacing.Top = 3
Caption = 'chkSmartLinkUnit'
TabOrder = 0
end
object chkRelocatableUnit: TCheckBox
AnchorSideLeft.Control = chkSmartLinkUnit
AnchorSideTop.Control = chkSmartLinkUnit
AnchorSideTop.Side = asrBottom
Left = 6
Height = 21
Top = 33
Top = 27
Width = 144
Align = alTop
BorderSpacing.Around = 6
BorderSpacing.Top = 3
BorderSpacing.Bottom = 3
Caption = 'chkRelocatableUnit'
TabOrder = 1
end
@ -51,16 +55,16 @@ object CompilerCodegenOptionsFrame: TCompilerCodegenOptionsFrame
AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Side = asrBottom
Left = 161
Height = 87
Top = 84
Width = 178
Left = 155
Height = 84
Top = 75
Width = 172
AutoSize = True
BorderSpacing.Top = 5
Caption = 'grpHeapStackSize'
ChildSizing.TopBottomSpacing = 6
ClientHeight = 68
ClientWidth = 174
ClientHeight = 65
ClientWidth = 168
TabOrder = 1
object edtHeapSize: TEdit
AnchorSideLeft.Control = lbHeapSize
@ -68,13 +72,13 @@ object CompilerCodegenOptionsFrame: TCompilerCodegenOptionsFrame
AnchorSideTop.Control = grpHeapStackSize
AnchorSideRight.Control = grpHeapStackSize
AnchorSideRight.Side = asrBottom
Left = 86
Left = 80
Height = 25
Top = 6
Width = 82
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
BorderSpacing.Around = 6
BorderSpacing.Right = 6
TabOrder = 0
Text = 'edtHeapSize'
end
@ -86,7 +90,7 @@ object CompilerCodegenOptionsFrame: TCompilerCodegenOptionsFrame
Height = 15
Top = 11
Width = 68
BorderSpacing.Around = 6
BorderSpacing.Left = 6
Caption = 'lbHeapSize'
ParentColor = False
end
@ -97,25 +101,26 @@ object CompilerCodegenOptionsFrame: TCompilerCodegenOptionsFrame
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = grpHeapStackSize
AnchorSideRight.Side = asrBottom
Left = 88
Left = 82
Height = 25
Top = 37
Top = 34
Width = 80
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
BorderSpacing.Around = 6
BorderSpacing.Top = 3
BorderSpacing.Right = 6
BorderSpacing.Bottom = 3
TabOrder = 1
Text = 'edtStackSize'
end
object lbStackSize: TLabel
AnchorSideLeft.Control = grpHeapStackSize
AnchorSideLeft.Control = lbHeapSize
AnchorSideTop.Control = edtStackSize
AnchorSideTop.Side = asrCenter
Left = 6
Height = 15
Top = 42
Top = 39
Width = 70
BorderSpacing.Around = 6
Caption = 'lbStackSize'
ParentColor = False
end
@ -124,60 +129,62 @@ object CompilerCodegenOptionsFrame: TCompilerCodegenOptionsFrame
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Side = asrBottom
Left = 0
Height = 133
Height = 118
Top = 0
Width = 146
Width = 140
AutoSize = True
Caption = 'grpOptimizationLevels'
ClientHeight = 114
ClientWidth = 142
ClientHeight = 99
ClientWidth = 136
TabOrder = 2
object radOptLevelNone: TRadioButton
AnchorSideLeft.Control = grpOptimizationLevels
AnchorSideTop.Control = grpOptimizationLevels
Left = 6
Height = 21
Top = 6
Top = 3
Width = 130
BorderSpacing.Around = 6
BorderSpacing.Left = 6
BorderSpacing.Top = 3
Caption = 'radOptLevelNone'
Checked = True
TabOrder = 0
TabStop = True
end
object radOptLevel1: TRadioButton
AnchorSideLeft.Control = grpOptimizationLevels
AnchorSideLeft.Control = radOptLevelNone
AnchorSideTop.Control = radOptLevelNone
AnchorSideTop.Side = asrBottom
Left = 6
Height = 21
Top = 33
Top = 27
Width = 105
BorderSpacing.Around = 6
BorderSpacing.Top = 3
Caption = 'radOptLevel1'
TabOrder = 1
end
object radOptLevel2: TRadioButton
AnchorSideLeft.Control = grpOptimizationLevels
AnchorSideLeft.Control = radOptLevel1
AnchorSideTop.Control = radOptLevel1
AnchorSideTop.Side = asrBottom
Left = 6
Height = 21
Top = 60
Top = 51
Width = 105
BorderSpacing.Around = 6
BorderSpacing.Top = 3
Caption = 'radOptLevel2'
TabOrder = 2
end
object radOptLevel3: TRadioButton
AnchorSideLeft.Control = grpOptimizationLevels
AnchorSideLeft.Control = radOptLevel2
AnchorSideTop.Control = radOptLevel2
AnchorSideTop.Side = asrBottom
Left = 6
Height = 21
Top = 87
Top = 75
Width = 105
BorderSpacing.Around = 6
BorderSpacing.Top = 3
BorderSpacing.Bottom = 3
Caption = 'radOptLevel3'
TabOrder = 3
end
@ -187,42 +194,48 @@ object CompilerCodegenOptionsFrame: TCompilerCodegenOptionsFrame
AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom
Left = 0
Height = 137
Top = 221
Width = 172
Height = 118
Top = 198
Width = 166
AutoSize = True
BorderSpacing.Top = 5
Caption = 'grpLinking'
ClientHeight = 118
ClientWidth = 168
ClientHeight = 99
ClientWidth = 162
TabOrder = 3
object chkLinkSmart: TCheckBox
Left = 6
Height = 21
Top = 6
Width = 156
Top = 3
Width = 150
Align = alTop
BorderSpacing.Around = 6
BorderSpacing.Left = 6
BorderSpacing.Top = 3
BorderSpacing.Right = 6
Caption = 'chkLinkSmart'
TabOrder = 0
end
object chkWin32GraphicApp: TCheckBox
AnchorSideLeft.Control = chkLinkSmart
AnchorSideTop.Control = chkLinkSmart
AnchorSideTop.Side = asrBottom
Left = 6
Height = 21
Top = 33
Top = 27
Width = 156
Align = alTop
BorderSpacing.Around = 6
BorderSpacing.Top = 3
Caption = 'chkWin32GraphicApp'
TabOrder = 1
end
object chkOptionsLinkOpt: TCheckBox
AnchorSideLeft.Control = chkWin32GraphicApp
AnchorSideTop.Control = chkWin32GraphicApp
AnchorSideTop.Side = asrBottom
Left = 6
Height = 21
Top = 60
Width = 156
Align = alTop
BorderSpacing.Around = 6
Top = 50
Width = 140
BorderSpacing.Top = 2
Caption = 'chkOptionsLinkOpt'
TabOrder = 2
end
@ -234,12 +247,12 @@ object CompilerCodegenOptionsFrame: TCompilerCodegenOptionsFrame
AnchorSideRight.Side = asrBottom
Left = 25
Height = 25
Top = 87
Width = 137
Top = 71
Width = 131
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 19
BorderSpacing.Right = 6
BorderSpacing.Bottom = 6
BorderSpacing.Bottom = 3
TabOrder = 3
Text = 'edtOptionsLinkOpt'
end
@ -248,30 +261,37 @@ object CompilerCodegenOptionsFrame: TCompilerCodegenOptionsFrame
AnchorSideTop.Control = grpOptimizationLevels
AnchorSideTop.Side = asrBottom
Left = 0
Height = 78
Top = 138
Width = 165
Height = 70
Top = 123
Width = 159
AutoSize = True
BorderSpacing.Top = 5
Caption = 'grpOptimizations'
ClientHeight = 59
ClientWidth = 161
ClientHeight = 51
ClientWidth = 155
TabOrder = 4
object Label1: TLabel
AnchorSideLeft.Control = chkOptSmaller
AnchorSideTop.Control = chkOptSmaller
AnchorSideTop.Side = asrBottom
Left = 6
Height = 15
Top = 38
Top = 30
Width = 149
BorderSpacing.Around = 6
BorderSpacing.Top = 6
BorderSpacing.Bottom = 6
Caption = 'ToDo: more optimization'
ParentColor = False
end
object chkOptSmaller: TCheckBox
AnchorSideLeft.Control = grpOptimizations
AnchorSideTop.Control = grpOptimizations
Left = 6
Height = 21
Top = 6
Top = 3
Width = 114
BorderSpacing.Around = 6
BorderSpacing.Left = 6
BorderSpacing.Top = 3
Caption = 'chkOptSmaller'
TabOrder = 0
end

View File

@ -10,13 +10,13 @@ object CompilerConfigTargetFrame: TCompilerConfigTargetFrame
DesignTop = 542
object grpConfigFile: TGroupBox
Left = 0
Height = 110
Height = 107
Top = 0
Width = 594
Align = alTop
AutoSize = True
Caption = 'grpConfigFile'
ClientHeight = 91
ClientHeight = 88
ClientWidth = 590
TabOrder = 0
object chkConfigFile: TCheckBox
@ -35,18 +35,26 @@ object CompilerConfigTargetFrame: TCompilerConfigTargetFrame
Top = 33
Width = 578
Align = alTop
BorderSpacing.Around = 6
BorderSpacing.Left = 6
BorderSpacing.Right = 6
Caption = 'chkCustomConfigFile'
OnClick = chkCustomConfigFileClick
TabOrder = 1
end
object edtConfigPath: TEdit
Left = 6
AnchorSideLeft.Control = chkCustomConfigFile
AnchorSideTop.Control = chkCustomConfigFile
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = chkCustomConfigFile
AnchorSideRight.Side = asrBottom
Left = 25
Height = 25
Top = 60
Width = 578
Align = alTop
BorderSpacing.Around = 6
Top = 57
Width = 559
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 19
BorderSpacing.Top = 3
BorderSpacing.Bottom = 6
TabOrder = 2
Text = 'edtConfigPath'
end
@ -55,7 +63,7 @@ object CompilerConfigTargetFrame: TCompilerConfigTargetFrame
AnchorSideBottom.Side = asrBottom
Left = 0
Height = 118
Top = 121
Top = 118
Width = 594
Align = alTop
AutoSize = True