paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-27 10:09:14 +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 Height = 40
Top = 285 Top = 285
Width = 516 Width = 516
HelpButton.OnClick = HelpButtonClick
TabOrder = 1 TabOrder = 1
ShowButtons = [pbClose, pbHelp] ShowButtons = [pbClose, pbHelp]
end end

8
doceditor/frmabout.pp
View File

@ -27,7 +27,7 @@ unit FrmAbout;
interface interface
uses uses
SysUtils, Forms, StdCtrls, ButtonPanel, LazFileUtils; SysUtils, Forms, StdCtrls, ButtonPanel, LCLIntf, LazFileUtils;
const const
LicenseFile = 'COPYING.GPL.txt'; LicenseFile = 'COPYING.GPL.txt';
@ -43,6 +43,7 @@ type
LCopyRight2: TLabel; LCopyRight2: TLabel;
MCopyRight: TMemo; MCopyRight: TMemo;
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure HelpButtonClick(Sender: TObject);
private private
procedure LoadLicense; procedure LoadLicense;
public public
@ -68,6 +69,11 @@ begin
LoadLicense; LoadLicense;
end; end;
procedure TAboutForm.HelpButtonClick(Sender: TObject);
begin
OpenURL('https://wiki.freepascal.org/Lazarus_Documentation_Editor');
end;
procedure TAboutForm.LoadLicense; procedure TAboutForm.LoadLicense;
var var
GPLFileName:string; GPLFileName:string;