| Class TForm1 (unit Testing) |
TForm
.$DEFINE NOLISTVIEW
| Constructors |
| Functions |
procedure FormCreate(Sender: TObject);
procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure FormResize(Sender: TObject);
procedure FormShow(Sender: TObject);
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;| 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