Unit VMMain

The caching is very primitive, and probably won't even help all that much in a real world situation. Enhancing the caching mechanism is left as an exercise for the user. {$DEFINE DEBUG

Classes

TForm1 -

Functions

Types

PVirtualItem
TVirtualItem

Constants

Variables

Form1


Functions


Types


PVirtualItem = ^TVirtualItem
Don't use huge pointers in here. It'll leak when the record is destroyed } { To avoid the leak, you'd have to reset all the strings back to '' before } { disposing of it.
TVirtualItem = record
ImageIndex : integer;
Title : string[255];
State : UINT;
SubText1 : string[255];
SubText2 : string[255];
end;

Constants


Variables

Form1 : TForm1