Master-Detail Tabloda Grid'in Satrını boyama sorunu

[baypipox]

Sa. Arkadaşlar.

Üç tane tablom var. il, ilçe ve veriler adında. il içe tablosunun, ilçede veriler tablosunun master tablosu..
Gridlerden sadece en son detail tablom olan veriler tablosunda 'DURUM' field değerine göre, satır boyama işlemi yapmak istiyorum.

Bunun içinde aşağıdaki kodu kullanıyorum.

Kod: Tümünü seç

procedure TFMain.DBGrid3DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
      if DM.QVERILERDURUM.AsInteger=1
      then Column.Color:=clGreen;

      if DM.QVERILERDURUM.AsInteger=2
      then Column.Color:=clHighlight;

      if DM.QVERILERDURUM.AsInteger=3
      then Column.Color:=clRed;

end;

Bunun sapıtması üzerine aynısını case döngüsü ilede denedim onuda ekiyorum

Kod: Tümünü seç

procedure TFMain.DBGrid3DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
case DM.QVERILERDURUM.AsInteger of
   1:Column.Color:=clGreen;
   2:Column.Color:=clHighlight;
   3:Column.Color:=clRed;
end;
end;

Bunları yapmama rağmen bir türlü başarılı olamadım, master tablolarım (Grid) sapıtıyo. kayboluyo felan.. özellikle alt tablolarında 1 den fazla veri olan tablolarım.

Sorunu anlatabildimmi bilmiyorum ama, durum işte böyle. Yardımlarınızı bekliyorum.