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
TransparentBlt 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