[Code]
procedure InitProgressBar(hwnd:thandle; l,t,w,h,speed:integer; clFore, clBack: integer); external 'InitProgressBar@files:IsProgressBar.dll stdcall';
procedure DeinitProgressBar; external 'DeinitProgressBar@files:IsProgressBar.dll stdcall';
procedure CurPageChanged(CurPageID: Integer);
begin
If CurPageId = wpInstalling then
begin
Wizardform.StatusLabel.Font.Size:=10; Wizardform.StatusLabel.Font.Style:= [fsBold];
Wizardform.Cancelbutton.Hide;
InitProgressBar(WizardForm.Handle, 90, 200, 418, 40, 100, clgreen, clwhite)
end;
If CurPageId = wpFinished then
begin
DeinitProgressBar;
end;
end;
procedure InitializeWizard();
begin
with WizardForm do
begin
Position := poDesktopCenter;
ClientWidth := ScaleX( 600 );
ClientHeight := ScaleY ( 480 );
WelcomeLabel1.SetBounds( ScaleX( 0 ), ScaleY( 0 ), ScaleX( 0 ), ScaleY( 0 ) );
WelcomeLabel2.SetBounds( ScaleX( 0 ), ScaleY( 0 ), ScaleX( 0 ), ScaleY( 0 ) );
WizardBitmapImage.SetBounds( ScaleX( 0 ), ScaleY( 0 ), ScaleX( 600 ), ScaleY( 450 ) );
OuterNotebook.SetBounds( ScaleX( 0 ), ScaleY( 0 ), ScaleX( ClientWidth ), ScaleY( 440 ) );
InnerNotebook.SetBounds( ScaleX( 12 ), ScaleY( 63 ), ScaleX( 600 ), ScaleY( 370 ) );
TasksList.SetBounds( ScaleX( 15 ), ScaleY( 15 ), ScaleX( 555 ), ScaleY( 355 ) );
SelectTasksLabel.SetBounds( ScaleX( 0 ), ScaleY( 0 ), ScaleX( 0 ), ScaleY( 100 ) );
ReadyLabel.SetBounds( ScaleX( 0 ), ScaleY( 0 ), ScaleX( 0 ), ScaleY( 0 ) );
ReadyMemo.SetBounds( ScaleX( 15 ), ScaleY( 15 ), ScaleX( 555 ), ScaleY( 355 ) );
Bevel1.SetBounds( ScaleX( 0 ), ScaleY( 60 ), ScaleX( ClientWidth ), ScaleY( 3 ) );
Bevel.SetBounds( ScaleX( 0 ), ScaleY( 440 ), ScaleX( ClientWidth ), ScaleY( 2 ) );
BeveledLabel.Top := ScaleY( 294 );
StatusLabel.SetBounds( ScaleX( 85 ), ScaleY( 100 ), ScaleX( 360 ), ScaleY( 20 ) );
ProgressGauge.SetBounds( ScaleX( 0 ), ScaleY( 0 ), ScaleX( 0 ), ScaleY( 0 ) );
BackButton.SetBounds( ScaleX( 352 ), ScaleY( 450 ), ScaleX( 75 ), ScaleY( 23 ) );
NextButton.SetBounds( ScaleX( 432 ), ScaleY( 450 ), ScaleX( 75 ), ScaleY( 23 ) );
CancelButton.SetBounds( ScaleX( 512 ), ScaleY( 450 ), ScaleX( 75 ), ScaleY( 23 ) );
MainPanel.Width := ScaleX( ClientWidth );
WizardSmallBitmapImage.Left := ScaleX( ClientWidth - 58 )
end;
end;
procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
Confirm:=False
Cancel:=True
end; |
