TWindow

type TWindow = class(TWindow_Abstract)

public

  constructor Create();

  destructor Destroy; override;

  procedure GetTargetDimensions(); override;

Uses XGetWindowAttributes to retrieve the dimensions of the stored TWindow.

  function ReturnData(); override;

Uses XGetImage to get the pixel data of the currently stored TWindow. The image data is passed as result.

  procedure FreeReturnData; override;

Frees the XImage object called buffer if it is set. This should be called once the ReturnData result is no longer required.

  function GetError; override;

  function ReceivedError; override;

Returns true if we have received an error

  procedure ResetError; override;

  function TargetValid; override;

Uses XGetWindowAttributes to check if the currently selected window is valid. If we have not recieved an error, the window is valid.

  procedure ActivateClient; override;

Selects the current client as input focus for the X11 windowing system

  procedure GetMousePosition(); override;

Uses XQueryPointer to query the current mouse position relative to the stored TWindow.

  procedure MoveMouse(); override;

Uses XWarpPointer to move the mouse to the specific position relative to the stored TWindow.

  procedure HoldMouse(); override;

Uses XTest to fake a mouse button press.

  procedure ReleaseMouse(); override;

Uses XTest to fake a mouse button release.

  function IsMouseButtonHeld(); override;

Uses XQueryPointer to return if the given mouse button is held.

  procedure SendString(); override;

  procedure HoldKey(); override;

Uses TKeyInput class from lazarus to fake a keydown event.

  procedure ReleaseKey(); override;

Uses TKeyInput class from lazarus to fake a keyup event.

  function IsKeyHeld(); override;

Should return true if the given key is held down. NOT YET IMPLEMENTED ON LINUX

  function GetKeyCode(); override;

  function GetNativeWindow;

Returns the stored TWindow

end;

TWindow

TWindow_Abstract

TObject