search

TurboPack / MustangpeakEasyListview

TurboPack MustangpeakEasyListview is part of VirtualShellTools for the Listview but can be used for a TListview Replacement that is faster and more customizable.
Other
38 stars 22 forks source link

OnKeyAction ALT key not detected #7

Open hvdm opened 4 years ago

hvdm commented 4 years ago

Hi,

I just noticed that when you place an ELV on a FRM and assign an ELV.KeyAction the ALT key isnt detected, Shift en CTRL works fine.

`procedure TForm1.EasyListview1KeyAction(Sender: TCustomEasyListview; var CharCode: Word; var Shift: TShiftState; var DoDefault: Boolean); begin if ssALT in Shift then ShowMessage ('ELV ssAlt') <-- Not detected else if ssCTRL in Shift then ShowMessage ('ELV ssCtrl') else if ssShift in Shift then ShowMessage ('ELV ssShift') end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin { if ssALT in Shift then ShowMessage ('FRM ssAlt') <-- Detected / KeyPreview=True else if ssCTRL in Shift then ShowMessage ('FRM ssCtrl') else if ssShift in Shift then ShowMessage ('FRM ssShift') } end; `

romankassebaum commented 3 years ago

I added a changeset. Please check.