Class Tmainform (unit ftp_main) |
Inherits from
TForm
@/// Tmainform = class(TForm)
procedure btn_connectClick(Sender: TObject);
@\\\0000000412*) (*@/// procedure Tmainform.
procedure btn_detailsClick(Sender: TObject);
@\\\*) (*@/// procedure Tmainform.
procedure btn_listClick(Sender: TObject);
@\\\*) (*@/// procedure Tmainform.
procedure btn_upClick(Sender: TObject);
@\\\0000001001*) (*@/// procedure Tmainform.
procedure cbx_pathDblClick(Sender: TObject);
@\\\0000000801*) (*@/// procedure Tmainform.
procedure cbx_pathDrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
@\\\*) (*@/// procedure Tmainform.
procedure chk_asyncClick(Sender: TObject);
@\\\0000000601*) (*@/// procedure Tmainform.
procedure dirviewColumnClick(Sender: TObject; Column: TListColumn);
@\\\0000000403*) (*@/// procedure Tmainform.
procedure dirviewDblClick(Sender: TObject);
@\\\*) (*@/// procedure Tmainform.
procedure FormClose(Sender: TObject; var Action: TCloseAction);
@\\\*) (*@/// procedure Tmainform.
procedure FormCreate(Sender: TObject);
@\\\0000000F01*) (*@/// procedure Tmainform.
procedure ftp_complete(Sender:TObject; mode: t_ftp_mode);
@\\\*) (*@/// procedure Tmainform.
procedure ftp_data(Sender:TObject; mode: t_ftp_mode; data:integer);
@\\\0000000401*) (*@/// procedure Tmainform.
procedure ftp_trace(const s: string; level: TTraceLevel);
@\\\003C000801000801000923000935000801*) (*@/// procedure Tmainform.
procedure mnu_sortClick(Sender: TObject);
@\\\*) (*@/// procedure Tmainform.
procedure mnu_viewClick(Sender: TObject);
@\\\0000000401*) (*@/// procedure Tmainform.
procedure getdir(const s:string);
@\\\0000000501*) (*@/// procedure Tmainform.
btn_connect : TButton;
btn_details : TSpeedButton;
btn_list : TSpeedButton;
btn_newdir : TSpeedButton;
btn_up : TSpeedButton;
cbx_path : TComboBox;
chk_async : TCheckBox;
dirview : TListView;
dlg_save : TSaveDialog;
@\\\
edt_hostname : TEdit;
ftp : T_FTP;
grp_main : TPanel;
icons_large : TImageList;
icons_small : TImageList;
lbl_hostname : TLabel;
lbl_path : TLabel;
mnu_line1 : TMenuItem;
mnu_sort : TMenuItem;
mnu_sort_date : TMenuItem;
mnu_sort_name : TMenuItem;
mnu_sort_size : TMenuItem;
mnu_sort_type : TMenuItem;
mnu_style : TPopupMenu;
@/// mnu_style: TPopupMenu;
mnu_view : TMenuItem;
mnu_view_big : TMenuItem;
mnu_view_details : TMenuItem;
mnu_view_list : TMenuItem;
mnu_view_small : TMenuItem;
Status : TStatusBar;
ext_known : TStringList;
icon_dir : TIcon;
icon_host : TIcon;
size : integer;
procedure btn_connectClick(Sender: TObject);
@\\\0000000412*) (*@/// procedure Tmainform.btn_connectClick(Sender: TObject);
procedure btn_detailsClick(Sender: TObject);
@\\\*) (*@/// procedure Tmainform.btn_detailsClick(Sender: TObject);
procedure btn_listClick(Sender: TObject);
@\\\*) (*@/// procedure Tmainform.btn_listClick(Sender: TObject);
procedure btn_upClick(Sender: TObject);
@\\\0000001001*) (*@/// procedure Tmainform.btn_upClick(Sender: TObject);
procedure cbx_pathDblClick(Sender: TObject);
@\\\0000000801*) (*@/// procedure Tmainform.cbx_pathDblClick(Sender: TObject);
procedure cbx_pathDrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
@\\\*) (*@/// procedure Tmainform.cbx_pathDrawItem(Control: TWinControl; Index: Integer;
procedure chk_asyncClick(Sender: TObject);
@\\\0000000601*) (*@/// procedure Tmainform.chk_asyncClick(Sender: TObject);
procedure dirviewColumnClick(Sender: TObject; Column: TListColumn);
@\\\0000000403*) (*@/// procedure Tmainform.dirviewColumnClick(Sender:TObject; Column:TListColumn);
procedure dirviewDblClick(Sender: TObject);
@\\\*) (*@/// procedure Tmainform.dirviewDblClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
@\\\*) (*@/// procedure Tmainform.FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
@\\\0000000F01*) (*@/// procedure Tmainform.FormCreate(Sender: TObject);
procedure ftp_complete(Sender:TObject; mode: t_ftp_mode);
@\\\*) (*@/// procedure Tmainform.ftp_complete(Sender:TObject; mode: t_ftp_mode);
procedure ftp_data(Sender:TObject; mode: t_ftp_mode; data:integer);
@\\\0000000401*) (*@/// procedure Tmainform.ftp_data(Sender:TObject; mode: t_ftp_mode; data:integer);
procedure ftp_trace(const s: string; level: TTraceLevel);
@\\\003C000801000801000923000935000801*) (*@/// procedure Tmainform.ftp_trace(const s: string; level: TTraceLevel);
procedure mnu_sortClick(Sender: TObject);
@\\\*) (*@/// procedure Tmainform.mnu_sortClick(Sender: TObject);
procedure mnu_viewClick(Sender: TObject);
@\\\0000000401*) (*@/// procedure Tmainform.mnu_viewClick(Sender: TObject);
procedure getdir(const s:string);
@\\\0000000501*) (*@/// procedure Tmainform.getdir(const s:string);
btn_connect : TButton;
btn_details : TSpeedButton;
btn_list : TSpeedButton;
btn_newdir : TSpeedButton;
btn_up : TSpeedButton;
cbx_path : TComboBox;
chk_async : TCheckBox;
dirview : TListView;
dlg_save : TSaveDialog;
@\\\
edt_hostname : TEdit;
ftp : T_FTP;
grp_main : TPanel;
icons_large : TImageList;
icons_small : TImageList;
lbl_hostname : TLabel;
lbl_path : TLabel;
mnu_line1 : TMenuItem;
mnu_sort : TMenuItem;
mnu_sort_date : TMenuItem;
mnu_sort_name : TMenuItem;
mnu_sort_size : TMenuItem;
mnu_sort_type : TMenuItem;
mnu_style : TPopupMenu;
@/// mnu_style: TPopupMenu;
mnu_view : TMenuItem;
mnu_view_big : TMenuItem;
mnu_view_details : TMenuItem;
mnu_view_list : TMenuItem;
mnu_view_small : TMenuItem;
Status : TStatusBar;
ext_known : TStringList;
icon_dir : TIcon;
icon_host : TIcon;
size : integer;