Aku dapet list program ttg 2 warna pada dbgrid sbb .... procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); var test1: Real; RowNo: Integer; begin with (Sender as TDBGrid) do begin if (gdSelected in State) then begin Canvas.Brush.Color := clblue; end else begin rowno := Query1.RecNo; test1 := (RowNo / 2) - trunc(RowNo / 2); if test1 = 0 then begin farbe := clWhite end else begin farbe := clYellow; end; Canvas.Brush.Color := farbe; Canvas.Font.Color := clBlack; end; Canvas.FillRect(Rect); Canvas.TextOut(Rect.Left + 2, Rect.Top + 1, Column.Field.AsString); end end; Tapi setelah dijalankan kok gak bisa jalan ... pesan erornya pada kata "farbe" tidak dikenal !! Mohon koreksi para pengasuh delphi... trim [/list][/pas][/php]

:mrgreen: itu farbe warna apaan ??? coba ganti denga brush.color lain .. seperti clYellow

Nah kadang ada juga yang membuat grid belang untuk tujuan mengenali record yang harus diperhatikan. Umpama kita ingin menandai semua stok yang kurang dari 10 dan akan diberi warna merah. jika stok masih diatas ambang batas kita beri warna recordyna dengan dengan warna biru, maka procedure Tform1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin if dm.sdsGrid.FieldByName('sisa').Value> 10 then // data diambil dari database DBGrid1.Canvas.Font.Color := clBlue Else DBGrid1.Canvas.Font.Color := clRed; DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State); end; end; mungkin bisa menambah wacana?

Mending pake Gridnya buatan Berg Software http://www.bergsoftware.net/downloads/gridview_d7.exe semuanya udah ada tinggal pake

@debby: Aku dapet list program ttg 2 warna pada dbgrid sbb ....

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
var
  test1: Real;
  RowNo: Integer;
begin
  with (Sender as TDBGrid) do
  begin
    if (gdSelected in State) then
    begin
      Canvas.Brush.Color := clblue;
    end
    else
    begin
      rowno := Query1.RecNo;
  
      test1 := (RowNo / 2) - trunc(RowNo / 2);
    
      if test1 = 0 then
      begin
        farbe := clWhite
      end
 
      else
      begin
        farbe := clYellow;
      end;
      Canvas.Brush.Color := farbe;
    
      Canvas.Font.Color := clBlack;
    end;
    Canvas.FillRect(Rect);
    Canvas.TextOut(Rect.Left + 2, Rect.Top + 1, Column.Field.AsString);
  end
end;
Tapi setelah dijalankan kok gak bisa jalan ...  pesan erornya pada kata "farbe" 
tidak dikenal !!
Mohon koreksi para pengasuh delphi... trim

Rasanya farbe adalah variabel lokal bertipe TColor. Di listing di atas ubahlah bagian variabelnya menjadi seperti:

var
  test1: Real;
  RowNo: Integer;
  farbe: TColor;

:mrgreen: lebih teliti bro _lmz

bro tanya nih,,kalo dbgrid dikasih nomor bisa g,,,jadi misallnya sebelum field id ada sebuah field yang berupa nomor..kira2 bisa g?terus kalo pada limit supaya tidak dari 0 jadi langsung dari 1 bisa g?caranya diapain y