Re: [Lazarus] LCLProc.KeyAndShiftStateToKeyString needs param

[Maxim Ganetsky via Lazarus]

14.08.2018 10:58, AlexeyT via Lazarus пишет:
> function KeyAndShiftStateToKeyString(Key: word; ShiftState:
> TShiftState): String;
> 
> Maxim, can you add here param Localized too? it can be 3rd param with
> default "true".

AFAIR this function is exposed in LCLProc interface. As it seems to be
localized from the start, I don't want to change its parameter list
without obvious need.

-- 
Best regards,
 Maxim Ganetsky  mailto:gan...@narod.ru
-- 
___
Lazarus mailing list
Lazarus@lists.lazarus-ide.org
https://lists.lazarus-ide.org/listinfo/lazarus

[Lazarus] LCLProc.KeyAndShiftStateToKeyString needs param

[AlexeyT via Lazarus]

function KeyAndShiftStateToKeyString(Key: word; ShiftState: 
TShiftState): String;


Maxim, can you add here param Localized too? it can be 3rd param with 
default "true".


--
Regards,
Alexey

--
___
Lazarus mailing list
Lazarus@lists.lazarus-ide.org
https://lists.lazarus-ide.org/listinfo/lazarus

[Lazarus] Fix for LCLProc

[AlexeyT via Lazarus]

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
Lazarus@lists.lazarus-ide.org
https://lists.lazarus-ide.org/listinfo/lazarus