Steema Software - Customer Support Forums
http://216.92.101.67/support/
After user adds drag marks in a chart and chart is exported; occurs with TeeChartPro v7.07 and older, with Delphi 6 and WinXP
Do you know a solution in order to obtain the same position for drag marks in exported image as in chart (WYSIWYG 
)?Code: Select all
uses TeeBmpOptions, TeeJPEG, TeExport, TeeGIF, GIFImage, TeePNG;
procedure TForm1.Button1Click(Sender: TObject);
var tmpGIF : TGIFImage;
begin
//BMP
TeeSaveToBitmap( Chart1, 'myBMPChart.bmp', Chart1.ChartBounds );
//Chart1.SaveToBitmapFile('myBMPChart.jpg');
//JPG
TeeSaveToJPEG( Chart1, 'myJPEGChart.jpg', Chart1.Width, Chart1.Height );
//GIF
tmpGIF:=TGIFImage.Create;
With tmpGIF do
begin
Compression:=gcLZW;
DitherMode:=dmStucki;
ColorReduction:=rmQuantizeWindows;
Assign(Chart1.TeeCreateBitmap(Chart1.Color,Rect(0,0,Chart1.Width,Chart1.Height)));
SaveToFile('myGIFChart.gif');
end;
//PNG
TeeSaveToPNG( Chart1, 'myPNGChart.png', Chart1.Width, Chart1.Height );
//Clipboard
//Chart1.CopyToClipboardMetafile(True);
Chart1.CopyToClipboardBitmap;
end;