Flummi/amxmodx
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fixed another shortcut bug

Browse Source 
Released 1.2
This commit is contained in:
Christian Hammacher
2005-09-11 11:15:22 +00:00
parent 95ccd6078c
commit 6f8816c13f
4 changed files with 17 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
editor/studio/UnitfrmMain.pas
View File

@ -2787,23 +2787,30 @@ begin
eShortcut := Shortcut(Msg.CharCode, KeyDataToShiftState(Msg.KeyData));
// Some menu commands are suppressed by the controlchars thingy, so they will be triggered manually
for i := 0 to frmMain.tbxMenu.Items.Count -1 do begin
if TriggerMenuShortcut(eShortcut, frmMain.tbxMenu.Items[i]) then
for i := 0 to tbxMenu.Items.Count -1 do begin
if TriggerMenuShortcut(eShortcut, tbxMenu.Items[i]) then
Handled := True;
end;
for i := 0 to frmMain.tbxToolbar.Items.Count -1 do begin
if frmMain.tbxToolbar.Items[i].ShortCut = eShortcut then begin
for i := 0 to tbxToolbar.Items.Count -1 do begin
if tbxToolbar.Items[i].ShortCut = eShortcut then begin
Handled := True;
frmMain.tbxToolbar.Items[i].OnClick(Self);
tbxToolbar.Items[i].OnClick(Self);
end;
end;
for i := 0 to frmMain.tbxEdit.Items.Count -1 do begin
if frmMain.tbxEdit.Items[i].ShortCut = eShortcut then begin
for i := 0 to tbxEdit.Items.Count -1 do begin
if tbxEdit.Items[i].ShortCut = eShortcut then begin
Handled := True;
frmMain.tbxEdit.Items[i].OnClick(Self);
tbxEdit.Items[i].OnClick(Self);
end;
end;
for i := 0 to ppmEditor.Items.Count -1 do begin
if ppmEditor.Items[i].ShortCut = eShortcut then begin
Handled := True;
ppmEditor.Items[i].OnClick(Self);
end;
end;
Application.ProcessMessages;
if Handled then exit;
// Control chars
if (eShortcut = Shortcut(Ord('E'), [ssCtrl])) then
Handled := True;