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

ide: compiler options: remove manual positioning code for Code tab (part of issue #0013849)

Browse Source 
git-svn-id: trunk@20268 -
This commit is contained in:
paul 2009-05-28 00:23:50 +00:00
parent f5919796c3
commit 8b5e40c05f
3 changed files with 579 additions and 579 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
ide/compileroptionsdlg.lfm
View File

@ -233,10 +233,8 @@ object frmCompilerOptions: TfrmCompilerOptions
Height = 21
Top = 267
Width = 171
AutoComplete = False
BorderSpacing.Left = 6
ItemHeight = 13
ItemWidth = 0
Style = csDropDownList
TabOrder = 6
end
@ -302,10 +300,8 @@ object frmCompilerOptions: TfrmCompilerOptions
Top = 6
Width = 337
Align = alLeft
AutoComplete = False
BorderSpacing.Around = 6
ItemHeight = 13
ItemWidth = 0
TabOrder = 0
Text = 'cmbSyntaxMode'
end
@ -501,11 +497,9 @@ object frmCompilerOptions: TfrmCompilerOptions
Top = 6
Width = 411
Anchors = [akTop, akLeft, akRight]
AutoComplete = False
BorderSpacing.Left = 6
BorderSpacing.Around = 6
ItemHeight = 13
ItemWidth = 0
TabOrder = 0
Text = 'TargetOSComboBox'
end
@ -521,11 +515,9 @@ object frmCompilerOptions: TfrmCompilerOptions
Top = 33
Width = 405
Anchors = [akTop, akLeft, akRight]
AutoComplete = False
BorderSpacing.Left = 6
BorderSpacing.Around = 6
ItemHeight = 13
ItemWidth = 0
TabOrder = 1
Text = 'TargetCPUComboBox'
end
@ -541,11 +533,9 @@ object frmCompilerOptions: TfrmCompilerOptions
Top = 60
Width = 357
Anchors = [akTop, akLeft, akRight]
AutoComplete = False
BorderSpacing.Left = 6
BorderSpacing.Around = 6
ItemHeight = 13
ItemWidth = 0
TabOrder = 2
Text = 'TargetProcessorProcComboBox'
end
@ -568,7 +558,18 @@ object frmCompilerOptions: TfrmCompilerOptions
ClientHeight = 211
ClientWidth = 645
TabOrder = 4
OnResize = grpOptimizationsResize
object lblOptMiddle: TLabel
AnchorSideLeft.Control = grpOptimizations
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = grpOptimizations
AnchorSideTop.Side = asrCenter
Left = 322
Height = 1
Top = 105
Width = 1
AutoSize = False
ParentColor = False
end
object radOptLevelNone: TRadioButton
AnchorSideLeft.Control = grpOptimizations
AnchorSideTop.Control = grpOptimizations
@ -622,31 +623,37 @@ object frmCompilerOptions: TfrmCompilerOptions
TabStop = False
end
object chkOptVarsInReg: TCheckBox
AnchorSideLeft.Control = lblOptMiddle
AnchorSideTop.Control = grpOptimizations
Left = 205
Left = 322
Height = 17
Top = 6
Width = 103
BorderSpacing.Around = 6
BorderSpacing.Top = 6
Caption = 'chkOptVarsInReg'
TabOrder = 4
end
object chkOptUncertain: TCheckBox
AnchorSideLeft.Control = lblOptMiddle
AnchorSideTop.Control = chkOptVarsInReg
AnchorSideTop.Side = asrBottom
Left = 205
Left = 322
Height = 17
Top = 29
Width = 99
BorderSpacing.Around = 6
BorderSpacing.Top = 6
Caption = 'chkOptUncertain'
TabOrder = 5
end
object chkOptSmaller: TCheckBox
Left = 205
AnchorSideLeft.Control = lblOptMiddle
AnchorSideTop.Control = chkOptUncertain
AnchorSideTop.Side = asrBottom
Left = 322
Height = 17
Top = 62
Top = 52
Width = 87
BorderSpacing.Top = 6
Caption = 'chkOptSmaller'
TabOrder = 6
end

1104
ide/compileroptionsdlg.lrs
View File

File diff suppressed because it is too large Load Diff

13
ide/compileroptionsdlg.pp
View File

@ -63,6 +63,7 @@ type
TfrmCompilerOptions = class(TForm)
chkGenerateDwarf: TCheckBox;
lblOptMiddle: TLabel;
MainNoteBook: TNoteBook;
{ Search Paths Controls }
@ -250,8 +251,6 @@ type
procedure PathEditBtnClick(Sender: TObject);
procedure PathEditBtnExecuted(Sender: TObject);
procedure frmCompilerOptionsClose(Sender: TObject; var CloseAction: TCloseAction);
procedure grpOptimizationsResize(Sender: TObject);
procedure btnBrowseMsgClick(Sender: TObject);
procedure chklistCompMsgClick(Sender: TObject);
procedure chkUseMsgFileChange(Sender: TObject);
@ -1832,16 +1831,6 @@ begin
IDEDialogLayoutList.SaveLayout(Self);
end;
procedure TfrmCompilerOptions.grpOptimizationsResize(Sender: TObject);
var
x: Integer;
begin
x:=radOptLevel1.Left+Max(radOptLevel1.Width,radOptLevel2.Width)+6;
chkOptVarsInReg.Left:=x;
chkOptUncertain.Left:=x;
chkOptSmaller.Left:=x;
end;
procedure TfrmCompilerOptions.SetReadOnly(const AValue: boolean);
begin
if FReadOnly=AValue then exit;