Unit RkPrgres

========================================================================= RkPrgres Unit Custom progress bar component with several border styles (Flat, Ctl3D, and StatusBar). Specialized properties (PartsComplete, TotalParts) makes it easy to control the progress bar during install processes, etc. Developing Custom Delphi 3 Components Copyright © 1995-1997 by Ray Konopka =========================================================================} {$I DCDC.INC

Classes

TRkProgressBar -

Functions

DrawPercentBar - ========================================================================= DrawPercentBar This is an exported procedure to facilitate usage by other components =========================================================================

Types

TPercentRange
TProgressBorderStyle
TProgressChangeEvent
TProgressOrientation

Constants

Variables


Functions


procedure DrawPercentBar( Canvas : TCanvas; DrawRct : TRect; Offset, InteriorOffset, BorderWidth : Integer; Orientation : TProgressOrientation; BarColor, BackColor : TColor; Percent : Integer; ShowPercent : Boolean );

========================================================================= DrawPercentBar This is an exported procedure to facilitate usage by other components =========================================================================

Types


TPercentRange = 0..100

TProgressBorderStyle = ( bsFlat, bsCtl3D, bsStatusControl );

TProgressChangeEvent = procedure( Sender : TObject;
                                    Percent : Integer ) of object
Method pointer type for OnChange event
TProgressOrientation = ( poHorizontal, poVertical );

Constants


Variables