افرض ان لديك حقل نوعه Logic منطقي ياخد قيمة true او false
وتريد ان تعرض بدل قيمة true او false كلمة "نعم" او "لا"
اليك هذ الكود ( افرض ان اسم الحقل Cash ) و قيمته ام true او false
قم بوضع التالي داخل الحدتDrawColumnCel في DBGrid
procedure Tform1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if (not DMInv.Invoice.IsEmpty ) then
if( Column.Field.FullName = 'Cash' )then
begin
if( Column.Field.AsBoolean = true ) then
begin
DBGrid1.Canvas.FillRect(rect);
DBGrid1.Canvas.TextOut(rect.left,rect.top,' نعم ');
end
else
begin
DBGrid1.Canvas.FillRect(rect);
DBGrid1.Canvas.TextOut(rect.left,rect.top,' لا ');
end;
end;
end;
و لدي طلب .
ممن يعرف طريقة جيدة و سريعة لتلوين صف كامل في DBGrid
متلا نفس المتال السابق
لو كان الحقل قيمته true يكون لون الصف احمر
لو كان الحقل قيمته false يكون لون الصف اصفر
وشكرا