TDrawCellEvent = procedure (Sender: PControl; Cnv: PCanvas; ACol, ARow: Longint;
    Rect: TRect; State: TGridDrawState) of object;