Commit: 46 - denkzettelcompanion (svn) - Denkzettel Companion

denkzettelcompanion: Commit

made links on about dialog clickable

--- trunk/src/w_about.pas (revision 45)

+++ trunk/src/w_about.pas (revision 46)

		@@ -27,6 +27,8 @@
27	27	l_ProgName: TLabel;
28	28	l_Copyright: TLabel;
29	29	l_ProgInfo4: TLabel;
	30	+ procedure l_ProgInfo4Click(Sender: TObject);
	31	+ procedure l_ProgInfo5Click(Sender: TObject);
30	32	private
31	33	public
32	34	class procedure Execute(_Owner: TWinControl);

		@@ -38,10 +40,21 @@
38	40	{$R *.lfm}
39	41
40	42	uses
	43	+ LCLIntf,
41	44	u_dzLazUtils;
42	45
43	46	{ Tf_About }
44	47
	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	+
45	58	class procedure Tf_About.Execute(_Owner: TWinControl);
46	59	var
47	60	frm: Tf_About;