• R/O
  • SSH
  • HTTPS

denkzettelcompanion: Commit


Commit MetaInfo

Revision46 (tree)
Zeit2018-02-11 23:09:40
Autortwm

Log Message

made links on about dialog clickable

Ändern Zusammenfassung

Diff

--- trunk/src/w_about.pas (revision 45)
+++ trunk/src/w_about.pas (revision 46)
@@ -27,6 +27,8 @@
2727 l_ProgName: TLabel;
2828 l_Copyright: TLabel;
2929 l_ProgInfo4: TLabel;
30+ procedure l_ProgInfo4Click(Sender: TObject);
31+ procedure l_ProgInfo5Click(Sender: TObject);
3032 private
3133 public
3234 class procedure Execute(_Owner: TWinControl);
@@ -38,10 +40,21 @@
3840 {$R *.lfm}
3941
4042 uses
43+ LCLIntf,
4144 u_dzLazUtils;
4245
4346 { Tf_About }
4447
48+procedure Tf_About.l_ProgInfo5Click(Sender: TObject);
49+begin
50+ OpenURL(l_ProgInfo5.Caption);
51+end;
52+
53+procedure Tf_About.l_ProgInfo4Click(Sender: TObject);
54+begin
55+ OpenURL(l_ProgInfo4.Caption);
56+end;
57+
4558 class procedure Tf_About.Execute(_Owner: TWinControl);
4659 var
4760 frm: Tf_About;
Show on old repository browser