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:

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:

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:

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