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

[hamid_14]

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

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

اینم ارور
Untitled.jpg

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

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

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

  end

Else

  begin

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

  end;

[farshid_82]

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

[hamid_14]

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

[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);

[khoshblagh]

فرض می کنیم فقط میخوای ستون 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 ستون از مجموعه ستونها به رنگ متمایزی در آورد.

[farshid_82]

سلام
بله میشه