ConsoleApp: +SourcePage

jackdp · Jul 24, 2022 · 4ec956b · 4ec956b
1 parent 5ee4a72
commit 4ec956b
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/Base/JPL.ConsoleApp.pas b/Base/JPL.ConsoleApp.pas
@@ -115,6 +115,7 @@   TJPConsoleApp = class
     FCmd: TJPCmdLineParser;
     FDescription: string;
     FExamplesStr: string;
+    FSourcePage: string;
     {$IFDEF MSWINDOWS}
     FTerminateProcedure: TJPConsoleTerminateProc;
     {$ENDIF}
@@ -191,6 +192,7 @@   TJPConsoleApp = class
     procedure GoToUrl(const URL: string);
     procedure GoToHomePage;
     procedure GoToHelpPage;
+    procedure GoToSourcePage;
     {$ENDIF}
 
     property Cmd: TJPCmdLineParser read FCmd;
@@ -208,6 +210,7 @@   TJPConsoleApp = class
     property Author: string read FAuthor write FAuthor;
     property HomePage: string read FHomePage write FHomePage;
     property HelpPage: string read FHelpPage write FHelpPage;
+    property SourcePage: string read FSourcePage write FSourcePage; // Github, Gitlab, s-f, OSDN...
     property BannerFormat: string read FBannerFormat write FBannerFormat;
     property UsageStr: string read FUsageStr write FUsageStr;
     property ShortUsageStr: string read FShortUsageStr write FShortUsageStr;
@@ -529,6 +532,11 @@ procedure TJPConsoleApp.GoToHelpPage;
   GoToUrl(HelpPage);
 end;
 
+procedure TJPConsoleApp.GoToSourcePage;
+begin
+  GoToUrl(SourcePage);
+end;
+
 {$ENDIF}
 
 procedure TJPConsoleApp.Init;