| Class TForm1 (unit VMMain) |
TForm
| Constructors |
| Functions |
procedure AnExtListViewVMCacheHint(Sender: TObject;
var HintInfo: TNMCacheHint);
procedure AnExtListViewVMGetItemInfo(Sender: TObject; Item,
SubItem: Integer; Mask: TLVVMMaskItems; var Image, Param, State,
Indent: Integer; var Text: String);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
function CreateVirtualItem(Item: integer): PVirtualItem;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
function GetVirtualItem(Item: integer): TVirtualItem;
procedure PrepCache(FromIndex, ToIndex: integer);| Properties |
| Events |
| Variables |
AnExtListView : TExtListView;
Button1 : TButton;
Button2 : TButton;
ComboBox1 : TComboBox;
Label1 : TLabel;
Panel1 : TPanel;
CacheStart : integer;
CacheStop : integer;
ItemCache : TList;
NumItems : integer;| Constructors |
| Functions |
procedure AnExtListViewVMCacheHint(Sender: TObject;
var HintInfo: TNMCacheHint);
procedure AnExtListViewVMGetItemInfo(Sender: TObject; Item,
SubItem: Integer; Mask: TLVVMMaskItems; var Image, Param, State,
Indent: Integer; var Text: String);
procedure Button1Click(Sender: TObject);Just to show indenting, no real reason for it
procedure Button2Click(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
function CreateVirtualItem(Item: integer): PVirtualItem;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
function GetVirtualItem(Item: integer): TVirtualItem;load the new cache items
procedure PrepCache(FromIndex, ToIndex: integer);| Properties |
| Events |
| Variables |
AnExtListView : TExtListView;
Button1 : TButton;
Button2 : TButton;
ComboBox1 : TComboBox;
Label1 : TLabel;
Panel1 : TPanel;
CacheStart : integer;
CacheStop : integer;
ItemCache : TList;
NumItems : integer;