Click above to get retro games delivered to your door ever month!

 Class TIcon    Inherits from TControl
--------------------------------------------------------------------------------

 DATA
--------------------------------------------------------------------------------
 cIcoFile       *.ICO filename if load it from disk.
 cResName       Resource name if load it from a resource ( DLL, RES, RC )
 hIcon          Windows handle of the icon.

 METHODS
--------------------------------------------------------------------------------
 New            Constructor from source code.
 ReDefine       Constructor from resource.
 Destroy        Destroy the object.
 Display        Displays the control. Use :Refresh() to force repaint.
 End            Ends control and make it disappear.
 Init           Generic Control initialization method.
 Paint          Draws the control. This process occurs inside Display.
 SetFile        Name of the icon file.
 SetName        Set a new name for the icon.