DbGrid'de sadece bir alanın renklendirilmesi

[esraakarslan]

Merhaba İyi Günler Arkadaşlar;
Sizlere sorum şu ben table'da kayıtlı olan bir kişinin dbgrid'de sadece bir alanını renklendirmek istiyorum. Bunu nasıl yapacağımı da bulamadım. Eğer bana bu konuda acele bir şekilde cevap yazarsanız memnun olurm.
Herkese çalışmalarında başarılar dilerim...

[bgoktas]

viewtopic.php?t=3402&highlight=dbgrid+renk

[husonet]

Kod: Tümünü seç

procedure TCariHesapAcilisIslemFrm.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
const
  clPaGreen = TColor($CCFFCC); // Renk kodlarını kendimiz ayarlamak istiyorsak bir sabit işimizi görecektir.
  clPaRed =   TColor($CCCCFF);
begin
   if Column.FieldName = 'CARIKOD' Then //Cari Kod alanını boya 
      If (gdFocused in State) then
        dbgrid1.canvas.brush.color := clBlack
    else
        dbgrid1.canvas.brush.color := clPaRed;
     dbgrid1.DefaultDrawColumnCell(rect,DataCol,Column,State);

Kolay Gelsin...