paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-14 11:39:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

Merge branch 'DocEditor/About/HelpButton' into 'main'

Browse Source 
DocEditor: Add a wiki link for the help button

See merge request freepascal.org/lazarus/lazarus!535
This commit is contained in:
Juha Manninen 2025-07-14 12:43:09 +00:00
commit 62b2225f98
2 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
doceditor/frmabout.lfm
View File

@ -81,6 +81,7 @@ object AboutForm: TAboutForm
Height = 40
Top = 285
Width = 516
HelpButton.OnClick = HelpButtonClick
TabOrder = 1
ShowButtons = [pbClose, pbHelp]
end

8
doceditor/frmabout.pp
View File

@ -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;