About.h 2.4 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768
  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. TPanel *Panel;
  36. void __fastcall LicenseButtonClick(TObject *Sender);
  37. void __fastcall HelpButtonClick(TObject *Sender);
  38. void __fastcall RegistrationProductIdLabelClick(TObject *Sender);
  39. void __fastcall OKButtonMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
  40. int X, int Y);
  41. void __fastcall IconPaintBoxPaint(TObject *Sender);
  42. private:
  43. TConfiguration * FConfiguration;
  44. TNotifyEvent FOnRegistrationLink;
  45. HICON FIconHandle;
  46. TWebBrowserEx * FThirdPartyWebBrowser;
  47. void __fastcall LoadData();
  48. void __fastcall LoadThirdParty();
  49. void __fastcall AddPara(UnicodeString & Text, const UnicodeString & S);
  50. UnicodeString __fastcall CreateLink(const UnicodeString & URL, const UnicodeString & Title = L"");
  51. void __fastcall ExpatLicenceHandler(TObject * Sender);
  52. void __fastcall AccessViolationTest();
  53. void __fastcall LookupAddress();
  54. void __fastcall DoLoadThirdParty();
  55. void __fastcall ShiftControls(int From, int Diff);
  56. protected:
  57. virtual void __fastcall Dispatch(void * Message);
  58. public:
  59. virtual __fastcall TAboutDialog(TComponent * AOwner,
  60. TConfiguration * Configuration, bool AllowLicense, TRegistration * Registration,
  61. bool ALoadThirdParty);
  62. __fastcall ~TAboutDialog();
  63. };
  64. //----------------------------------------------------------------------------
  65. #endif