dbgrid satır renklendirme

[makgun64]

dbgridde gelen aramalar yer alıyor. başka bir tabloda da müşteri bilgileri. gelen aramalardaki (dbgrid1) telefon herhangi bir müşteriye kayıtlı ise satırı renklendirmek istiyorum. Aşağıdaki kodlar işe yaramadı.
Yardım Edermisiniz.

Kod: Tümünü seç

//adotable1 muşteri 3 müşteri telefonundan birine uyarsa renklenecek

     dbgrid1.Canvas.Font.Color:=clred;
     DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);

[makgun64]

dblookup ile yaptım
dbgride 3 telefon için 3 sütun ekledim

Kod: Tümünü seç

if ((dbgrid1.Columns[3].Field.AsString)<> '') or ((dbgrid1.Columns[4].Field.AsString)<> '')
   or ((dbgrid1.Columns[5].Field.AsString)<> '') then
    begin
     dbgrid1.Canvas.Font.Color:=clred;
     DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
    end;

ama şimdi başka bir sorun var
eklediğim sütunları gizlersem işe yaramıyor sütunların görünmesini istemiyrum nasıl yapabilirim

[makgun64]

4. sütunuda calcfield olarak ekledim 3 sütunu string olarak topladım 4. sütuna yazdım diğer 3 sütunu gizledim

daha kıyak oldu