DBGrid1 de Alta Boşluk Eklemek

[cinarbil]

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

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

Tüm satırı değilde sadece DURUM sütününü nasıl yaparım?

Buyrun

procedure Tpersonel_form.personel_gridDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer;
 Column: TColumn; State: TGridDrawState);
begin
// şarta göre renklerdirme
 if (data_form.personel_sorgu.FieldByName('PER_BOLUM').AsString='İMALAT')
     then
     if DataCol in [2] then begin  // renklendirilecek kolon index no
                             personel_grid.Canvas.Brush.Color:=ClGreen;
                              personel_grid.DefaultDrawColumnCell(Rect, DataCol, Column, State);
                            end;
end;