Class TXExplorer (unit XExplFrm) |
Inherits from
TForm
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 //
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;
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 //
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;