source: branches/Xvcl/Drivers/Driver.MouseVCL.pas

unit Driver.MouseVCL;

interface

uses
  Vcl.Forms, Vcl.Controls, System.Classes, UFormMain, Xvcl.Classes, Xvcl.Kernel;

type
  TDriverMouseVCL = class(TDriver)
  private
    procedure DoMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure DoMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure DoMouseMove(Sender: TObject; Shift: TShiftState;
      X, Y: Integer);
  public
    Form: Vcl.Forms.TForm;
    procedure Initialize; override;
    procedure Finalize; override;
  end;

implementation

procedure TDriverMouseVCL.DoMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Kernel.Mouse.HandleDown(TPoint.Create(X, Y));
end;

procedure TDriverMouseVCL.DoMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Kernel.Mouse.HandleMouseMove(TPoint.Create(X, Y));
end;

procedure TDriverMouseVCL.DoMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Kernel.Mouse.HandleUp(TPoint.Create(X, Y));
end;

procedure TDriverMouseVCL.Finalize;
begin
  inherited;

end;

procedure TDriverMouseVCL.Initialize;
begin
  inherited;
  Form := Application.MainForm;
  TForm1(Form).Image1.OnMouseDown := DoMouseDown;
  TForm1(Form).Image1.OnMouseUp := DoMouseUp;
  TForm1(Form).Image1.OnMouseMove := DoMouseMove;
end;


end.