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 |
Constants |
Variables |
Functions |
Types |
PVirtualItem = ^TVirtualItemDon'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 |