paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-16 11:20:43 +01:00
Code Issues Packages Projects Releases Wiki Activity

Qt: offset mousepos by scrollbars positions

Browse Source 
git-svn-id: trunk@52420 -
This commit is contained in:
zeljko 2016-06-02 08:06:10 +00:00
parent c726480fb9
commit f80f0f0365
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/interfaces/qt/qtwidgets.pas
View File

@ -3565,6 +3565,14 @@ begin
LazPos := LCLObject.ScreenToClient(Point(MousePos.X, MousePos.Y)); LazPos := LCLObject.ScreenToClient(Point(MousePos.X, MousePos.Y));
if (LCLObject is TScrollingWinControl) and
TScrollingWinControl(LCLObject).VertScrollbar.Visible then
dec(LazPos.Y, TScrollingWinControl(LCLObject).VertScrollBar.Position);
if (LCLObject is TScrollingWinControl) and
TScrollingWinControl(LCLObject).HorzScrollBar.Visible then
dec(LazPos.X, TScrollingWinControl(LCLObject).HorzScrollBar.Position);
Modifiers := QInputEvent_modifiers(QInputEventH(Event)); Modifiers := QInputEvent_modifiers(QInputEventH(Event));
Msg.Keys := QtKeyModifiersToKeyState(Modifiers, False, nil); Msg.Keys := QtKeyModifiersToKeyState(Modifiers, False, nil);