Delphi - TStretchEffect komponens

Bitmap effektek 8. rész

forráskód letöltése

A Stretch effekt a képet látványosan a megfelelő méretre „nyújtva” jeleníti meg, három különböző módszerrel. A mellékelt példaprogram megnyitása előtt a StretchEffect.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.

Ez három módon történhet, amit a StretchStyle property-n keresztül állíthatunk be:
  • ssHide: a képet balról jobbra jeleníti meg, úgy, hogy minden lépésben növeli a kép szélességét. A megjelenő kép egyszerűen eltakarja az alatta levő képet;
  • ssPush: annyiban különbözik az ssHide-tól, hogy a megjelenő kép „összenyomja” a másik képet;
  • ssSpin: ugyanaz, mint az ssHide, de a kép nem balról jobbra, hanem középről balra, és jobbra jelenik meg.
Az animációhoz szükséges lépésszámot a Smooth property-vel befolyásolhatjuk. Minél kisebb értéket adunk meg, annál „finomabb” lesz az animáció, de ezzel egyenes arányban csökken a megjelenítés sebessége. 10-nél kevesebb értéket nem érdemes megadni, mivel az animáció nagyon felgyorsul, és csupán egy villanást lehet majd látni belőle. Ez persze nagyban függ a Speed property értékétől is.

A kép megrajzolását a TBaseEffect osztály CopyStretch eljárása végzi el.


Bitmap effektek cikksorozat