Copyright© Kambiz R. Khojasteh. All rights reserved.
Get future component updates from http://www.delphiarea.com.
DESCRIPTION
TSmoothShow is a non-visual component that can be used for resizing or moving a windowed control by drawing an animated frame.
PROPERTIES
- BorderWidth: TBorderWidth
Determines the size of the animated frame.
- Busy: Boolean (Read-only)
When is true, indicates the component is playing the animation.
- Color: TColor
Determines the color of the animated frame.
- Delay: Word
the amount of delays in milliseconds between two animation steps.
- Enabled: Boolean
If set to false, the Execute method does nothing.
- Reverse: Boolean
If set to true, the control animates from minimized state to normal state. If set to false, the control animates from normal state to minimized one.
- Control: TWinControl
Determines the windowed-control that animation will be applied to it.
- MaxLocation: TMaxLoc
TMaxLoc = (xlDefault, xlCustom)
This property determines the maximized state of the control. If this property is xlCustom, the maximized state is determined by MaxCustomBounds property.
- MaxLeft: Integer
If MaxLocation is set to xlCustom, determines the left position of the control in the maximized state.
- MinTop: Integer
If MaxLocation is set to xlCustom, determines the top position of the control in maximized state.
- MaxWidth: Word
If MaxLocation is set to xlCustom, determines the width of the control in the maximized state.
- MaxHeight: Word
If MaxLocation is set to xlCustom, determines the height of the control in the maximized state.
- MaxCustomBounds: TRect
If MaxLocation is set to xlCustom, determines the control's bounds rectangle in the maximized state.
- MinLocation: TMinLoc
TMinLoc = (mlCenter, mlTopLeft, mlTopRight, mlBottomLeft, mlBottomRight, mlCustom)
Determines the minimized state of the control. If this property is mlCustom, minimized state is determined by MinCustomBounds property.
- MinLeft: Integer
If MinLocation is set to mlCustom, determines the left position of the control in the minimized state.
- MinTop: Integer
If MinLocation is set to mlCustom, determines the top position of the control in the minimized state.
- MinWidth: Word
If MinLocation is set to mlCustom, determines the width of the control in the minimized state.
- MinHeight: Word
If MinLocation is set to mlCustom, determines the height of the control in the minimized state.
- MinCustomBounds: TRect
If MinLocation is set to mlCustom, determines the control's bounds rectangle in the minimize state.
METHODS
- procedure Execute
Starts the animation.
EVENTS
- OnFinishing: TNotifyEvent
Occurs just before ending the animation.
- OnFinish: TNotifyEvent
Occurs just after ending the animation.
HISTORY
- 2.04 (November 18, 2008)
- Support for up to Delphi 2009 added.
- 2.03 (March 13, 2007)
- Fixed the bug in initializing the animating frame.
- 2.02 (March 8, 2002)
- Fixed bug regarding controls with custom regions.
- 2.01 (December 27, 2001)
- Now supports Delphi 6.
- 2.00 (Unknown Date)
- Several major improvements.
- 1.00 (Unknown Date)
- Initial release.
ACKNOWLEDGMENT
Special thanks to:
LICENSE
TSmoothShow component is freeware. You may copy component's files AS LONG AS YOU COPY ALL OF THEM. If you want to change the source code in order to improve the component's features, performance, etc. please send me the new source code so that I can have a look at it. The changed source code should contain descriptions what you have changed, and of course your name. The only thing you MAY NOT CHANGE is the ORIGINAL COPYRIGHT INFORMATION.
DISCLAIMER
TSmoothShow is provided "AS IS" without any warranty of any kind, either express or implied. The entire risk as to the quality and performance of the software is with you. The author is NOT liable for any DAMAGES resulting from the use and misuse of the component, especially he is NOT liable for DAMAGES that were caused BY ANY VERSION WHICH HAS NOT BEEN PROGRAMMED BY THE AUTHOR HIMSELF.