线不在油漆箱内

时间:2015-08-10 11:26:32

标签: forms borland-c++ onpaint

我做了:

__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)    
{    
  DrawingBoard = new Graphics::TBitmap;    
  DrawingBoard->Width = this->PaintBox1->Width;     
  DrawingBoard->Height = this->PaintBox1->Height;    
}

void __fastcall TForm1::PaintBox1Paint(TObject *Sender)
{     
        PaintBox1->Canvas->Pen->Color = clBlack;    
        Canvas->MoveTo(256,216);    
        Canvas->LineTo(270,250);    
}


void __fastcall TForm1::FormShow(TObject *Sender)    
{      
      PaintBox1->Canvas->Draw(256, 216, DrawingBoard);
}

所以我看到了这条线,但没有在油漆盒内 - 为什么?

1 个答案:

答案 0 :(得分:0)

  1. ,因为您使用Canvas->代替PaintBox1->Canvas->

    • 所以你在[{1}}上绘制,this->Canvas->在你的情况下
  2. 我假设你想使用位图作为后台缓冲区

    • 然后您应该使用Form1而不是所有DrawingBoard->Canvas
    • 除了PaintBox1->Canvas->
    • 中的最后一个
    • 我还会使用FormShow代替OnPaint ...
    • 你也应该使用客户端大小而不是
    • 也不会将位图绘制为OnShow VCL自行翻译坐标
    • 在渲染之前不要忘记清除后备缓冲区(除非你正在做一些累积绘图/效果)
  3. 这样的事情:

    PaintBox

    <强> [注释]

    • 如果你的PaintBox可以调整大小,那么添加它的OnResize事件并调整里面的位图...