AMAH

هذا الكود أفضل وحر ولا يعتمد علي اشياء قيم معينة للبيانات في الحدث DBGrid1DrawColumnCell ضع الكود var RowHeight,Row:INteger; begin RowHeight := Rect.Bottom - Rect.Top+1; Row := (Rect.Top div RowHeight); if row mod 2= 0 then dbgrid1.Canvas.Brush.Color:=clInacti…

procedure TAgreement.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin if odd((Table2.FieldByName('SrCode').AsInteger)) then begin DBGrid1.Canvas.Brush.Color:=clInactiveCaptionText; DBGri…

السلام عليكم ورحمة الله وبركاته تحياتي للجميع لقد ارسلت تعليق خطئاً اللهم إنا نسئلك من الخير كله عاجله واجله ماعلمنا منه و مالم نعلم انا مقيم في دبي وهذا رقم موبايلي 7868210 -waf :D :D -waf