Delphi - 我如何将 TChart 与 IntraWeb 一起使用
Delphi - how i can use TChart with IntraWeb
我正在使用 Delphi XE8
和 IntraWeb
XIV v14.0.49 我创建了一个 TIWForm
并在其上放置了一个 TChart
组件。
在设计时显示 TChart
,我可以设置它。
但是运行时候网页上没有TChart
我应该配置什么设置来使用它吗?
看来您必须使用TChart
和TIWImage
才能在网页中显示它。
我在IntraWeb demos中找到了下面的方法
// this method copies a TChart to an TIWImage
procedure CopyChartToImage(const aChart: TChart; const aImage: TIWImage);
var
xMetaFile: TMetafile;
xBitmap: TBitmap;
xRect: TRect;
begin
xBitmap := aImage.Picture.Bitmap;
xBitmap.Width := aChart.Width;
xBitmap.Height := aChart.Height;
aImage.Width := aChart.Width;
aImage.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;
我正在使用 Delphi XE8
和 IntraWeb
XIV v14.0.49 我创建了一个 TIWForm
并在其上放置了一个 TChart
组件。
在设计时显示 TChart
,我可以设置它。
但是运行时候网页上没有TChart
我应该配置什么设置来使用它吗?
看来您必须使用TChart
和TIWImage
才能在网页中显示它。
我在IntraWeb demos中找到了下面的方法
// this method copies a TChart to an TIWImage
procedure CopyChartToImage(const aChart: TChart; const aImage: TIWImage);
var
xMetaFile: TMetafile;
xBitmap: TBitmap;
xRect: TRect;
begin
xBitmap := aImage.Picture.Bitmap;
xBitmap.Width := aChart.Width;
xBitmap.Height := aChart.Height;
aImage.Width := aChart.Width;
aImage.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;