Thema: Delphi AlphaBlend

Einzelnen Beitrag anzeigen

Benutzerbild von dizzy
dizzy

Registriert seit: 26. Nov 2003
Ort: Lünen
1.932 Beiträge
 
Delphi 7 Enterprise
 
#6

Re: AlphaBlend

  Alt 21. Dez 2004, 21:07
Ich weiss zwar nicht was du meinst, aber folgendes geht mit der G32:

Delphi-Quellcode:
var
  bmp1, bmp2: TBitmap32;
.
.
bmp1 := TBitmap32.Create;
bmp1.DrawMode := dmBlend;
bmp2 := TBitmap32.Create;
bmp2.DrawMode := dmBlend;
.
.
bmp1.LoadFromFile('blabla');
bmp2.LoadFromFile('blubb');
bmp2.MasterAlpha := 127;
bmp2.DrawTo(bmp1);
Vorausgesetzt beide Bitmaps sind gleich groß, anderen Falls gibt es von DrawTo eine ganze Reihe von überladenen Versionen, mit denen man gleich strechen usw. kann.
Nach dem obigen ist bmp2 halbtransparent auf bmp1 gezeichnet - also 1:1 gemischt. Das fertige Bild ist in bmp1.

Gruss,
Fabian
Fabian K.
INSERT INTO HandVonFreundin SELECT * FROM Himmel
  Mit Zitat antworten Zitat