A mellékelt példaprogram megnyitása előtt a Vignette.pas-ban lévő komponenst telepítenie kell a Delphi alá. Ehhez válassza a Component - Install Component menüpontot.
Mivel semmi különleges dologra nincs szükség (pl. DoubleBuffered), ezért elég, ha az új komponenst a TGraphicControl osztályból származtatjuk. Négy új property-t hozunk létre, ezek sorban a következők:
Picture
Osztály: TVignette
property Picture: TPicture;
Ebben a property-ben adhatjuk meg a megjeleníteni kívánt képet.
Color
Osztály: TVignette
property Color: TColor;
Ez a property szolgál a keret színének megadására.
AutoSize
Osztály: TVignette
property AutoSize: boolean;
Ha ennek a property-nek az értéke igaz, akkor a komponens méretét a kép méretéhez igazítja, ellenkező esetben a komponens mérete tetszőlegesen változtatható, és a kép mindig a bal felső sarokhoz lesz igazítva.
Intensity
Osztály: TVignette
property Intensity: integer;
Az ebben a property-ben megadott érték befolyásolja a keret szélességét. Minél nagyobb ez az érték, annál keskenyebb lesz a keret.
Az effekt lényegét a bevezetőben már elmondtuk, de nézzük meg egy kicsit részletesebben. Lényeges dolog, hogy az effektet nem a Picture property-ben megadott képen hajtjuk végre, hanem egy globális TBitmap objektumban, és ezt fogjuk a komponensre kirajzolni.
Ha jól megnézzük a képet, akkor láthatjuk, hogy a keret tulajdonképpen vízszintesen és függőlegesen is szimmetrikus. A másik dolog, amit megfigyelhetünk az, hogy a kép szélein a keret színe látszik csak, míg a kép közepe felé haladva a keret egyre átlátszóbb lesz, és a kép eredeti pixelei látszanak erősebben. A szimmetriából az következik, hogy az áttetszőség mértékét elég csak a negyed képen elvégezni, majd tükrözni vízszintesen és függőlegesen. Ez a feldolgozást jelentősen meggyorsítja. Az áttetszőség mértékét pedig úgy határozzuk meg, hogy először megmérjük az adott pixel középponttól mért távolságát, majd azt elosztjuk egy értékkel, amit a maximális távolságból, és a pixel koordinátáiból állítunk elő. Ekkor egy 0-1 közötti értéket kapunk, amit az áttetszőség százalékban megadott értékével azonosítunk. Egy belső eljárásban a pixel eredeti színének színösszetevőit ebben a százalékban keverjük össze a keret színének színösszetevőivel.