DBGrid1 de Alta Boşluk Eklemek

[cinarbil]

(30-04-2022, Saat: 12:08)OZCANK Adlı Kullanıcıdan Alıntı:

(30-04-2022, Saat: 11:52)cinarbil Adlı Kullanıcıdan Alıntı:  İ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

Aynen bu şekilde kullandım ama renklendirmedi?

procedure TForm29.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
Begin
if FaturaListe.FieldByName('DURUM').AsString='Aktarılmış'
    then begin
      DBGrid1.Canvas.Brush.Color:=Clyellow;
      DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
    end;

if FaturaListe.FieldByName('DURUM').AsString='Aktarılmamış'
    then begin
      DBGrid1.Canvas.Brush.Color:=Clskyblue;
      DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
    end;

end;

 o  zaman sorun ıf karşılaştırmasında

if FaturaListe.FieldByName('DURUM').AsString='Aktarılmış'

burada bir yanlışlık var kayıt sayısı az ise (çünkü her sutun çiziminde buraya gelecek program) aşağıdaki gibi deneyin
Procedure en başına ıf satırı üstüne 

Showmessage(FaturaListe.FieldByName('DURUM').AsString);

burada Aktarılmış veya Aktarılmamış yazıyorsa 
son olarak 

if Trim(FaturaListe.FieldByName('DURUM').AsString)=Trim('Aktarılmış')

deneyin.