[NonVCL] AlphaTransparentverläufe richtig darstellen

**NickelM**

Hi,
Ich bin gerade dabei in NonVCL ein PNG mit Alpha-Transparent (auch verläufe) darzustellen.
Durchs google und Delphi Hilfe welzen bin ich auf die Funktion AlphaBlend gekommen.
So nun hab ich das PNG mit der TPNGImage klasse geladen (da ich kein bok auf selber schreiben habe und von stream lade) und versucht das in BMP umzuwandeln. In VCL weis ich das es geht, da ich es schonmal hinbekommen habe. Nur in NonVCL mag er mir das nicht so wie ich das will

So nun der Code wie ich das Png in ein Bitmap umwandle:

zusammenfalten · markieren

Delphi-Quellcode:

			    BildMem := TMemoryStream.Create;

    BildMem.SetSize(FileSize);

    FileStream.Read(BildMem.Memory^,FileSize);

    try

      case BildType of

      btPng:

        begin

        Png := TPngImage.Create;

        try

          Png.LoadFromStream(BildMem);

          //Bilder ist ein Array von einem Typ den ich schon erzeugt habe und vom Typ TBitmap ist

          Bilder[SkinTeil].SetSize(Png.Width,Png.Height);

          Bilder[SkinTeil].PixelFormat := pf32bit;

          Bilder[SkinTeil].AlphaFormat := afDefined; //afPremultiplied macht kein Unterschied und weglassen gehts garnicht.

          Bilder[SkinTeil].Canvas.Draw(0,0,Png);

        finally

          Png.Free;

        end;

So versuche ich das Bitmap nun zuzeichnen:

zusammenfalten · markieren

Delphi-Quellcode:

			var  Blend : BLENDFUNCTION;

begin

            Blend.BlendOp := 0;

            Blend.BlendFlags := 0;

            Blend.SourceConstantAlpha := 255;

            Blend.AlphaFormat := AC_SRC_ALPHA;

            BitBlt(hdc,0,0,30,30,Bilder[skFormBildMain].Canvas.Handle,120, 100,SRCCOPY);//Hintergrundbild

            AlphaBlend(hdc,0,0,Bilder[skBMiniHotlight].Width,Bilder[skBMiniHotlight].Height,

            Bilder[skBMiniHotlight].Canvas.Handle,0,0,

            Bilder[skBMiniHotlight].Width,Bilder[skBMiniHotlight].Height,Blend);

end;

Soweit funkt das in Windowx XP perfekt. Wenn ich jetzt das in Windows 7 teste, ob 32/64 bit egal,
macht er mir die Transparentefläche weis (bzw. weis in die Transparentfarbe verlaufend)...hmm..hab jetzt unter 2 Win7 und 1 XP (XP ist von mit und Win7 Virtual Maschiene) und es kommt zu diesem Fehler.

Hab schon versucht AlphaFormat von Blend nicht zu setzten oder ConctantAlpha auf 200 oder so macht kein unterschied...eher wird in XP alles Transparenter gezeichnet, ist ja logisch, so wie ich das verstanden hab ist Constant der Hellste wert oder?

Hoffe mir kann jemand einen Alternative sagen, wie ich das ohne, falls möglich, zusätzlichen Units machen kann.

Gruß NickelM

[NonVCL] AlphaTransparentverläufe richtig darstellen

[NonVCL] AlphaTransparentverläufe richtig darstellen

Forumregeln