50 prozentige Transparenz?

Dose · Hält's aus hier Beiträge: 11

Erstmal Hallo an alle, denn ich bin neu hier und falle gleich mit der Tür bzw. der Frage ins Haus.

Ich habe 2 TBitmaps. Nun möchte ich das eine auf das andere kopieren und dabei 50% Transparent machen, also so wie wenn man in Photopaint oder Photoshop zwei Ebenen über einander legt und dann die obere Ebene "ein wenig" transparent macht.

Ich habe dazu bisher nichts gefunden. Vielleicht weiß ja jemand Rat, ich würde mich sehr über einen Hinweis freuen!

BenBE · Verfasst: Fr 28.01.05 20:38

Für jeden Pixel:

markieren

Delphi-Quelltext

1:	Dest.Color := ((Src1.Color and $FEFEFE) + (Src2.Color and $FEFEFE)) shr 1;

Oder in Worten: Durchschnitt der beiden Pixel bilden ...

Für Transparenz <>50%:

markieren

Delphi-Quelltext

1:	Dest.Color := Trunc(Src1.Color * (1-Transparenz) + Src2.Color * Transparenz);

Wobei Transparenz = Prozent / 100.

_________________

Anyone who is capable of being elected president should on no account be allowed to do the job.
Ich code EdgeMonkey - In dubio pro Setting.

Dose · Hält's aus hier Beiträge: 11

Danke!

Aber nur das 50% (also das obere Beispiel) funktioniert. Wäre supper, wenn Du mir für das FEFEFE noch entsprechendes für 25% und 75% sagen könntest. Dann wäre ich super glücklich!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme