2

只绘制指定形式的位图一定不难，但是我不明白为什么该代码不起作用（我在一些 delphi 示例中看到了它）：

Graphics::TBitmap* bmp;

void __fastcall TForm1::FormCreate(TObject* Sender)
{
    bmp = new Graphics::TBitmap();
    bmp->Width = 300;
    bmp->Height = 300;
    bmp->Canvas->Ellipse(0, 0, 300, 300);
}

void __fastcall TForm1::Button1Click(TObject* Sender)
{
    HRGN rgn = CreateRectRgn(10, 10, 30, 30);
    if(SelectClipRgn(bmp->Handle, rgn) == ERROR) ShowMessage("Error");
    Canvas->Draw(0, 0, bmp);
}

所以位图以通常的方式绘制。在 MSDN 中，错误标志被解释为“以前的剪辑区域不受影响”。应该先配置设备还是删除之前的区域？这是完成这项任务的正确方法吗？我会在包含此位图的 TImage 上使用 SetWindowRgn，但 TImage 不是窗口，因此没有句柄。请帮我找出问题所在。

4

1 回答 1

1

只是使用CopyRect，一种方法Canvas。

例如，创建一个名为 Button2 的按钮并插入以下代码：

void __fastcall TForm1::Button2Click(TObject *Sender)
{
    //dimensions of real image: 300x300

    //clipping a region
    //dimension: 200x200
    //offset (x,y): (10,10)
    int xOff = 10;
    int yOff = 10;
    int widthOfRegion = 200;
    int heightOfRegion = 200;

    //printing the clipped region
    //dimension: 200x200
    //offset (x,y): (305,0) -> to do not overwrite image drawn by button1
    int xOff2 = 305;
    int yOff2 = 0;
    int widthOfRegion2 = 200;
    int heightOfRegion2 = 200;

    Canvas->CopyRect(
        //first rect is destination
        TRect(xOff2, yOff2, xOff2 + widthOfRegion2, yOff2 + heightOfRegion2)
        //second is canvas of source
        ,bmp->Canvas
        //third is rect of source that you want to copy
        ,TRect(xOff, yOff, xOff + widthOfRegion, yOff + heightOfRegion)
    );
}

所以结果如下，运行并按下 Button1 和 Button2 后： XD

提示：您可以放大或缩小裁剪区域，改变区域 2 的宽度和高度：)

来源： http: //www.borlandtalk.com/how-to-use-selectcliprgn-vt11696.html

于 2013-03-22T13:00:51.127 回答