paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-06 08:47:18 +01:00
Code Issues Packages Projects Releases Wiki Activity

(Qt): Workaround for qtcaret overlaping chars in editor (+2px).

Browse Source 
git-svn-id: trunk@12088 -
This commit is contained in:
zeljko 2007-09-20 13:06:17 +00:00
parent 2c79c5b55c
commit 8935331948
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/qt/qtwinapi.inc
View File

@ -3851,12 +3851,12 @@ end;
function TQtWidgetSet.SetCaretPos(X, Y: Integer): Boolean; function TQtWidgetSet.SetCaretPos(X, Y: Integer): Boolean;
begin begin
Result := QtCaret.SetCaretPos(X, Y); Result := QtCaret.SetCaretPos(X + 2, Y);
end; end;
function TQtWidgetSet.SetCaretPosEx(Handle: HWnd; X, Y: Integer): Boolean; function TQtWidgetSet.SetCaretPosEx(Handle: HWnd; X, Y: Integer): Boolean;
begin begin
Result := QtCaret.SetCaretPos(X, Y); Result := QtCaret.SetCaretPos(X + 2, Y);
end; end;
function TQtWidgetSet.SetCaretRespondToFocus(handle: HWND; function TQtWidgetSet.SetCaretRespondToFocus(handle: HWND;