delphi - 如何使用delphi创建单色bmp文件(位图)

Question

我需要一种在运行时快速创建 24 位位图(并保存到文件)的方法，指定宽度、高度和颜色

类似的东西

procedure CreateBMP(Width,Height:Word;Color:TColor;AFile: string);

然后像这样调用

CreateBMP(100,100,ClRed,'Red.bmp');

Answer 1

您可以使用 TBitmap 的 Canvas 属性，将 Brush 设置为您要使用的颜色，然后调用 FillRect函数来填充位图。

尝试这样的事情:

procedure CreateBitmapSolidColor(Width,Height:Word;Color:TColor;const FileName : TFileName);
var
 bmp : TBitmap;
begin
 bmp := TBitmap.Create;
 try
   bmp.PixelFormat := pf24bit;
   bmp.Width := Width;
   bmp.Height := Height;
   bmp.Canvas.Brush.Color := Color;
   bmp.Canvas.FillRect(Rect(0, 0, Width, Height));
   bmp.SaveToFile(FileName);
 finally
   bmp.Free;
 end;
end;