kann Daten nicht an Rect übergeben

[EWeiss]

Habs mal versucht aber transparent werden die Ecken immer noch nicht

Delphi-Quellcode:

          K := TransColor;

          end else K :=  ARGB(lPixel^.rgbReserved,
                               lPixel^.rgbRed,
                               lPixel^.rgbGreen,
                               lPixel^.rgbBlue) and $FFFFFF;
          inc(lPixel);

Delphi-Quellcode:

var 
  lPixel      : PRGBQuad;
begin
  lPixel := bm.bmBits;

Array rausgeschmissen anstelle dessen die Pixel incrementiert.
Sieh Bild im Anhang mit aktivierten AeroEmulationsEffect unter Xp

gruss Emil

[bassman]

Hallo Emil,

vielleicht hilft dir dies weiter:

http://www.swissdelphicenter.ch/de/showcode.php?id=751

Gruss, Jörn

[EWeiss]

Zitat von bassman:

Hallo Emil,

vielleicht hilft dir dies weiter:

http://www.swissdelphicenter.ch/de/showcode.php?id=751

Gruss, Jörn

Erstmal Herzliche grüße und viel spass hier im Forum.

Danke für den link
Aber leider nein da es hier um NonVCL geht also alles was
über Formen abläuft bringt mich nicht weiter.

gruss Emil

[turboPASCAL]

Warum, das kannst du doch nutzen.
Bei deinem Vorherigen Problen mit der Fuchsia-Farbe habe ich mal ne Frage, wie seht denn das Hintergrundbild aus.
Sind ist dort die Farbe 100% Fuchsia ?

[EWeiss]

Zitat von turboPASCAL:

Warum, das kannst du doch nutzen.
Bei deinem Vorherigen Problen mit der Fuchsia-Farbe habe ich mal ne Frage, wie seht denn das Hintergrundbild aus.
Sind ist dort die Farbe 100% Fuchsia ?

Ja das komplette Fenster wird mit Magenta(Fuchsia) vorher gefüllt
und anschließend die Button und HIntergrundbild aufgesetzt
Wenn da im speicher nichts schief läuft müßte das Hundertprozent sein.

Und übergeben wird '$FF00FF'

gruss Emil

[turboPASCAL]

Zitat:

Wenn da im speicher nichts schief läuft müßte das Hundertprozent sein.

Auf dem Beispielbild schauts nicht so aus, die obere linke Ecke sieht nach Farbmisch aus.

[EWeiss]

Dann hier ein Bild in PNG
JPG verfälscht sehr gerne die Farben

gruss Emil

[turboPASCAL]

Und wie kommt das Bild auf den Hintergrund ? Nach dem kopieren ist es möglicherweise nicht mer so schön Fuchsia.. ?

[Roachford]

Zitat von EWeiss:

Habs mal versucht aber transparent werden die Ecken immer noch nicht

Delphi-Quellcode:

          K := TransColor;

          end else K :=  ARGB(lPixel^.rgbReserved,
                               lPixel^.rgbRed,
                               lPixel^.rgbGreen,
                               lPixel^.rgbBlue) and $FFFFFF;
          inc(lPixel);

Was mir daran sofort auffällt: Du baust dir einen Quad zusammen mit Alpha Kanal über die RGBA() Funktion um danach den Alphakanal wieder auszumaskieren. Dann kannste auch gleich die RGB Funktion nehmen oder einfach 1:1 zuweisen und dann nur den Alpha Kanal auf 0 setzen.

[EWeiss]

Hab den fehler bemerkt und den Alpha Kanal auf 0 gesetzt.
Aber ändern tut sich nix.

Werd es erst mal so lassen.

gruss Emil