As pointed by Dmitry B, and checked by myself in LCL, MK_ALT must be
defined in LCLType.pp as $20000000. For ex, this is sample from
qtwidgets.pas:
if (ModifierState and MK_SHIFT) <> 0 then
Msg.State := [ssShift];
if (ModifierState and MK_CONTROL) <> 0 then
Msg.State := [ssCtrl] + Msg.State;
if (ModifierState and $20000000) <> 0 then
Msg.State := [ssAlt] + Msg.State;
patch added.
--
Regards,
Alexey
Index: lcl/lcltype.pp
===================================================================
--- lcl/lcltype.pp (revision 59355)
+++ lcl/lcltype.pp (working copy)
@@ -2836,6 +2836,7 @@
MK_DOUBLECLICK = $80;
MK_TRIPLECLICK = $100;
MK_QUADCLICK = $200;
+ MK_ALT = $20000000; // used (as number) by several widgetsets
//==============================================
// Constants from commctrl
--
_______________________________________________
Lazarus mailing list
[email protected]
https://lists.lazarus-ide.org/listinfo/lazarus
