Draws item frame and background.

procedure DrawItemRect(Canvas: TCanvas; const R: TRect);