如何把TChart存为bmp文件
解决方案 »
- 如何在dbgrideh中控制数字显示格式?
- 这个定义的语法怎么理解?
- 求打installshidld fo d7包软件
- ORACLE的SQL语法,在delphi 里的ADOqueyr下面里无法正常通过.
- ADO小问题!
- 各位大哥,请教如何用ADOQuery在程序中动态的创建表!
- 关于多层结构中,MTS/COM+组件的调试问题?
- 如何将olecontainer载入的word文件全部显示,而不只显示第一页?
- 怎样在access数据库中取出字段的第一个字符?
- 如何在delphi里调用c编写的函数
- 小妹有一个急难的问题,高手请进!救命!!
- User ID ,Data Source 会随着机器(就是放到别的机器上运行)的变化而变化,请问把它们设置变量怎么做?
begin
Chart1.SaveToBitmapFile('c:\1.bmp')
end;
Bitmap: TBitmap;
Rect: TRect;
begin
if OpenDialog1.Execute then
begin
Bitmap := TBitmap.Create;
Bitmap.Width := Chart1.Width;
Bitmap.Height := Chart1.Height;
Rect.Left := 0;
Rect.Top := 0;
Rect.Right := Chart1.Width - 1;
Rect.Bottom := Chart1.Height - 1;
Bitmap.Canvas.CopyRect(Rect, Chart1.Canvas, Rect);
Bitmap.SaveToFile(OpeDialog1.FileName);
Bitmap.Free;
end;
end;