[fpc-pascal] Getting Shift key with PTCCRT

[Nikolay Nikolov]

On 9/10/22 17:57, James Richters via fpc-pascal wrote:
> Thanks for the suggestion
>
> I think the syntax should be:
> type myKeyEvent = IPTCKeyEvent;
> Var myShiftStatus : boolean;
>
> myShiftStatus := myKeyEvent.Shift;
>
> but I get IPTCKeyEvent not found.  I wonder if it's only designated as
> internal.. or if I need to use something other than PTCGraph and PTCCRT

It's internal if you use ptccrt and ptcgraph, but it's available if you 
use ptc directly. These are two different APIs:

ptc - low level, non-Borland compatible API

ptcgraph, ptccrt, ptcmouse - these use ptc to provide a Borland 
BGI-compatible and CRT-unit compatible support (plus mouse, which was 
never supported by Borland, but is nice to have also ;-) ). Recently, I 
don't have much time to work on ptc (unfortunately), but you can look at 
the source yourself and write a patch by yourself to get what you need. 
The conversion of ptc key events to CRT-like key codes happens in 
ptccrt.pp, procedure GetKeyEvents (lines 113..534). It tries to convert 
ptc key events to what CRT in dos used to return. There are lots of 
compatibility factors involved, which results in some key data loss, but 
you can modify it at your will for your own purposes. Perhaps we can 
extend ptccrt to be able to return the whole ptc key event as well? It 
can be done, unfortunately, the Borland ReadKey/KeyPressed API wasn't 
designed to do that, so new functions appear to be necessary.

>
> James
>> looking at the list of constants in ptcpas, i find PTCKEY_SHIFT... i also
> find, in Classes, the IPTCKeyEvent which has a GetShift function as well as
> a Shift
>> property... seems like you should be able to the shift status with
> something like
>
>> type myKeyEvent : IPTCKeyEvent;
>> type myShiftStatus : boolean;
>> myShiftStatus := myKeyEvent.Shift;
> _______________________________________________
> fpc-pascal maillist  -  fpc-pascal at lists.freepascal.org
> https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal