About.h 2.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566
  1. //----------------------------------------------------------------------------
  2. #ifndef AboutH
  3. #define AboutH
  4. //----------------------------------------------------------------------------
  5. #include <System.Classes.hpp>
  6. #include <Vcl.Controls.hpp>
  7. #include <Vcl.ExtCtrls.hpp>
  8. #include <Vcl.Forms.hpp>
  9. #include <Vcl.Graphics.hpp>
  10. #include <Vcl.StdCtrls.hpp>
  11. //----------------------------------------------------------------------------
  12. #include <Configuration.h>
  13. #include <GUITools.h>
  14. //----------------------------------------------------------------------------
  15. class TAboutDialog : public TForm
  16. {
  17. __published:
  18. TLabel *ApplicationLabel;
  19. TLabel *VersionLabel;
  20. TLabel *WinSCPCopyrightLabel;
  21. TStaticText *HomepageLabel;
  22. TLabel *ProductSpecificMessageLabel;
  23. TStaticText *ForumUrlLabel;
  24. TButton *OKButton;
  25. TButton *LicenseButton;
  26. TButton *HelpButton;
  27. TLabel *Label3;
  28. TLabel *RegistrationLabel;
  29. TPanel *RegistrationBox;
  30. TLabel *RegistrationLicensesLabel;
  31. TStaticText *RegistrationProductIdLabel;
  32. TLabel *RegistrationSubjectLabel;
  33. TPanel *ThirdPartyPanel;
  34. TPaintBox *IconPaintBox;
  35. void __fastcall LicenseButtonClick(TObject *Sender);
  36. void __fastcall HelpButtonClick(TObject *Sender);
  37. void __fastcall RegistrationProductIdLabelClick(TObject *Sender);
  38. void __fastcall OKButtonMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
  39. int X, int Y);
  40. void __fastcall IconPaintBoxPaint(TObject *Sender);
  41. private:
  42. TConfiguration * FConfiguration;
  43. TNotifyEvent FOnRegistrationLink;
  44. HICON FIconHandle;
  45. TWebBrowserEx * FThirdPartyWebBrowser;
  46. void __fastcall LoadData();
  47. void __fastcall LoadThirdParty();
  48. void __fastcall AddPara(UnicodeString & Text, const UnicodeString & S);
  49. UnicodeString __fastcall CreateLink(const UnicodeString & URL, const UnicodeString & Title = L"");
  50. void __fastcall ExpatLicenceHandler(TObject * Sender);
  51. void __fastcall AccessViolationTest();
  52. void __fastcall LookupAddress();
  53. void __fastcall DoLoadThirdParty();
  54. protected:
  55. virtual void __fastcall Dispatch(void * Message);
  56. public:
  57. virtual __fastcall TAboutDialog(TComponent * AOwner,
  58. TConfiguration * Configuration, bool AllowLicense, TRegistration * Registration,
  59. bool ALoadThirdParty);
  60. __fastcall ~TAboutDialog();
  61. };
  62. //----------------------------------------------------------------------------
  63. #endif