خطا در رویداد onDrawColumnCell

سلام
میخواستم اگر فیلد جمع کوچکتر از 0 بود رنگ متن اون فیلد قرمز بشه ولی وقتی متن زیرو مینویسم ارور میده.

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

اینم ارور
ضمیمه 121496

کد زیر درست کار میکنه ولی اینطوری دائما داره چک میکنه

 if query1.FieldByName('Total').AsFloat < 0  then  begin

   DBGridEh1.Columns[1].Font.Color := clRed;

  end

Else

  begin

   DBGridEh1.Columns[1].Font.Color := clBlack;

  end;

احتمالا مشکل از dbgrid هست مجدد روی فرم قرار بدید.برای رنک یک ستون هم در کنار شرطی که گذاشتید از datacol استفاده کنید.

مرسی مشکل dbgrid همین بود و حل شد ولی نحوه استفاده از datacol نمی دونم میشه یک مثال بزنید.تشکر

فرض می کنیم فقط میخوای ستون 1 قرمز بشه

 if (DataCol = 1) AND (query1.FieldByName('Total').AsFloat < 0)  then  begin

   DBGridEh1.Canvas.Font.Color := clRed;

  end

Else

  begin

     DBGridEh1.Canvas.Font.Color := clBlack;

  end;





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

نقل قول:

---

نوشته شده توسط farshid_82

فرض می کنیم فقط میخوای ستون 1 قرمز بشه

 if (DataCol = 1) AND (query1.FieldByName('Total').AsFloat < 0)  then  begin

   DBGridEh1.Canvas.Font.Color := clRed;

  end

Else

  begin

     DBGridEh1.Canvas.Font.Color := clBlack;

  end;





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

---

با سلام
میشه کد را طوری تغییر داد که به جای یک ستون مثلا 2 ستون از مجموعه ستونها به رنگ متمایزی در آورد.

سلام
بله میشه