paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-31 08:31:49 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Move processor options to their own tab.

Browse Source 
git-svn-id: trunk@3572 -
This commit is contained in:
daniel 2006-05-18 21:35:46 +00:00
parent e23fd988d3
commit 33dce091bb
1 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
ide/fpmopts.inc
View File

@ -75,7 +75,7 @@ var R,R2,R3,TabR,TabIR: TRect;
Label31,Label41, Label31,Label41,
Label51,Label52,Label53: PLabel; Label51,Label52,Label53: PLabel;
begin begin
R.Assign(0,0,72,21); R.Assign(0,0,76,21);
New(D, Init(R, dialog_compilerswitches)); New(D, Init(R, dialog_compilerswitches));
with D^ do with D^ do
begin begin
@ -171,10 +171,11 @@ begin
Dec(R2.A.Y); Dec(R2.A.Y);
R2.B.Y:=R2.A.Y+1; R2.B.Y:=R2.A.Y+1;
{ --- Sheet 3 --- }
Count:=ProcessorSwitches^.ItemCount; Count:=ProcessorSwitches^.ItemCount;
R2.Copy(TabIR); R.Copy(TabIR);
R2.B.X:=R2.A.X+(R2.B.X-R2.A.X) div 2-2; R2.Copy(R);
Inc(R2.A.Y,CodegenSwitches^.ItemCount+2); R2.B.X:=R2.A.X+(R2.B.X-R2.A.X) div 2;
R2.B.Y:=R2.A.Y+Count; R2.B.Y:=R2.A.Y+Count;
Items:=nil; Items:=nil;
for I:=Count-1 downto 0 do for I:=Count-1 downto 0 do
@ -280,10 +281,12 @@ begin
NewTabItem(CB3, NewTabItem(CB3,
NewTabItem(Label22, NewTabItem(Label22,
NewTabItem(CB2, NewTabItem(CB2,
NewTabItem(Label23,
NewTabItem(RB3, NewTabItem(RB3,
nil))))),
NewTabDef('~P~rocessor',RB1,
NewTabItem(Label23,
NewTabItem(RB1, NewTabItem(RB1,
nil))))))), nil)),
NewTabDef(page_compiler_verbose,CB4, NewTabDef(page_compiler_verbose,CB4,
NewTabItem(Label31, NewTabItem(Label31,
NewTabItem(CB4, NewTabItem(CB4,
@ -300,7 +303,7 @@ begin
NewTabItem(Label53, NewTabItem(Label53,
NewTabItem(RB6, NewTabItem(RB6,
nil)))))), nil)))))),
nil))))))); nil))))))));
Tab^.GrowMode:=0; Tab^.GrowMode:=0;
Insert(Tab); Insert(Tab);