Unit CircImg |
*****************************************************************************} { } { FileName : CircImg.pas } { } { Author : Ian Lane (Email: lanei@ideal.net.au) } { } { Synopsis : A simple component which causes a graphic to circle around } { inside its perimeter. It is useful for about boxes, etc. } { } { Distribution : This component is free for public use and components may be } { freely descended from it as long as credit is given to the } { author. } { } { Copyright (c) 1998 Ian Lane } { } {
Classes |
Functions |
Register - Invalidate the graphic at its new location so that it gets drawn
Types |
Constants |
DefaultAnimate
DefaultDelay
DefaultGranularity
DefaultHeight
DefaultIncrementalDisplay
DefaultInitialCorner
DefaultWidth
Variables |
Functions |
Types |
TAnimationEvent = procedure(Sender : TObject; var ImageOffset : TPoint) of Object
TInitialCorner = (icTopLeft, icTopRight, icBottomLeft, icBottomRight);
Constants |
Variables |