paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-11 13:59:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE, SourceEditor: use SynEdits logical pos directly (already computed) rather than converting.

Browse Source
This commit is contained in:
Martin 2025-04-24 21:36:08 +02:00
parent 6974d8ea3d
commit ec03c5273d
1 changed files with 2 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ide/sourceeditor.pp
View File

@ -6798,12 +6798,8 @@ begin
end;
function TSourceEditor.GetWordAtCurrentCaret: String;
var
CaretPos: TPoint;
begin
CaretPos.Y := CurrentCursorYLine;
CaretPos.X := CurrentCursorXLine;
Result := GetWordFromCaret(ScreenToTextPosition(CaretPos));
Result := GetWordFromCaret(FEditor.LogicalCaretXY);
end;
function TSourceEditor.GetOperandFromCaret(const ACaretPos: TPoint): String;
@ -6835,12 +6831,8 @@ begin
end;
function TSourceEditor.GetOperandAtCurrentCaret: String;
var
CaretPos: TPoint;
begin
CaretPos.Y := CurrentCursorYLine;
CaretPos.X := CurrentCursorXLine;
Result := GetOperandFromCaret(ScreenToTextPosition(CaretPos));
Result := GetOperandFromCaret(FEditor.LogicalCaretXY);
end;
function TSourceEditor.GetWordFromCaret(const ACaretPos: TPoint): String;