نمایش سطرها در DBGrid به صورت یکی در میان رنگی

با سلام
چگونه می توان سطرهای یک DBGrid را به طور رنگی مثلا سفید و خاکستری به طور یک در میان نشان داد ؟


با تشکر
_______________

procedure TLRecFrm.DBGrid1DrawColumnCell(Sender: TObject;

  const Rect: TRect; DataCol: Integer; Column: TColumn;

  State: TGridDrawState);

var

  iValue:Byte;

begin

    iValue :=DBGrid1.DataSource.DataSet.RecNo mod 2;

    If (gdFocused in State) or (gdSelected in State) then

     dbgrid1.canvas.brush.color :=ClBlue

    else

    case iValue of

      1: DBGrid1.Canvas.Brush.Color := $00D1D9DC;

      0: DBGrid1.Canvas.Brush.Color := clWhite;

    end;

    DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);



end;

کامپوننت فکس نداری .
یکی هم به داد ما برسه بد نیست

با تشکر از پاسخ شما
در مورد کامپوننت فکس هم باید بگم شرمنده ، اما در مجموعه Golden Box 4 فکر می کنم یک چیزایی در این زمینه باشه.

استفاده از ‍componentTurbo Power با مراجعه به این سایت

دوست عزیز alish :
من هم این مشکل رو دارم ولی کد شما جواب نداد . لطفا در صورت امکان توضیح بیشتری بدهید . متشکرم