paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-15 07:29:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: Fixed Caret.ViewedPos // install handler to detect changes

Browse Source 
git-svn-id: trunk@63292 -
This commit is contained in:
martin 2020-06-04 23:05:25 +00:00
parent 31675c9a98
commit ad49c7a7db
1 changed files with 15 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
components/synedit/syneditpointclasses.pas
View File

@ -712,10 +712,6 @@ function TSynEditBaseCaret.GetViewedLineCharPos: TPoint;
begin
ValidateViewedPos;
Result := FViewedLineCharPos;
if scHasLineMapHandler in FFlags then begin
Lines.AddChangeHandler(senrLineMappingChanged, @DoLinesMappingChanged);
Include(FFlags, scHasLineMapHandler);
end;
end;
function TSynEditBaseCaret.GetViewedLinePos: TLinePos;
@ -827,6 +823,11 @@ begin
include(FFlags, scViewedPosValid);
FViewedLineCharPos := Lines.TextXYToViewXY(LineCharPos);
if not(scHasLineMapHandler in FFlags) then begin
Lines.AddChangeHandler(senrLineMappingChanged, @DoLinesMappingChanged);
Include(FFlags, scHasLineMapHandler);
end;
end;
procedure TSynEditBaseCaret.InternalEmptyLinesSetPos(NewCharPos: Integer;
@ -841,6 +842,11 @@ begin
FViewedLineCharPos.y := 1;
FViewedLineCharPos.x := NewCharPos;
FFlags := FFlags + [scBytePosValid, scCharPosValid, scViewedPosValid];
if not(scHasLineMapHandler in FFlags) then begin
Lines.AddChangeHandler(senrLineMappingChanged, @DoLinesMappingChanged);
Include(FFlags, scHasLineMapHandler);
end;
end;
procedure TSynEditBaseCaret.InternalSetLineCharPos(NewLine, NewCharPos: Integer;
@ -919,6 +925,11 @@ begin
end;
FViewedLineCharPos := Point(NewCharPos, NewLine);
if not(scHasLineMapHandler in FFlags) then begin
Lines.AddChangeHandler(senrLineMappingChanged, @DoLinesMappingChanged);
Include(FFlags, scHasLineMapHandler);
end;
end;
constructor TSynEditBaseCaret.Create;