hintergrundefekt

[xaromz]

Hallo,

Zitat von toredo:

aber wenn ich das mache wird logischerweise das bild im TImage dunkler (aber irgendwie ist es einfach ein bisschen grauer und wird ned dunkler?), aber kann ich auch machen, dass der hintergrund dunkler wird?

Genau, das Bild wird ja mit einer grauen Version seiner Selbst überblendet, also mit jedem Schleifendurchlauf immer grauer.
Wenn Du das Bild dunkler haben willst (was dann nicht mehr der WinXP-Effekt wäre), dann ändere doch einfach die Funktion "ToGray" so ab, dass alle Farben noch etwas dunkler sind, z. B.

Delphi-Quellcode:

...
    //Pixel holen 
    Trip := PRGBTriple(P); 

    // Graustufenberechnung 
    Gray := Round((Trip.rgbtBlue * 0.114 + Trip.rgbtGreen * 0.578 + Trip.rgbtRed * 0.299) * 0.5); // halbe Helligkeit
    Trip.rgbtBlue := Gray; 
    Trip.rgbtGreen := Gray; 
    Trip.rgbtRed := Gray; 

    // Nächster Pixel 
...

Zitat von toredo:

weil n'TImage kann man ja nicht auserhalb der form hinsetzen^^

Das TImage ist ja nur ein Beispiel. Wo Du Dein Bitmap hernimmst und wo Du dann hinmalst ist natürlich Deine Sache.

Gruß
xaromz