瀏覽代碼

Bug fix: Keyboard cues were shown in toolbar buttons drop down menus even when the menu was dropped down with mouse

(it still has glitches, nor example, when dropping down the main menu with keyboard, subsequent button drop down with mouse still shows the cues)

Source commit: 729585af7358b5a4defc9ba298ab859863ad3a38
Martin Prikryl 4 年之前
父節點
當前提交
618c06c3dd
共有 1 個文件被更改,包括 4 次插入2 次删除
  1. 4 2
      source/packages/tb2k/TB2Toolbar.pas

+ 4 - 2
source/packages/tb2k/TB2Toolbar.pas

@@ -551,6 +551,8 @@ begin
   FChevronMoveItems := True;
   FView := GetViewClass.CreateView(Self, nil, FItem, Self, True, False,
     not(csDesigning in ComponentState));
+  // This might as well go to TTBToolbarView.Create
+  FView.Style := FView.Style + [vsUseHiddenAccels];
   FView.BackgroundColor := clBtnFace;
   FUpdateActions := True;
   FShrinkMode := tbsmChevron;
@@ -1062,11 +1064,11 @@ begin
     FMenuBar := Value;
     if Value then begin
       ControlStyle := ControlStyle + [csMenuEvents];
-      FView.Style := FView.Style + [vsMenuBar, vsUseHiddenAccels];
+      FView.Style := FView.Style + [vsMenuBar];
     end
     else begin
       ControlStyle := ControlStyle - [csMenuEvents];
-      FView.Style := FView.Style - [vsMenuBar, vsUseHiddenAccels];
+      FView.Style := FView.Style - [vsMenuBar];
     end;
     if not(csLoading in ComponentState) then begin
       FullSize := Value;