Source position: ovcvlb.pas line 97
type TGetItemColorEvent = procedure(
Sender: TObject;
Index: LongInt;
var FG: TColor;
var BG: TColor
) of object;