Bitmap aus Array

[DGL-luke]

Delphi-Quellcode:

type
  TGrayArray = array of array of Byte;

function MakeGray(values: TGrayArray): TBitMap;
var x,y:Integer;
begin
  Result := TBitmap.create;               //erzeugen
  Result.Width := length(values);
  Result.height := length(values[0]);
  Result.Canvas.Brush.Color := clblack;
  Result.canvas.Rectangle(0,0,Result.Width,Result.Height); //schwarz färben

  for x := 0 to high(values) do
    for y := 0 to high(values[x]) do
      if y < Result.Width then
        begin
          Result.Pixels[x,y] := rgb(values[x,y],values[x,y],values[x,y]); //sehr langsam! scanline/GR32 ist besser!
        end
      else
        Break;  //wir wollen nicht über die bitmapgrenzen hinaus malen
end;

Nicht getestet.