DBGrid1 de Alta Boşluk Eklemek

[cinarbil]

(30-04-2022, Saat: 10:09)OZCANK Adlı Kullanıcıdan Alıntı: Arkadaşlar , Ben bu şekilde bir kod ile çözmeye uğraştım bir türlü renklendirme yapamadım yardım eder misiniz?

Aktarılmışları ve aktarılmamışları ayrı renk yapmak istedim.

procedure TForm29.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if FaturaListe.FieldByName('DURUM').AsString='Aktarılmamış' then
Begin
 DBGrid1.Columns[6].Color:=clYellow;
end
Else if FaturaListe.FieldByName('DURUM').AsString='Aktarılmış' then
Begin
 DBGrid1.Columns[6].Color:=clBlue;
end;
end;
end.

 İyi günler hayırlı bayramlar.
Önceden yazdıklarıma olmadı demiştiniz ben aşağıdaki şekilde kullanıyorum resim ekte bende çalışıyor Delphi 10,2 Kullanıyorum

procedure Tpersonel_form.personel_gridDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer;
 Column: TColumn; State: TGridDrawState);
begin

if data_form.personel_sorgu.FieldByName('PER_BOLUM').AsString='YONETIM'
     then begin
       personel_grid.Canvas.Brush.Color:=Clyellow;
       personel_grid.DefaultDrawColumnCell(Rect, DataCol, Column, State);
     end;

if data_form.personel_sorgu.FieldByName('PER_BOLUM').AsString='DEPO'
     then begin
       personel_grid.Canvas.Brush.Color:=Clskyblue;
       personel_grid.DefaultDrawColumnCell(Rect, DataCol, Column, State);
     end;

end;

1. kayıt mavi olması secili olduğu için
YONETIM sarı
DEPO  açık mavi
 sizdeki sorun renk ataması yaptıkdan sonra 

personel_grid.DefaultDrawColumnCell(Rect, DataCol, Column, State);

Kullanmıyorsunuz 
Lütfen yukardaki benim kodu olduğu deneyin