paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 04:09:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed breakpoint dialog

Browse Source
This commit is contained in:
peter 2004-11-21 20:53:26 +00:00
parent 841e3b75aa
commit fb71fcc7f9
3 changed files with 25 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/fpconst.pas
View File

@ -141,8 +141,9 @@ const
hidConditionalDefines= 205; hidConditionalDefines= 205;
hidCompilerArgs = 206; hidCompilerArgs = 206;
hidWatchDialog = 207; hidWatchDialog = 207;
hidBreakpointDialog = 208; hidBreakpointDialogName = 208;
hidRunDir = 209; hidRunDir = 209;
hidBreakpointDialogCond = 210;
{ Command constants } { Command constants }
cmShowClipboard = 201; cmShowClipboard = 201;
@ -471,7 +472,10 @@ implementation
END. END.
{ {
$Log$ $Log$
Revision 1.16 2004-11-20 14:21:19 florian Revision 1.17 2004-11-21 20:53:26 peter
* fixed breakpoint dialog
Revision 1.16 2004/11/20 14:21:19 florian
* implemented reload menu item * implemented reload menu item
* increased file history to 9 files * increased file history to 9 files

18
ide/fpdebug.pas
View File

@ -1949,6 +1949,10 @@ begin
begin begin
DontClear:=false; DontClear:=false;
case Event.KeyCode of case Event.KeyCode of
kbEnd :
FocusItem(List^.Count-1);
kbHome :
FocusItem(0);
kbEnter : kbEnter :
Message(@Self,evCommand,cmMsgGotoSource,nil); Message(@Self,evCommand,cmMsgGotoSource,nil);
kbIns : kbIns :
@ -2420,12 +2424,15 @@ begin
Inc(R.A.Y); R.B.Y:=R.A.Y+1; R.B.X:=R.B.X-3; Inc(R.A.Y); R.B.Y:=R.A.Y+1; R.B.X:=R.B.X-3;
New(NameIL, Init(R, 255)); Insert(NameIL); New(NameIL, Init(R, 255)); Insert(NameIL);
R2.Copy(R); R2.A.X:=R2.B.X; R2.B.X:=R2.A.X+3; R2.Copy(R); R2.A.X:=R2.B.X; R2.B.X:=R2.A.X+3;
Insert(New(PHistory, Init(R2, NameIL, hidWatchDialog))); Insert(New(PHistory, Init(R2, NameIL, hidBreakPointDialogName)));
R.Copy(R3); Inc(R.A.Y); R.B.Y:=R.A.Y+1; R.Copy(R3); Inc(R.A.Y); R.B.Y:=R.A.Y+1;
R2.Copy(R); R2.Move(-1,-1); R2.Copy(R); R2.Move(-1,-1);
Insert(New(PLabel, Init(R2, label_breakpoint_name, NameIL))); Insert(New(PLabel, Init(R2, label_breakpoint_name, NameIL)));
R.Move(0,3); R.Move(0,3);
R.B.X:=R.B.X-3;
New(ConditionsIL, Init(R, 255)); Insert(ConditionsIL); New(ConditionsIL, Init(R, 255)); Insert(ConditionsIL);
R2.Copy(R); R2.A.X:=R2.B.X; R2.B.X:=R2.A.X+3;
Insert(New(PHistory, Init(R2, ConditionsIL, hidBreakPointDialogCond)));
R2.Copy(R); R2.Move(-1,-1); Insert(New(PLabel, Init(R2, label_breakpoint_conditions, ConditionsIL))); R2.Copy(R); R2.Move(-1,-1); Insert(New(PLabel, Init(R2, label_breakpoint_conditions, ConditionsIL)));
R.Move(0,3); R.B.X:=R.A.X+36; R.Move(0,3); R.B.X:=R.A.X+36;
New(LineIL, Init(R, 128)); Insert(LineIL); New(LineIL, Init(R, 128)); Insert(LineIL);
@ -2454,12 +2461,12 @@ begin
end; end;
function TBreakpointItemDialog.Execute: Word; function TBreakpointItemDialog.Execute: Word;
var R: word; var R: sw_word;
S1: string; S1: string;
err: word; err: word;
L: longint; L: longint;
begin begin
R:=longint(Breakpoint^.typ); R:=sw_word(Breakpoint^.typ);
TypeRB^.SetData(R); TypeRB^.SetData(R);
If Breakpoint^.typ=bt_file_line then If Breakpoint^.typ=bt_file_line then
@ -3636,7 +3643,10 @@ end.
{ {
$Log$ $Log$
Revision 1.55 2004-11-11 15:20:52 florian Revision 1.56 2004-11-21 20:53:26 peter
* fixed breakpoint dialog
Revision 1.55 2004/11/11 15:20:52 florian
* applied Peter's patch from yesterday * applied Peter's patch from yesterday
Revision 1.54 2004/11/08 21:55:09 peter Revision 1.54 2004/11/08 21:55:09 peter

7
ide/fpstre.inc
View File

@ -306,7 +306,7 @@ const
dialog_modifynewbreakpoint = 'Modify/New Breakpoint'; dialog_modifynewbreakpoint = 'Modify/New Breakpoint';
label_breakpoint_name = '~N~ame'; label_breakpoint_name = '~N~ame';
label_breakpoint_line = '~L~ine'; label_breakpoint_line = '~L~ine';
label_breakpoint_conditions = 'Conditions'; label_breakpoint_conditions = '~C~onditions';
label_breakpoint_ignorecount = '~I~gnore count'; label_breakpoint_ignorecount = '~I~gnore count';
label_breakpoint_type = '~T~ype'; label_breakpoint_type = '~T~ype';
@ -1058,7 +1058,10 @@ const
{ {
$Log$ $Log$
Revision 1.23 2004-11-20 14:21:19 florian Revision 1.24 2004-11-21 20:53:26 peter
* fixed breakpoint dialog
Revision 1.23 2004/11/20 14:21:19 florian
* implemented reload menu item * implemented reload menu item
* increased file history to 9 files * increased file history to 9 files