TJPConsoleApp

type TJPConsoleApp = class

public

  constructor Create;

  destructor Destroy; override;

  procedure Init;

  procedure Run;

  procedure Done;

  procedure Terminate;

  procedure TerminateWithExitCode();

  function AppDateStr;

  function VersionStr();

  function BannerStr;

  procedure Display();

  procedure DisplayBanner;

  procedure DisplayShortUsage;

  procedure DisplayUsage;

  procedure DisplayExtraInfo;

  procedure DisplayExamples;

  procedure DisplayTryHelp;

  procedure DisplayLicense;

  procedure DisplayColoredText();

  procedure DisplayError();

  procedure DisplayWarning();

  procedure DisplayHint();

  procedure DisplayTaggedText();

  property Cmd: TJPCmdLineParser; [r]

  property AppName: string; [rw]

  property FullNameFormat: string; [rw]

  property AppFullName: string; [r]

  property MajorVersion: Word; [rw]

  property MinorVersion: Word; [rw]

  property RevisionNumber: Word; [rw]

  property BuildNumber: Word; [rw]

  property Date: TDateTime; [rw]

  property Description: string; [rw]

  property LicenseName: string; [rw]

  property License: string; [rw]

  property Author: string; [rw]

  property HomePage: string; [rw]

  property HelpPage: string; [rw]

  property SourcePage: string; [rw]

  property BannerFormat: string; [rw]

  property UsageStr: string; [rw]

  property ShortUsageStr: string; [rw]

  property ExtraInfoStr: string; [rw]

  property ExamplesStr: string; [rw]

  property TryHelpStr: string; [rw]

  property ExeShortName: string; [r]

  property ExeFullName: string; [r]

  property ExeDirectory: string; [r]

  property ExePath: string; [r]

  property CurrentDirectory: string; [r]

  property Terminated: Boolean; [r]

  property ParamCount: Integer; [r]

  property Params []: string; [r]

  property UseColors: Boolean; [rw]

  property ErrorTextColor: Byte; [rw]

  property ErrorBackgroundColor: Byte; [rw]

  property WarningTextColor: Byte; [rw]

  property WarningBackgroundColor: Byte; [rw]

  property HintTextColor: Byte; [rw]

  property HintBackgroundColor: Byte; [rw]

  property Logger: TJPSimpleLogger; [r]

  property Console: TConsole; [r]

end;

TJPConsoleApp

TObject