Invalid Space ID: cAWLpOeQOr34uDeJe5aVNr

root/trunk/Wizards/NewCollection/frame_NCWProgress.pas

Show revision log
 
390438
17
uses
17
uses
18
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
18
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
19
  Dialogs, frame_WizardPageBase, frame_InteriorPageBase, StdCtrls, ExtCtrls, ComCtrls,
19
  Dialogs, frame_WizardPageBase, frame_InteriorPageBase, StdCtrls, ExtCtrls, ComCtrls,
 
20
  unit_WorkerThread, unit_NCWParams, RzPrgres;
20
  unit_WorkerThread, unit_NCWParams;
 
21
21



22
const
22
const



23
  PM_WORKERDONE = WM_USER + 0;
23
  PM_WORKERDONE = WM_USER + 0;


...
...
28
    errorLog: TListView;
28
    errorLog: TListView;



29
    pnButtons: TPanel;
29
    pnButtons: TPanel;



30
    btnSaveLog: TButton;
30
    btnSaveLog: TButton;



31
    Bar: TRzProgressBar;
31
    Bar: TProgressBar;



32
  private
32
  private



33
    FErrors: TStringList;
33
    FErrors: TStringList;



34
34


...
...
82
82



83
function TframeNCWProgress.PageButtons: TWizardButtons;
83
function TframeNCWProgress.PageButtons: TWizardButtons;



84
begin
84
begin



85
  Result := [wbCancel, wbCancel];
85
  Result := [wbCancel];



86
end;
86
end;



87
87



88
procedure TframeNCWProgress.OpenProgress;
88
procedure TframeNCWProgress.OpenProgress;



89
begin
89
begin



90
  Bar.Percent := 0;
90
  Bar.Position := 0;



91
end;
91
end;



92
92



93
procedure TframeNCWProgress.SetComment(const Comment: string);
93
procedure TframeNCWProgress.SetComment(const Comment: string);


...
...
97
97



98
procedure TframeNCWProgress.ShowProgress(Percent: Integer);
98
procedure TframeNCWProgress.ShowProgress(Percent: Integer);



99
begin
99
begin



100
  Bar.Percent  := Percent;
100
  Bar.Position := Percent;



101
end;
101
end;



102
102



103
procedure TframeNCWProgress.ShowTeletype(const Msg: string; Severity: TTeletypeSeverity);
103
procedure TframeNCWProgress.ShowTeletype(const Msg: string; Severity: TTeletypeSeverity);