| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172 |
- //---------------------------------------------------------------------------
- #ifndef GenerateUrlH
- #define GenerateUrlH
- //---------------------------------------------------------------------------
- #include <System.Classes.hpp>
- #include <Vcl.Controls.hpp>
- #include <Vcl.StdCtrls.hpp>
- #include <Vcl.Forms.hpp>
- #include "SessionData.h"
- #include <Vcl.ComCtrls.hpp>
- #include <Vcl.Menus.hpp>
- #include <System.Actions.hpp>
- #include <Vcl.ActnList.hpp>
- #include <Vcl.StdActns.hpp>
- //---------------------------------------------------------------------------
- class TRichEdit41;
- //---------------------------------------------------------------------------
- class TGenerateUrlDialog : public TForm
- {
- __published:
- TGroupBox *ResultGroup;
- TMemo *ResultMemo;
- TButton *CancelBtn;
- TButton *HelpButton;
- TButton *ClipboardButton;
- TPageControl *OptionsPageControl;
- TTabSheet *UrlSheet;
- TTabSheet *ScriptSheet;
- TTabSheet *AssemblySheet;
- TCheckBox *UserNameCheck;
- TCheckBox *HostKeyCheck;
- TCheckBox *WinSCPSpecificCheck;
- TCheckBox *SaveExtensionCheck;
- TCheckBox *RemoteDirectoryCheck;
- TCheckBox *PasswordCheck;
- TLabel *Label2;
- TComboBox *ScriptFormatCombo;
- TLabel *Label1;
- TComboBox *AssemblyLanguageCombo;
- TLabel *ScriptDescriptionLabel;
- TLabel *AssemblyDescriptionLabel;
- TPopupMenu *ResultPopupMenu;
- TActionList *ResultActionList;
- TEditCopy *EditCopyAction;
- TEditSelectAll *EditSelectAllAction;
- void __fastcall ControlChange(TObject *Sender);
- void __fastcall ClipboardButtonClick(TObject *Sender);
- void __fastcall HelpButtonClick(TObject *Sender);
- void __fastcall WMNCCreate(TWMNCCreate & Message);
- void __fastcall ResultMemoContextPopup(TObject *Sender, TPoint &MousePos, bool &Handled);
- void __fastcall FormShow(TObject *Sender);
- private:
- TSessionData * FData;
- TStrings * FPaths;
- bool FChanging;
- TRichEdit41 * FResultMemo41;
- protected:
- void __fastcall UpdateControls();
- UnicodeString __fastcall GenerateUrl(UnicodeString Path);
- bool __fastcall IsFileUrl();
- virtual void __fastcall CreateParams(TCreateParams & Params);
- virtual void __fastcall Dispatch(void * AMessage);
- public:
- __fastcall TGenerateUrlDialog(TComponent * Owner, TSessionData * Data, TStrings * Paths);
- void __fastcall Execute();
- };
- //---------------------------------------------------------------------------
- #endif
|