Delphi TChart example

The following code is a snippet from an application that uses a TChart component that is inserted into a document

 

HTH

 

RT

 

    rcfTchart:begin
                strm:=TMemoryStream.Create;
                img:=TImage.Create(nil);
                rcChart.Width:=trunc(width*600);
                rcChart.Height:=trunc(height*600);
                img.Width:=rcChart.Width;
                img.Height:=rcChart.Height;
                rcChart.PrintPartialCanvas(img.Canvas,rect(0,0,rcChart.Width,rcChart.Height));
                img.Picture.Graphic.SaveToStream(strm);
                strm.Seek(0,0);
                imgID:=doc.AddImageFromStream(strm,0);
                doc.SelectImage(imgID);
                doc.DrawImage(left,top,width,height);
                freeAndNil(img);
                freeAndNil(strm);
                used:=used+height;
              end;