paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 12:30:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: TCodeBuffer.IsDeleted now changes ChangeStep, bug #13376

Browse Source 
git-svn-id: trunk@19181 -
This commit is contained in:
mattias 2009-04-01 12:34:07 +00:00
parent 804c85d283
commit e6e4986ffd
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/codetools/codecache.pas
View File

@ -920,6 +920,7 @@ procedure TCodeBuffer.SetIsDeleted(const NewValue: boolean);
begin
if FIsDeleted=NewValue then exit;
//debugln(['TCodeBuffer.SetIsDeleted ',Filename,' ',NewValue]);
IncreaseChangeStep;
FIsDeleted:=NewValue;
if FIsDeleted then begin
Clear;

2
components/codetools/sourcelog.pas
View File

@ -114,10 +114,10 @@ type
procedure SetItems(Index: integer; AnItem: TSourceLogEntry);
function GetMarkers(Index: integer): TSourceLogMarker;
procedure BuildLineRanges;
procedure IncreaseChangeStep;
procedure SetReadOnly(const Value: boolean);
function IndexOfChangeHook(AChangeHook: TOnSourceChange): integer;
protected
procedure IncreaseChangeStep;
procedure DecodeLoaded(const AFilename: string;
var ASource, ADiskEncoding, AMemEncoding: string); virtual;
procedure EncodeSaving(const AFilename: string; var ASource: string); virtual;