Mbr
پنج شنبه 24 دی 1383, 08:14 صبح
در قسمت OnDrawColumnCell یک DBGRID دستورات زیر را تایپ نمائید :
With Dbgrid1.Canvas.brush do
begin
if adotable1.recno mod 2 = 0 then
color:=Clred
else
Color:=Clblue
end;
dbgrid1.Defaultdrawcolumncell ( rect,Datacol,Column,state )
end;با تشکر فراوان از دوست عزیزم مجتبی
With Dbgrid1.Canvas.brush do
begin
if adotable1.recno mod 2 = 0 then
color:=Clred
else
Color:=Clblue
end;
dbgrid1.Defaultdrawcolumncell ( rect,Datacol,Column,state )
end;با تشکر فراوان از دوست عزیزم مجتبی