Delphi 如何在 Canvas 上快速绘制二维颜色数组？答案

【问题标题】：Delphi How to draw 2d array of TColor on TCanvas quickly?Delphi 如何在 Canvas 上快速绘制二维颜色数组？
【发布时间】：2013-04-25 14:39:42
【问题描述】：

我有一个 TColor 的二维数组。而且我还有一个 TCanvas。我怎样才能比使用 for 循环更快地在画布上绘制此颜色图？

例如：

type
  T2DAr = array of array of TColor;

var
  ar: T2DAr;
  Form1: TForm; // mainform

function main;
var x, y: integer;
begin
{filling array with colors as a 10x10}

for x := 0 to length(ar)-1 do
for y := 0 to length(ar[x])-1 do
Form1.Canvas.Pixels[x, y] := ar[x, y];
end;

这种方式运行速度太慢。我需要一个更快的算法。

【问题讨论】：

这个已经回答了很多次了。答案是：使用scanlines。
将 TColor 的二维数组视为光栅图像。因此，将您的颜色矩阵放入位图中，然后将其粘贴到 TCanvas 上。 @Andreas Rejbrand，TCanvas 足够抽象，没有扫描线。
我看到了标题，我立即进来说scanline，但看到它已经被提及了
一点：更正：你的数组必须是矩形的
或使用 Graphics32.org

标签： delphi canvas graphics matrix drawing

【解决方案1】：

这个问题已经回答过很多次了。答案是：使用scanlines 而不是非常慢的Pixels 属性。示例：

function CreateBitmapReallyFast: TBitmap;
const
  WHITE: TRGBTriple = (rgbtBlue: 255; rgbtGreen: 255; rgbtRed: 255);
  BLACK: TRGBTriple = (rgbtBlue: 0; rgbtGreen: 0; rgbtRed: 0);
var
  y: Integer;
  scanline: PRGBTriple;
  x: Integer;
begin
  result := TBitmap.Create;
  result.SetSize(1920, 1080);
  result.PixelFormat := pf24bit;
  for y := 0 to result.Height - 1 do
  begin
    scanline := result.ScanLine[y];
    for x := 0 to result.Width - 1 do
    begin
      if odd(x) then
        scanline^ := WHITE
      else
        scanline^ := BLACK;
      inc(scanline);
    end;
  end;
end;

更酷：

with scanline^ do
begin
  rgbtBlue := Random(255);
  rgbtGreen := Random(255);
  rgbtRed := Random(255);
end;

尝试一下：

procedure TForm1.FormPaint(Sender: TObject);
var
  bm: TBitmap;
begin
  bm := CreateBitmapReallyFast;
  try
    Canvas.Draw(0, 0, bm);
  finally
    bm.Free;
  end;
end;

当然，如果你有一个TRGBTriple或TRGBQuad的（打包的）数组，并且位图的像素格式相同，你可以简单地将内存中的Move数据从数组到位图的扫描线。

【讨论】：

不，RGBTRIPLE 是 BGR，RGBQUAD 是 BGRX，而 TColor 是 RGBX (其中 X 表示附加伪通道）。
@user539484：是的，但它应该是这样的，IIRC。
当然可以，但是频道交换操作与简单分配一样昂贵。如果与 TIFF 或 BITMAPV5 中的自定义像素格式一起使用，可能会有一些改进，其中通道交换作业委托给其他软件甚至硬件。
真的吗？请演示一下。
@user539484：是的，他写的。但他很可能会更改他的代码以在他的应用程序的任何地方使用相同的字节顺序，从而将交换减少到兼容性约束（例如位图文件格式）所需的绝对最小值。