Bitmap aus einem Array von Farbwerten erzeugen

[Muetze1]

Zitat von daschaos:

Gibt es eine Möglichkeit, ein Bitmap aus einem Array zu erzeugen, in welchem ich Farbwerte pro Pixel abgelegt hab?

In welchem Format liegen diese Farbwerte in dem Array vor? Sind das Palettenindizies oder sind es schon rot/grün/blau Anteile?

/EDIT: Da du sie vorher direkt mit Pixels zugewiesen hast, liegen sie wohl in TColor vor. Dann wie folgt:

Delphi-Quellcode:

function Blubb;
var
  lPixel: PRGBQuad;
  Bmp: TBitmap;
begin 
    // du musst dafür sorgen, dass die Ablage der Pixeldaten auch im gewünschten Format vorliegt. Dazu
    // schau dir die Eigenschaft PixelFormat von TBitmap an.
    // Mein Beispiel geht von pf32bit aus, also 4 Byte pro Pixel: Rot, Grün, Blau, reserved
 
  Bmp.PixelFormat := pf32bit;

  for iy := Low(PixelArray[0]) to High(PixelArray[0]) do
  begin
    lPixel := Bmp.Scanline[iy];  // gibt den Zeiger auf den linken Pixel der Zeile iy zurück
      // alle folgenden Pixel liegen dann direkt hinter dem ersten
   
    for  ix := Low(PixelArray) to High(PixelArray) do
    begin
      lPixel^.rgbRed := GetRValue(PixelArray[ix, iy]);
      lPixel^.rgbGreen := GetGValue(PixelArray[ix, iy]);
      lPixel^.rgbBlue := GetBValue(PixelArray[ix, iy]);
      lPixel^.rgbReserved := 0;

        // diese Funktion verschiebt das Ziel des Zeigers um die Grösse der Datenstruktur auf die er zeigt.
        // Das ist in diesem Falle direkt ein TRGBQuad bestehend auf Rot, Grün, Blau und reserved (jeweils ein Byte)
        // also insgesamt 4 Bytes, also 32 Bit. Diese Struktur entspricht genau den Pixelformat eines Pixels. Somit
        // verschiebt Inc(lPixel) den Zeiger genau so, dass er danach auf die Stelle 4 Bytes später zeigt.
      Inc(lPixel);
    end;
  end; 
end;