Class TpsiProgressBar (unit psiProgressBar)

Inherits from

TGraphicControl

var} {type

Constructors


constructor Create(AOwner: TComponent);



Functions

destructor Destroy;


procedure Paint;

===================================================================

procedure PaintCaption;

===================================================================

procedure PaintMainPanel;

===================================================================

procedure PaintProgressBar;

===================================================================

procedure SetColor3DHighlight(Value: TColor);

===================================================================

procedure SetColor3DShadow(Value: TColor);

===================================================================

procedure SetColorBack(Value: TColor);

===================================================================

procedure SetColorBar(Value: TColor);

===================================================================

procedure SetFontCaption(Value: TFont);

===================================================================

procedure SetNumDone(Value: integer);

===================================================================

procedure SetNumTodo(Value: integer);

===================================================================

procedure SetProgress(Value: integer);

===================================================================

Properties

property Color3DHighlight : TColor


property Color3DShadow : TColor


property ColorBack : TColor


property ColorBar : TColor


property FontCaption : TFont


property NumDone : integer


property NumTodo : integer


property Progress : integer


property Visible :


property Canvas :


property CaptionPanelWidth : Integer


property LastProgress : integer


Events

event OnPaint : TNotifyEvent


Variables

FBrush : TBrush;


FCaptionPanelWidth : Integer;


FColor3DHighlight : TColor;


FColor3DShadow : TColor;


FColorBack : TColor;


FColorBar : TColor;


FFontCaption : TFont;


FLastProgress : integer;


FNumDone : integer;


FNumTodo : integer;


FOnPaint : TNotifyEvent;


FPen : TPen;


FProgress : integer;



Constructors


constructor Create(AOwner: TComponent);


Functions


destructor Destroy;


procedure Paint;

===================================================================


procedure PaintCaption;

===================================================================


procedure PaintMainPanel;

===================================================================


procedure PaintProgressBar;

===================================================================


procedure SetColor3DHighlight(Value: TColor);

===================================================================


procedure SetColor3DShadow(Value: TColor);

===================================================================


procedure SetColorBack(Value: TColor);

===================================================================


procedure SetColorBar(Value: TColor);

===================================================================


procedure SetFontCaption(Value: TFont);

===================================================================


procedure SetNumDone(Value: integer);

===================================================================


procedure SetNumTodo(Value: integer);

===================================================================


procedure SetProgress(Value: integer);

===================================================================


Properties


property Color3DHighlight : TColor


property Color3DShadow : TColor


property ColorBack : TColor


property ColorBar : TColor


property FontCaption : TFont


property NumDone : integer


property NumTodo : integer


property Progress : integer


property Visible :


property Canvas :


property CaptionPanelWidth : Integer


property LastProgress : integer


Events


event OnPaint : TNotifyEvent


Variables


FBrush : TBrush;


FCaptionPanelWidth : Integer;


FColor3DHighlight : TColor;


FColor3DShadow : TColor;


FColorBack : TColor;


FColorBar : TColor;


FFontCaption : TFont;


FLastProgress : integer;


FNumDone : integer;


FNumTodo : integer;


FOnPaint : TNotifyEvent;


FPen : TPen;


FProgress : integer;