TToolButton and acceleration keys
Original Reporter info from Mantis: Blaazen @Blaazen
-
Reporter name: Vojtech Cihak
Original Reporter info from Mantis: Blaazen @Blaazen
- Reporter name: Vojtech Cihak
Description:
I noticed that acceleration keys does not work with TToolButton. I tested and DialogChar is broadcast correctly. In TToolButton.DialogChar (toolbutton.inc) is line(934):
if IsAccel(Message.CharCode, Caption) and FToolBar.CanFocus then
...
but ToolBar.CanFocus is overridden method
function TToolBar.CanFocus: Boolean;
begin
Result := False;
end;
so it never happen. It is strange since ToolButton is used exclusively with TToolBar.
I would like to ask someone to test in Delphi, then we can invite patch or remove TToolButton.DialogChar.
Steps to reproduce:
Run demo. Alt+T does nothing.
Additional information:
Lazarus 1.1 r42089M FPC 2.7.1 x86_64-linux-qt
Of some reason, my mail to mailing list failed, so I give it directly here.
Mantis conversion info:
- Mantis ID: 24817
- OS: Linux
- OS Build: Chakra 64-bit
- Build: 42089
- Platform: amd64
- Version: 1.1 (SVN)
- Fixed in version: 1.2.4
- Fixed in revision: r44871 (#f62fa21a)