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.
_______________________________________________
fpc-devel maillist  -  fpc-devel@lists.freepascal.org
https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-devel

Reply via email to