Hola a todos
.
Tengo el siguiente codigo;
alguien sabe como guardar la grafica del objeto TChart en un archivo tipo Gif?
Muchas gracias por su Ayuda.
Series1.Title:='tmax';
Series2.Title:='tmin';
Series3.Title:='Ra ';
Series4.Title:='Rg ';
i:=0;
repeat
readln(arch,strt1);inc(i);
val(copy(strt1, 4,3),dia1[i],err1);
val(copy(strt1, 24,6),tmax[i],err1);
val(copy(strt1, 33,6),tmin[i],err1);
val(copy(strt1, 41,7),volt[i],err1);
val(copy(strt1, 50,7),ppt [i],err1);
val(copy(strt1, 60,4),vv [i],err1);
val(copy(strt1, 67,8),gdd [i],err1);
val(copy(strt1, 78,8),gda [i],err1);
until err1<>0;
Closefile(arch);
n:=i-1;
Series1.FillSampleValues(n);
Series2.FillSampleValues(n);
Series3.FillSampleValues(n);
Series4.FillSampleValues(n);
Series1.Title:='Ra ';
Series2.Title:='Rg ';
Series3.Title:='Bn ';
Series4.Title:='BnAc';
Series3.VertAxis:=aRightAxis;
Series4.VertAxis:=aRightAxis;
For j:=1 to n do
Begin
mesdia(dia1[j],mes4,dia4);
str(dia1[j]:2,dias);
str(mes4:2,mess);
Series1.XValues.Value[j-1]:=j;
Series1.YValues.Value[j-1]:=volt[j];
Series1.XLabel[j-1]:=dias;
Series2.XValues.Value[j-1]:=j;
Series2.YValues.Value[j-1]:=ppt[j];
Series2.XLabel[j-1]:=dias;
Series3.XValues.Value[j-1]:=j;
Series3.YValues.Value[j-1]:=gdd[j];
Series3.XLabel[j-1]:=dias;
Series4.XValues.Value[j-1]:=j;
Series4.YValues.Value[j-1]:=gda[j];
Series4.XLabel[j-1]:=dias;
End;
DeltaZoom:=5;
Chart1.LeftAxis.Title.Caption:=estacion+'('+cultivo+') :.: ';
Chart1.BottomAxis.Title.Caption:=':.: Agromet 2.9.0.3 24-MAR-2007 :.: Tiempo (Día juliano)';
Chart1.SaveToBitmapFile('c:\agma29\grren2.bmp');
End;{If FileExists('c:\agma29\RENDI1.csv')}