[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