能否不调用WinAPI在Delphi中绘制TBitmap？寻求更高效的位图创建API

1. 内存位图离线绘制 #

直接在屏幕TCanvas上调用LineTo会频繁触发GDI交互和屏幕重绘，改用内存位图先完成所有绘制操作，再一次性渲染到屏幕，能大幅减少API调用开销：

var
  MemBitmap: TBitmap;
begin
  MemBitmap := TBitmap.Create;
  try
    MemBitmap.Width := Canvas.Width;
    MemBitmap.Height := Canvas.Height;
    // 在内存画布批量绘制线条
    MemBitmap.Canvas.MoveTo(10, 10);
    MemBitmap.Canvas.LineTo(200, 200);
    // ... 执行更多绘制逻辑
    // 一次性将内存位图复制到屏幕画布
    Canvas.Draw(0, 0, MemBitmap);
  finally
    MemBitmap.Free;
  end;
end;

2. GDI+批量绘制接口 #

Delphi原生支持GDI+，可以用TGPGraphics的DrawLines方法一次性绘制多条线段，减少单次API调用的资源消耗：

uses
  GDIPAPI, GDIPOBJ;

var
  Graphics: TGPGraphics;
  Pen: TGPPen;
  Points: array of TGPPoint;
begin
  Graphics := TGPGraphics.Create(Canvas.Handle);
  Pen := TGPPen.Create(MakeColor(255, 0, 0));
  try
    // 填充点数组，每两个连续点组成一条线段
    SetLength(Points, 4);
    Points[0].X := 10; Points[0].Y := 10;
    Points[1].X := 100; Points[1].Y := 10;
    Points[2].X := 100; Points[2].Y := 100;
    Points[3].X := 10; Points[3].Y := 100;
    // 批量绘制所有线段
    Graphics.DrawLines(Pen, PGPPoint(Points), Length(Points));
  finally
    Pen.Free;
    Graphics.Free;
  end;
end;

3. Direct2D硬件加速绘制 #

针对Delphi 10.2及以上版本，可使用Direct2D进行硬件加速绘制，借助GPU资源降低CPU和GDI的负载：

uses
  Winapi.D2D1, Winapi.D2D1Helpers;

var
  D2DFactory: ID2D1Factory;
  RenderTarget: ID2D1HwndRenderTarget;
  Pen: ID2D1SolidColorBrush;
begin
  // 初始化Direct2D工厂与渲染目标
  D2D1CreateFactory(D2D1_FACTORY_TYPE_SINGLE_THREADED, D2DFactory);
  D2DFactory.CreateHwndRenderTarget(
    D2D1_RENDER_TARGET_PROPERTIES(D2D1_RENDER_TARGET_TYPE_DEFAULT),
    D2D1_HWND_RENDER_TARGET_PROPERTIES(Handle, D2D1_SIZE_U(ClientWidth, ClientHeight)),
    RenderTarget
  );
  RenderTarget.CreateSolidColorBrush(D2D1_COLOR_F(1, 0, 0, 1), Pen);
  
  RenderTarget.BeginDraw;
  try
    // 绘制单条线条
    RenderTarget.DrawLine(
      D2D1_POINT_2F(10, 10),
      D2D1_POINT_2F(200, 200),
      Pen,
      1.0
    );
    // 批量绘制可使用DrawGeometry等接口
  finally
    RenderTarget.EndDraw;
  end;
end;

4. 直接操作位图像素缓冲区 #

如果绘制大量规则线条，可直接操作TBitmap的ScanLine，跳过GDI API调用，完全在内存中处理像素：

var
  Bmp: TBitmap;
  Row: PIntegerArray;
  X: Integer;
begin
  Bmp := TBitmap.Create;
  try
    Bmp.PixelFormat := pf32bit;
    Bmp.Width := 200;
    Bmp.Height := 200;
    // 绘制一条水平线
    Row := Bmp.ScanLine[50];
    for X := 10 to 190 do
      Row[X] := $FF0000; // ARGB格式红色像素
    Canvas.Draw(0, 0, Bmp);
  finally
    Bmp.Free;
  end;
end;

内容的提问来源于stack exchange，提问作者user21138890