IDE: package compiler options: fixed showing unitstyle

git-svn-id: trunk@46211 -
This commit is contained in:
mattias 2014-09-13 20:57:46 +00:00
parent 8ee2a47c21
commit f0d82b263b
2 changed files with 49 additions and 51 deletions

View File

@ -13,24 +13,22 @@ object CompilerCodegenOptionsFrame: TCompilerCodegenOptionsFrame
AnchorSideTop.Control = grpOptimizations AnchorSideTop.Control = grpOptimizations
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = grpHeapStackSize
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 0 Left = 0
Height = 82 Height = 74
Top = 174 Top = 185
Width = 157 Width = 146
Anchors = [akTop, akLeft, akBottom]
AutoSize = True AutoSize = True
BorderSpacing.Top = 5 BorderSpacing.Top = 5
Caption = 'grpUnitStyle' Caption = 'grpUnitStyle'
ClientHeight = 63 ClientHeight = 57
ClientWidth = 153 ClientWidth = 142
TabOrder = 0 TabOrder = 0
object chkSmartLinkUnit: TCheckBox object chkSmartLinkUnit: TCheckBox
Left = 6 Left = 6
Height = 21 Height = 24
Top = 3 Top = 3
Width = 147 Width = 136
Align = alTop Align = alTop
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 3 BorderSpacing.Top = 3
@ -42,9 +40,9 @@ object CompilerCodegenOptionsFrame: TCompilerCodegenOptionsFrame
AnchorSideTop.Control = chkSmartLinkUnit AnchorSideTop.Control = chkSmartLinkUnit
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 21 Height = 24
Top = 27 Top = 30
Width = 144 Width = 133
BorderSpacing.Top = 3 BorderSpacing.Top = 3
BorderSpacing.Right = 3 BorderSpacing.Right = 3
BorderSpacing.Bottom = 3 BorderSpacing.Bottom = 3
@ -60,10 +58,10 @@ object CompilerCodegenOptionsFrame: TCompilerCodegenOptionsFrame
AnchorSideRight.Control = grpOptimizations AnchorSideRight.Control = grpOptimizations
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 164 Left = 153
Height = 82 Height = 80
Top = 174 Top = 185
Width = 437 Width = 448
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = True AutoSize = True
BorderSpacing.Left = 7 BorderSpacing.Left = 7
@ -71,7 +69,7 @@ object CompilerCodegenOptionsFrame: TCompilerCodegenOptionsFrame
Caption = 'grpHeapStackSize' Caption = 'grpHeapStackSize'
ChildSizing.TopBottomSpacing = 6 ChildSizing.TopBottomSpacing = 6
ClientHeight = 63 ClientHeight = 63
ClientWidth = 433 ClientWidth = 444
TabOrder = 1 TabOrder = 1
object edtHeapSize: TEdit object edtHeapSize: TEdit
AnchorSideLeft.Control = lbHeapSize AnchorSideLeft.Control = lbHeapSize
@ -79,10 +77,10 @@ object CompilerCodegenOptionsFrame: TCompilerCodegenOptionsFrame
AnchorSideTop.Control = grpHeapStackSize AnchorSideTop.Control = grpHeapStackSize
AnchorSideRight.Control = grpHeapStackSize AnchorSideRight.Control = grpHeapStackSize
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 80 Left = 72
Height = 25 Height = 25
Top = 6 Top = 6
Width = 347 Width = 366
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Right = 6 BorderSpacing.Right = 6
@ -96,7 +94,7 @@ object CompilerCodegenOptionsFrame: TCompilerCodegenOptionsFrame
Left = 6 Left = 6
Height = 15 Height = 15
Top = 11 Top = 11
Width = 68 Width = 60
BorderSpacing.Left = 6 BorderSpacing.Left = 6
Caption = 'lbHeapSize' Caption = 'lbHeapSize'
ParentColor = False ParentColor = False
@ -108,10 +106,10 @@ object CompilerCodegenOptionsFrame: TCompilerCodegenOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = grpHeapStackSize AnchorSideRight.Control = grpHeapStackSize
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 82 Left = 73
Height = 25 Height = 25
Top = 32 Top = 32
Width = 345 Width = 365
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 1 BorderSpacing.Top = 1
@ -127,7 +125,7 @@ object CompilerCodegenOptionsFrame: TCompilerCodegenOptionsFrame
Left = 6 Left = 6
Height = 15 Height = 15
Top = 37 Top = 37
Width = 70 Width = 61
Caption = 'lbStackSize' Caption = 'lbStackSize'
ParentColor = False ParentColor = False
end end
@ -135,22 +133,22 @@ object CompilerCodegenOptionsFrame: TCompilerCodegenOptionsFrame
object grpOptimizationLevels: TGroupBox object grpOptimizationLevels: TGroupBox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 0 Left = 0
Height = 118 Height = 128
Top = 0 Top = 0
Width = 601 Width = 601
Align = alTop Align = alTop
AutoSize = True AutoSize = True
Caption = 'grpOptimizationLevels' Caption = 'grpOptimizationLevels'
ClientHeight = 99 ClientHeight = 111
ClientWidth = 597 ClientWidth = 597
TabOrder = 2 TabOrder = 2
object radOptLevelNone: TRadioButton object radOptLevelNone: TRadioButton
AnchorSideLeft.Control = grpOptimizationLevels AnchorSideLeft.Control = grpOptimizationLevels
AnchorSideTop.Control = grpOptimizationLevels AnchorSideTop.Control = grpOptimizationLevels
Left = 6 Left = 6
Height = 21 Height = 24
Top = 3 Top = 3
Width = 130 Width = 124
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 3 BorderSpacing.Top = 3
BorderSpacing.Right = 6 BorderSpacing.Right = 6
@ -164,9 +162,9 @@ object CompilerCodegenOptionsFrame: TCompilerCodegenOptionsFrame
AnchorSideTop.Control = radOptLevelNone AnchorSideTop.Control = radOptLevelNone
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 21 Height = 24
Top = 27 Top = 30
Width = 231 Width = 210
BorderSpacing.Top = 3 BorderSpacing.Top = 3
BorderSpacing.Right = 6 BorderSpacing.Right = 6
Caption = '1 (quick, debugger friendly) (-O1)' Caption = '1 (quick, debugger friendly) (-O1)'
@ -177,9 +175,9 @@ object CompilerCodegenOptionsFrame: TCompilerCodegenOptionsFrame
AnchorSideTop.Control = radOptLevel1 AnchorSideTop.Control = radOptLevel1
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 21 Height = 24
Top = 51 Top = 57
Width = 105 Width = 101
BorderSpacing.Top = 3 BorderSpacing.Top = 3
BorderSpacing.Right = 6 BorderSpacing.Right = 6
Caption = 'radOptLevel2' Caption = 'radOptLevel2'
@ -190,9 +188,9 @@ object CompilerCodegenOptionsFrame: TCompilerCodegenOptionsFrame
AnchorSideTop.Control = radOptLevel2 AnchorSideTop.Control = radOptLevel2
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 21 Height = 24
Top = 75 Top = 84
Width = 105 Width = 101
BorderSpacing.Top = 3 BorderSpacing.Top = 3
BorderSpacing.Right = 6 BorderSpacing.Right = 6
BorderSpacing.Bottom = 3 BorderSpacing.Bottom = 3
@ -202,24 +200,24 @@ object CompilerCodegenOptionsFrame: TCompilerCodegenOptionsFrame
end end
object grpLinking: TGroupBox object grpLinking: TGroupBox
AnchorSideLeft.Control = grpUnitStyle AnchorSideLeft.Control = grpUnitStyle
AnchorSideTop.Control = grpUnitStyle AnchorSideTop.Control = grpHeapStackSize
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = grpOptimizations AnchorSideRight.Control = grpOptimizations
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 0 Left = 0
Height = 94 Height = 98
Top = 261 Top = 270
Width = 601 Width = 601
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = True AutoSize = True
BorderSpacing.Top = 5 BorderSpacing.Top = 5
Caption = 'grpLinking' Caption = 'grpLinking'
ClientHeight = 75 ClientHeight = 81
ClientWidth = 597 ClientWidth = 597
TabOrder = 3 TabOrder = 3
object chkLinkSmart: TCheckBox object chkLinkSmart: TCheckBox
Left = 6 Left = 6
Height = 21 Height = 24
Top = 3 Top = 3
Width = 585 Width = 585
Align = alTop Align = alTop
@ -234,9 +232,9 @@ object CompilerCodegenOptionsFrame: TCompilerCodegenOptionsFrame
AnchorSideTop.Control = chkLinkSmart AnchorSideTop.Control = chkLinkSmart
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 21 Height = 24
Top = 26 Top = 29
Width = 140 Width = 131
BorderSpacing.Top = 2 BorderSpacing.Top = 2
BorderSpacing.Right = 6 BorderSpacing.Right = 6
Caption = 'chkOptionsLinkOpt' Caption = 'chkOptionsLinkOpt'
@ -250,7 +248,7 @@ object CompilerCodegenOptionsFrame: TCompilerCodegenOptionsFrame
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 25 Left = 25
Height = 25 Height = 25
Top = 47 Top = 53
Width = 566 Width = 566
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 19 BorderSpacing.Left = 19
@ -262,23 +260,23 @@ object CompilerCodegenOptionsFrame: TCompilerCodegenOptionsFrame
end end
object grpOptimizations: TGroupBox object grpOptimizations: TGroupBox
Left = 0 Left = 0
Height = 46 Height = 47
Top = 123 Top = 133
Width = 601 Width = 601
Align = alTop Align = alTop
AutoSize = True AutoSize = True
BorderSpacing.Top = 5 BorderSpacing.Top = 5
Caption = 'grpOptimizations' Caption = 'grpOptimizations'
ClientHeight = 27 ClientHeight = 30
ClientWidth = 597 ClientWidth = 597
TabOrder = 4 TabOrder = 4
object chkOptSmaller: TCheckBox object chkOptSmaller: TCheckBox
AnchorSideLeft.Control = grpOptimizations AnchorSideLeft.Control = grpOptimizations
AnchorSideTop.Control = grpOptimizations AnchorSideTop.Control = grpOptimizations
Left = 6 Left = 6
Height = 21 Height = 24
Top = 3 Top = 3
Width = 114 Width = 106
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 3 BorderSpacing.Top = 3
BorderSpacing.Right = 6 BorderSpacing.Right = 6

View File

@ -100,7 +100,7 @@ begin
else else
radOptLevelNone.Checked := True; radOptLevelNone.Checked := True;
end; end;
grpLinking.Enabled := NeedsLinkerOpts; grpLinking.Visible := NeedsLinkerOpts;
chkLinkSmart.Checked := LinkSmart; chkLinkSmart.Checked := LinkSmart;
chkLinkSmart.Enabled := NeedsLinkerOpts; chkLinkSmart.Enabled := NeedsLinkerOpts;
chkOptionsLinkOpt.Checked := PassLinkerOptions; chkOptionsLinkOpt.Checked := PassLinkerOptions;