unit Cursor;

interface

uses
  Controls, QuadEngine, mSettings, Resources;

type
  TCursors = class
  private
    FQuad: IQuadRender;
  public
    Tip: Integer;
    constructor Create(AQuad: IQuadRender);
    procedure Draw;
  end;

var
  Cursors: TCursors;

implementation

{ TCursors }

constructor TCursors.Create(AQuad: IQuadRender);
begin
  FQuad := AQuad;
end;

procedure TCursors.Draw;
var
  MyMouse: TMouse;
begin
  Textures.Cursor.Draw(MyMouse.CursorPos.x, MyMouse.CursorPos.y, $FFFFFFFF, Tip);

end;

end.
