paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 17:29:29 +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

8
ide/fpconst.pas
View File

@ -141,8 +141,9 @@ const
hidConditionalDefines= 205;
hidCompilerArgs = 206;
hidWatchDialog = 207;
hidBreakpointDialog = 208;
hidBreakpointDialogName = 208;
hidRunDir = 209;
hidBreakpointDialogCond = 210;
{ Command constants }
cmShowClipboard = 201;
@ -471,7 +472,10 @@ implementation
END.
{
$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
* increased file history to 9 files

18
ide/fpdebug.pas
View File

@ -1949,6 +1949,10 @@ begin
begin
DontClear:=false;
case Event.KeyCode of
kbEnd :
FocusItem(List^.Count-1);
kbHome :
FocusItem(0);
kbEnter :
Message(@Self,evCommand,cmMsgGotoSource,nil);
kbIns :
@ -2420,12 +2424,15 @@ begin
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);
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;
R2.Copy(R); R2.Move(-1,-1);
Insert(New(PLabel, Init(R2, label_breakpoint_name, NameIL)));
R.Move(0,3);
R.B.X:=R.B.X-3;
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)));
R.Move(0,3); R.B.X:=R.A.X+36;
New(LineIL, Init(R, 128)); Insert(LineIL);
@ -2454,12 +2461,12 @@ begin
end;
function TBreakpointItemDialog.Execute: Word;
var R: word;
var R: sw_word;
S1: string;
err: word;
L: longint;
begin
R:=longint(Breakpoint^.typ);
R:=sw_word(Breakpoint^.typ);
TypeRB^.SetData(R);
If Breakpoint^.typ=bt_file_line then
@ -3636,7 +3643,10 @@ end.
{
$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
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';
label_breakpoint_name = '~N~ame';
label_breakpoint_line = '~L~ine';
label_breakpoint_conditions = 'Conditions';
label_breakpoint_conditions = '~C~onditions';
label_breakpoint_ignorecount = '~I~gnore count';
label_breakpoint_type = '~T~ype';
@ -1058,7 +1058,10 @@ const
{
$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
* increased file history to 9 files