Class TXExplorer (unit XExplFrm)

Inherits from

TForm

Constructors



Functions

procedure About1Click(Sender: TObject);

Display About Box

procedure BtnCdUpClick(Sender: TObject);

Go back one level in the directory

procedure BtnViewIconClick(Sender: TObject);

////////////////////////////////////////////////////////////////////////////// Toolbar items (INTERFACE) ////////////////////////////////////////////////////////////////////////////// Select View Style

procedure BtnViewListClick(Sender: TObject);

Select View Style

procedure BtnViewReportClick(Sender: TObject);

Select View Style

procedure BtnViewSmallIconClick(Sender: TObject);

Select View Style

procedure DirTree1Change(Sender: TObject; Node: TTreeNode);

////////////////////////////////////////////////////////////////////////////// Directory and Mask controls events (INTERFACE) ////////////////////////////////////////////////////////////////////////////// Selected new drive directory changed on DirTree

procedure DisplayDirClick(Sender: TObject);

Include/Exclude directory listing

procedure DisplayParentClick(Sender: TObject);

Include/Exclude parent directory listing

procedure FileList1FileAdd(Sender: TObject; Item: TListItem; Path: string; FindData: TWin32FindDataA);

////////////////////////////////////////////////////////////////////////////// CALLBACK ROUTINES //////////////////////////////////////////////////////////////////////////////

procedure FileList1FileDrop(Files: TStrings; X, Y: Integer);

clear file list

procedure FilterComboBox1Change(Sender: TObject);

Selected new file mask

procedure FormCreate(Sender: TObject);

////////////////////////////////////////////////////////////////////////////// FORM CREATION / DELETION ////////////////////////////////////////////////////////////////////////////// // this was used for TFileList development purposes, may be suppressed if not needed //

procedure FormDestroy(Sender: TObject);

this was used for TFileList development purposes, may be suppressed if not needed //

procedure ItemSearchWindowClick(Sender: TObject);

display the search dialog and scan for specified paths and specs

procedure ItemSetAttributesClick(Sender: TObject);

Open Options dialog on File Attributes page

procedure ItemSetColumnsClick(Sender: TObject);

Open Options dialog on Display Columns page

procedure PathComboBox1Change(Sender: TObject);

directory change in PathComboBox

procedure Loaded;

Public declarations

////////////////////////////////////////////////////////////////////////////// FORM CREATION / DELETION ////////////////////////////////////////////////////////////////////////////// Sets up FileVie1 columns // note that columns's caption and width will be affected only in runtime //


procedure SetViewChecked;

