[fpc-devel] TShiftState

[Michael Van Canneyt]

On Sat, 7 May 2022, Mattias Gaertner via fpc-devel wrote:

> Hi,
>
> Delphi has some extra TShiftState enums: ssTouch, ssPen, ssHorizontal
>
> https://docwiki.embarcadero.com/Libraries/Sydney/en/System.Classes.TShiftState
>
> I propose for fpc to add these three and add an alias
>
> constant
>  ssCommand = ssMeta;
>
> What do you think?

Compiler got scared by your idea:

> fpc a.pp
a.pp(1,9) Fatal: Syntax error, "BEGIN" expected but "identifier CONSTANT" found
Fatal: Compilation aborted
Error: /usr/local/bin/ppcx64 returned an error exitcode


After some calming down the compiler I committed & pushed your idea.

Michael.