progress.pas

来自「autoupdate 1.02 source code」· PAS 代码 · 共 30 行

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.