TSmoothShow for Delphi 3-5
--------------------------

Author: Kambiz R. Khojasteh
E-mail: khojasteh@mail.com
Web: http://www.crosswinds.net/~khojasteh/

Special thanks to:
   Obeliks <Obeliks@obeliks.de>


D E S C R I P T I O N
---------------------

TSmoothShow is a non-visual component. This component animates forms or other
windowed controls from one size and position to another size and position.


I N S T A L L A T I O N
-----------------------

To install TSmoothShow add following files into a new or existing package:

  1. SSReg.pas
  2. SmoothShow.pas

After installation, you could find TSmoothShow on Samples palette.


K E Y  P R O P E R T I E S
--------------------------  

* BorderWidth : TBorderWidth
  Determines the width of the border line.

* Busy: Boolean (ReadOnly)
  This is True when the component is executing. 

* Color : TColor
  Determines the color of the border line.

* Delay: Word
  the amount of delay between two animation steps in milliseconds.

* Enabled: Boolean
  If False, the execute method does nothing.

* Reverse: Boolean
  If True, the control animates from minimized state to maximized state.
  If False, the control animates from normal state to minimiz.

* Control: TWinControl
  Determines the windowed-control that animation will be applied to it.

* MaxLocation: TMaxLoc
  Where: TMaxLoc = (xlDefault, xlCustom)
  This property determines the maximize state of the control. If this property is xlCustom,
  maximize state determines by MaxCustomBounds property.

* MaxLeft: Integer
  if MaxLocation is xlCustom, determines left position of the control in maximize state.
  
* MinTop: Integer
  if MaxLocation is xlCustom, determines top position of the control in maximize state.

* MaxWidth: Word
  if MaxLocation is xlCustom, determines width of the control in maximize state.
  
* MaxHeight: Word
  if MaxLocation is xlCustom, determines height of the control in maximize state.

* MaxCustomBounds: Word
  if MaxLocation is xlCustom, determines control's bounds rectangle in maximize state.

* MinLocation: TMinLoc
  Where: TMinLoc = (mlCenter, mlTopLeft, mlTopRight, mlBottomLeft, mlBottomRight, mlCustom)
  Determines the minimize state of the control. If this property is mlCustom, minimize
  state determines by MinCustomBounds property.

* MinLeft: Integer
  if MinLocation is mlCustom, determines left position of the control in minimize state.
  
* MinTop: Integer
  if MinLocation is mlCustom, determines top position of the control in minimize state.

* MinWidth: Word
  if MinLocation is mlCustom, determines width of the control in minimize state.
  
* MinHeight: Word
  if MinLocation is mlCustom, determines height of the control in minimize state.

* MinCustomBounds: Word
  if MinLocation is mlCustom, determines control's bounds rectangle in minimize state.


E V E N T S
-----------

* OnFinishing: TNotifyEvent
  Occurs just before finishing the animation.

* OnFinish: TNotifyEvent
  Occurs just after finishing the animation.


M E T H O D S
-------------

* procedure Execute;
  Starts the animation.


K N O W N  I S S U E S 
----------------------

  When Form.WindowState is wsMaximized, set Form.Position to poDesktopCenter


D I S C L A I M E R
-------------------

This component is provided AS-IS. I will not be responsable for any dammage
due to use of this component. This component is freeware for commercial and
non-commercial use.



Have a fun,
Kambiz

