paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 10:45:58 +02: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,
Label51,Label52,Label53: PLabel;
begin
R.Assign(0,0,72,21);
R.Assign(0,0,76,21);
New(D, Init(R, dialog_compilerswitches));
with D^ do
begin
@ -171,10 +171,11 @@ begin
Dec(R2.A.Y);
R2.B.Y:=R2.A.Y+1;
{ --- Sheet 3 --- }
Count:=ProcessorSwitches^.ItemCount;
R2.Copy(TabIR);
R2.B.X:=R2.A.X+(R2.B.X-R2.A.X) div 2-2;
Inc(R2.A.Y,CodegenSwitches^.ItemCount+2);
R.Copy(TabIR);
R2.Copy(R);
R2.B.X:=R2.A.X+(R2.B.X-R2.A.X) div 2;
R2.B.Y:=R2.A.Y+Count;
Items:=nil;
for I:=Count-1 downto 0 do
@ -280,10 +281,12 @@ begin
NewTabItem(CB3,
NewTabItem(Label22,
NewTabItem(CB2,
NewTabItem(Label23,
NewTabItem(RB3,
nil))))),
NewTabDef('~P~rocessor',RB1,
NewTabItem(Label23,
NewTabItem(RB1,
nil))))))),
nil)),
NewTabDef(page_compiler_verbose,CB4,
NewTabItem(Label31,
NewTabItem(CB4,
@ -300,7 +303,7 @@ begin
NewTabItem(Label53,
NewTabItem(RB6,
nil)))))),
nil)))))));
nil))))))));
Tab^.GrowMode:=0;
Insert(Tab);