|
Registriert seit: 31. Aug 2005
1.622 Beiträge
FreePascal / Lazarus
|
Re: [Andorra] Licht ?
17. Jun 2008, 19:25
Leite eine Klasse von TSprite ab, überschreibe die Methode DoDraw und Zeichne dort dein Licht an die Entsprechende stelle. Schau dir dazu einfach den Quellcode von TImageSprite an - anstatt ein Image darzustellen möchtest du nur die Canvasoperationen ausführen.
Ach ja - damit das mit dem Ambientcolor funktioniert, musst du noch folgendes Einfügen:
AdDraw.Options := AdDraw.Options + [doLight];
Andreas
"Sollen sich auch alle schämen, die gedankenlos sich der Wunder der Wissenschaft und Technik bedienen, und nicht mehr davon geistig erfasst haben als die Kuh von der Botanik der Pflanzen, die sie mit Wohlbehagen frisst." - Albert Einstein
|