تحسين شكل المكون DBgrid بتلوين الاعمدة او الاسطر

[justnick]

ما فائدة السطر الذى اضفناه فى البداية

PHP كود :

AlternGrid = class(TCustomDBGrid); 


فى الوقت الذى نجح مع الكود فى تلوين صف وترك الاخر بهذا الكود دون اضافة السطر السابق ذكره

PHP كود :

procedure TfrCataloge.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if DBGrid1.DataSource.DataSet.RecNo mod 2 =1 then
begin
DBGrid1.Canvas.Brush.Color:=clHighlight;
 DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;
end; 


مع فائق شكرى