diff --git a/components/spktoolbar/SpkPopupMenu/spkpopup.pas b/components/spktoolbar/SpkPopupMenu/spkpopup.pas index 2686251a5..9aea45c1b 100644 --- a/components/spktoolbar/SpkPopupMenu/spkpopup.pas +++ b/components/spktoolbar/SpkPopupMenu/spkpopup.pas @@ -217,9 +217,11 @@ begin end else begin y := (ARect.Top + ARect.Bottom - hText) div 2; - if menuItem.ShortCut <> 0 then + if menuItem.ShortCut <> scNone then begin shortCutText := ShortCutToText(menuItem.ShortCut); + if menuItem.ShortCutKey2 <> scNone then + shortCutText := ShortCutText + ', ' + ShortCutToText(menuItem.ShortCutKey2); wText := ACanvas.TextWidth(shortCutText); TGUITools.DrawText(ACanvas, ARect.Right - wText - DropdownMenuMargin, y, shortcutText, TextColor); end else