TfpgGDIWindow

type TfpgGDIWindow = class(TfpgWindowBase)

protected

  FWinHandle: TfpgWinHandle;

  FModalForWin: TfpgGDIWindow;

  FWinStyle: LongWord;

  FWinStyleEx: LongWord;

  FParentWinHandle: TfpgWinHandle;

  procedure DoAllocateWindowHandle(); override;

  procedure DoReleaseWindowHandle; override;

  procedure DoRemoveWindowLookup; override;

  procedure DoSetWindowVisible(); override;

  function HandleIsValid; override;

  procedure DoUpdateWindowPosition; override;

  procedure DoMoveWindow(); override;

  function DoWindowToScreen(); override;

  procedure DoSetWindowTitle(); override;

  procedure DoSetMouseCursor; override;

  property WinHandle: TfpgWinHandle; [r]

public

  constructor Create(); override;

  procedure ActivateWindow; override;

  procedure CaptureMouse; override;

  procedure ReleaseMouse; override;

  procedure SetFullscreen(); override;

end;

TfpgGDIWindow

TfpgWindowBase

Abstract class use for representing a Window or Widget

TfpgComponent

TComponent

TObject