[Lazarus] Forms.pp function error?

classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view

[Lazarus] Forms.pp function error?

Free Pascal - Lazarus mailing list
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

   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.


Lazarus mailing list
[hidden email]

mkalt.diff (414 bytes) Download Attachment