GenerateUrl.h 2.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172
  1. //---------------------------------------------------------------------------
  2. #ifndef GenerateUrlH
  3. #define GenerateUrlH
  4. //---------------------------------------------------------------------------
  5. #include <System.Classes.hpp>
  6. #include <Vcl.Controls.hpp>
  7. #include <Vcl.StdCtrls.hpp>
  8. #include <Vcl.Forms.hpp>
  9. #include "SessionData.h"
  10. #include <Vcl.ComCtrls.hpp>
  11. #include <Vcl.Menus.hpp>
  12. #include <System.Actions.hpp>
  13. #include <Vcl.ActnList.hpp>
  14. #include <Vcl.StdActns.hpp>
  15. //---------------------------------------------------------------------------
  16. class TRichEdit41;
  17. //---------------------------------------------------------------------------
  18. class TGenerateUrlDialog : public TForm
  19. {
  20. __published:
  21. TGroupBox *ResultGroup;
  22. TMemo *ResultMemo;
  23. TButton *CancelBtn;
  24. TButton *HelpButton;
  25. TButton *ClipboardButton;
  26. TPageControl *OptionsPageControl;
  27. TTabSheet *UrlSheet;
  28. TTabSheet *ScriptSheet;
  29. TTabSheet *AssemblySheet;
  30. TCheckBox *UserNameCheck;
  31. TCheckBox *HostKeyCheck;
  32. TCheckBox *WinSCPSpecificCheck;
  33. TCheckBox *SaveExtensionCheck;
  34. TCheckBox *RemoteDirectoryCheck;
  35. TCheckBox *PasswordCheck;
  36. TLabel *Label2;
  37. TComboBox *ScriptFormatCombo;
  38. TLabel *Label1;
  39. TComboBox *AssemblyLanguageCombo;
  40. TLabel *ScriptDescriptionLabel;
  41. TLabel *AssemblyDescriptionLabel;
  42. TPopupMenu *ResultPopupMenu;
  43. TActionList *ResultActionList;
  44. TEditCopy *EditCopyAction;
  45. TEditSelectAll *EditSelectAllAction;
  46. void __fastcall ControlChange(TObject *Sender);
  47. void __fastcall ClipboardButtonClick(TObject *Sender);
  48. void __fastcall HelpButtonClick(TObject *Sender);
  49. void __fastcall WMNCCreate(TWMNCCreate & Message);
  50. void __fastcall ResultMemoContextPopup(TObject *Sender, TPoint &MousePos, bool &Handled);
  51. void __fastcall FormShow(TObject *Sender);
  52. private:
  53. TSessionData * FData;
  54. TStrings * FPaths;
  55. bool FChanging;
  56. TRichEdit41 * FResultMemo41;
  57. protected:
  58. void __fastcall UpdateControls();
  59. UnicodeString __fastcall GenerateUrl(UnicodeString Path);
  60. bool __fastcall IsFileUrl();
  61. virtual void __fastcall CreateParams(TCreateParams & Params);
  62. virtual void __fastcall Dispatch(void * AMessage);
  63. public:
  64. __fastcall TGenerateUrlDialog(TComponent * Owner, TSessionData * Data, TStrings * Paths);
  65. void __fastcall Execute();
  66. };
  67. //---------------------------------------------------------------------------
  68. #endif