Italian community of Lazarus and Free Pascal

{
Questa unit contiene tutte le funzioni con cui si inviano delle combinazioni di tasti

//Per poter compilare:
//  - Pacchetto ==> Apri file di pacchetto .lpk
//  - Andare sotto components/mouseandkeyinput (si trovo tra i sorgenti di Lazarus)
//  - Cliccare su Compila
//  - Cliccare su Usa ==> Aggiungi al progetto
}
unit BonMarSendKey;

{$mode objfpc}{$H+}

interface

uses MouseAndKeyInput, LCLType, Classes, SysUtils, BonMarUtilsForm;

const CstMsSleep=500;

procedure SendKeyScriviFrase(WrkFrase:String);
procedure SendKeyAltTab;
procedure SendKeyTab;
procedure SendKeyInvio;
procedure SendKeyCtrlV(VFAspettaDopo:Boolean);    //CTRL + V
procedure SendKeyTastoDxP(VFPrimo, VFAspettaDopo:Boolean); //Tasto destro + Paste
procedure SendKeyFrecciaGiu(VFAspettaDopo:Boolean);
procedure SendKeyGenerico(WrkKey:Word; Shift: TShiftState);



implementation
uses BonMarUtils;

procedure SendKeyScriviFrase(WrkFrase: String);
var Idx:Integer;
    ChrLo, ChrUp:Char;
begin
  WrkFrase:=StringReplace(WrkFrase, LineEnding, Chr(VK_RETURN), [rfReplaceAll]);

  for Idx:=1 to Length(WrkFrase) do begin
    ChrLo:=WrkFrase[Idx];
    ChrUp:=UpCase(ChrLo);
    if (ChrLo <> ChrUp) or
       (ChrUp < 'A') or
       (ChrUp > 'Z') then begin
      //Lettere minuscole / non lettere (numeri, ecc.)
      KeyInput.Press(ChrUp);
    end else begin
      //Lettere maiuscole
      KeyInput.Apply([ssShift]);
      KeyInput.Press(ChrUp);
      KeyInput.Unapply([ssShift]);
    end;
  end;
end;



{Torno all'applicativo precedente (ALT + TAB)}
procedure SendKeyAltTab;
begin
  KeyInput.Apply([ssAlt]);  //Tengo premuto il tasto "Alt"
  KeyInput.Press(VK_TAB);
  KeyInput.Unapply([ssAlt]);//Mollo il tasto "Alt"
end;



procedure SendKeyTab;
begin
  KeyInput.Press(VK_TAB);
end;


procedure SendKeyInvio;
begin
  KeyInput.Press(VK_RETURN);
end;



{Incolla (Ctrl + V)}
procedure SendKeyCtrlV(VFAspettaDopo:Boolean);
begin
  KeyInput.Apply([ssCtrl]);  //Tengo premuto il tasto "Ctrl"
  KeyInput.Press(VK_V);
  KeyInput.Unapply([ssCtrl]);//Mollo il tasto "Ctrl"

  if VFAspettaDopo then begin
    Sleep(CstMsSleep)
  end;
end;



procedure SendKeyTastoDxP(VFPrimo, VFAspettaDopo: Boolean);
begin
  KeyInput.Press(VK_APPS);
  Sleep(CstMsSleep);
  if VFPrimo then begin
    //Non so perché, ma quando incollo il primo in una routine, mi ticca aspettare di più !!!
    Sleep(CstMsSleep);
  end;
  if (1 = 2) and
     (LanciatoDaIDE) then begin
     //Usata per debug
     KeyInput.Press(VK_I);
     AggiornaVideo;
     KeyInput.Press(VK_RETURN);
     AggiornaVideo;
  end else begin
    KeyInput.Press(VK_P);
    AggiornaVideo;
  end;

  if VFAspettaDopo then begin
    Sleep(CstMsSleep)
  end;
end;




procedure SendKeyFrecciaGiu(VFAspettaDopo: Boolean);
begin
  KeyInput.Press(VK_DOWN);

  if VFAspettaDopo then begin
    Sleep(300)
  end;
end;



procedure SendKeyGenerico(WrkKey: Word; Shift: TShiftState);
begin
  if (Shift <> []) then begin
    KeyInput.Apply(Shift);
  end;

    KeyInput.Press(WrkKey);

  if (Shift <> []) then begin
    KeyInput.Unapply(Shift);
  end;
end;

end.