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

+ CustomArg added to debug dialog

Browse Source
This commit is contained in:
pierre 1999-02-08 17:41:34 +00:00
parent 2e3a8b6f8f
commit 2d6a949149
1 changed files with 19 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
ide/text/fpmopts.inc
View File

@ -219,6 +219,7 @@ begin
Tab^.GrowMode:=0;
Insert(Tab);
{ conditionnals }
R2.Copy(TabR); R2.A.Y:=R2.B.Y+1; R2.B.Y:=R2.A.Y+1;
New(IL, Init(R2, 128));
IL^.Data^:=ConditionalSwitches^.GetStringItem(0);
@ -346,10 +347,12 @@ procedure TIDEApp.DoDebuggerSwitch;
var R,R2: TRect;
D: PCenterDialog;
RB1,RB2: PRadioButtons;
IL2: PInputLine;
L,I: longint;
Items: PSItem;
begin
R.Assign(0,0,46,2+DebugInfoSwitches^.ItemCount+2+ProfileInfoSwitches^.ItemCount+2);
R.Assign(0,0,60,2+DebugInfoSwitches^.ItemCount+2
+ProfileInfoSwitches^.ItemCount+4);
New(D, Init(R, 'Debugging/Profiling'));
with D^ do
begin
@ -363,7 +366,7 @@ begin
RB1^.SetData(L);
Insert(RB1);
R2.Copy(R); Inc(R2.A.Y); R2.B.Y:=R2.A.Y+1;
Insert(New(PLabel, Init(R2, 'Symbol information', RB1)));
Insert(New(PLabel, Init(R2, 'Debugging information', RB1)));
R2.Copy(R); Inc(R2.A.Y,2+DebugInfoSwitches^.ItemCount+2); R2.B.Y:=R2.A.Y+ProfileInfoSwitches^.ItemCount;
Items:=nil;
@ -375,6 +378,15 @@ begin
Insert(RB2);
R2.Copy(R); Inc(R2.A.Y,6); R2.B.Y:=R2.A.Y+1;
Insert(New(PLabel, Init(R2, 'Profiling Switches', RB2)));
{custom }
R2.A.Y:=R2.B.Y+2;
R2.B.Y:=R2.A.Y+1;
New(IL2, Init(R2, 255));
IL2^.Data^:=CustomArg[SwitchesMode];
Insert(IL2);
R2.Move(0,-1);
Insert(New(PLabel, Init(R2,'~A~dditional compiler args', IL2)));
end;
InsertButtons(D);
RB1^.Select;
@ -382,6 +394,7 @@ begin
begin
DebugInfoSwitches^.SetCurrSel(RB1^.Value);
ProfileInfoSwitches^.SetCurrSel(RB2^.Value);
CustomArg[SwitchesMode]:=IL2^.Data^;
end;
Dispose(D, Done);
end;
@ -700,7 +713,10 @@ end;
{
$Log$
Revision 1.11 1999-02-08 10:37:45 peter
Revision 1.12 1999-02-08 17:41:34 pierre
+ CustomArg added to debug dialog
Revision 1.11 1999/02/08 10:37:45 peter
+ html helpviewer
Revision 1.10 1999/02/06 00:07:47 florian