在TImage控件上做画
2002-09-24 09:31
429 查看
在TImage控件上做画
翻译:今天能看见山
TImage类提供了一个Canvas属性以使你能在image的内容上绘图。image的改变将会成为这个image的一部分保存下来。如果你把改变过的image拷贝到剪切板上或者将这个image保存为文件,你的改变将会完全成为这个image的一部分。这里的一小段程序代码用来在一个image上画一个箭头。
const TPoint Arrow1[] = { {80,105} , {106,66}, {80,87},{94,98}};
Image1->Canvas->Pen->Color = clBlue;
Image1->Canvas->Pen->Width = 3;
Image1->Canvas->MoveTo(Arrow1[0].x,Arrow1[0].y);
Image1->Canvas->LineTo(Arrow1[1].x,Arrow1[1].y);
Image1->Canvas->MoveTo(Arrow1[0].x,Arrow1[0].y);
Image1->Canvas->LineTo(Arrow1[2].x,Arrow1[2].y);
Image1->Canvas->MoveTo(Arrow1[0].x,Arrow1[0].y);
Image1->Canvas->LineTo(Arrow1[3].x,Arrow1[3].y);
注意:你只能在TImage控件的picture属性为空或者包含一个bitmap类型的图形的时候利用它的Canvas属性做画。如果它包含一个icon或者一个图元文件,则你不能利用它的Canvas做画。TIimage的只读方法GetCanvas证实了这样做的理由。
// 被转换成为C++代码的函数
TCanvas * TImage::GetCanvas()
{
Graphics::TBitmap *Bitmap;
if (Picture->Graphic == NULL)
{
Bitmap = new Graphics::TBitmap
Bitmap->Width = Width;
Bitmap->Height = Height;
// 为Graphic属性分配新的位图. 这个调用
// TPicture的写方法SetGraphic. SetGraphic实现位图的分配,
// 等同于调用 Picture->Graphic->Assign(Bitmap);
Picture->Graphic = Bitmap;
// 删除临时位图指针. 因为位图的分配已经结束了,
// 位图的内容已经被保存在了Picture->Graphic里
delete Bitmap;
}
if (/* Picture->Graphic 是一个TBitmap型的对象 */ )
return Picture->Bitmap->Canvas;
else
throw EInvalidOperation( /* 抛出一个异常 */);
}
注意到,如果picture属性是空的,你在上面的绘画将建立一个新的Bitmap对象.如果一个位图已经被装载了,这时TImage::GetCanvas只是返回这个位图的Canvas属性.如果Picture里的是一个icon或者是一个图元文件,程序将抛出一个异常。
注意:TImage::GetCanvas工作的结果是,使用Image->Canvas和Image->Picture->Bitmap->Canvas并没有什么区别.
注意:Image控件在Canvas上画的图象的宽和高和这个位图的原始尺寸是一样的. 如果这个放到Image控件中的图象被拉伸了,则它的宽度和高度有可能同原始尺寸不一样.例如,在一个新窗体中放置一个Image控件.调整窗体尺寸为500x400象素.设置Image控件的对齐属性为alClient,并且装载上CHEMICAL.BMP这个BCB中自带的图片. 最后,将Stretch改为true以保证图片充满这个窗体.此时,Image1->Width将跟Form1->ClientWidth相等,但是Image1->Picture->Width 将是CHEMICAL.BMP的宽度(240).
注意:当你在一个image上做画的时候,尽量使用Windows标准颜色或者是已经存在于调色板中的颜色.
翻译:今天能看见山
TImage类提供了一个Canvas属性以使你能在image的内容上绘图。image的改变将会成为这个image的一部分保存下来。如果你把改变过的image拷贝到剪切板上或者将这个image保存为文件,你的改变将会完全成为这个image的一部分。这里的一小段程序代码用来在一个image上画一个箭头。
const TPoint Arrow1[] = { {80,105} , {106,66}, {80,87},{94,98}};
Image1->Canvas->Pen->Color = clBlue;
Image1->Canvas->Pen->Width = 3;
Image1->Canvas->MoveTo(Arrow1[0].x,Arrow1[0].y);
Image1->Canvas->LineTo(Arrow1[1].x,Arrow1[1].y);
Image1->Canvas->MoveTo(Arrow1[0].x,Arrow1[0].y);
Image1->Canvas->LineTo(Arrow1[2].x,Arrow1[2].y);
Image1->Canvas->MoveTo(Arrow1[0].x,Arrow1[0].y);
Image1->Canvas->LineTo(Arrow1[3].x,Arrow1[3].y);
注意:你只能在TImage控件的picture属性为空或者包含一个bitmap类型的图形的时候利用它的Canvas属性做画。如果它包含一个icon或者一个图元文件,则你不能利用它的Canvas做画。TIimage的只读方法GetCanvas证实了这样做的理由。
// 被转换成为C++代码的函数
TCanvas * TImage::GetCanvas()
{
Graphics::TBitmap *Bitmap;
if (Picture->Graphic == NULL)
{
Bitmap = new Graphics::TBitmap
Bitmap->Width = Width;
Bitmap->Height = Height;
// 为Graphic属性分配新的位图. 这个调用
// TPicture的写方法SetGraphic. SetGraphic实现位图的分配,
// 等同于调用 Picture->Graphic->Assign(Bitmap);
Picture->Graphic = Bitmap;
// 删除临时位图指针. 因为位图的分配已经结束了,
// 位图的内容已经被保存在了Picture->Graphic里
delete Bitmap;
}
if (/* Picture->Graphic 是一个TBitmap型的对象 */ )
return Picture->Bitmap->Canvas;
else
throw EInvalidOperation( /* 抛出一个异常 */);
}
注意到,如果picture属性是空的,你在上面的绘画将建立一个新的Bitmap对象.如果一个位图已经被装载了,这时TImage::GetCanvas只是返回这个位图的Canvas属性.如果Picture里的是一个icon或者是一个图元文件,程序将抛出一个异常。
注意:TImage::GetCanvas工作的结果是,使用Image->Canvas和Image->Picture->Bitmap->Canvas并没有什么区别.
注意:Image控件在Canvas上画的图象的宽和高和这个位图的原始尺寸是一样的. 如果这个放到Image控件中的图象被拉伸了,则它的宽度和高度有可能同原始尺寸不一样.例如,在一个新窗体中放置一个Image控件.调整窗体尺寸为500x400象素.设置Image控件的对齐属性为alClient,并且装载上CHEMICAL.BMP这个BCB中自带的图片. 最后,将Stretch改为true以保证图片充满这个窗体.此时,Image1->Width将跟Form1->ClientWidth相等,但是Image1->Picture->Width 将是CHEMICAL.BMP的宽度(240).
注意:当你在一个image上做画的时候,尽量使用Windows标准颜色或者是已经存在于调色板中的颜色.
相关文章推荐
- 改变鼠标指针
- kingofark's Ineffective C/C++:低手自序
- kingofark's Ineffective C/C++:自白1:返回值的运用
- kingofark's Ineffective C/C++:自白2:有符号、无符号还有位运算,我的天!
- JSP标记学习笔记
- DataGrid使用技巧(一)
- Working with MS Access Stored Procedures in VB.NET Montaque(转贴)
- 在RxRichEdit中插入图片的完美解决方法(不使用剪贴板)
- 设计模式讨论之abstract factory篇
- 浅谈如何做一个编译器?
- 如何对ListView的项进行排序
- 在JBuilder中使用com.microsoft.jdbc.sqlserver.SQLServerDriver连接sql数据库
- BeanShell快速入门---Java应用程序脚本引擎
- BeanShell桌面---Java应用程序脚本引擎
- mysql数据库优化(未完....待续....)
- IBM Java Jvm GC实现内幕
- BeanShell---Java应用程序脚本引挚
- Visual C++ .NET What's New for MFC Developers?
- 轻而易举拥有xp风格的界面
- VB.NET访问COM+