Added web page links by clicking copyright labels.

src/sbbs3/ctrl/AboutBoxFormUnit.cpp

@@ -113,7 +113,15 @@ void __fastcall TAboutBoxForm::FormShow(TObject *Sender)
 #else
     Memo->Lines->Add("Synchronet Local Spy ANSI Terminal Emulation"+CopyRight);
 #endif
+}
+//---------------------------------------------------------------------------
+
 
+
+void __fastcall TAboutBoxForm::WebPageLabelClick(TObject *Sender)
+{
+    ShellExecute(Handle, "open", ((TLabel*)Sender)->Hint.c_str(),
+        NULL,NULL,SW_SHOWDEFAULT);
 }
 //---------------------------------------------------------------------------
 

src/sbbs3/ctrl/AboutBoxFormUnit.h

@@ -42,6 +42,7 @@
 #include <Forms.hpp>
 #include <ExtCtrls.hpp>
 #include <Graphics.hpp>
+#include "MainFormUnit.h"
 //---------------------------------------------------------------------------
 class TAboutBoxForm : public TForm
 {
@@ -51,7 +52,10 @@ __published:	// IDE-managed Components
 	TImage *Logo;
 	TStaticText *WebLabel;
     TMemo *Memo;
+    TStaticText *StaticText1;
+    TStaticText *StaticText2;
 	void __fastcall FormShow(TObject *Sender);
+    void __fastcall WebPageLabelClick(TObject *Sender);
 private:	// User declarations
 public:		// User declarations
 	__fastcall TAboutBoxForm(TComponent* Owner);