Пользователь
Сообщения: 80
Благодарности: 3
|
Профиль
|
Отправить PM
| Цитировать
Ребят, может кто помочь? У меня тут такая проблемка нарисовалась.... надо добавить в установщик еще 1 окно с выбором компонентов для установки.... точно такое же как и для выбора директории установки, только вместо директории (поля)... поле с выбором компонентов.
Вот тут есть готовый установщик: http://dfiles.ru/files/0v855lkzw
Может кто помочь? Вот тут привожу код для окна с выбором директории... что там надо поменять, чтобы переделать его на окно с компонентами? Я просто еще только начинаю свой путь, еще мало знаний... буду благодарен за любую помощь:
Код:  var
BkgImg2 : Longint;
AppLabel, AppLabel2, NeedSizeLabel, NeedSizeLabel2, SDLabel : TLabel;
BackBtn, DirBrowseBtn, OKBtn : HWND;
vPanel2 : TPanel;
procedure HideSelectDirPage;
begin
if CanUseXvid then begin
vPanel2.Visible:=False;
mciSendString('stop sdVideo','',0,0);
end;
ImgSetVisibility(BkgImg2,False);
AppLabel.Visible:=False;
NeedSizeLabel.Visible:=False;
AppLabel2.Visible:=False;
NeedSizeLabel2.Visible:=False;
SDLabel.Visible:=False;
BtnSetVisibility(BackBtn,False);
BtnSetVisibility(DirBrowseBtn,False);
BtnSetVisibility(OKBtn,False);
end;
procedure DirBrowseBtnClick(h:HWND);
begin
WizardForm.DirBrowseButton.OnClick(WizardForm.DirBrowseButton);
AppLabel.Caption:=WizardForm.DirEdit.Text;
AppLabel2.Caption:=WizardForm.DirEdit.Text;
end;
procedure BackBtnClick(h:HWND);
begin
WizardForm.BackButton.OnClick(WizardForm.BackButton);
end;
procedure OKBtnClick(h:HWND);
begin
WizardForm.NextButton.OnClick(WizardForm.NextButton);
end;
procedure ShowSelectDirPage;
begin
PrevCurPageID:=wpSelectDir;
ImgSetVisibility(BkgImg2,True);
AppLabel.Visible:=True;
NeedSizeLabel.Visible:=True;
AppLabel2.Visible:=True;
NeedSizeLabel2.Visible:=True;
SDLabel.Visible:=True;
BtnSetVisibility(BackBtn,True);
BtnSetVisibility(DirBrowseBtn,True);
BtnSetVisibility(OKBtn,True);
ImgApplyChanges(WizardForm.Handle);
if CanUseXvid then begin
mciSendString('play sdVideo repeat','',0,0);
vPanel2.Visible:=True;
end;
end;
procedure CreateSelectDirPage;
begin
if CanUseXvid then begin
vPanel2:=TPanel.Create(WizardForm);
with vPanel2 do begin
Visible:=False;
Parent:=WizardForm;
SetBounds(32,32,704,272);
end;
mciSendString('open '+ExpandConstant('{tmp}\vid_instdir.avi')+' alias sdVideo parent '+IntToStr(vPanel2.Handle)+' style child','',0,0);
mciSendString('put sdVideo window at 0 0 704 272','',0,0);
end;
BkgImg2:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\pbbkg.png'),28,347,0,0,False,True);
AppLabel2:=TLabel.Create(WizardForm);
with AppLabel2 do begin
Parent:=WizardForm;
Transparent:=True;
Caption:=WizardForm.DirEdit.Text;
with Font do begin
Name:=FontName;
Size:=11;
Color:=clBlack;
end;
Left:=59;
Top:=364;
end;
AppLabel:=TLabel.Create(WizardForm);
with AppLabel do begin
Parent:=WizardForm;
Transparent:=True;
Caption:=WizardForm.DirEdit.Text;
with Font do begin
Name:=FontName;
Size:=11;
Color:=$e5e5e5;
end;
Left:=57;
Top:=362;
end;
NeedSizeLabel2:=TLabel.Create(WizardForm);
with NeedSizeLabel2 do begin
Parent:=WizardForm;
Transparent:=True;
Caption:='Для установки игры требуется 12.00 ГБ';
with Font do begin
Name:=FontName;
Size:=11;
Color:=clBlack;
end;
Left:=41;
Top:=411;
end;
NeedSizeLabel:=TLabel.Create(WizardForm);
with NeedSizeLabel do begin
Parent:=WizardForm;
Transparent:=True;
Caption:='Для установки игры требуется 12.00 ГБ';
with Font do begin
Name:=FontName;
Size:=11;
Color:=$e5e5e5;
end;
Left:=39;
Top:=409;
end;
SDLabel:=TLabel.Create(WizardForm);
with SDLabel do begin
Parent:=WizardForm;
Transparent:=True;
Caption:='ПАПКА УСТАНОВКИ ИГРЫ:';
with Font do begin
Name:=FontName;
Size:=13;
Color:=$e5e5e5;
end;
Left:=50;
Top:=315;
end;
BackBtn:=BtnCreate(WizardForm.Handle,30,450,135,30,PAnsiChar(ExpandConstant('{tmp}\button4.png')),2,False);
BtnSetEvent(BackBtn, BtnClickEventID,WrapBtnCallback(@BackBtnClick,1));
BtnSetFont(BackBtn,BtnFont2.Handle);
BtnSetText(BackBtn,'НАЗАД');
BtnSetFontColor(BackBtn,$e5e5e5,$ffffff,$ffffff,$8a390e);
BtnSetEvent(BackBtn,BtnMouseEnterEventID,WrapBtnCallback(@BtnMouseEnter,1));
DirBrowseBtn:=BtnCreate(WizardForm.Handle,603,405,135,30,PAnsiChar(ExpandConstant('{tmp}\button4.png')),2,False);
BtnSetEvent(DirBrowseBtn, BtnClickEventID,WrapBtnCallback(@DirBrowseBtnClick,1));
BtnSetFont(DirBrowseBtn,BtnFont2.Handle);
BtnSetText(DirBrowseBtn,'ИЗМЕНИТЬ');
BtnSetFontColor(DirBrowseBtn,$e5e5e5,$ffffff,$ffffff,$8a390e);
BtnSetEvent(DirBrowseBtn,BtnMouseEnterEventID,WrapBtnCallback(@BtnMouseEnter,1));
OKBtn:=BtnCreate(WizardForm.Handle,606,450,135,30,PAnsiChar(ExpandConstant('{tmp}\button4.png')),2,False);
BtnSetEvent(OKBtn, BtnClickEventID,WrapBtnCallback(@OKBtnClick,1));
BtnSetFont(OKBtn,BtnFont2.Handle);
BtnSetText(OKBtn,'OK');
BtnSetFontColor(OKBtn,$e5e5e5,$ffffff,$ffffff,$8a390e);
BtnSetEvent(OKBtn,BtnMouseEnterEventID,WrapBtnCallback(@BtnMouseEnter,1));
end;
|
