Ne doofe Frage zu Image / Bitmap / scanline

[Tom K.]

Hmmm... zu früh gefreut. Ich hab mal oben genanntes Beispiel genommen und entsprechend mein Image1 eingesetzt. Angeblich soll alles rot werden. Leider tut sich gar nix...

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
type
  PixArray = Array [1..3] of Byte;
var
  p: ^PixArray;
  h,w: Integer;
begin
  for h:=0 to Image1.Picture.Bitmap.Height-1 do
  begin
    p:= Image1.Picture.Bitmap.ScanLine[h];
    for w:=0 to Image1.Picture.Bitmap.Width-1 do
    begin
      p^[3]:=255;
      Inc(p);
    end;
  end;
end;

Wo ist hier jetzt das Problem?

[himitsu]

Daß es ScanLine "nur" für Bitmaps (eventuell aber auch für ICO und unkomprimiert Einzelbild-GIFs) gibt, ist nicht verwunderlich.

Denn dieses gibt einen direkten Zugriff auf die internen Daten der Pixel
und bei fast allen anderen Grafikformaten gibt es keine Daten für alle einzelnen Pixel, da diese irgendwo komprimiert "versteckt" sind.

Zitat von Tom K.:

Wo ist hier jetzt das Problem?

Ist auch ein BitMap in dem Image geladen
und welches Pixelformat besitzt dieses Bitmap?
TBitmap.Pixelformat
Das Format (der Aufbau, die bytes/Bits) der Daten hängt natürlich vom Format des Bitmaps ab.

[Tom K.]

Ich hatte tatsächlich nur vergessen, ein Bild in das Image zu laden
Danke himitsu!

[rollstuhlfahrer]

Ansonsten hättest du jede verfügbare Grafik mit Bitmat.Assign(PNGGrafik) in das Bitmap-format überführen können.

Bernhard