dbgrid boyama

[ALUCARD]

Kod: Tümünü seç

procedure TKAYIT.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
VAR
  DURUM: STRING;
BEGIN

  IF gdSelected IN State THEN
    Exit;
  DURUM := DBGRID1.DataSource.DataSet.FieldValues['DURUM'];
  IF (DURUM = 'İPTAL') {or (DURUM = 'RED')} THEN
  begin
    DBGrid1.Canvas.Brush.Color := clRed
    end
  ELSE
    DBGrid1.Canvas.Brush.Color := clTeal;
  DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);


end;
    end;

yukarıdaki kodu yazıyorum ancak hata veriyor

could not convert variant of type (null) into type string şeklinde
hatanın nedenini anlayamadım.
Kolay gelsin....
Veri tabanı Access

[rsimsek]

Kod: Tümünü seç

  DURUM := DBGRID1.DataSource.DataSet.FieldValues['DURUM'];

yerine

Kod: Tümünü seç

  DURUM := DBGRID1.DataSource.DataSet.FieldByName('DURUM').AsString;

yazabilirsin.

[husonet]

Kod: Tümünü seç

 DURUM := DBGRID1.DataSource.DataSet.FieldByName('DURUM').AsString;
  IF (DURUM = 'İPTAL') {or (DURUM = 'RED')} THEN
       IF (gdFocused IN State) THEN
            dbgrid1.canvas.brush.color := clRed
  Else
     DBGrid1.Canvas.Brush.Color := clTeal;
  DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);

Bu çalışması lazım.

Kolay gelsin....

[ALUCARD]

Allah cümlenizden razı olsun. Problem çözüldü....
Sağolun...

[rsimsek]

Hüseyin kardeş aynı cevabı vermemize rağmen sen sanırım fazla kilolarından dolayı ağır kalıyorsun , ben de laz burun farkı ile geçmişim seni

[husonet]

Hüseyin kardeş aynı cevabı vermemize rağmen sen sanırım fazla kilolarından dolayı ağır kalıyorsun , ben de laz burun farkı ile geçmişim seni

Bu mesajı yeni gördüm çok geç oldu ama cevap vereyim.

Rejim esnasına rastladın recep abi Halsiz kalmışım

Kolay Gelsin...