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

[hamid_14]

سلام
میخواستم اگر فیلد جمع کوچکتر از 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;

[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]

سلام
بله میشه