TfpgGDIApplication

type TfpgGDIApplication = class(TfpgApplicationBase)

protected

  FDisplay: HDC;

  WindowClass: TWndClass;

  WidgetClass: TWndClass;

  hcr_default: HCURSOR;

  hcr_dir_ew: HCURSOR;

  hcr_dir_ns: HCURSOR;

  hcr_edit: HCURSOR;

  hcr_dir_nwse: HCURSOR;

  hcr_dir_nesw: HCURSOR;

  hcr_move: HCURSOR;

  hcr_crosshair: HCURSOR;

  hcr_wait: HCURSOR;

  hcr_hand: HCURSOR;

  FFocusedWindow: THANDLE;

  FHiddenWindow: HWND;

  HiddenWndClass: TWndClass;

  ActivationHook: HHOOK;

  function GetHiddenWindow;

  function DoGetFontFaceList; override;

  procedure DoWaitWindowMessage(); override;

  function MessagesPending; override;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure DoFlush;

  function GetScreenWidth; override;

  function GetScreenHeight; override;

  function Screen_dpi_x; override;

  function Screen_dpi_y; override;

  function Screen_dpi; override;

  property Display: HDC; [r]

end;

TfpgGDIApplication

TfpgApplicationBase

TObject