# Type ThtProgressEvent

## Declaration

TProgressStage = (psStarting, psRunning, psEnding);

ThtProgresstEvent = procedure(Sender: TObject; Stage: TProgressStage;

PercentDone: integer) of Object;

## Description

The ThtProgressEvent type is the type for the OnProgress event.

SenderThe THtmlViewer doing the parsing and formatting.

StageThe stage in the action.

PercentDoneAn approximation to the percentage of completion.

Note that the TProgressStage type is defined in Graphics.pas.