|
ProgressCircle(TCanvas,TCanvasRect,Integer,Integer,Integer,Integer,TColors,Boolean,Integer,TRSShapeType,TRSShapeOrientation,Boolean,Integer,Integer,TProgressDirection,TProgressDisplayType) Method |
Scroll Prev Top Next More |
Draws a circular progress "bar" using a gradient. Similar to a progress bar, but in a circular orientation. Shapes are drawn on the perimeter of the circle up to the current progress position.
Namespace: RSGraphics
Delphi |
procedure ProgressCircle(const Canvas: TCanvas; const CanvasR: TCanvasRect; |
Parameters
Canvas
Type: TCanvas
Canvas to paint on
CanvasR
Type: System.Void
Rectangle portion of the canvas to fill with the gradient
OuterPadding
Type: Integer
Amount in pixels the circle is less that the rectangle
Progress
Type: Integer
Amount of progress (between Min and Max)
Min
Type: Integer
Minimum value for the progress
Max
Type: Integer
Maximum value for the progress
Colors
Type: TColors
Gradient colors
AdjustPenColor
Type: Boolean
Adjust pen color or use pen supplied in canvas.
SubDivisions
Type: Integer
Number of subdivisions in the scale (<= Max)
SubShape
Type: TRSShapeType
Shape to draw on perimeter of progress area
SubShapeOrientation
Type: TRSShapeOrientation
Orientation of the subshapes
SubShapeBevel
Type: Boolean
Should subshapes be beveled or not
SubShapeBevelSize
Type: Integer
Size of bevel for subshapes
Spacing
Type: Integer
Space in pixels between subdivisions
Direction
Type: TProgressDirection
Direction progress circle grows towards
DisplayType
Type: TProgressDisplayType
Draw all progress or only current progress
