Steema Central

Code: Select all

procedure CopyChartToImage(const aChart: TChart; const aImage: TIWCGJQImage);
var
	xMetaFile: TMetafile;
	xBitmap: TBitmap;
	xRect: TRect;
begin
	xBitmap := aImage.Picture.Picture.Bitmap;
	xBitmap.Width := aChart.Width;
	xBitmap.Height := aChart.Height;

	xRect := Rect(0, 0, aChart.Width, aChart.Height);
	aChart.BufferedDisplay := False;
	xMetaFile := aChart.TeeCreateMetafile(False, xRect);
	try
		xBitmap.Canvas.Draw(0, 0, xMetaFile);
	finally
		FreeAndNil(xMetaFile);
	end;
end;

Code: Select all

procedure GDIPlus_Initialize;
begin
	StartupInput.DebugEventCallback := nil;
	StartupInput.SuppressBackgroundThread := False;
	StartupInput.SuppressExternalCodecs := False;
	StartupInput.GdiplusVersion := 1;

	GdiplusStartup(gdiplusToken, @StartupInput, nil);
end;

procedure GDIPlus_Finalize;
begin
	if Assigned(GenericSansSerifFontFamily) then
		GenericSansSerifFontFamily.Free;
	if Assigned(GenericSerifFontFamily) then
		GenericSerifFontFamily.Free;
	if Assigned(GenericMonospaceFontFamily) then
		GenericMonospaceFontFamily.Free;
	if Assigned(GenericTypographicStringFormatBuffer) then
		GenericTypographicStringFormatBuffer.free;
	if Assigned(GenericDefaultStringFormatBuffer) then
		GenericDefaultStringFormatBuffer.Free;

	GdiplusShutdown(gdiplusToken);
end;

initialization
	GDIPlus_Initialize;

finalization
	GDIPlus_Finalize;