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

(Qt): Workaround for mouse freezing under linux, in combination with TTabSheet.

Browse Source 
git-svn-id: trunk@11681 -
This commit is contained in:
zeljko 2007-07-30 20:19:12 +00:00
parent ca9fa35962
commit a8aec5de63
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/interfaces/qt/qtwinapi.inc
View File

@ -3906,7 +3906,15 @@ begin
if Result <> 0 then if Result <> 0 then
ReleaseCapture; ReleaseCapture;
if AHandle <> 0 then if AHandle <> 0 then
TQtWidget(AHandle).grabMouse(); begin
{TODO: freezing workaround, ttabsheet kills mouse at all (X & app),
when we click onto empty tabsheet.
don't know for others , so it's ifdef-ed}
{$ifdef linux}
if not (TQtWidget(AHandle).LCLObject is TTabSheet) then
{$endif}
TQtWidget(AHandle).grabMouse();
end;
{$ifdef VerboseQtWinAPI} {$ifdef VerboseQtWinAPI}
WriteLn('[WinAPI SetCapture] Capture = ', Result, ' New capture = ', AHandle); WriteLn('[WinAPI SetCapture] Capture = ', Result, ' New capture = ', AHandle);
{$endif} {$endif}