paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-07 15:03:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

(Qt): Fix workaround for TCustomPage->mouseGrab().

Browse Source 
git-svn-id: trunk@11682 -
This commit is contained in:
zeljko 2007-07-30 20:37:19 +00:00
parent a8aec5de63
commit 04d0286c73
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

@ -3909,9 +3909,9 @@ begin
begin begin
{TODO: freezing workaround, ttabsheet kills mouse at all (X & app), {TODO: freezing workaround, ttabsheet kills mouse at all (X & app),
when we click onto empty tabsheet. when we click onto empty tabsheet.
don't know for others , so it's ifdef-ed} don't know for others , so it's ifdef-ed for linux}
{$ifdef linux} {$ifdef linux}
if not (TQtWidget(AHandle).LCLObject is TTabSheet) then if not (TQtWidget(AHandle).LCLObject.InheritsFrom(TCustomPage)) then
{$endif} {$endif}
TQtWidget(AHandle).grabMouse(); TQtWidget(AHandle).grabMouse();
end; end;