DBGrid row color

[ ik0 @ 22.06.2010. 11:32 ] @

Kako "izboiti" kolone pritom da se dobije nesta slicno na ovaj efekt

Kao i po obicaju puno koda za Delphi nikud za c++...jer ovaj kod uradi nesta slicno kao na slici

Code:

procedure TGridForm.DBGridDrawColumnCell(
   Sender: TObject;
   const Rect: TRect;
   DataCol: Integer;
   Column: TColumn;
   State: TGridDrawState) ;
var
   grid : TDBGrid;
   row : integer;
begin
   grid := sender as TDBGrid;

   row := grid.DataSource.DataSet.RecNo;

   if Odd(row) then
     grid.Canvas.Brush.Color := clSilver
   else
     grid.Canvas.Brush.Color := clDkGray;

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

end; (* DBGrid OnDrawColumnCell *)

Ako je to to jer moze neko samo da mi prevede kako bi to bilu u bcb...Hvala

[ ik0 @ 23.06.2010. 10:50 ] @

Jer to nemoguce u c++ ili niko neke da mi odgovori :)

[ X Files @ 23.06.2010. 11:09 ] @

Citat:

Jer to nemoguce u c++ ili niko neke da mi odgovori :)

Nije nemoguce, naravno. Potrudi se malo i sam, recimo:
http://codenewsfast.com/
KEYWORDS: DBGrid row different color
... i na kraju ces lako modifikovati kod, koji je ionako cist VCL, tako da je konverzija trivijalna.

Code:

void __fastcall TForm1::DBGrid1DrawColumnCell(TObject *Sender,
      const TRect &Rect, int DataCol, TColumn *Column,
      TGridDrawState State)
{
        if ( DBGrid1->DataSource->DataSet->RecNo % 2 )
                DBGrid1->Canvas->Brush->Color = clSilver;
        else
                DBGrid1->Canvas->Brush->Color = clDkGray;

        DBGrid1->DefaultDrawColumnCell( Rect, DataCol, Column, State );
}

... mada ima u ovom kodu jos nekih elemenata koje bi trebalo doterati, ali to je druga prica.

[ ik0 @ 23.06.2010. 12:08 ] @

Da znam kljucne reci trazi o bi....to je sve sto sam mogo da najdem po netu :( Hvala ti u svakom slucaju