manstopper
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
procedure CurStepChanged(CurStep: TSetupStep);
var ChComp, TmpValue:longword;
begin
if CurStep = ssPostInstall then
if MyError then Error;
if CurStep = ssPostInstall then begin
WizardForm.ProgressGauge.Hide;
WizardForm.CancelButton.Visible:=false;
MyCancelButton:=TButton.Create(WizardForm);
with MyCancelButton do begin
Parent:=WizardForm;
Width:=ScaleX(85);
Caption:=ExpandConstant('{cm:CancelButton}');
Left:=ScaleX(400);
Top:=WizardForm.cancelbutton.top;
OnClick:=@CancelButtonOnClick;
end;
CallBack:=WrapMyCallback(@ProgressCallback,2);
Cancel:=0;
OveralPct:=0; |
Всего записей: 76 | Зарегистр. 17-12-2005 | Отправлено: 17:25 12-07-2010 | Исправлено: manstopper, 21:39 12-07-2010 |
|
