Delphi - TSpiralEffect komponens

Bitmap effektek 11. rész

forráskód letöltése

A Spiral effekt viszonylag egyszerű de látványos képváltást tesz lehetővé. A megjelenítendő kép részleteit spirál alakban másoljuk a célképre. A mellékelt példaprogram megnyitása előtt a SpiralEffect.pas-ban lévő komponenst telepítenie kell a Delphi alá. A komponens telepítéséhez szükség van továbbá a cikksorozat első részéhez mellékelt BaseEffect unit-ra.

A képet felosztjuk vízszintesen és függőlegesen a GridSizeX és GridSizeY property-kben megadott négyszögre. A két property értékének szorzata megadja a lépésszámot is. A képváltás a bal-felső sarokban lévő négyszög megjelenítésével kezdődik. Ezután következik a tőle jobbra lévő négyzet, és így tovább egészen addig, amíg el nem értük a kép jobb szélét. Amikor ez megtörtént, akkor lefelé indulunk el, a kép aljáig, majd onnan balra a kép bal széléig, és onnan felfelé a második sorig. Ezután megint jobbra, és így tovább. A kis négyzetek így spirál alakban jelennek meg egymás után.


Bitmap effektek cikksorozat