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

Qt: fixed drag'n drop of QFrame (TCustomPanel) control.issue #26759

Browse Source 
git-svn-id: trunk@46308 -
This commit is contained in:
zeljko 2014-09-24 07:55:43 +00:00
parent 89f68bf251
commit f69337f6ce
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -398,6 +398,7 @@ type
function CreateWidget(const AParams: TCreateParams):QWidgetH; override;
public
function CanPaintBackground: Boolean; override;
procedure SetNoMousePropagation(Sender: QWidgetH; const ANoMousePropagation: Boolean); override;
procedure setFocusPolicy(const APolicy: QtFocusPolicy); override;
procedure setFrameStyle(p1: Integer);
procedure setFrameShape(p1: QFrameShape);
@ -7810,6 +7811,17 @@ begin
end;
end;
procedure TQtFrame.SetNoMousePropagation(Sender: QWidgetH;
const ANoMousePropagation: Boolean);
begin
// issue #26759
if Assigned(DragManager) and DragManager.IsDragging and
DragManager.Dragging(LCLObject) then
inherited SetNoMousePropagation(Sender, False)
else
inherited SetNoMousePropagation(Sender, ANoMousePropagation);
end;
procedure TQtFrame.setFocusPolicy(const APolicy: QtFocusPolicy);
begin
if Assigned(LCLObject) and not LCLObject.TabStop then