Код: Выделить всё
[Code]
const
TfontColor = $ffffff;
var
Wizard1,Wizard2,Wizard3,Wizard4,Wizard5,Wizard6,Wizard7,Wizard8,Wizard9,Wizard10,
Wizard11,Wizard12,Wizard13,Wizard14,Wizard15,Wizard16,Wizard17,Wizard18,Wizard19,Wizard20,Wizard21,Wizard22: LongInt;
hCancelBtn, hNextBtn, hBackBtn, hMusicButton, hDirBrowseBtn, hGroupBrowseBtn, hLogoBtn, StartBtn, IconBtn, hMyCancelBtn, Font1, Font2: HWND;
ButtonFont: TFont;
FreeMB, TotalMB: Cardinal;
WelcomLabel1, SelectDirLabel, DirEditLabel, InstallSpacelabel1, InstallSpacelabel2, GroupEditLabel,
SelectGroupLabel, NoStartLabel, TaskLabel, IconLabel, LabelStatus, LabelFinish: TLabel;
MusicButton: TButton;
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
function BASS_Init(device: Integer; freq, flags: DWORD; win: hwnd; CLSID: Integer): Boolean; external 'BASS_Init@files:BASS.dll stdcall delayload';
function BASS_StreamCreateFile(mem: BOOL; f: PChar; offset: DWORD; length: DWORD; flags: DWORD): DWORD; external 'BASS_StreamCreateFile@files:BASS.dll stdcall delayload';
function BASS_Start(): Boolean; external 'BASS_Start@files:BASS.dll stdcall delayload';
function BASS_Pause(): Boolean; external 'BASS_Pause@files:BASS.dll stdcall delayload';
function BASS_SetVolume(volume: DWORD): BOOL; external 'BASS_SetVolume@files:BASS.dll stdcall delayload';
function BASS_GetVolume: Integer; external 'BASS_GetVolume@files:BASS.dll stdcall delayload';
function BASS_ChannelPlay(handle: DWORD; restart: BOOL): Boolean; external 'BASS_ChannelPlay@files:BASS.dll stdcall delayload';
function BASS_Stop(): Boolean; external 'BASS_Stop@files:BASS.dll stdcall delayload';
function BASS_Free(): Boolean; external 'BASS_Free@files:BASS.dll stdcall delayload';
function NewFont(Height:Integer;thickness,italic,underline,strikeout:DWORD;name:String):hWnd;external 'NewFont@files:IsMyFont.dll stdcall delayload';
procedure Deinitialize;external 'Deinitialize@files:IsMyFont.dll stdcall delayload';
procedure IsMyFont;
begin
Font1:=NewFont(20,500,0,0,0,'Corbel');
Font2:=NewFont(17,500,0,0,0,'Franklin Gothic Medium');
WizardForm.Font.Handle:=Font1;
WizardForm.Font.Color:=TfontColor;
end;
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
procedure wzform;
begin
WizardForm.ClientWidth:=600;
WizardForm.ClientHeight:=400;
WizardForm.InnerNotebook.hide;
WizardForm.OuterNotebook.hide;
WizardForm.OuterNotebook.hide;
WizardForm.Bevel.Hide;
WizardForm.Position:=poScreenCenter;
WizardForm.ProgressGauge.Parent := WizardForm;
WizardForm.ProgressGauge.SetBounds(ScaleX(30), ScaleY(163), ScaleX(540), ScaleY(26));
end;
procedure SetStateNewButtons;
begin
with WizardForm.BackButton do begin
BtnSetText(hBackBtn,PAnsiChar(Caption));
BtnSetVisibility(hBackBtn,Visible);
end;
with WizardForm.NextButton do begin
BtnSetText(hNextBtn,PAnsiChar(Caption));
BtnSetVisibility(hNextBtn,Visible);
end;
with WizardForm.CancelButton do begin
BtnSetText(hCancelBtn,PAnsiChar(Caption));
BtnSetVisibility(hCancelBtn,Visible);
end;
with MusicButton do begin
BtnSetText(hMusicButton,PAnsiChar(Caption));
BtnSetVisibility(hMusicButton,Visible);
end;
BtnSetText(hDirBrowseBtn,PAnsiChar(WizardForm.DirBrowseButton.Caption));
BtnSetText(hGroupBrowseBtn,PAnsiChar(WizardForm.GroupBrowseButton.Caption));
end;
procedure LogoBtnClick(hBtn:HWND);
var
ErrorCode: Integer;
begin
ShellExec('open', 'http://forum.krinkels.ru/index.php.htm', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode)
end;
procedure WizardFormBtnClick(hBtn:HWND);
var
Btn:TButton;
begin
case hBtn of
hCancelBtn: Btn:=WizardForm.CancelButton;
hNextBtn: Btn:=WizardForm.NextButton;
hBackBtn: Btn:=WizardForm.BackButton;
hMusicButton: Btn:=MusicButton;
hDirBrowseBtn: Btn:=WizardForm.DirBrowseButton;
hGroupBrowseBtn: Btn:=WizardForm.GroupBrowseButton;
end;
Btn.OnClick(Btn);
SetStateNewButtons;
BtnRefresh(hBtn);
end;
procedure MusicButtonOnClick(Sender: TObject);
begin
case TButton(Sender).Caption of
'Играть':
begin
BASS_Start;
MusicButton.Caption := 'Стоп';
end;
'Стоп':
begin
BASS_Pause;
MusicButton.Caption := 'Играть';
end;
end;
end;
procedure InitMusic();
var
Name: String;
i: Integer;
begin
ExtractTemporaryFile('BASS.dll');
ExtractTemporaryFile('music.mp3');
if BASS_Init(-1, 44100, 0, 0, 0) then
begin
BASS_Start();
Name := ExpandConstant('{tmp}\music.mp3');
i := BASS_StreamCreateFile(FALSE, PChar(Name), 0, 0, 4);
if i 0 then
begin
BASS_ChannelPlay(i, True);
end;
end;
end;
procedure btn;
begin
ButtonFont:=TFont.Create;
ButtonFont.Handle:=Font2;
hLogoBtn:=BtnCreate(WizardForm.Handle,12,335,116,52,ExpandConstant('{tmp}\Button2.png'),15,False);
BtnSetEvent(hLogoBtn,BtnClickEventID,WrapBtnCallback(@LogoBtnClick,1));
BtnSetCursor(hLogoBtn,GetSysCursorHandle(32649));
with WizardForm.CancelButton do begin
hCancelBtn:=BtnCreate(WizardForm.Handle,495,339,100,46,ExpandConstant('{tmp}\Button1.png'),15,False);
BtnSetEvent(hCancelBtn,BtnClickEventID,WrapBtnCallback(@WizardFormBtnClick,1));
BtnSetFont(hCancelBtn,ButtonFont.Handle);
Width:=0;
Height:=0;
end;
with WizardForm.NextButton do begin
hNextBtn:=BtnCreate(WizardForm.Handle,385,339,100,46,ExpandConstant('{tmp}\Button1.png'),15,False);
BtnSetEvent(hNextBtn,BtnClickEventID,WrapBtnCallback(@WizardFormBtnClick,1));
BtnSetFont(hNextBtn,ButtonFont.Handle);
Width:=0;
Height:=0;
end;
with WizardForm.BackButton do begin
hBackBtn:=BtnCreate(WizardForm.Handle,285,339,100,46,ExpandConstant('{tmp}\Button1.png'),15,False);
BtnSetEvent(hBackBtn,BtnClickEventID,WrapBtnCallback(@WizardFormBtnClick,1));
BtnSetFont(hBackBtn,ButtonFont.Handle);
Width:=0;
Height:=0;
end;
MusicButton := TButton.Create(nil);
with MusicButton do
begin
Caption := 'Стоп';
Hint := 'Вкл.\Выкл. музыку';
ShowHint := True;
OnClick := @MusicButtonOnClick;
end;
with MusicButton do begin
hMusicButton:=BtnCreate(WizardForm.Handle,495,6,100,46,ExpandConstant('{tmp}\Button1.png'),15,False);
BtnSetEvent(hMusicButton,BtnClickEventID,WrapBtnCallback(@WizardFormBtnClick,1));
BtnSetFont(hMusicButton,ButtonFont.Handle);
Width:=0;
Height:=0;
end;
with WizardForm.DirBrowseButton do begin
hDirBrowseBtn:=BtnCreate(WizardForm.Handle,495,180,100,46,ExpandConstant('{tmp}\Button1.png'),15,False);
BtnSetEvent(hDirBrowseBtn,BtnClickEventID,WrapBtnCallback(@WizardFormBtnClick,1));
BtnSetFont(hDirBrowseBtn,ButtonFont.Handle);
Width:=0;
Height:=0;
end;
with WizardForm.GroupBrowseButton do begin
hGroupBrowseBtn:=BtnCreate(WizardForm.Handle,495,180,100,46,ExpandConstant('{tmp}\Button1.png'),15,False);
BtnSetEvent(hGroupBrowseBtn,BtnClickEventID,WrapBtnCallback(@WizardFormBtnClick,1));
BtnSetFont(hGroupBrowseBtn,ButtonFont.Handle);
Width:=0;
Height:=0;
end;
ImgApplyChanges(WizardForm.Handle);
end;
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
procedure welcom;
begin
Wizard1:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\BGImage1.png'),0,0,WizardForm.ClientWidth,WizardForm.ClientHeight,True,True);
Wizard2:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\SDWImage1.png'),0,315,WizardForm.ClientWidth,85,True,True);
Wizard3:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\SDWImage3.png'),0,181,WizardForm.ClientWidth,138,True,True);
Wizard4:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\SDWImage2.png'),3,205,590,91,True,True);
WelcomLabel1:= TLabel.Create(WizardForm);
with WelcomLabel1 do begin
Left:= 30;
Top:= 219;
Width:= 550;
Height:= 58;
AutoSize:= false;
Transparent:= true;
WordWrap:= true;
ParentFont := True;
Parent:= WizardForm;
Caption:=ExpandConstant('{cm:Welcom1}');
end;
end;
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
function NumToStr(Float: Extended): String;
begin
Result:= Format('%.2n', [Float]); StringChange(Result, ',', '.');
while ((Result[Length(Result)] = '0') or (Result[Length(Result)] = '.')) and (Pos('.', Result) > 0) do
SetLength(Result, Length(Result)-1);
end;
function MbOrTb(Float: Extended): String;
begin
if Float < 1024 then Result:= NumToStr(Float)+ExpandConstant('{cm:Size1}') else
if Float/1024 < 1024 then Result:= NumToStr(Float/1024)+ExpandConstant('{cm:Size2}') else
Result:= NumToStr(Float/(1024*1024))+ExpandConstant('{cm:Size3}');
end;
procedure DirEditOnChange(Sender: TObject);
var Drive: String;
begin
DirEditLabel.Caption:=MinimizePathName(WizardForm.DirEdit.Text, DirEditLabel.Font, DirEditLabel.Width);
Drive:= ExtractFileDrive(WizardForm.DirEdit.Text);
GetSpaceOnDisk(Drive, True, FreeMB, TotalMB);
InstallSpacelabel1.Caption:=ExpandConstant('{cm:Install1}')+ MbOrTb({#NeedInstallSize});
InstallSpacelabel2.Caption:=ExpandConstant('{cm:Install2}')+ MbOrTb({#NeedSinceInstallSize});
if WizardForm.CurPageID = wpWelcome then begin
end;
if (FreeMB>{#NeedInstallSize}) then begin
WizardForm.NextButton.Enabled:= (FreeMB>{#NeedInstallSize});
BtnSetEnabled(hNextBtn, True);
end else begin
WizardForm.NextButton.Enabled:= (FreeMB>{#NeedInstallSize});
BtnSetEnabled(hNextBtn, False);
end;
end;
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
procedure SelectDir;
begin
Wizard6:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\SDWImage4.png'),0,81,600,238,True,True);
Wizard7:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\SDWImage5.png'),3,105,594,74,True,True);
Wizard8:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\SDWImage6.png'),90,180,395,45,True,True);
Wizard9:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\SDWImage7.png'),5,230,346,77,True,True);
Wizard10:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\FLRImage1.png'),17,170,79,64,True,True);
SelectDirLabel:= TLabel.Create(WizardForm);
with SelectDirLabel do begin
Left:= 30;
Top:= 119;
Width:= 594;
Height:= 74;
AutoSize:= false;
Transparent:= true;
WordWrap:= true;
ParentFont := True;
Parent:= WizardForm;
Caption:=ExpandConstant('{cm:SelectDir}');
end;
DirEditLabel := TLabel.Create(WizardForm);
with DirEditLabel do begin
Left:=112;
Top:= 191;
Width:= 350;
Height:= 20;
AutoSize:= false;
Transparent:= true;
WordWrap:= true;
ParentFont := True;
Caption := MinimizePathName(WizardForm.DirEdit.Text, DirEditLabel.Font, DirEditLabel.Width);
Parent := WizardForm;
end;
InstallSpacelabel1:= TLabel.Create(WizardForm);
with InstallSpacelabel1 do begin
Left:= 30;
Top:= 244;
Width:= 594;
Height:= 74;
AutoSize:= false;
Transparent:= true;
WordWrap:= true;
ParentFont := True;
Parent:= WizardForm;
end;
InstallSpacelabel2:= TLabel.Create(WizardForm);
with InstallSpacelabel2 do begin
Left:= 30;
Top:= 269;
Width:= 594;
Height:= 74;
AutoSize:= false;
Transparent:= true;
WordWrap:= true;
ParentFont := True;
Parent:= WizardForm;
end;
WizardForm.DirEdit.OnChange:=@DirEditOnChange;
end;
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
procedure GroupChange(Sender: TObject);
begin
GroupEditLabel.Caption := MinimizePathName(WizardForm.GroupEdit.Text, GroupEditLabel.Font, GroupEditLabel.Width);
end;
function Group: Boolean;
begin
Result := BtnGetEnabled(hGroupBrowseBtn);
end;
procedure StartClick(hBtn:HWND);
var
Check:boolean;
begin
Check:=BtnGetChecked(hBtn);
if Check then begin
BtnSetEnabled(hGroupBrowseBtn, False)
GroupEditLabel.Font.Color:=$737373;
end else begin
BtnSetEnabled(hGroupBrowseBtn, True)
GroupEditLabel.Font.Color:=$FFFFFF
end;
end;
procedure NoIconsLabelClick(Sender:TObject);
begin
BtnSetChecked(StartBtn, not BtnGetChecked(StartBtn));
StartClick(StartBtn);
end;
procedure ProgramGroup;
begin
Wizard11:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\SDWImage8.png'),20,240,282,48,True,True);
StartBtn:=BtnCreate(WizardForm.Handle,19,247,28,32,ExpandConstant('{tmp}\Button3.png'),8,True);
BtnSetEvent(StartBtn,BtnClickEventID,WrapBtnCallback(@StartClick,1));
GroupEditLabel := TLabel.Create(WizardForm);
with GroupEditLabel do begin
Left:=112;
Top:= 191;
Width:= 350;
Height:= 20;
AutoSize:= false;
Transparent:= true;
WordWrap:= true;
ParentFont := True;
Caption := MinimizePathName(WizardForm.GroupEdit.Text, GroupEditLabel.Font, GroupEditLabel.Width);
Parent := WizardForm;
end;
SelectGroupLabel:= TLabel.Create(WizardForm);
with SelectGroupLabel do begin
Left:= 30;
Top:= 119;
Width:= 540;
Height:= 74;
AutoSize:= false;
Transparent:= true;
WordWrap:= true;
ParentFont := True;
Parent:= WizardForm;
Caption:=ExpandConstant('{cm:SelectGroup}');
end;
NoStartLabel:= TLabel.Create(WizardForm);
with NoStartLabel do begin
Left:= 44;
Top:= 252;
Width:= 250;
Height:= 20;
AutoSize:= false;
Transparent:= true;
WordWrap:= true;
ParentFont := True;
Parent:= WizardForm;
OnClick:= @NoIconsLabelClick;
Caption:=ExpandConstant('{cm:NoStart}');
end;
WizardForm.GroupEdit.OnChange := @GroupChange;
end;
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
function IconDP: Boolean;
begin
Result:= BtnGetChecked(IconBtn);
end;
procedure IconClick(hBtn:HWND);
var
Check:boolean;
begin
Check:=BtnGetChecked(hBtn);
end;
procedure IconLabelClick(Sender:TObject);
begin
BtnSetChecked(IconBtn, not BtnGetChecked(IconBtn));
IconClick(IconBtn);
end;
procedure ProgramTask;
begin
Wizard12:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\SDWImage8.png'),20,205,232,48,True,True);
IconBtn:=BtnCreate(WizardForm.Handle,39,211,28,32,ExpandConstant('{tmp}\Button3.png'),8,True);
BtnSetEvent(IconBtn,BtnClickEventID,WrapBtnCallback(@IconClick,1));
BtnSetChecked(IconBtn,True);
TaskLabel:= TLabel.Create(WizardForm);
with TaskLabel do begin
Left:= 30;
Top:= 119;
Width:= 540;
Height:= 74;
AutoSize:= false;
Transparent:= true;
WordWrap:= true;
ParentFont := True;
Parent:= WizardForm;
Caption:=ExpandConstant('{cm:Task}');
end;
IconLabel:= TLabel.Create(WizardForm);
with IconLabel do begin
Left:= 64;
Top:= 215;
Width:= 170;
Height:= 20;
AutoSize:= false;
Transparent:= true;
WordWrap:= true;
ParentFont := True;
Parent:= WizardForm;
OnClick:= @IconLabelClick;
Caption:=ExpandConstant('{cm:Icon}');
end;
end;
procedure CreateControls;
begin
Wizard13:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\SDWImage10.png'),3,148,594,72,True,True);
Wizard14:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\SDWImage11.png'),190,105,84,52,True,True);
Wizard15:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\SDWImage9.png'),3,105,200,52,True,True);
LabelStatus := TLabel.Create(WizardForm);
with LabelStatus do begin
Left:= 30;
Top:= 119;
Width:= 540;
Height:= 74;
AutoSize:= false;
Transparent:= true;
WordWrap:= true;
ParentFont := True;
Caption:= ExpandConstant('{cm:Extracted}');
Parent:= WizardForm;
end;
end;
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
procedure Finish;
begin
Wizard16:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\SDWImage12.png'),3,220,594,62,True,True);
Wizard17:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\SDWImage5.png'),3,215,594,72,True,True);
LabelFinish := TLabel.Create(WizardForm);
with LabelFinish do begin
Left:= 30;
Top:= 230;
Width:= 550;
Height:= 58;
AutoSize:= false;
Transparent:= true;
WordWrap:= true;
ParentFont := True;
Caption:= ExpandConstant('{cm:Finish2}');
Parent:= WizardForm;
end;
end;
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
procedure InitializeWizard;
begin
InitMusic();
IsMyFont;
wzform;
btn;
welcom;
SelectDir;
ProgramGroup;
ProgramTask;
CreateControls;
Finish;
end;
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
function InitializeSetup:boolean;
begin
if not FileExists(ExpandConstant('{tmp}\b2p.dll')) then ExtractTemporaryFile('b2p.dll');
if not FileExists(ExpandConstant('{tmp}\botva2.dll')) then ExtractTemporaryFile('botva2.dll');
ExtractTemporaryFile('IsMyFont.dll');
Result:=True;
end;
function ShouldSkipPage(PageID: Integer): Boolean;
begin
if (PageID =wpLicense)or(PageID =wpInfoBefore)or(PageID =wpUserInfo)or(PageID =wpSelectTasks) then
Result:= True;
end;
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
procedure Hide(CurPageID: Integer);
begin
WizardForm.ProgressGauge.hide;
WelcomLabel1.hide;
SelectDirLabel.hide;
DirEditLabel.hide;
InstallSpacelabel1.hide;
InstallSpacelabel2.hide;
GroupEditLabel.hide;
SelectGroupLabel.hide;
NoStartLabel.hide;
TaskLabel.hide;
IconLabel.hide;
LabelStatus.hide;
LabelFinish.hide;
BtnSetVisibility(hDirBrowseBtn, False);
BtnSetVisibility(hGroupBrowseBtn, False);
ImgSetVisibility(Wizard3, False);
ImgSetVisibility(Wizard4, False);
ImgSetVisibility(Wizard6, False);
ImgSetVisibility(Wizard7, False);
ImgSetVisibility(Wizard8, False);
ImgSetVisibility(Wizard9, False);
ImgSetVisibility(Wizard10, False);
ImgSetVisibility(Wizard11, False);
ImgSetVisibility(Wizard12, False);
ImgSetVisibility(Wizard13, False);
ImgSetVisibility(Wizard14, False);
ImgSetVisibility(Wizard15, False);
ImgSetVisibility(Wizard16, False);
ImgSetVisibility(Wizard17, False);
BtnSetVisibility(StartBtn, False);
BtnSetVisibility(IconBtn, False);
BtnSetVisibility(hMyCancelBtn, False);
BtnSetVisibility(hCancelBtn, False);
ImgApplyChanges(WizardForm.Handle);
end;
procedure Show(CurPageID: Integer);
begin case CurPageID of
wpWelcome:
begin
ImgSetVisibility(Wizard3, True);
ImgSetVisibility(Wizard4, True);
BtnSetVisibility(hCancelBtn, True);
BtnSetEnabled(hNextBtn, True);
WelcomLabel1.Show;
WizardForm.Caption:= ExpandConstant('{cm:Welcom}');
ImgApplyChanges(WizardForm.Handle);
end;
wpSelectDir:
begin
DirEditOnChange(nil)
BtnSetVisibility(hCancelBtn, True);
ImgSetVisibility(Wizard6, True);
ImgSetVisibility(Wizard7, True);
ImgSetVisibility(Wizard8, True);
ImgSetVisibility(Wizard9, True);
ImgSetVisibility(Wizard10, True);
BtnSetVisibility(hDirBrowseBtn, True);
SelectDirLabel.Show;
DirEditLabel.Show;
InstallSpacelabel1.Show;
InstallSpacelabel2.Show;
WizardForm.Caption:= ExpandConstant('{cm:SelectDir1}');
ImgApplyChanges(WizardForm.Handle);
end;
wpSelectProgramGroup:
begin
GroupChange(nil)
GroupEditLabel.Show;
SelectGroupLabel.Show;
NoStartLabel.Show;
WizardForm.Caption:= ExpandConstant('{cm:SelectGroup1}');
BtnSetVisibility(hCancelBtn, True);
ImgSetVisibility(Wizard6, True);
ImgSetVisibility(Wizard7, True);
ImgSetVisibility(Wizard8, True);
ImgSetVisibility(Wizard10, True);
ImgSetVisibility(Wizard11, True);
BtnSetVisibility(hGroupBrowseBtn, True);
BtnSetVisibility(StartBtn, True);
ImgApplyChanges(WizardForm.Handle);
end;
wpReady:
begin
TaskLabel.Show;
IconLabel.Show;
WizardForm.Caption:= ExpandConstant('{cm:Task1}');
BtnSetVisibility(hCancelBtn, True);
ImgSetVisibility(Wizard6, True);
ImgSetVisibility(Wizard7, True);
ImgSetVisibility(Wizard12, True);
BtnSetVisibility(IconBtn, True);
ImgApplyChanges(WizardForm.Handle);
end;
wpInstalling:
begin
WizardForm.ProgressGauge.Show;
LabelStatus.Show;
BtnSetVisibility(hCancelBtn, True);
ImgSetVisibility(Wizard6, True);
ImgSetVisibility(Wizard13, True);
ImgSetVisibility(Wizard14, True);
ImgSetVisibility(Wizard15, True);
ImgApplyChanges(WizardForm.Handle);
end;
wpFinished:
begin
LabelFinish.Show;
WizardForm.Caption:= ExpandConstant('{cm:Finish1}');
ImgSetVisibility(Wizard3, True);
ImgSetVisibility(Wizard17, True);
ImgApplyChanges(WizardForm.Handle);
end;
end;
end;
Procedure CurPageChanged(CurPageID: Integer);
Begin
SetStateNewButtons;
Hide(CurPageID);
Show(CurPageID);
end;
procedure DeinitializeSetup;
begin
Deinitialize;
gdipShutDown;
ButtonFont.Free;
BASS_Stop();
BASS_Free();
end;
