Delphi - TRandomBarsEffect komponens

Bitmap effektek 9. rész

forráskód letöltése

A RandomBars effekt a következőképpen néz ki: a képet soronként vagy oszloponként jelenítjük meg, de úgy, hogy az egyes sorok vagy oszlopok nem sorrendben, hanem véletlenszerűen jelennek meg. A mellékelt példaprogram megnyitása előtt a RandomBarsEffect.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.

Azt, hogy soronként vagy oszloponként jelenítjük meg a képet, az Orientation property-vel adhatjuk meg.

Az Initialize eljárásban feltöltünk egy annyi elemből álló tömböt, amennyi sorból vagy oszlopból áll a kép. Minden tömb elem értékül kapja a saját sorszámát. Ezután végighaladunk a tömb elemein, és minden elem értékét kicseréljük egy véletlenszerűen kiválasztott másik elem értékével. A lépésszámot beállítjuk a tömb elemeinek számára.

A PrepareBitmap eljárásban nincs más dolgunk, mint hogy a lépésszámnak megfelelő tömb elemben tárolt sort, vagy oszlopot megjelenítsük.


Bitmap effektek cikksorozat