🆕 Add delay to activate menu. Mouse gesture double move (knock-knock) to show menu.

Author: vhanla

menu.dfm

@@ -257,4 +257,10 @@ object frmMenu: TfrmMenu
     Left = 384
     Top = 152
   end
+  object tmrDelayAction: TTimer
+    Enabled = False
+    OnTimer = tmrDelayActionTimer
+    Left = 648
+    Top = 368
+  end
 end

menu.pas

@@ -47,6 +47,7 @@   TfrmMenu = class(TForm)
     ActionList1: TActionList;
     actSwitchAIChats: TAction;
     JvApplicationHotKey3: TJvApplicationHotKey;
+    tmrDelayAction: TTimer;
 
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
@@ -82,6 +83,7 @@   TfrmMenu = class(TForm)
     procedure JvApplicationHotKey3HotKeyRegisterFailed(Sender: TObject;
       var HotKey: TShortCut);
     procedure JvApplicationHotKey3HotKey(Sender: TObject);
+    procedure tmrDelayActionTimer(Sender: TObject);
 //    procedure FormPaint(Sender: TObject);
   private
     { Private declarations }
@@ -94,6 +96,15 @@   TfrmMenu = class(TForm)
     FHookWndHandle: THandle;
     FHookMsg: Integer;
 
+    { Mouse gestures }
+    FHotSpotEntered: Boolean;
+    FFirstKnockTime: TDateTime;
+    FKnockEnabled: Boolean;
+    FDelayEnabled: Boolean;
+    FActionPending: Boolean; // Prevent overlapping actions
+    FMousePosition: TPoint;
+    const KnockInteval = 0.5 / (24 * 60 * 60); //  500 milliseconds as TDateTime
+
     procedure CreateParams(var Params: TCreateParams); override;
     procedure HideMenu(Sender: TObject);
     procedure RestoreRequest(var message: TMessage); message WM_USER + $1000;
@@ -139,8 +150,13 @@   TfrmMenu = class(TForm)
 
     procedure OnAppLostFocus(Sender: TObject);
 
+    { Tightly coupled procedures for mouse actions }
     procedure HotSpotAction(MousePos: TPoint);
+    function IsInHotSpot(const MPos: TPoint): Boolean;
+    procedure StartDelayedAction;
     property OnMenuArea: Boolean read FOnMenuArea write FOnMenuArea;
+    property MouseDelay: Boolean read FDelayEnabled write FDelayEnabled;
+    property MouseGesture: Boolean read FKnockEnabled write FKnockEnabled;
   end;
 
 var
