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

Qt: fix usage of TQtDesignWidget event filter

Browse Source 
git-svn-id: trunk@19089 -
This commit is contained in:
zeljko 2009-03-24 10:44:01 +00:00
parent 802244bbfa
commit bd8923b25a
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -9763,14 +9763,13 @@ end;
function TQtDesignWidget.DesignControlEventFilter(Sender: QObjectH; Event: QEventH): Boolean; cdecl;
begin
BeginEventProcessing;
Result := False;
if LCLObject <> nil then
begin
QEvent_Accept(Event);
case QEvent_type(Event) of
QEventPaint: SlotDesignControlPaint(Sender, Event);
end;
QEvent_Accept(Event);
if LCLObject = nil then
exit;
BeginEventProcessing;
case QEvent_type(Event) of
QEventPaint: SlotDesignControlPaint(Sender, Event);
end;
EndEventProcessing;
end;