Class TForm1 (unit ShellTree_Unit)

Inherits from

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);

Label2.

procedure ShellTree1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);

Label2.

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;