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

+ cmResetDebuggerRow

Browse Source
This commit is contained in:
pierre 1999-08-27 15:07:44 +00:00
parent 55f6e70490
commit 8d3bc4d756
1 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
ide/text/weditor.pas
View File

@ -36,6 +36,7 @@ const
cmWriteBlock = 51245; cmWriteBlock = 51245;
cmReadBlock = 51246; cmReadBlock = 51246;
cmPrintBlock = 51247; cmPrintBlock = 51247;
cmResetDebuggerRow = 51248;
EditorTextBufSize = {$ifdef FPC}32768{$else} 4096{$endif}; EditorTextBufSize = {$ifdef FPC}32768{$else} 4096{$endif};
MaxLineLength = {$ifdef FPC} 255{$else} 255{$endif}; MaxLineLength = {$ifdef FPC} 255{$else} 255{$endif};
@ -1400,6 +1401,8 @@ begin
Update; Update;
cmClearLineHighlights : cmClearLineHighlights :
SetHighlightRow(-1); SetHighlightRow(-1);
cmResetDebuggerRow :
SetDebuggerRow(-1);
cmScrollBarChanged: cmScrollBarChanged:
if (Event.InfoPtr = HScrollBar) or if (Event.InfoPtr = HScrollBar) or
(Event.InfoPtr = VScrollBar) then (Event.InfoPtr = VScrollBar) then
@ -1600,10 +1603,10 @@ begin
FreeFormat[X]:=false; FreeFormat[X]:=false;
end; end;
if DebuggerRow=AY then if DebuggerRow=AY then
begin begin
Color:=CombineColors(Color,HighlightRowColor); Color:=CombineColors(Color,HighlightRowColor);
FreeFormat[X]:=false; FreeFormat[X]:=false;
end; end;
if isbreak then if isbreak then
begin begin
Color:=ColorTab[coBreakColor]; Color:=ColorTab[coBreakColor];
@ -3512,8 +3515,8 @@ procedure TCodeEditor.SetDebuggerRow(Row: sw_integer);
begin begin
DebuggerRow:=Row; DebuggerRow:=Row;
DrawView; DrawView;
end; end;
procedure TCodeEditor.SelectAll(Enable: boolean); procedure TCodeEditor.SelectAll(Enable: boolean);
var A,B: TPoint; var A,B: TPoint;
begin begin
@ -3609,6 +3612,7 @@ begin
S.Read(IsReadOnly,SizeOf(IsReadOnly)); S.Read(IsReadOnly,SizeOf(IsReadOnly));
S.Read(NoSelect,SizeOf(NoSelect)); S.Read(NoSelect,SizeOf(NoSelect));
S.Read(HighlightRow,SizeOf(HighlightRow)); S.Read(HighlightRow,SizeOf(HighlightRow));
SetDebuggerRow(-1);
LimitsChanged; LimitsChanged;
SelectionChanged; HighlightChanged; SelectionChanged; HighlightChanged;
@ -4244,7 +4248,10 @@ end;
END. END.
{ {
$Log$ $Log$
Revision 1.43 1999-08-24 22:04:35 pierre Revision 1.44 1999-08-27 15:07:44 pierre
+ cmResetDebuggerRow
Revision 1.43 1999/08/24 22:04:35 pierre
+ TCodeEditor.SetDebuggerRow + TCodeEditor.SetDebuggerRow
works like SetHighlightRow but is only disposed by a SetDebuggerRow(-1) works like SetHighlightRow but is only disposed by a SetDebuggerRow(-1)
so the current stop point in debugging is not lost if so the current stop point in debugging is not lost if