Forum: Object-Pascal / Delphi-Language
Delphi
by xaromz,
13. Mai 2006
Hallo,
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.
...
//Pixel holen
Trip := PRGBTriple(P);
//...
Forum: Object-Pascal / Delphi-Language
Delphi
by xaromz,
13. Mai 2006
Hallo,
im Grunde brauchst Du dafür drei Funktionen:
Eine, die ein Graustufenbild erzeugt.
Eine, die zwei Bilder überlagert
Eine, die diese Überlagerung in einer Schleife widerholt.
Ich hab mal diese drei Funktionen geschrieben. Du brauchst nur noch ein TImage und einen Button:
procedure ToGray(const Bitmap: TBitmap);
var