如何使用delphi创建单色bmp文件（位图）

发布于 2024-10-26 18:50:58 字数 240 浏览 5 评论 0原文

我需要一种在运行时快速创建 24 位位图（并保存到文件）的方法，指定 Width 、 Height 和颜色，

调用

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

并像这样

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

原文

I need a fast way to create 24 bits bitmaps (and save to a file) in runtime,specifing the Width , Height and color

something like

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

and call like this

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

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

北音执念 2024-11-02 18:50:58

您可以使用 TBitmap< 的 Canvas 属性/code>，将 Brush 设置为您要使用的颜色，然后调用 FillRect 函数填充 Bitmap。

尝试这样的事情：

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;

you can use the Canvas property of the TBitmap, setting the Brush to the color which you want to use, then call FillRect function to fill the Bitmap.

try something like this :

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;

回复收藏 0 原文