screenmaxcap.pas

Coolvibes 远程控制 Coolvibes 远程控制 Coolvibes 远程控制 Coolvibes 远程控制

unit ScreenMaxCap;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, IdTCPServer;

type
  TScreenMax = class(TForm)
    ImgCapturaGrande: TImage;
    procedure ImgCapturaGrandeMouseDown(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    Servidor : TIdPeerThread;
    EnviarClicks : Boolean;
    constructor Create(aOwner: TComponent; Picture: TPicture; Serv: TIdPeerThread; EnviarC: Boolean);
    { Public declarations }
  end;

var
  ScreenMax: TScreenMax;

implementation

{$R *.dfm}

constructor TScreenMax.Create(aOwner: TComponent; Picture: TPicture; Serv: TIdPeerThread; EnviarC: Boolean);
begin
  inherited Create(aOwner);
  ImgCapturaGrande.Picture := Picture;
  Servidor := Serv;
  EnviarClicks := EnviarC;
end;

procedure TScreenMax.ImgCapturaGrandeMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  AltoCap, AnchoCap: Integer;
begin
  if EnviarClicks then
  begin
    AnchoCap := imgCapturaGrande.Picture.Width;
    AltoCap := imgCapturaGrande.Picture.Height;
    X := (X * AnchoCap) div imgCapturaGrande.Width; //Una regla de tres
    Y := (Y * AltoCap) div imgCapturaGrande.Height ;
    if button = mbLeft  then
      servidor.Connection.WriteLn('mouseP'+IntToStr(X)+ '|' + IntToStr(y)+'|'+'clickizq'+'|')
    else if button = mbRight then
      servidor.Connection.WriteLn('mouseP'+IntToStr(X)+ '|' + IntToStr(y)+'|'+'clickder'+'|');
  end;
end;

end.