Delphi - TInsetEffect komponens

Bitmap effektek 5. rész

forráskód letöltése

Az Inset effektnél a képet úgy jelenítjük meg, hogy a lépések során a képből egyre nagyobb téglalap alakú részt rajzolunk meg. Minden lépésben a kép eredeti méretével arányos kisebb képrészletet jelenítünk meg, amelynek egyik sarka rögzített az eredeti kép ugyanazon sarkához. A mellékelt példaprogram megnyitása előtt a GradientWipeEffect.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 is.

A kirajzolás irányát a Direction property-vel adhatjuk meg:
  • idUpLeft: a bal felső sarok van rögzítve;
  • idUpRight: a jobb felső sarok van rögzítve;
  • idDownLeft: a bal alsó sarok van rögzítve;
  • idDownRight: a jobb alsó sarok van rögzítve.

Az animációhoz szükséges lépésszám beállítása egyszerű, mert csak az egyik oldalt kell alapul venni. Mivel arányos méretű téglalapokat rajzolunk meg, ezért bármelyik oldalt is választjuk, az animáció utolsó lépésében a megjelenítendő kép teljesen le fogja fedni az előzőt.


Bitmap effektek cikksorozat