在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标准颜色或者是已经存在于调色板中的颜色.