W PowerDraw 3 zrobienie efektu rozjaśniania i przyciemniania ekranu jest rzeczą dziecinnie prostą.
Wystarczy skorzystać z polecenia:
|
1 |
PoleA.SetLumGammaRamp(Jasność, Kontrast); |
Oba parametry przyjmują wartość od -255 do 255. Tworząc efekt Fade zmieniamy tylko pierwszy parametr, którego wartość ciągle zwiększamy aż do 0. Przykładowa procedura rekurencyjna :
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
procedure TRenderer.FadeEffect(Liczba: Integer); begin If Liczba = -255 then begin Pole.beginScene(); ... Pole.endScene(); Pole.Present(); end; If Liczba < 0 then begin PoleA.SetLumGammaRamp(Liczba, 0); FadeEffect(Liczba); end; end; |
Wywołujemy poleceniem :
|
1 |
FadeEffect(-255); |
Należy ją umieścić do przejściu programu w tryb graficzny PowerDraw np. w OnCreate.
Autor: Nakiel