TfpgApplicationBase

type TfpgApplicationBase = class(TfpgComponent)

protected

  FOnIdle: TNotifyEvent;

  FIsInitialized: Boolean;

  FModalFormStack: TList;

  function DoGetFontFaceList; virtual; abstract;

  procedure DoWaitWindowMessage(); virtual; abstract;

  function MessagesPending; virtual; abstract;

  function GetHelpViewer; virtual;

public

  constructor Create(); virtual;

  destructor Destroy; override;

  function GetFontFaceList;

  procedure PushModalForm();

  procedure PopModalForm;

  function PrevModalForm;

  function RemoveWindowFromModalStack();

  procedure CreateForm();

  function GetScreenWidth; virtual; abstract;

  function GetScreenHeight; virtual; abstract;

  function Screen_dpi_x; virtual; abstract;

  function Screen_dpi_y; virtual; abstract;

  function Screen_dpi; virtual; abstract;

  procedure Terminate;

  procedure Lock;

  procedure Unlock;

  procedure InvokeHelp;

  function ContextHelp();

  function KeywordHelp();

  property FormCount: Integer; [r]

  property Forms: TfpgWindowBase; [r]

  property HelpContext;

  property HelpFile: TfpgString; [rw]

  property HelpKey: Word; [rw]

  property IsInitialized: Boolean; [r]

  property TopModalForm: TfpgWindowBase; [r]

  property MainForm: TfpgWindowBase; [rw]

  property Terminated: Boolean; [rw]

  property OnIdle: TNotifyEvent; [rw]

end;

TfpgApplicationBase

TfpgComponent

TComponent

TObject