Merge pull request #266 from fredvs/master

Remove LazMouseAndKeyInput dependency (GPL licence) and use LCLIntf (…

Author: circular17

.github/workflows/make.yml

@@ -26,7 +26,7 @@ jobs:
           - ubuntu-latest
     steps:
       - name: Checkout
-        uses: actions/checkout@v4
+        uses: actions/checkout@v6
         with:
           submodules: true
 

bckeyboard.pas

@@ -13,7 +13,7 @@ interface
 uses
   Classes, SysUtils, {$IFDEF FPC}LCLType, LResources, LMessages,{$ENDIF}Forms, Controls, Graphics, Dialogs,
   {$IFNDEF FPC}Types, Windows, Messages, BGRAGraphics, GraphType, FPImage, BCBaseCtrls,{$ENDIF}
-  BCThemeManager, BCButton, BCPanel, MouseAndKeyInput;
+  BCThemeManager, BCButton, BCPanel, LCLIntf;
 
 type
 
@@ -85,17 +85,27 @@ procedure TBCKeyboard.SetFThemeManager(AValue: TBCThemeManager);
 end;
 
 procedure TBCKeyboard.PressVirtKey(p: PtrInt);
+var
+  Target: TWinControl;
 begin
-  KeyInput.Down(p);
-  KeyInput.Up(p);
+  Target := Screen.ActiveControl;
+  if Target = nil then Exit;
+
+  LCLIntf.SendMessage(Target.Handle, LM_KEYDOWN, p, 1);
+  LCLIntf.SendMessage(Target.Handle, LM_KEYUP, p, 1);
 end;
 
 procedure TBCKeyboard.PressShiftVirtKey(p: PtrInt);
+var
+  Target: TWinControl;
 begin
-  KeyInput.Down(VK_SHIFT);
-  KeyInput.Down(p);
-  KeyInput.Up(p);
-  KeyInput.Up(VK_SHIFT);
+  Target := Screen.ActiveControl;
+  if Target = nil then Exit;
+
+  LCLIntf.SendMessage(Target.Handle, LM_KEYDOWN, VK_SHIFT, 1);
+  LCLIntf.SendMessage(Target.Handle, LM_KEYDOWN, p, 1);
+  LCLIntf.SendMessage(Target.Handle, LM_KEYUP, p, 1);
+  LCLIntf.SendMessage(Target.Handle, LM_KEYUP, VK_SHIFT, 1);
 end;
 
 procedure TBCKeyboard.OnButtonClick(Sender: TObject; Button: TMouseButton;

bcnumerickeyboard.pas

@@ -12,7 +12,7 @@ interface
 
 uses
   Classes, SysUtils, {$IFDEF FPC}LCLType, LResources, LMessages,{$ENDIF}
-  Forms, Controls, Graphics, Dialogs, MouseAndKeyInput,
+  Forms, Controls, Graphics, Dialogs, LCLIntf,
   {$IFNDEF FPC}Types, Windows, BGRAGraphics, GraphType, FPImage, BCBaseCtrls, {$ENDIF}
   BCPanel, BCButton, BCThemeManager;
 
@@ -149,9 +149,14 @@ procedure TBCRealNumericKeyboard.OnButtonClick(Sender: TObject;
 end;
 
 procedure TBCRealNumericKeyboard.PressVirtKey(p: PtrInt);
+var
+  Target: TWinControl;
 begin
-  KeyInput.Down(p);
-  KeyInput.Up(p);
+  Target := Screen.ActiveControl;
+  if Target = nil then Exit;
+
+  LCLIntf.SendMessage(Target.Handle, LM_KEYDOWN, p, 1);
+  LCLIntf.SendMessage(Target.Handle, LM_KEYUP, p, 1);
 end;
 
 constructor TBCRealNumericKeyboard.Create(AOwner: TComponent);

bgracontrols.lpk

@@ -447,17 +447,14 @@
     </Files>
     <CompatibilityMode Value="True"/>
     <LazDoc Paths="fpdoc"/>
-    <RequiredPkgs Count="3">
+    <RequiredPkgs Count="2">
       <Item1>
-        <PackageName Value="lazmouseandkeyinput"/>
-      </Item1>
-      <Item2>
         <PackageName Value="BGRABitmapPack"/>
         <MinVersion Major="11" Minor="6" Release="4" Valid="True"/>
-      </Item2>
-      <Item3>
+      </Item1>
+      <Item2>
         <PackageName Value="IDEIntf"/>
-      </Item3>
+      </Item2>
     </RequiredPkgs>
     <UsageOptions>
       <UnitPath Value="$(PkgOutDir)"/>