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

qt: before starting drag/dock check mouse down coordinate and mouse button (exclude from hook dock rect various titlebar buttons)

Browse Source 
git-svn-id: trunk@13980 -
This commit is contained in:
paul 2008-02-05 06:22:14 +00:00
parent d9f544ab7f
commit 4fb9eb99e3
1 changed files with 19 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2029,12 +2029,28 @@ begin
end;
procedure TQtWidget.SlotNCMouse(Sender: QObjectH; Event: QEventH); cdecl;
var
AHeader: TRect;
APoint: TQtPoint;
begin
//Drag&Dock support TCustomForm => Start BeginDrag()
if LCLObject is TCustomForm then
if (LCLObject is TCustomForm) and (QMouseEvent_button(QMouseEventH(Event)) = QtLeftButton) then
begin
if TWinControlAccess(LCLObject).DragKind = dkDock then
LCLObject.BeginDrag(true);
APoint := QMouseEvent_globalPos(QMouseEventH(Event))^;
AHeader := getGeometry;
with getFrameGeometry do
AHeader.Top := Top;
// remove various buttons from header (how to request their pos cross platform?):
Inc(AHeader.Left, 20); // system menu
Dec(AHeader.Right, 80); // close, min, max buttons
if AHeader.Right < AHeader.Left then
AHeader.Right := AHeader.Left + 1;
// we can skip translation of coords to global since we already working with window
// check for title
if PtInRect(AHeader, Point(APoint.x, APoint.y)) and (TWinControlAccess(LCLObject).DragKind = dkDock) then
LCLObject.BeginDrag(true);
end;
end;