Thema: Delphi Zwei GIFs vereinen

Einzelnen Beitrag anzeigen

Benutzerbild von faux
faux

Registriert seit: 18. Apr 2004
Ort: Linz
2.044 Beiträge
 
Turbo Delphi für Win32
 
#1

Zwei GIFs vereinen

  Alt 15. Jul 2006, 00:50
Hallo!

Ich habe zwei TImages übereinander. Im hinteren ist eine Landkarte zu sehen und im vorderen sind bestimmte Regionen markiert. Bei beiden Bildern handelt es sich um GIF-Bilder. Das vordere Bild transparent (GIF-Transparenz). Ich würde jetzt gerne ein vollständies Bild abspeichern (egal ob BMP oder GIF, GIF wäre aber am besten). Dazu habe ich mittels der Suche von MSDN-Library durchsuchenTransparentBlt erfahren und habs auch gleich ausprobiert, aber irgendwei bekomme ich immer ungültige Grafiken.
Delphi-Quellcode:
procedure TMainForm.VollstndigeGrafikspeichern1Click(Sender: TObject);
var
  Dest: TPicture; // Hier habe ich mal ein temporäres Image angelegt
begin
  if SaveFull.Execute then
  begin
    Dest := TPicture.Create;
    Dest.Bitmap := Image2.Picture.Bitmap; // Ich VERSUCHE in das Temporäre
                                          // Image das hintere Bild zu laden
    TransparentBlt(
      Dest.Bitmap.Handle, // Hier muss ich das Destination Handle angeben
      0, // X-Koord
      0, // Y
      320, // Width
      240, // Height
      Image1.Picture.Bitmap.Handle, // Und hier das Source Handle
      0, // Wieder X
      0, // und Y
      320, // und Width
      240, // sowie Height
      clNone // Hier sollte die Transparente Farbe stehen, aber wie
                                          // lautet die, wenn ich die GIF-Transparenz benutze?
    );
    Dest.SaveToFile(SaveFull.FileName);
  end;
end;
Wäre nett wenn mir wer helfen könnte.

Grüße
Faux
Faux Manuel
Wer weiß, dass er nichts weiß, weiß mehr, als der der nicht weiß, dass er nichts weiß.
GoTrillian
  Mit Zitat antworten Zitat