TfpgApplication

type TfpgApplication = class(TfpgApplicationImpl)

protected

  FDisplayParams: String;

  FScreenWidth: Integer;

  FScreenHeight: Integer;

  FDefaultFont: TfpgFont;

  FFontResList: TList;

  FMessageHookList: TFPList;

  procedure FreeFontRes();

  procedure InternalInit;

  procedure RunMessageLoop;

  procedure WaitWindowMessage();

public

  constructor Create(); override;

  destructor Destroy; override;

  function GetFont();

  procedure ActivateHint();

  procedure RecreateHintWindow;

  procedure Flush;

  procedure HandleException();

  procedure HideHint;

  procedure Initialize;

  procedure ProcessMessages;

  procedure Run;

  procedure SetMessageHook();

  procedure ShowException();

  procedure UnsetMessageHook();

  property DefaultFont: TfpgFont; [r]

  property HintPause: Integer; [rw]

  property HintWindow: TfpgWindow; [r]

  property ScreenWidth: Integer; [r]

  property ScreenHeight: Integer; [r]

  property ShowHint: Boolean; [rw]

  property StartDragDistance: Integer; [rw]

  property StopOnException: Boolean; [rw]

  property OnException: TExceptionEvent; [rw]

  property OnKeyPress: TKeyPressEvent; [rw]

end;

TfpgApplication

TfpgApplicationImpl

TObject