Re: [fpc-pascal] KeyDown routine and Ctrl+Q

2017-02-09 Thread Jürgen Hestermann
Am 2017-02-09 um 14:42 schrieb Vojtěch Čihák: Strange. I tested in Linux+Qt and in Delphi7 (under Wine) and both have ssCtrl in Shift when I press Ctrl (i.e. Key=17). Well, I looked at Shift in the debugger and I could swear that it showed me an empty set []. But now I can't reproduce it any

Re: [fpc-pascal] KeyDown routine and Ctrl+Q

2017-02-09 Thread Vojtěch Čihák
-pascal] KeyDown routine and Ctrl+Q BTW: When Ctrl is pressed, then Shift is empty (which is expected). Only on the second key Q Shift contains ssCtrl. ___ fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org http://lists.freepascal.org/cgi-bin/mailman

Re: [fpc-pascal] KeyDown routine and Ctrl+Q

2017-02-09 Thread Jürgen Hestermann
Am 2017-02-08 um 23:26 schrieb Vojtěch Čihák: > when you press CTRL+Q you will obtain two OnKeyDown events. The first with Key=17 (it is CTRL) and the second with Key=81 (Q). Both events will have ssCtrl in Shift. Yep, it makes sense for OnKeyDown. Thanks for the explanation. I don't know why

Re: [fpc-pascal] KeyDown routine and Ctrl+Q

2017-02-09 Thread Mark Morgan Lloyd
On 08/02/17 21:30, Jürgen Hestermann wrote: I use a KEYDOWN routine in my main TFORM to check for the key Ctrl+Q: - procedure TForm1.FormKeyDown(Sender : TObject; var Key: Word;

Re: [fpc-pascal] KeyDown routine and Ctrl+Q

2017-02-08 Thread Vojtěch Čihák
discussions Datum: 08.02.2017 22:12 Předmět: [fpc-pascal] KeyDown routine and Ctrl+Q I use a KEYDOWN routine in my main TFORM to check for the key Ctrl+Q: - procedure TForm1.FormKeyDown(Sender : TObject;                          var Key

Re: [fpc-pascal] KeyDown routine and Ctrl+Q

2017-02-08 Thread Bart
On 2/8/17, Jürgen Hestermann wrote: > > But when I type "Ctrl+Q" then "Key" is 17 instead of VK_Q (81). I get $51 for the key when I press Ctrl+Q (Win32). Bart ___ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/cgi

[fpc-pascal] KeyDown routine and Ctrl+Q

2017-02-08 Thread Jürgen Hestermann
I use a KEYDOWN routine in my main TFORM to check for the key Ctrl+Q: - procedure TForm1.FormKeyDown(Sender : TObject; var Key: Word; Shift : TShiftState); begin // TForm1.Fo