Ergebnis der Suchanfrage

• Forum: Multimedia

  Re: PNG-Bild mit Transparenz erzeugen

    Delphi
    by WorstNightmare, 27. Sep 2009
  Klasse, funktioniert wunderbar! :dp:
  
  Hier die Endfassung (ich habe ARGB noch wieder in RGB geändert, da sonst die Farben etwas verfälscht waren):
  
  function TPNGMapleCanvas.Parse1(Input: TMemoryStream): TPNGImage;
  var
  x, y: Integer;
  b1, b2: Byte;
  a, r, g, b: Word;
  begin
• Forum: Multimedia

  Re: PNG-Bild mit Transparenz erzeugen

    Delphi
    by WorstNightmare, 27. Sep 2009
  Oh ja, hab ich ganz vergessen :|
  FWidth = 37; FHeight = 26
• Forum: Multimedia

  Re: PNG-Bild mit Transparenz erzeugen

    Delphi
    by WorstNightmare, 27. Sep 2009
  Dann seh ich wieder nur die Umrisse der Schnecke.
  
  Hab mal die Rohdaten angehangen, einfach die Prozedur oben (deSize = 1924) drauf anwenden und sich das Bild iwo anzeigen/speichern lassen.
• Forum: Multimedia

  PNG-Bild mit Transparenz erzeugen

    Delphi
    by WorstNightmare, 27. Sep 2009
  Hallo,
  
  mein Programm soll aus vorhandenen Daten ein transparentes PNG-Bild erzeugen. Zuerst hatte ich den Alphawert einfach immer weggelassen, allerdings wollte ich nun versuchen ihn mit rein zunehmen, da die Bilder sonst immer einen schwarzen Hintergrund haben und das eben nicht so schön aussieht.
  
  
  function ARGB(A, R, G, B: Byte): COLORREF;
  begin
  Result := B or (G shl 8) or (R shl 16)...