@@ -391,6 +407,19 @@ procedure TfrmMenu.SiteContextPopup(Sender: TObject; MousePos: TPoint;
   end;
 end;
 
+procedure TfrmMenu.StartDelayedAction;
+begin
+  if not FDelayEnabled then
+    HotSpotAction(FMousePosition)
+  else
+  if not FActionPending then
+  begin
+    FActionPending := True;
+    tmrDelayAction.Interval := Settings.MouseDelayValue;
+    tmrDelayAction.Enabled := True;
+  end;
+end;
+
 procedure TfrmMenu.WMDisplayChange(var message: TMessage);
 begin
   // Resolution changed
@@ -497,8 +526,8 @@ procedure TfrmMenu.HideMenu(Sender: TObject);
 end;
 
 procedure TfrmMenu.HotSpotAction(MousePos: TPoint);
-var
-  TypesAniPlugin: TAQPSystemTypesAnimations;
+//var
+//  TypesAniPlugin: TAQPSystemTypesAnimations;
 begin
   if Settings.DisableOnFullScreenDirectX and DetectFullScreen3D then Exit;
   if Settings.DisableOnFullScreen and DetectFullScreenApp(GetForegroundWindow) then Exit;
@@ -520,18 +549,7 @@ procedure TfrmMenu.HotSpotAction(MousePos: TPoint);
             NewAlphaBlend := MAXBYTE;
             ShowMenuAnimation(ABE_LEFT);
           end;
-        end
-        else if (MousePos.X > frmMenu.Left + frmMenu.Width) and (tmrHideMenu.Enabled = False) then
-        begin
-          if OnMenuArea then
-          begin
-            OnMenuArea := False;
-            NewWidth := 1;
-            NewLeft := GetLeftMost;
-            NewAlphaBlend := 0;
-            ShowMenuAnimation(ABE_LEFT, False);
-          end;
-        end;
+        end; // moved hide to rawinput
 
       end;
       ABE_TOP:
@@ -551,18 +569,7 @@ procedure TfrmMenu.HotSpotAction(MousePos: TPoint);
             NewAlphaBlend := MAXBYTE;
             ShowMenuAnimation(ABE_RIGHT);
           end;
-        end
-        else if (MousePos.X < Left) and (tmrHideMenu.Enabled = False) then
-        begin
-          if OnMenuArea then
-          begin
-            OnMenuArea := False;
-            NewWidth := 1;
-            NewLeft := Screen.WorkAreaWidth - NewWidth;
-            NewAlphaBlend := 0;
-            ShowMenuAnimation(ABE_RIGHT, False);
-          end;
-        end;
+        end; // moved hide to rawinput
 
       end;
       ABE_BOTTOM:
@@ -866,6 +873,10 @@ procedure TfrmMenu.FormCreate(Sender: TObject);
   AllowSetForegroundWindow(GetCurrentProcessId);
 
   Application.OnDeactivate := OnAppLostFocus;
+
+  { Mouse behavior }
+  FDelayEnabled := Settings.MouseDelay;
+  FKnockEnabled := Settings.MouseGesture;
 end;
 
 procedure TfrmMenu.FormDestroy(Sender: TObject);
@@ -1017,6 +1028,13 @@ procedure TfrmMenu.About1Click(Sender: TObject);
 
 end;
 
+procedure TfrmMenu.tmrDelayActionTimer(Sender: TObject);
+begin
+  tmrDelayAction.Enabled := False;
+  FActionPending := False;
+  HotSpotAction(FMousePosition);
+end;
+
 procedure TfrmMenu.tmrHideMenuTimer(Sender: TObject);
 begin
   if not tmrShowMenu.Enabled then
@@ -1078,6 +1096,19 @@ procedure TfrmMenu.FormShow(Sender: TObject);
   ShowWindow(Application.Handle, SW_HIDE);
 end;
 
+function TfrmMenu.IsInHotSpot(const MPos: TPoint): Boolean;
+begin
+  if (GetAsyncKeyState(VK_LBUTTON) = 0) and (GetAsyncKeyState(VK_RBUTTON) = 0) then
+  begin
+    case Settings.BarPosition of
+      ABE_LEFT: Result := (MPos.X <= GetLeftMost + 1);
+      ABE_TOP:;
+      ABE_RIGHT: Result := (MPos.X >= GetRightMost - 1);
+      ABE_BOTTOM:;
+    end;
+  end;
+end;
+
 function TfrmMenu.IsStarteMenuVisible: Boolean;
 var
   startMenuOn: BOOL;
@@ -1353,8 +1384,8 @@ procedure TfrmMenu.ProcessRawInput(var Message: TMessage);
   Mouse: RAWMOUSE;
 
   Cur: THandle;
-  MPos: TPoint;
 
+  NowTime: TDateTime;
 begin
   if GetRawInputData(HRAWINPUT(Message.lParam), RID_INPUT, nil, DataSize, SizeOf(Header)) = 0 then
   begin
@@ -1369,20 +1400,100 @@ procedure TfrmMenu.ProcessRawInput(var Message: TMessage);
 
           Cur := 0;
           try
-            if not Windows.GetCursorPos(MPos) then
-              MPos := Point(120, 120);
+            if not Windows.GetCursorPos(FMousePosition) then
+              FMousePosition := Point(120, 120);
             Cur := GetForegroundWindow; // it will likely fail on windows locked (Win+L)
           except
             Cur := 0;
           end;
 
           if Cur <> 0 then
           begin
-            HotSpotAction(MPos);
+            NowTime := Now();
+
+            if IsInHotSpot(FMousePosition) then
+            begin
+              if not FHotSpotEntered and not FActionPending then
+              begin
+                // First entry into hot spot
+                FHotSpotEntered := True;
+
+                if FKnockEnabled then
+                begin
+                  if FFirstKnockTime = 0 then
+                  begin
+                    FFirstKnockTime := NowTime; // First knock time
+                  end
+                  else if NowTime - FFirstKnockTime <= KnockInteval then
+                  begin
+                    // Second knock within the interval
+                    FFirstKnockTime := 0; // Reset knock time
+                    StartDelayedAction;
+                  end
+                  else
+                  begin
+                    // Too late, reset knock
+                    FFirstKnockTime := NowTime;
+                  end;
+                end
+                else
+                begin
+                  // No knock-knock, just start delay
+                  StartDelayedAction;
+                end;
+              end;
+            end
+            else
+            begin
+              // Mouse left the hot spot
+              FHotSpotEntered := False;
+              // Hide if visible menu
+              case Settings.BarPosition of
+              ABE_LEFT:
+              begin
+                if (FMousePosition.X > frmMenu.Left + frmMenu.Width) and (tmrHideMenu.Enabled = False) then
+                begin
+                  if OnMenuArea then
+                  begin
+                    OnMenuArea := False;
+                    NewWidth := 1;
+                    NewLeft := GetLeftMost;
+                    NewAlphaBlend := 0;
+                    ShowMenuAnimation(ABE_LEFT, False);
+                  end;
+                end;
+              end;
+              ABE_TOP:
+              begin
+
+              end;
+              ABE_RIGHT:
+              begin
+                if (FMousePosition.X < Left) and (tmrHideMenu.Enabled = False) then
+                begin
+                  if OnMenuArea then
+                  begin
+                    OnMenuArea := False;
+                    NewWidth := 1;
+                    NewLeft := Screen.WorkAreaWidth - NewWidth;
+                    NewAlphaBlend := 0;
+                    ShowMenuAnimation(ABE_RIGHT, False);
+                  end;
+                end;
+
+              end;
+              ABE_BOTTOM:
+              begin
+
+              end;
+            end;
+
+            end;
+
+
+//            HotSpotAction(MPos);
           end;
-
         end;
-
       end;
     finally
       FreeMem(lRawInput);

settings.dfm

@@ -129,7 +129,7 @@ object frmSetting: TfrmSetting
     Top = 62
     Width = 641
     Height = 363
-    ActivePage = TabSheet2
+    ActivePage = TabSheet5
     Anchors = [akLeft, akTop, akRight, akBottom]
     Font.Charset = ANSI_CHARSET
     Font.Color = clWindowText
@@ -332,7 +332,7 @@ object frmSetting: TfrmSetting
         Left = 308
         Top = 3
         Width = 322
-        Height = 235
+        Height = 196
         Caption = 'Browser'
         TabOrder = 5
         object chkUseEmbeddedBrowser: TRadioButton
@@ -520,6 +520,51 @@ object frmSetting: TfrmSetting
           OnClick = chkWinKeyLauncherClick
         end
       end
+      object GroupBox4: TGroupBox
+        Left = 308
+        Top = 205
+        Width = 322
+        Height = 100
+        Caption = 'Mouse'
+        Color = 2743985
+        ParentBackground = False
+        ParentColor = False
+        TabOrder = 10
+        object lbedMouseDelay: TLabeledEdit
+          Left = 30
+          Top = 48
+          Width = 73
+          Height = 21
+          EditLabel.Width = 210
+          EditLabel.Height = 13
+          EditLabel.Caption = 'Milliseconds to wait (1000ms = 1 second)'
+          NumbersOnly = True
+          TabOrder = 0
+          Text = '250'
+        end
+        object chkMouseDelay: TCheckBox
+          Left = 11
+          Top = 16
+          Width = 129
+          Height = 17
+          Caption = 'Delay to show menu'
+          TabOrder = 1
+          OnClick = chkMouseDelayClick
+        end
+        object chkKnockKnock: TCheckBox
+          Left = 11
+          Top = 74
+          Width = 254
+          Height = 17
+          Hint = 
+            'Mouse gesture: move twice to the menu'#39's screen edge as double cl' +
+            'ick like to show the menu.'
+          Caption = 'Knock-knock gesture to show menu'
+          ParentShowHint = False
+          ShowHint = True
+          TabOrder = 2
+        end
+      end
     end
     object TabSheet6: TTabSheet
       Caption = 'About'