Wah giliran nanya nih, ada yang tahu nggak bagaimana cara memberi warna font untuk dbgrid jika data(float) yang ditampilkan berubah-ubah setiap update data. Catatan : - setiap data bisa berubah/ter-update serentak (>,<,= data sebelumnya) - contohnya seperti program online trading/forex saya sudah coba membandingkan oldvalue dengan newvalue dari fieldname semua record yang ditentukan tapi yang buat bingung semua warna font dalam cell kok tergantung pada data record cell yang pertama tidak berdasarkan cell yang ada disetiap record. thx a lot.........

Om jayadi bisa ngoprek di event OnDrawColumnCell, untuk mengatur font bisa di lakukan TCanvasnya, dan jangan lupa untuk melakukan procedure DefaultDrawColumnCell() Referensi Dari hasil googling : http://www.google.co.id/search?q=dbgrid+color&start=0&ie=utf-8&oe=utf-8&client=firefox-a&rls=org.mozilla:en-US:official http://delphi.about.com/od/usedbvcl/l/aa031699.htm http://community.borland.com/article/0,1410,26945,00.html

wah kalau googling + contoh di delphi.about (udah aku modifikasi) tetep aja gak bisa, warna teksnya terus mengikuti field (yg ditentuin berdasarkan old dan new value-nya) pada record pertama :) syntaxnya : get old and new value

   n2 := adoquery1.FieldByName('bid').OldValue;
   adoquery1.Requery();
   n1 := adoquery1.FieldByName('bid').NewValue;

kemudian dibandingin di DrawColumnCell-nya :

  if n1>n2 then
   begin
      TDBGrid(Sender).Canvas.Font.Color := clgreen;
      TDBGrid(Sender).DefaultDrawColumnCell(Rect, DataCol, Column,State);
   end else
....(kondisi berikutnya).......

pake array/nggak jg hasilnya tetep sama.... :)[/pas]

coba dikasi calculated field yang nampung data lama. trus dibandingkan dengan data baru di event drawcolumncell. kalo pake clientdataset pake internalcalc field biar lbh enak (utk aku lho..)

Hhhmmmm ... gitu yach ! Coba seperti ini :

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if (Column.Field = ADOQuery1.FieldByName('bid')) and
     (ADOQuery1.FieldByName('bid').NewValue > ADOQuery1.FieldByName('bid').OldValue) then
    DBGrid1.Canvas.Font.Color := clGreen;
  // default drawing
  DBGrid1.DefaultDrawDataCell (Rect, Column.Field, State);
end;

Jangan lupa metode Caches Update nya untuk di ADO ;)