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