unit progress;

interface

uses Classes, Windows, sysutils;

type
    CancelException = class(Exception)

    end;
    
    IProgress = interface
    
        procedure setMessage(msg: String);
        procedure setNoActions(toVal: Integer);
        procedure setPos(Position: Integer);
        procedure actionDone();
        procedure Done;
        procedure setPhases(toPhases: integer);
        procedure phaseDone;

        function  GetHandle : hWnd;
        function  isCancelled: Boolean;        
    end;

implementation


end.