[Lazarus] Fix for LCLProc

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

[Lazarus] Fix for LCLProc

Free Pascal - Lazarus mailing list
function KeyAndShiftStateToKeyString(Key: word; ShiftState:
TShiftState): String;

....

   if ssCtrl in ShiftState then AddPart(ifsCtrl);
   if ssAlt in ShiftState then AddPart(ifsAlt);
   if ssShift in ShiftState then AddPart(ifsVK_SHIFT);
   if ssMeta in ShiftState then
     {$IFDEF LCLcarbon}
     AddPart(ifsVK_CMD);
     {$ELSE}
     AddPart(ifsVK_META);
     {$ENDIF}
   if ssSuper in ShiftState then AddPart(ifsVK_SUPER);

pls, change here IFDEF to {$ifdef darwin} (to use in cocoa too).

--

Regards,
Alexey

--
_______________________________________________
Lazarus mailing list
[hidden email]
https://lists.lazarus-ide.org/listinfo/lazarus