dbgrid fieldleri boyamiyor

[arkach]

delphi 7 ve dbgrid kullaniyorum
incompatible types hatasy veriyor

if dbgrid1.datasource.dataset.recno mod 2<>0
then begin
dbgrid1.canvas.brush.color:=clred;

if (gdselected in state) then begin

dbgrid1.canvas.brush.color:=......;//renk
dbgrid1.canvas.font.color:=.........;//renk
end;

dbgrid1.defaultdrawcolumncell(rect,datacol,column,state);//incompatible types hatasy veriyor burda
end;
acaba neden
3-4 tane formum var oburlerinde boyuyur ama bir formummun gridinde boyamiyor

[aslangeri]

s.a.
defaultdraw.... daki parametrelerin sıralarını karıştırdınız sanırım onları bi kontrol edin.
kolay gelsin.

[mrmarman]

Kodunu aşağıdaki şekilde denedim hata vermedi. Kodunda sorun yok yani. Tabi bu blokta sadece bu kodlar varsa...

Kod: Tümünü seç

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if dbgrid1.datasource.dataset.recno mod 2<>0
  then begin
    dbgrid1.canvas.brush.color:=clred;
    if (gdselected in state) then begin
      dbgrid1.canvas.brush.color:=clYellow;//......;//renk
      dbgrid1.canvas.font.color :=clNavy; //.........;//renk
    end;
    dbgrid1.defaultdrawcolumncell(rect,datacol,column,state);//incompatible types hatasy veriyor burda
  end;

[arkach]

evet ayni kodlar baska yerde calisiyor birtek en son formumda calismiyor
formun ozelliklerine bagli olabilirmi
baska hangi yontemle boyayabilirim?

[mrmarman]

Hocam kendi projeni bizden daha iyi tanıyorsundur. Son formun hakkında küçük bir açıklama yapabilirsen gerekli çözümü sunarız.

- Formun bildiğim herhangi bir özelliği buna mani değil. Kayıtları renklendirmek için bir de DBGrid'in DataCell özelliği var ama aynı hatayı alırsın bence.

- Soru : o satırı kaldırdığında başka hata alıyor musun peki. Boyayıp boyamaması mühim değil. Test için...

[arkach]

sizinde basinizi agirttim
dbgrid1.defaultdrawcolumncell(rect,datacol,column,state);
bu satyry kaldirdigim zaman sonuc aliyorum