Class TForm1 (unit VMMain)

Inherits from

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

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;



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;