forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

editor, store brealpoints in cache file

This commit is contained in:
Basile Burg 2015-10-16 16:02:46 +02:00
parent 20c5164e4a
commit 9528b70fda
1 changed files with 34 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
src/ce_synmemo.pas
View File

@ -50,6 +50,8 @@ type
fFontSize: Integer; fFontSize: Integer;
fSourceFilename: string; fSourceFilename: string;
procedure setFolds(someFolds: TCollection); procedure setFolds(someFolds: TCollection);
procedure writeBreakpoints(str: TStream);
procedure readBreakpoints(str: TStream);
published published
property caretPosition: Integer read fCaretPosition write fCaretPosition; property caretPosition: Integer read fCaretPosition write fCaretPosition;
property sourceFilename: string read fSourceFilename write fSourceFilename; property sourceFilename: string read fSourceFilename write fSourceFilename;
@ -59,6 +61,7 @@ type
public public
constructor create(aComponent: TComponent); override; constructor create(aComponent: TComponent); override;
destructor destroy; override; destructor destroy; override;
procedure DefineProperties(Filer: TFiler); override;
// //
procedure beforeSave; override; procedure beforeSave; override;
procedure afterLoad; override; procedure afterLoad; override;
@ -222,11 +225,42 @@ begin
inherited; inherited;
end; end;
procedure TCESynMemoCache.DefineProperties(Filer: TFiler);
begin
inherited;
Filer.DefineBinaryProperty('breakpoints', @readBreakpoints, @writeBreakpoints, true);
end;
procedure TCESynMemoCache.setFolds(someFolds: TCollection); procedure TCESynMemoCache.setFolds(someFolds: TCollection);
begin begin
fFolds.Assign(someFolds); fFolds.Assign(someFolds);
end; end;
procedure TCESynMemoCache.writeBreakpoints(str: TStream);
var
i: integer;
begin
if fMemo = nil then exit;
{$HINTS OFF}
for i:= 0 to fMemo.fBreakPoints.Count-1 do
str.Write(PtrUint(fMemo.fBreakPoints.Items[i]), sizeOf(PtrUint));
{$HINTS ON}
end;
procedure TCESynMemoCache.readBreakpoints(str: TStream);
var
i, cnt: integer;
line: ptrUint = 0;
begin
if fMemo = nil then exit;
cnt := str.Size div sizeOf(PtrUint);
for i := 0 to cnt-1 do
begin
str.Read(line, sizeOf(line));
fMemo.addBreakPoint(line);
end;
end;
procedure TCESynMemoCache.beforeSave; procedure TCESynMemoCache.beforeSave;
var var
i, start, prev: Integer; i, start, prev: Integer;