Hallo DP,
ich habe eine Frage: Und zwar habe ich eine PNG Datei. Diese lade ich in ein TBitmap.
Und dieses Bitmap male ich später auf ein anderes, welches dann auf die Paintbox gezeichnet wird.
Zur Zeit sieht das bei mir so aus:

markieren

Code:

Hintergrundbild -----| 
                     |-----BB-->|---> Prim. Bufferbitmap -BB-> Paintbox
PNG --> Sek. Bufferbitmap -C.D.-|

Das PNG wird so in die Bufferbitmap geladen:

markieren

Delphi-Quellcode:

PNG := TPNGObject.Create;
PNG.LoadFromFile(<Datei>);

<Sek. Bufferbitmap>.Assign(PNG);
FreeAndNil(PNG);

Dabei steht oben BB für BitBlt und C.D. für Canvas.Draw.
Erstes unterstützt meiner Information nach keine Transparenz, Zweiteres hingegen schon.

MfG
xZise

Versuch es mal mit "PNG.Draw..." oder so. Die Kompon. hat eine eigene Zeichenroutiene.
Wenn du das PNG-Bitmap in ein Delphi-"TBitmap" lädst werden die Transparenzen (?), transparenten Teile
ggf. nicht über nommen.

Nutze einfacher Weise die GR32 unit mit ihren Bitmaps, diese unterstützen so etwas.

Cool Ich habe das jetzt in Benutzung!
Danke!

Aber ein kleines Problem tritt z.Zt. auf:
images[i].LoadFromResourceName(HInstance, names[i]) Da kann er einfach nicht die Ressource finden, wobei die existieren muss, weil es vorher ja auch ging. Nur mache ich atm nicht den Umweg über ein PNG-Objekt.
So sieht die .rc aus:

markieren

Code:

BigSnow RCDATA "snow_big.png"
SmallSnow RCDATA "snow_small.png"
NormalSnow RCDATA "snow_medium.png"

markieren

Delphi-Quellcode:

const
  NAMES : array [0..2] of string = ('BigSnow', 'NormalSnow', 'SmallSnow');

Ich vermute, dass der Typus nicht korrekt ist, aber hier wird überall, RCDATA gesagt...

MfG
xZise

[edit]Mist Irgendwas ist das schiefgegangen?

1. Wenn ich das in ein RessourcenStream lesen will, findet er die Ressource schon wieder nicht.
2. Wenn ich das Bild dann aus einer Datei (*.png) lade, funktioniert es nur bedingt:
   Ohne alles, sind transparente Teile schwarz.
   Wenn ich die GR32_PNG Unit benutze, sind diese dann weiß

[/edit]

Hmm bei dir funktioniert es wunderbar, aber bei mir irgendwie nicht
Selbst wenn die Bufferbitmaps vom Typus "TBitmap32" sind, was sie ja nicht sein müsste, da da ja keine Transparenz ist

MfG
xZise

[edit]Oh man ^^ Ich habs:
So war es vorher:

markieren

Delphi-Quellcode:

procedure TSnow.DrawTo(const ABitmap : TBitmap32);
begin
  FBitmap.DrawTo(ABitmap.Canvas.Handle, FLeft, FTop);
end;

Und dannach, also dass es funzt:

markieren

Delphi-Quellcode:

procedure TSnow.DrawTo(const ABitmap : TBitmap32);
begin
  FBitmap.DrawTo(ABitmap, FLeft, FTop);
end;