paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-18 05:09:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: MarkupFoldColor, fixed crash due to wrong method signature.

Browse Source 
git-svn-id: trunk@55106 -
This commit is contained in:
martin 2017-05-27 02:40:18 +00:00
parent e2c35dd6d1
commit cb676c2241
1 changed files with 7 additions and 9 deletions

16
components/synedit/syneditmarkupfoldcoloring.pas
View File

@ -72,8 +72,7 @@ type
TSynEditMarkupFoldColors = class(TSynEditMarkup)
private
function GetFirstCharacterColumn(index: Integer): Byte;
procedure TextBufferChanged(Sender: TSynEditStrings; aIndex, aCount: Integer
);
procedure TextBufferChanged(Sender: TObject);
private
FHighlighter: TSynCustomFoldHighlighter;
FNestList: TLazSynEditNestedFoldsList;
@ -190,7 +189,7 @@ begin
if Assigned(Lines) then begin
Lines.RemoveChangeHandler(senrLineCount, @LinesChanged);
Lines.RemoveChangeHandler(senrHighlightChanged, @HighlightChanged);
Lines.RemoveChangeHandler(senrTextBufferChanged, @TextBufferChanged);
Lines.RemoveNotifyHandler(senrTextBufferChanged, @TextBufferChanged);
end;
FreeAndNil(FNestList);
inherited Destroy;
@ -290,8 +289,7 @@ begin
Result := TCustomSynEdit(SynEdit).LogicalToPhysicalPos(Point(p, toPos(index))).x;
end;
procedure TSynEditMarkupFoldColors.TextBufferChanged(Sender: TSynEditStrings;
aIndex, aCount: Integer);
procedure TSynEditMarkupFoldColors.TextBufferChanged(Sender: TObject);
begin
if not Enabled then
exit;
@ -822,7 +820,7 @@ begin
// remove Changehandler
old.RemoveChangeHandler(senrLineCount, @LinesChanged);
old.RemoveChangeHandler(senrHighlightChanged, @HighlightChanged);
old.RemoveChangeHandler(senrTextBufferChanged, @TextBufferChanged);
old.RemoveNotifyHandler(senrTextBufferChanged, @TextBufferChanged);
ClearCache;
end;
end;
@ -834,7 +832,7 @@ begin
// add Changehandler
AValue.AddChangeHandler(senrLineCount, @LinesChanged);
AValue.AddChangeHandler(senrHighlightChanged, @HighlightChanged);
AValue.AddChangeHandler(senrTextBufferChanged, @TextBufferChanged);
AValue.AddNotifyHandler(senrTextBufferChanged, @TextBufferChanged);
InitCache;
end else begin
// clear cache
@ -935,7 +933,7 @@ begin
// add Changehandler
Lines.AddChangeHandler(senrLineCount, @LinesChanged);
Lines.AddChangeHandler(senrHighlightChanged, @HighlightChanged);
Lines.AddChangeHandler(senrTextBufferChanged, @TextBufferChanged);
Lines.AddNotifyHandler(senrTextBufferChanged, @TextBufferChanged);
InitCache;
end;
end else begin
@ -946,7 +944,7 @@ begin
// remove Changehandler
Lines.RemoveChangeHandler(senrLineCount, @LinesChanged);
Lines.RemoveChangeHandler(senrHighlightChanged, @HighlightChanged);
Lines.RemoveChangeHandler(senrTextBufferChanged, @TextBufferChanged);
Lines.RemoveNotifyHandler(senrTextBufferChanged, @TextBufferChanged);
ClearCache;
end;
end;