Class TMain (unit MainForm)

Inherits from

TForm

Constructors



Functions

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

Properties

Events

Variables

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;



Constructors


Functions


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


Properties


Events


Variables


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;