Class TMain (unit MainForm) |
Inherits from
TForm
procedure Button2Click(Sender: TObject);
procedure Delete1Click(Sender: TObject);
Delete menu
procedure Details1Click(Sender: TObject);
procedure DriveComboBox1Change(Sender: TObject);
it is a directory
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure FormCreate(Sender: TObject);
Initialization
procedure FormDestroy(Sender: TObject);
procedure FormResize(Sender: TObject);
add code for password
procedure FormShow(Sender: TObject);
procedure Ftp1DirectoryChanged(Sender: TObject);
procedure Ftp1DirectoryCreated(Sender: TObject);
procedure Ftp1DirectoryDeleted(Sender: TObject);
still here so we are finished
procedure Ftp1FileDeleted(Sender: TObject);
all done
procedure Ftp1FileReceived(Sender: TObject);
procedure Ftp1FileRenamed(Sender: TObject);
we are done
procedure Ftp1FileStored(Sender: TObject);
we are all done
procedure Ftp1FtpError(Sender: TObject; error: FtpError;
addinfo: string);
procedure Ftp1FtpInfo(Sender: TObject; info: FtpInfo; addinfo: string);
Ftp Information notification
procedure Ftp1FtpNeedInfo(Sender: TObject; need: TFtpInfoNeeded;
var value: string);
procedure Ftp1FtpQuit(Sender: TObject);
procedure Ftp1FtpReady(Sender: TObject);
procedure Ftp1ListingDone(Sender: TObject);
procedure Ftp1LoggedIn(Sender: TObject);
Completion Notifications from FTP Server
procedure FTPOneLevelUpClick(Sender: TObject);
Other Directory functions
procedure FTPPathChange(Sender: TObject);
procedure FTPPathDrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
Owner draw routines for FtpPath and LocalPath combo boxes
procedure FTPViewCompare(Sender: TObject; Item1, Item2: TListItem;
Data: Integer; var Compare: Integer);
procedure FTPViewDblClick(Sender: TObject);
procedure FTPViewDragDrop(Sender, Source: TObject; X, Y: Integer);
procedure FTPViewDragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
procedure FTPViewEdited(Sender: TObject; Item: TListItem;
var S: string);
procedure FTPViewMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
Drag drop FTP to local view
procedure LargeIcons1Click(Sender: TObject);
View Menu
procedure LineUpIcons1Click(Sender: TObject);
LineUpIcons
procedure List1Click(Sender: TObject);
procedure LocalPathChange(Sender: TObject);
procedure LocalPathDrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
bitmap index into SmallImage Image List
procedure LocalUpOneLevelClick(Sender: TObject);
procedure LocalViewCompare(Sender: TObject; Item1, Item2: TListItem;
Data: Integer; var Compare: Integer);
procedure LocalViewDblClick(Sender: TObject);
it is a directory
procedure LocalViewDragDrop(Sender, Source: TObject; X, Y: Integer);
procedure LocalViewDragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
procedure LocalViewEdited(Sender: TObject; Item: TListItem;
var S: string);
procedure LocalViewMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
Drag Drop routines- from local view to ftp view
procedure NewFolder1Click(Sender: TObject);
procedure Panel2MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
Panel Resizing
procedure Panel2MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Panel3MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Panel3MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure PopupMenu1Popup(Sender: TObject);
procedure Properties1Click(Sender: TObject);
all done
procedure QuitBtnClick(Sender: TObject);
procedure SelectAll1Click(Sender: TObject);
this is a file
procedure Server1Click(Sender: TObject);
###ADD CODE FOR PROPERTY LOCAL
procedure SmallIcons1Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure Cancel;
procedure DisableFTPCOntrols;
procedure EnableFTPCOntrols;
Routines to Enable and Disable FTP Controls when an action is occuring
for programming ease, all controls which are related to FTP have a Tag of 16
procedure LoadServersView;
procedure ProcessLocalListing;
still here so transfer first directory
procedure ProcessRemoteDirectory(source,dest: string);
ProcessRemoteDirectory: changes to directory in parameter 1, create directory in parameter 2,
gets listing
procedure ProcessRemoteListing;
ProcessRemoteListing: adds directories to DirList and sets up files to transfers in SourceList,
DestList and start transfer of first file for transfers from FTP to local
procedure UpdateLocalListing;
Get Listing of current directory into LocalView ListView
ArrangeIcons1 : TMenuItem;
BottomPanel : TPanel;
byName1 : TMenuItem;
Delete1 : TMenuItem;
Delete2 : TMenuItem;
Details1 : TMenuItem;
DriveComboBox1 : TDriveComboBox;
Edit1 : TMenuItem;
Exit1 : TMenuItem;
File1 : TMenuItem;
Folder1 : TMenuItem;
Ftp1 : TStarFtp;
FTPLabel : TLabel;
FTPOneLevelUp : TSpeedButton;
FTPPanel : TPanel;
FTPPath : TComboBox;
FTPPathPanel : TPanel;
FTPView : TListView;
LargeIcons1 : TMenuItem;
LargeImage : TImageList;
LeftPanel : TPanel;
Lineupicons1 : TMenuItem;
List1 : TMenuItem;
LocalLabel : TLabel;
LocalPath : TComboBox;
LocalUpOneLevel : TSpeedButton;
LocalView : TListView;
MainMenu1 : TMainMenu;
N1 : TMenuItem;
N2 : TMenuItem;
N3 : TMenuItem;
N4 : TMenuItem;
N5 : TMenuItem;
New1 : TMenuItem;
Panel1 : TPanel;
Panel2 : TPanel;
Panel3 : TPanel;
Panel4 : TPanel;
Panel6 : TPanel;
PopupMenu1 : TPopupMenu;
Properties1 : TMenuItem;
QuitBtn : TSpeedButton;
RichEdit1 : TRichEdit;
SelectAll1 : TMenuItem;
Server1 : TMenuItem;
SmallIcons1 : TMenuItem;
SmallImage : TImageList;
SpeedButton1 : TSpeedButton;
StatusPanel : TPanel;
View1 : TMenuItem;
BusyFTP : Boolean;
destdir : string;
DestDirList : TStrings;
DestList : TStrings;
HomeFTP : string;
HomeLocal : string;
InServersView : Boolean;
OldClientHeight : integer;
OldClientWidth : integer;
oldHeight : integer;
OldWidth : integer;
ProgName : string;
recdir : string;
RecursingGet : Boolean;
RecursingHomeFTP : string;
RecursingHomeLocal : string;
RecursingPut : Boolean;
Sending : Boolean;
SourceDirList : TStrings;
SourceList : TStrings;
todo : LongInt;
X0 : integer;
Y0 : integer;
procedure Button2Click(Sender: TObject);
procedure Delete1Click(Sender: TObject);
Delete menu
procedure Details1Click(Sender: TObject);
procedure DriveComboBox1Change(Sender: TObject);
it is a directory
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure FormCreate(Sender: TObject);
Initialization
procedure FormDestroy(Sender: TObject);
procedure FormResize(Sender: TObject);
add code for password
procedure FormShow(Sender: TObject);
procedure Ftp1DirectoryChanged(Sender: TObject);
procedure Ftp1DirectoryCreated(Sender: TObject);
procedure Ftp1DirectoryDeleted(Sender: TObject);
still here so we are finished
procedure Ftp1FileDeleted(Sender: TObject);
all done
procedure Ftp1FileReceived(Sender: TObject);
procedure Ftp1FileRenamed(Sender: TObject);
we are done
procedure Ftp1FileStored(Sender: TObject);
we are all done
procedure Ftp1FtpError(Sender: TObject; error: FtpError;
addinfo: string);
procedure Ftp1FtpInfo(Sender: TObject; info: FtpInfo; addinfo: string);
Ftp Information notification
procedure Ftp1FtpNeedInfo(Sender: TObject; need: TFtpInfoNeeded;
var value: string);
procedure Ftp1FtpQuit(Sender: TObject);
procedure Ftp1FtpReady(Sender: TObject);
procedure Ftp1ListingDone(Sender: TObject);
procedure Ftp1LoggedIn(Sender: TObject);
Completion Notifications from FTP Server
procedure FTPOneLevelUpClick(Sender: TObject);
Other Directory functions
procedure FTPPathChange(Sender: TObject);
procedure FTPPathDrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
Owner draw routines for FtpPath and LocalPath combo boxes
procedure FTPViewCompare(Sender: TObject; Item1, Item2: TListItem;
Data: Integer; var Compare: Integer);
procedure FTPViewDblClick(Sender: TObject);
procedure FTPViewDragDrop(Sender, Source: TObject; X, Y: Integer);
procedure FTPViewDragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
procedure FTPViewEdited(Sender: TObject; Item: TListItem;
var S: string);
procedure FTPViewMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
Drag drop FTP to local view
procedure LargeIcons1Click(Sender: TObject);
View Menu
procedure LineUpIcons1Click(Sender: TObject);
LineUpIcons
procedure List1Click(Sender: TObject);
procedure LocalPathChange(Sender: TObject);
procedure LocalPathDrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
bitmap index into SmallImage Image List
procedure LocalUpOneLevelClick(Sender: TObject);
procedure LocalViewCompare(Sender: TObject; Item1, Item2: TListItem;
Data: Integer; var Compare: Integer);
procedure LocalViewDblClick(Sender: TObject);
it is a directory
procedure LocalViewDragDrop(Sender, Source: TObject; X, Y: Integer);
procedure LocalViewDragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
procedure LocalViewEdited(Sender: TObject; Item: TListItem;
var S: string);
procedure LocalViewMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
Drag Drop routines- from local view to ftp view
procedure NewFolder1Click(Sender: TObject);
procedure Panel2MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
Panel Resizing
procedure Panel2MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Panel3MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Panel3MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure PopupMenu1Popup(Sender: TObject);
procedure Properties1Click(Sender: TObject);
all done
procedure QuitBtnClick(Sender: TObject);
procedure SelectAll1Click(Sender: TObject);
this is a file
procedure Server1Click(Sender: TObject);
###ADD CODE FOR PROPERTY LOCAL
procedure SmallIcons1Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure Cancel;
procedure DisableFTPCOntrols;
procedure EnableFTPCOntrols;
Routines to Enable and Disable FTP Controls when an action is occuring
for programming ease, all controls which are related to FTP have a Tag of 16
procedure LoadServersView;
procedure ProcessLocalListing;
still here so transfer first directory
procedure ProcessRemoteDirectory(source,dest: string);
ProcessRemoteDirectory: changes to directory in parameter 1, create directory in parameter 2,
gets listing
procedure ProcessRemoteListing;
ProcessRemoteListing: adds directories to DirList and sets up files to transfers in SourceList,
DestList and start transfer of first file for transfers from FTP to local
procedure UpdateLocalListing;
Get Listing of current directory into LocalView ListView
ArrangeIcons1 : TMenuItem;
BottomPanel : TPanel;
byName1 : TMenuItem;
Delete1 : TMenuItem;
Delete2 : TMenuItem;
Details1 : TMenuItem;
DriveComboBox1 : TDriveComboBox;
Edit1 : TMenuItem;
Exit1 : TMenuItem;
File1 : TMenuItem;
Folder1 : TMenuItem;
Ftp1 : TStarFtp;
FTPLabel : TLabel;
FTPOneLevelUp : TSpeedButton;
FTPPanel : TPanel;
FTPPath : TComboBox;
FTPPathPanel : TPanel;
FTPView : TListView;
LargeIcons1 : TMenuItem;
LargeImage : TImageList;
LeftPanel : TPanel;
Lineupicons1 : TMenuItem;
List1 : TMenuItem;
LocalLabel : TLabel;
LocalPath : TComboBox;
LocalUpOneLevel : TSpeedButton;
LocalView : TListView;
MainMenu1 : TMainMenu;
N1 : TMenuItem;
N2 : TMenuItem;
N3 : TMenuItem;
N4 : TMenuItem;
N5 : TMenuItem;
New1 : TMenuItem;
Panel1 : TPanel;
Panel2 : TPanel;
Panel3 : TPanel;
Panel4 : TPanel;
Panel6 : TPanel;
PopupMenu1 : TPopupMenu;
Properties1 : TMenuItem;
QuitBtn : TSpeedButton;
RichEdit1 : TRichEdit;
SelectAll1 : TMenuItem;
Server1 : TMenuItem;
SmallIcons1 : TMenuItem;
SmallImage : TImageList;
SpeedButton1 : TSpeedButton;
StatusPanel : TPanel;
View1 : TMenuItem;
BusyFTP : Boolean;
destdir : string;
DestDirList : TStrings;
DestList : TStrings;
HomeFTP : string;
HomeLocal : string;
InServersView : Boolean;
OldClientHeight : integer;
OldClientWidth : integer;
oldHeight : integer;
OldWidth : integer;
ProgName : string;
recdir : string;
RecursingGet : Boolean;
RecursingHomeFTP : string;
RecursingHomeLocal : string;
RecursingPut : Boolean;
Sending : Boolean;
SourceDirList : TStrings;
SourceList : TStrings;
todo : LongInt;
X0 : integer;
Y0 : integer;