diff --git a/doceditor/frmabout.lfm b/doceditor/frmabout.lfm index d0c68d6c75..0a94d03da1 100644 --- a/doceditor/frmabout.lfm +++ b/doceditor/frmabout.lfm @@ -81,6 +81,7 @@ object AboutForm: TAboutForm Height = 40 Top = 285 Width = 516 + HelpButton.OnClick = HelpButtonClick TabOrder = 1 ShowButtons = [pbClose, pbHelp] end diff --git a/doceditor/frmabout.pp b/doceditor/frmabout.pp index 809f03792a..8a33cc056b 100644 --- a/doceditor/frmabout.pp +++ b/doceditor/frmabout.pp @@ -27,7 +27,7 @@ unit FrmAbout; interface uses - SysUtils, Forms, StdCtrls, ButtonPanel, LazFileUtils; + SysUtils, Forms, StdCtrls, ButtonPanel, LCLIntf, LazFileUtils; const LicenseFile = 'COPYING.GPL.txt'; @@ -43,6 +43,7 @@ type LCopyRight2: TLabel; MCopyRight: TMemo; procedure FormCreate(Sender: TObject); + procedure HelpButtonClick(Sender: TObject); private procedure LoadLicense; public @@ -68,6 +69,11 @@ begin LoadLicense; end; +procedure TAboutForm.HelpButtonClick(Sender: TObject); +begin + OpenURL('https://wiki.freepascal.org/Lazarus_Documentation_Editor'); +end; + procedure TAboutForm.LoadLicense; var GPLFileName:string;