paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-07 04:40: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 begin
if FIsDeleted=NewValue then exit; if FIsDeleted=NewValue then exit;
//debugln(['TCodeBuffer.SetIsDeleted ',Filename,' ',NewValue]); //debugln(['TCodeBuffer.SetIsDeleted ',Filename,' ',NewValue]);
IncreaseChangeStep;
FIsDeleted:=NewValue; FIsDeleted:=NewValue;
if FIsDeleted then begin if FIsDeleted then begin
Clear; Clear;

2
components/codetools/sourcelog.pas
View File

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