delphi - 创建图像和彩色红外？

Question

如何创建图像以及如何使用十六进制颜色代码逐像素着色？

例如。我想创建一个 100x100 像素的图像，我希望 1x1 区域的颜色是 '$002125'，2x2 区域的颜色是 '$125487'.... 我该怎么做？

谢谢您的回答..

Answer 1

为您制作了一个简单的示例。使用 Canvas.Pixels 而不是扫描线。Scanline 虽然更快，但一开始我认为它很适合。颜色是随机生成的，所以你只需要替换这部分代码。

    procedure TForm1.GenerateImageWithRandomColors;
    var
      Bitmap: TBitmap;
      I, J: Integer;
      ColorHEX: string;

    begin
      Bitmap := TBitmap.Create;
      Randomize;

      try
        Bitmap.PixelFormat := pf24bit;
        Bitmap.Width := 100;
        Bitmap.Height := 100;

        for I := 0 to Pred(Bitmap.Width) do
        begin
          for J := 0 to Pred(Bitmap.Height) do
          begin
            Bitmap.Canvas.Pixels[I, J] := RGB(Random(256),
               Random(256),
               Random(256));

            // get the HEX value of color and do something with it
            ColorHEX := ColorToHex(Bitmap.Canvas.Pixels[I, J]);
          end;
        end;

        Bitmap.SaveToFile('test.bmp');
      finally
        Bitmap.Free;
      end;
    end;

function TForm1.ColorToHex(Color : TColor): string;
begin
  Result :=
     IntToHex(GetRValue(Color), 2) +
     IntToHex(GetGValue(Color), 2) +
     IntToHex(GetBValue(Color), 2);
end;