mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-28 10:02:14 +00:00
Code Issues Projects Releases Packages Wiki Activity

ADD: Show hotkeys for kasbarmenu (patch by Rustem)

Browse source
This commit is contained in:
Alexander Koblov 2012-02-05 13:11:05 +00:00
commit 8b73f0c8ad
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
components/KASToolBar/kasbarmenu.pas
View file

@ -146,7 +146,10 @@ begin
For I:=0 to Fbar.ButtonCount-1 do
begin
Item:=TMenuItem.Create(Self);
Item.Caption:=Fbar.GetButtonX(I,MenuX);
if Fbar.GetButtonX(I,MiskX) <> '' then
Item.Caption:=Fbar.GetButtonX(I,MenuX)+' ('+Fbar.GetButtonX(I,MiskX)+')'
else
Item.Caption:=Fbar.GetButtonX(I,MenuX);
//------------------------------------------------------
if Assigned(FOnLoadButtonGlyph) then
BitmapTmp := FOnLoadButtonGlyph(FBar.GetButtonX(I,ButtonX), 16, clMenu)