delphi - 如何在 TImage 中平铺图像？

Question

如何在 Delphi 中平铺 TImage 中的图像？

为什么我需要它:我可以创建一个并将图像存储在那里，而不是在运行时创建更多 TImage，因为我知道它将“适合”直到达到 TImage 的高度和宽度。

请提出任何想法来做到这一点。

谢谢!

编辑:请注意，我不是要求拉伸(stretch)图像，而是通过重复图像来填充 Canvas 。

Answer 1

假设您的图像是位图并加载到 TImage 中，您可以使用以下内容

procedure TmyForm.Button1Click(Sender: TObject);
    var mybmp:TBitmap;
begin
    mybmp:= TBitmap.Create();
    try
        mybmp.Assign(Image1.Picture.Bitmap);

        Image1.Picture.Bitmap.SetSize(Image1.Width,Image1.Height);
        Image1.Canvas.Brush.Bitmap := mybmp;
        Image1.Canvas.FillRect(Image1.BoundsRect);

        mybmp.FreeImage;
    finally
        FreeandNil(mybmp)
    end;
end;

一些注释:

如果您在给图像添加标题后保存图像，您将保存带标题的版本而不是原始版本。

Image1.Canvas 和 Image1.Picture.Bitmap.Canvas 是相同的，这就是为什么您需要在 Canvas 上绘画之前调整位图的大小。

如果您尝试将 TImage 中的位图分配给画笔，而不先将其分配给另一个位图对象，就像这样 Image1.Canvas.Brush.Bitmap := Image1.Picture.Bitmap 你会得到一个异常“存储空间不足”。