About.h 2.1 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758
  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. TLabel *TranslatorLabel;
  27. TButton *HelpButton;
  28. TImage *Image;
  29. TStaticText *TranslatorUrlLabel;
  30. TLabel *Label3;
  31. TLabel *RegistrationLabel;
  32. TPanel *RegistrationBox;
  33. TLabel *RegistrationLicensesLabel;
  34. TStaticText *RegistrationProductIdLabel;
  35. TLabel *RegistrationSubjectLabel;
  36. TPanel *ThirdPartyPanel;
  37. void __fastcall LicenseButtonClick(TObject *Sender);
  38. void __fastcall HelpButtonClick(TObject *Sender);
  39. void __fastcall RegistrationProductIdLabelClick(TObject *Sender);
  40. void __fastcall OKButtonMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
  41. int X, int Y);
  42. private:
  43. TConfiguration * FConfiguration;
  44. TNotifyEvent FOnRegistrationLink;
  45. void __fastcall LoadData();
  46. void __fastcall LoadThirdParty();
  47. void __fastcall AddPara(UnicodeString & Text, const UnicodeString & S);
  48. UnicodeString __fastcall CreateLink(const UnicodeString & URL, const UnicodeString & Title = L"");
  49. void __fastcall ExpatLicenceHandler(TObject * Sender);
  50. public:
  51. virtual __fastcall TAboutDialog(TComponent * AOwner,
  52. TConfiguration * Configuration, bool AllowLicense, TRegistration * Registration,
  53. bool ALoadThirdParty);
  54. };
  55. //----------------------------------------------------------------------------
  56. #endif