paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 11:39:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: Change CaretXPix/YPix to use ScreenXYToPixels, TextXYToScreenXY

Browse Source 
git-svn-id: trunk@63271 -
This commit is contained in:
martin 2020-06-02 00:37:19 +00:00
parent 253d7c2d02
commit 9566494312
1 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
components/synedit/synedit.pp
View File

@ -2852,13 +2852,18 @@ function TCustomSynEdit.CaretXPix: Integer;
var
p: TPoint;
begin
p := Point(CaretX, CaretY);
Result := RowColumnToPixels(p).X;
p := FCaret.ViewedLineCharPos;
p.y := p.y - TopView + 1;
Result := ScreenXYToPixels(p).X;
end;
function TCustomSynEdit.CaretYPix: Integer;
var
p: TPoint;
begin
Result := RowColumnToPixels(Point(1, CaretY)).Y;
p := FCaret.ViewedLineCharPos;
p.y := p.y - TopView + 1;
Result := ScreenXYToPixels(p).Y;
end;
procedure TCustomSynEdit.FontChanged(Sender: TObject);
@ -5049,7 +5054,7 @@ end;
procedure TCustomSynEdit.UpdateCaret(IgnorePaintLock: Boolean = False);
var
x, y: Integer;
p: TPoint;
begin
if ( (PaintLock <> 0) and not IgnorePaintLock ) or (not HandleAllocated)
then begin
@ -5059,9 +5064,9 @@ begin
if eoAlwaysVisibleCaret in fOptions2 then
MoveCaretToVisibleArea;
x := CaretXPix;
y := CaretYPix;
FScreenCaret.DisplayPos := Point(x, y);
p := FCaret.ViewedLineCharPos;
p.y := p.y - TopView + 1;
FScreenCaret.DisplayPos := ScreenXYToPixels(p);
end;
end;