Source position: bcsamples.pas line 157
procedure DrawItem(
Control: TWinControl;
Index: Integer;
ARect: TRect;
State: TOwnerDrawState;
Style: TBCSampleDrawing
);