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

improved layout of code tab of the compiler options (issue #2065)

Browse Source 
git-svn-id: trunk@9328 -
This commit is contained in:
vincents 2006-05-21 13:44:34 +00:00
parent 1eb7e8257e
commit 83fb80c984
1 changed files with 18 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
ide/compileroptionsdlg.pp
View File

@ -1390,6 +1390,9 @@ begin
Width := 150; Width := 150;
Caption := dlgCOUnitStyle; Caption := dlgCOUnitStyle;
ChildSizing.Layout:=cclTopToBottomThenLeftToRight; ChildSizing.Layout:=cclTopToBottomThenLeftToRight;
ChildSizing.LeftRightSpacing:=6;
ChildSizing.TopBottomSpacing:=6;
ChildSizing.VerticalSpacing:=6;
end; end;
chkSmartLinkUnit := TCheckBox.Create(Self); chkSmartLinkUnit := TCheckBox.Create(Self);
@ -1411,6 +1414,10 @@ begin
Caption := dlgCOChecks; Caption := dlgCOChecks;
ChildSizing.Layout:=cclTopToBottomThenLeftToRight; ChildSizing.Layout:=cclTopToBottomThenLeftToRight;
ChildSizing.ControlsPerLine:=2; ChildSizing.ControlsPerLine:=2;
ChildSizing.LeftRightSpacing:=6;
ChildSizing.TopBottomSpacing:=6;
ChildSizing.HorizontalSpacing:=6;
ChildSizing.VerticalSpacing:=6;
end; end;
chkChecksIO := TCheckBox.Create(Self); chkChecksIO := TCheckBox.Create(Self);
@ -1453,6 +1460,8 @@ begin
Width := 100; Width := 100;
Caption := dlgHeapSize +' (-Ch):'; Caption := dlgHeapSize +' (-Ch):';
ChildSizing.Layout:=cclTopToBottomThenLeftToRight; ChildSizing.Layout:=cclTopToBottomThenLeftToRight;
ChildSizing.LeftRightSpacing:=6;
ChildSizing.TopBottomSpacing:=6;
end; end;
edtHeapSize := TEdit.Create(grpHeapSize); edtHeapSize := TEdit.Create(grpHeapSize);
@ -1476,6 +1485,9 @@ begin
Width := 150; Width := 150;
Caption := dlgCOGenerate; Caption := dlgCOGenerate;
ChildSizing.Layout:=cclLeftToRightThenTopToBottom; ChildSizing.Layout:=cclLeftToRightThenTopToBottom;
ChildSizing.LeftRightSpacing:=6;
ChildSizing.TopBottomSpacing:=6;
ChildSizing.VerticalSpacing:=6;
end; end;
radGenNormal := TRadioButton.Create(grpGenerate); radGenNormal := TRadioButton.Create(grpGenerate);
@ -1553,7 +1565,7 @@ begin
with lblTargetOS do begin with lblTargetOS do begin
Name := 'lblTargetOS'; Name := 'lblTargetOS';
Parent := grpTargetPlatform; Parent := grpTargetPlatform;
Left := 4; Left := 6;
AnchorVerticalCenterTo(TargetOSComboBox); AnchorVerticalCenterTo(TargetOSComboBox);
Caption :=dlgTargetOS+' (-T)'; Caption :=dlgTargetOS+' (-T)';
end; end;
@ -1579,7 +1591,7 @@ begin
with lblTargetCPU do begin with lblTargetCPU do begin
Name := 'lblTargetCPU'; Name := 'lblTargetCPU';
Parent := grpTargetPlatform; Parent := grpTargetPlatform;
Left := 4; Left := 6;
AnchorVerticalCenterTo(TargetCPUComboBox); AnchorVerticalCenterTo(TargetCPUComboBox);
Caption :=dlgTargetCPU+' (-P)'; Caption :=dlgTargetCPU+' (-P)';
end; end;
@ -1602,7 +1614,7 @@ begin
with lblTargeti386Proc do begin with lblTargeti386Proc do begin
Name := 'lblTargeti386Proc'; Name := 'lblTargeti386Proc';
Parent := grpTargetPlatform; Parent := grpTargetPlatform;
Left := 4; Left := 6;
AnchorVerticalCenterTo(Targeti386ProcComboBox); AnchorVerticalCenterTo(Targeti386ProcComboBox);
Caption := dlgTargetProc; Caption := dlgTargetProc;
end; end;
@ -1619,6 +1631,9 @@ begin
Width := 360; Width := 360;
Caption := dlgOptimiz; Caption := dlgOptimiz;
ChildSizing.Layout:=cclLeftToRightThenTopToBottom; ChildSizing.Layout:=cclLeftToRightThenTopToBottom;
ChildSizing.LeftRightSpacing:=6;
ChildSizing.TopBottomSpacing:=6;
ChildSizing.VerticalSpacing:=6;
AutoSize:=true; AutoSize:=true;
end; end;