[Lazarus] Platform dependent modifier for common shortcut-keys?

Flávio Etrusco flavio.etrusco at gmail.com
Sat Oct 8 16:46:22 CEST 2011


> Another approach might be to have a widgetset function like:
>
> function KeyCombo_IsCut(const Key: Word; const Shift: TShiftState): Boolean
>
> or something like:
>
> type
>  TCommonShortCut = (tcsUnknown,tcsCut, tcsPaste, tcsCopy, tcsBof, tcsEof);
>
> function KeyComboToCommonShortcut(const Key: Word; const Shift:
> TShiftState): TCommonShortCut;
> begin
>  //default to tcsUnKnown;
>  Result := tcsUnKnown;
>  ...
> end;
>
> Bart

This is a very good idea.
Check/Test/IsStandardShortCut? ;-)

-Flávio




More information about the Lazarus mailing list