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

MUI: do not receive events for hidden parts of widgets, for example hidden tabs

Browse Source 
git-svn-id: trunk@61327 -
This commit is contained in:
marcus 2019-06-06 19:28:26 +00:00
parent fd9e22019c
commit c0342b398f
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/mui/muibaseunit.pas
View File

@ -1712,6 +1712,8 @@ end;
{END Draw event
########################################################################}
const
MUI_EHF_GUIMODE = 1 shl 1;
function Dispatcher(cl: PIClass; Obj: PObject_; Msg: intuition.PMsg): longword;
var
@ -1761,7 +1763,7 @@ begin
p := p.Parent;
until P = nil;
MUIB.EHNode^.ehn_Flags := 0;
MUIB.EHNode^.ehn_Flags := MUI_EHF_GUIMODE;
MUIB.EHNode^.ehn_Object := obj;
MUIB.EHNode^.ehn_Class := cl;
MUIB.EHNode^.ehn_Events := IDCMP_MOUSEBUTTONS or IDCMP_MOUSEMOVE or IDCMP_RAWKEY;