Class TForm1 (unit Testing)

Inherits from

TForm

.$DEFINE NOLISTVIEW

Constructors



Functions

procedure FormCreate(Sender: TObject);


procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure FormResize(Sender: TObject);

Fill combo boxes

procedure FormShow(Sender: TObject);

This is full of "magic numbers" and is just a quick hack.

procedure lvStyleChange(Sender: TObject);


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


procedure tvRootChange(Sender: TObject);


Properties

Events

Variables

Bevel1 : TBevel;


edCustomRootDir : TEdit;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


lbFilePath : TLabel;


lvStyle : TComboBox;


Panel1 : TPanel;


tvRoot : TComboBox;


MyList : TSystemListView;


MyTree : TSystemTreeView;

Private declarations


Constructors


Functions


procedure FormCreate(Sender: TObject);


procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure FormResize(Sender: TObject);

Fill combo boxes


procedure FormShow(Sender: TObject);

This is full of "magic numbers" and is just a quick hack. Please don't copy it. It is very bad form. I just hacked it up because this is only a demo of the components. {$IFNDEF NOLISTVIEW


procedure lvStyleChange(Sender: TObject);


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


procedure tvRootChange(Sender: TObject);


Properties


Events


Variables


Bevel1 : TBevel;


edCustomRootDir : TEdit;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


lbFilePath : TLabel;


lvStyle : TComboBox;


Panel1 : TPanel;


tvRoot : TComboBox;


MyList : TSystemListView;


MyTree : TSystemTreeView;

Private declarations