Set Check Mark for List View Style items and (View menu) Down property for List View Style buttons (View Style toolbar

procedure ShowOptionDialog(Sender: TObject);

////////////////////////////////////////////////////////////////////////////// OPTION DIALOG ROUTINES //////////////////////////////////////////////////////////////////////////////

procedure UpdatePanelLabels;

Private declarations

Update labels of left and right panel //


Properties

Events

Variables

About1 : TMenuItem;


BtnCdUp : TToolbarButton97;


BtnViewIcon : TToolbarButton97;


BtnViewList : TToolbarButton97;


BtnViewReport : TToolbarButton97;


BtnViewSmallIcon : TToolbarButton97;


cbDisplayDir : TCheckBox;


cbDisplayParent : TCheckBox;


DirTree1 : TDirTree;


Dock971 : TDock97;


File1 : TMenuItem;


FileList1 : TFileList;


FilterComboBox1 : TFilterComboBox;


ItemDisplayDirectory : TMenuItem;


ItemDisplayParent : TMenuItem;


ItemSearchWindow : TMenuItem;


ItemSetAttributes : TMenuItem;


ItemSetColumns : TMenuItem;


ItemViewIcon : TMenuItem;


ItemViewList : TMenuItem;


ItemViewReport : TMenuItem;


ItemViewSmallIcon : TMenuItem;


LabelPanelLeft : TLabel;


LabelPanelRight : TLabel;


MainMenu1 : TMainMenu;


N1 : TMenuItem;


N2 : TMenuItem;


N3 : TMenuItem;


Panel1 : TPanel;


PanelLeft : TPanel;


PanelRight : TPanel;


PanelRightLabel : TPanel;


PathComboBox1 : TPathComboBox;


Splitter1 : TSplitter;


StatusBar1 : TStatusBar;


tbViewStyle : TToolbar97;


Toolbar971 : TToolbar97;


ToolbarSep971 : TToolbarSep97;


ToolbarSep972 : TToolbarSep97;


ToolbarSep973 : TToolbarSep97;


ToolbarSep974 : TToolbarSep97;


Tools1 : TMenuItem;


View1 : TMenuItem;



Constructors


Functions


procedure About1Click(Sender: TObject);

Display About Box


procedure BtnCdUpClick(Sender: TObject);

Go back one level in the directory


procedure BtnViewIconClick(Sender: TObject);

////////////////////////////////////////////////////////////////////////////// Toolbar items (INTERFACE) ////////////////////////////////////////////////////////////////////////////// Select View Style


procedure BtnViewListClick(Sender: TObject);

Select View Style


procedure BtnViewReportClick(Sender: TObject);

Select View Style


procedure BtnViewSmallIconClick(Sender: TObject);

Select View Style


procedure DirTree1Change(Sender: TObject; Node: TTreeNode);

////////////////////////////////////////////////////////////////////////////// Directory and Mask controls events (INTERFACE) ////////////////////////////////////////////////////////////////////////////// Selected new drive directory changed on DirTree


procedure DisplayDirClick(Sender: TObject);

Include/Exclude directory listing


procedure DisplayParentClick(Sender: TObject);

Include/Exclude parent directory listing


procedure FileList1FileAdd(Sender: TObject; Item: TListItem; Path: string; FindData: TWin32FindDataA);

////////////////////////////////////////////////////////////////////////////// CALLBACK ROUTINES //////////////////////////////////////////////////////////////////////////////


procedure FileList1FileDrop(Files: TStrings; X, Y: Integer);

clear file list


procedure FilterComboBox1Change(Sender: TObject);

Selected new file mask


procedure FormCreate(Sender: TObject);

////////////////////////////////////////////////////////////////////////////// FORM CREATION / DELETION ////////////////////////////////////////////////////////////////////////////// // this was used for TFileList development purposes, may be suppressed if not needed //


procedure FormDestroy(Sender: TObject);

this was used for TFileList development purposes, may be suppressed if not needed //


procedure ItemSearchWindowClick(Sender: TObject);

display the search dialog and scan for specified paths and specs


procedure ItemSetAttributesClick(Sender: TObject);

Open Options dialog on File Attributes page


procedure ItemSetColumnsClick(Sender: TObject);

Open Options dialog on Display Columns page


procedure PathComboBox1Change(Sender: TObject);

directory change in PathComboBox


procedure Loaded;

Public declarations

////////////////////////////////////////////////////////////////////////////// FORM CREATION / DELETION ////////////////////////////////////////////////////////////////////////////// Sets up FileVie1 columns // note that columns's caption and width will be affected only in runtime //


procedure SetViewChecked;

Set Check Mark for List View Style items and (View menu) Down property for List View Style buttons (View Style toolbar


procedure ShowOptionDialog(Sender: TObject);

////////////////////////////////////////////////////////////////////////////// OPTION DIALOG ROUTINES //////////////////////////////////////////////////////////////////////////////


procedure UpdatePanelLabels;

Private declarations

Update labels of left and right panel //


Properties


Events


Variables


About1 : TMenuItem;


BtnCdUp : TToolbarButton97;


BtnViewIcon : TToolbarButton97;


BtnViewList : TToolbarButton97;


BtnViewReport : TToolbarButton97;


BtnViewSmallIcon : TToolbarButton97;


cbDisplayDir : TCheckBox;


cbDisplayParent : TCheckBox;


DirTree1 : TDirTree;


Dock971 : TDock97;


File1 : TMenuItem;


FileList1 : TFileList;


FilterComboBox1 : TFilterComboBox;


ItemDisplayDirectory : TMenuItem;


ItemDisplayParent : TMenuItem;


ItemSearchWindow : TMenuItem;


ItemSetAttributes : TMenuItem;


ItemSetColumns : TMenuItem;


ItemViewIcon : TMenuItem;


ItemViewList : TMenuItem;


ItemViewReport : TMenuItem;


ItemViewSmallIcon : TMenuItem;


LabelPanelLeft : TLabel;


LabelPanelRight : TLabel;


MainMenu1 : TMainMenu;


N1 : TMenuItem;


N2 : TMenuItem;


N3 : TMenuItem;


Panel1 : TPanel;


PanelLeft : TPanel;


PanelRight : TPanel;


PanelRightLabel : TPanel;


PathComboBox1 : TPathComboBox;


Splitter1 : TSplitter;


StatusBar1 : TStatusBar;


tbViewStyle : TToolbar97;


Toolbar971 : TToolbar97;


ToolbarSep971 : TToolbarSep97;


ToolbarSep972 : TToolbarSep97;


ToolbarSep973 : TToolbarSep97;


ToolbarSep974 : TToolbarSep97;


Tools1 : TMenuItem;


View1 : TMenuItem;