[Lazarus] Fix for LCLProc

AlexeyT aaa5500 at ya.ru
Tue Aug 14 09:53:27 CEST 2018


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



More information about the Lazarus mailing list