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

* move line breakpoints if lines added or deleted in editor window

Browse Source
This commit is contained in:
pierre 2002-12-12 00:09:08 +00:00
parent b5196eefbb
commit ae59f56484
1 changed files with 28 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
ide/fpviews.pas
View File

@ -162,6 +162,9 @@ type
procedure InsertOptions; virtual;
procedure PushInfo(Const st : string);virtual;
procedure PopInfo;virtual;
procedure DeleteLine(I: sw_integer); virtual;
function InsertLine(LineNo: sw_integer; const S: string): PCustomLine; virtual;
procedure AddLine(const S: string); virtual;
end;
PSourceWindow = ^TSourceWindow;
@ -1453,6 +1456,26 @@ begin
PopStatus;
end;
procedure TSourceEditor.DeleteLine(I: sw_integer);
begin
inherited DeleteLine(I);
BreakpointsCollection^.AdaptBreakpoints(@Self,I,-1);
end;
function TSourceEditor.InsertLine(LineNo: sw_integer; const S: string): PCustomLine;
begin
InsertLine := inherited InsertLine(LineNo,S);
BreakpointsCollection^.AdaptBreakpoints(@Self,LineNo,1);
end;
procedure TSourceEditor.AddLine(const S: string);
begin
inherited AddLine(S);
BreakpointsCollection^.AdaptBreakpoints(@Self,GetLineCount,1);
end;
function TSourceEditor.GetLocalMenu: PMenu;
var M: PMenu;
begin
@ -1993,6 +2016,7 @@ begin
PopStatus;
end;
procedure TSourceWindow.Close;
begin
inherited Close;
@ -4371,7 +4395,10 @@ end;
END.
{
$Log$
Revision 1.37 2002-11-30 01:56:52 pierre
Revision 1.38 2002-12-12 00:09:08 pierre
* move line breakpoints if lines added or deleted in editor window
Revision 1.37 2002/11/30 01:56:52 pierre
+ powerpc cpu support started
Revision 1.36 2002/09/19 22:15:45 pierre