Class TfrmMain (unit main)

Inherits from

TForm

Mini FTP 0.0.3, written by Chen Yu (monster

Constructors



Functions

procedure Ascending1Click(Sender: TObject);


procedure By1Click(Sender: TObject);


procedure By2Click(Sender: TObject);


procedure By3Click(Sender: TObject);


procedure Close1Click(Sender: TObject);


procedure Deascending1Click(Sender: TObject);


procedure Details1Click(Sender: TObject);

Reget

procedure FilePanelDblClick(Sender: TObject);

adding files

procedure FilePanelEdited(Sender: TObject; Item: TListItem; var S: String);


procedure FilePanelKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);


procedure FormCreate(Sender: TObject);


procedure FormResize(Sender: TObject);


procedure FormShow(Sender: TObject);


procedure FTPRefresh(Sender: TObject);


procedure FTPRefreshX(Sender: TObject);


procedure LargeIcons1Click(Sender: TObject);


procedure List1Click(Sender: TObject);


procedure MFtp1DirectoryCreated(Sender: TObject);


procedure MFtp1FileReceived(Sender: TObject);

nothing yet

procedure MFtp1FtpError(Sender: TObject; error: FtpError; addinfo: String);


procedure MFtp1FtpInfo(Sender: TObject; info: FtpInfo; addinfo: String);


procedure MFtp1FtpNeedInfo(Sender: TObject; need: TMFtpInfoNeeded; var value: String);


procedure MFtp1FtpQuit(Sender: TObject);

nothing yet

procedure MFtp1FtpReady(Sender: TObject);


procedure MFtp1ListingDone(Sender: TObject);


procedure MFtp1LoggedIn(Sender: TObject);


procedure Move1Click(Sender: TObject);


procedure PopupMenu1Popup(Sender: TObject);


procedure ProcessException(Sender: TObject; E: Exception);


procedure SmallIcons1Click(Sender: TObject);


procedure Upload1Click(Sender: TObject);


procedure AddRichText(T: String; C: TColor; NewLine: Boolean);


Properties

Events

Variables

Ascending1 : TMenuItem;


By1 : TMenuItem;


By2 : TMenuItem;


By3 : TMenuItem;


Close1 : TMenuItem;


Deascending1 : TMenuItem;


Details1 : TMenuItem;


Download1 : TMenuItem;


FilePanel : TListView;


ImageList1 : TImageList;


ImageList2 : TImageList;


LargeIcons1 : TMenuItem;


List1 : TMenuItem;


MFtp1 : TMFtp;


Move1 : TMenuItem;


N1 : TMenuItem;


N2 : TMenuItem;


N3 : TMenuItem;


N4 : TMenuItem;


N5 : TMenuItem;


N6 : TMenuItem;


OpenDialog1 : TOpenDialog;


PopupMenu1 : TPopupMenu;


Refresh1 : TMenuItem;


RichEdit1 : TRichEdit;


SaveDialog1 : TSaveDialog;


SmallIcons1 : TMenuItem;


Sorting1 : TMenuItem;


StatusPanel : TStatusBar;


Upload1 : TMenuItem;



Constructors


Functions


procedure Ascending1Click(Sender: TObject);


procedure By1Click(Sender: TObject);


procedure By2Click(Sender: TObject);


procedure By3Click(Sender: TObject);


procedure Close1Click(Sender: TObject);


procedure Deascending1Click(Sender: TObject);


procedure Details1Click(Sender: TObject);

Reget


procedure FilePanelDblClick(Sender: TObject);

adding files


procedure FilePanelEdited(Sender: TObject; Item: TListItem; var S: String);


procedure FilePanelKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);


procedure FormCreate(Sender: TObject);


procedure FormResize(Sender: TObject);


procedure FormShow(Sender: TObject);


procedure FTPRefresh(Sender: TObject);


procedure FTPRefreshX(Sender: TObject);


procedure LargeIcons1Click(Sender: TObject);


procedure List1Click(Sender: TObject);


procedure MFtp1DirectoryCreated(Sender: TObject);


procedure MFtp1FileReceived(Sender: TObject);

nothing yet


procedure MFtp1FtpError(Sender: TObject; error: FtpError; addinfo: String);


procedure MFtp1FtpInfo(Sender: TObject; info: FtpInfo; addinfo: String);


procedure MFtp1FtpNeedInfo(Sender: TObject; need: TMFtpInfoNeeded; var value: String);


procedure MFtp1FtpQuit(Sender: TObject);

nothing yet


procedure MFtp1FtpReady(Sender: TObject);


procedure MFtp1ListingDone(Sender: TObject);


procedure MFtp1LoggedIn(Sender: TObject);


procedure Move1Click(Sender: TObject);


procedure PopupMenu1Popup(Sender: TObject);


procedure ProcessException(Sender: TObject; E: Exception);


procedure SmallIcons1Click(Sender: TObject);


procedure Upload1Click(Sender: TObject);


procedure AddRichText(T: String; C: TColor; NewLine: Boolean);


Properties


Events


Variables


Ascending1 : TMenuItem;


By1 : TMenuItem;


By2 : TMenuItem;


By3 : TMenuItem;


Close1 : TMenuItem;


Deascending1 : TMenuItem;


Details1 : TMenuItem;


Download1 : TMenuItem;


FilePanel : TListView;


ImageList1 : TImageList;


ImageList2 : TImageList;


LargeIcons1 : TMenuItem;


List1 : TMenuItem;


MFtp1 : TMFtp;


Move1 : TMenuItem;


N1 : TMenuItem;


N2 : TMenuItem;


N3 : TMenuItem;


N4 : TMenuItem;


N5 : TMenuItem;


N6 : TMenuItem;


OpenDialog1 : TOpenDialog;


PopupMenu1 : TPopupMenu;


Refresh1 : TMenuItem;


RichEdit1 : TRichEdit;


SaveDialog1 : TSaveDialog;


SmallIcons1 : TMenuItem;


Sorting1 : TMenuItem;


StatusPanel : TStatusBar;


Upload1 : TMenuItem;