Class Tmainform (unit ftp_main)

Inherits from

TForm

@/// Tmainform = class(TForm)

Constructors



Functions

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.

Properties

Events

Variables

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;



Constructors


Functions


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);


Properties


Events


Variables


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;