| Class TForm1 (unit ShellTree_Unit) |
TForm
| Constructors |
| Functions |
procedure Button1Click(Sender: TObject);
procedure CB_TF_FOLDERSClick(Sender: TObject);
procedure CB_TF_HIDDENClick(Sender: TObject);
procedure CB_TF_NONFOLDERSClick(Sender: TObject);
procedure DirectoryKeyPress(Sender: TObject; var Key: Char);
procedure FormShow(Sender: TObject);
procedure PidlRootClick(Sender: TObject);
procedure QuitClick(Sender: TObject);
procedure RootDirKeyPress(Sender: TObject; var Key: Char);
procedure RootUsePidlClick(Sender: TObject);
procedure SetRootDirClick(Sender: TObject);
procedure ShellTree1Change(Sender: TObject; Node: TTreeNode);
procedure ShellTree1Collapsing(Sender: TObject; Node: TTreeNode;
var AllowCollapse: Boolean);
procedure ShellTree1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
procedure ShellTree1Expanded(Sender: TObject; Node: TTreeNode);
procedure ShowIconsClick(Sender: TObject);
procedure UpdateClick(Sender: TObject);
procedure UpdAutoClick(Sender: TObject);
procedure UpdAutoRecClick(Sender: TObject);| Properties |
| Events |
| Variables |
Button1 : TButton;
CB_TF_FOLDERS : TCheckBox;
CB_TF_HIDDEN : TCheckBox;
CB_TF_NONFOLDERS : TCheckBox;
Directory : TEdit;
DirectoryLabel : TPanel;
GroupBox1 : TGroupBox;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Options : TGroupBox;
PidlRoot : TRadioGroup;
Quit : TButton;
RootDir : TEdit;
RootUsePidl : TCheckBox;
SetRootDir : TButton;
ShellTree1 : TShellTree;
ShowIcons : TCheckBox;
Update : TButton;
UpdateMode : TGroupBox;
UpdAuto : TCheckBox;
UpdAutoRec : TCheckBox;| Constructors |
| Functions |
procedure Button1Click(Sender: TObject);
procedure CB_TF_FOLDERSClick(Sender: TObject);
procedure CB_TF_HIDDENClick(Sender: TObject);
procedure CB_TF_NONFOLDERSClick(Sender: TObject);
procedure DirectoryKeyPress(Sender: TObject; var Key: Char);
procedure FormShow(Sender: TObject);
procedure PidlRootClick(Sender: TObject);
procedure QuitClick(Sender: TObject);
procedure RootDirKeyPress(Sender: TObject; var Key: Char);
procedure RootUsePidlClick(Sender: TObject);
procedure SetRootDirClick(Sender: TObject);
procedure ShellTree1Change(Sender: TObject; Node: TTreeNode);
procedure ShellTree1Collapsing(Sender: TObject; Node: TTreeNode;
var AllowCollapse: Boolean);Label2.Caption:='Number of Elements : '+InttoStr(Shelltree1.Items.Count);
procedure ShellTree1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);Label2.Caption:='Number of Elements : '+InttoStr(Shelltree1.Items.Count);
procedure ShellTree1Expanded(Sender: TObject; Node: TTreeNode);
procedure ShowIconsClick(Sender: TObject);
procedure UpdateClick(Sender: TObject);
procedure UpdAutoClick(Sender: TObject);
procedure UpdAutoRecClick(Sender: TObject);| Properties |
| Events |
| Variables |
Button1 : TButton;
CB_TF_FOLDERS : TCheckBox;
CB_TF_HIDDEN : TCheckBox;
CB_TF_NONFOLDERS : TCheckBox;
Directory : TEdit;
DirectoryLabel : TPanel;
GroupBox1 : TGroupBox;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Options : TGroupBox;
PidlRoot : TRadioGroup;
Quit : TButton;
RootDir : TEdit;
RootUsePidl : TCheckBox;
SetRootDir : TButton;
ShellTree1 : TShellTree;
ShowIcons : TCheckBox;
Update : TButton;
UpdateMode : TGroupBox;
UpdAuto : TCheckBox;
UpdAutoRec : TCheckBox;