[Cranz86]

Люди помогите с проблемой, делаю новую страницу, все что в ней надо сделать, сделал, а как на ней разместить все "галочки" не пойму, они появляются на предыдущей странице...это вырезка из кода:

Код:

[Tasks]
Name: "desktopicon"; Description: "Create &desktop icons"; GroupDescription: "Additional icons:"; MinVersion: 4,4
Name: Toolbar; Description: "Instal Toolbar"; GroupDescription: "WWW";


[Co&de]
var
  Page: TWizardPage;
procedure InitializeWizard();
begin
  Page:= CreateCustomPage(wpInstalling, 'Realore Toolbar Installation', 'Thank you for choosing to install GAMENAME. After installation of the application, you can also get the official Realore toolbar. The toolbar gives you instant access to cool tools like radio, weather, e-mail notifier and more.');
end;

[Serega]

помогите с проблемой, делаю новую страницу »

Вам нужно использовать функцию CreateInputOptionPage

Пример

Описание: Создание страницы мастера, содержащей флажки (check box) и переключатели (radio button). Если Exclusive=True, вместо флажков будут отображены переключатели, и в этом случае может быть выбран только один пункт из списка. Если ListBox=True, флажки или переключатели будут помещены в прокручиваемый список. Замечания: Для создания на странице флажков/переключателей используется метод Add. Для добавления/считывания состояния флажка/переключателя используется свойство Values. Страницы, для которых Exclusive=True, можно добавить/считать состояние выбранного пункта в SelectedValueIndex. Например: var Page: TInputOptionWizardPage; IsRegisteredUser: Boolean; ... // Создание страницы Page := CreateInputOptionPage(wpWelcome, 'Лицензионное соглашение', 'Вы зарегистрированный пользователь?', 'Если вы зарегистрированы, поставьте флажок ниже и нажмите Далее.',False, False); // Добавление значений Page.Add('Я зарегистрированный пользователь'); // Задание первоначальных значений (не обязательно) Page.Values[0] := False; ... // Передача значений переменным IsRegisteredUser := Page.Values[0];

[A1EXXX]

Serega, не знаете, как цвет прогресс-бара поменять? Хотелось бы где-то такой...

[Serega]

как цвет прогресс-бара поменять? »

Посмотрите здесь в сообщении SotM сделал скриншот, а через три сообщения сам скрипт.

[A1EXXX]

Serega, спасибо. Не знаете, как здесь (и на следующих страницах) сделать прозрачность? Пробовал что-то вымутить из вашего скрипта, но ничего не получилось

читать дальше »

Код:

[Setup]
AppName=Status Panel 
AppVerName=Status Panel 
DefaultDirName={pf}\Test 
DefaultGroupName=Status Panel 
WizardImageFile=compiler:WizModernImage.bmp
OutputDir=.
OutputBaseFilename=status_panel 
DisableReadyPage=True 

[Languages]
Name: "Russian"; MessagesFile: "compiler:Languages\Russian.isl"
 
[Files] 
; Test 
Source: "{sys}\*.dll"; DestDir: "{app}"; Flags: ignoreversion external deleteafterinstall; 
 
[Icons] 
Name: "{group}\Удалить StatusPanel"; Filename: "{uninstallexe}"; 
 
[Code] 
function GetSystemMetrics(nIndex:Integer):Integer; 
 external 'GetSystemMetrics@user32.dll stdcall'; 
  
var 
  Welcome, Edit1, Edit2, Ready1, Ready2, 
  Setup1, Setup2, Finish1, Finish2: TLabel; 
 
procedure InitializeWizard(); 
begin 
  WizardForm.Font.Color:= clWhite;
  WizardForm.ClientWidth := ScaleX(680); 
  WizardForm.ClientHeight := ScaleY(480); 
  WizardForm.Bevel.Hide; 
  WizardForm.Bevel1.Hide; 
  WizardForm.MainPanel.Hide; 
 
  WizardForm.WizardBitmapImage.Left := ScaleX(0); 
  WizardForm.WizardBitmapImage.Top := ScaleY(0); 
  WizardForm.WizardBitmapImage.Width := WizardForm.Width; 
  WizardForm.WizardBitmapImage.Height := WizardForm.Height; 
  WizardForm.WizardBitmapImage.Parent := WizardForm; 
  WizardForm.WizardBitmapImage2.Hide; 
 
  Welcome := TLabel.Create(WizardForm); 
  Welcome.Top := ScaleY(45); 
  Welcome.Caption := 'Приветствие'; 
  Welcome.Transparent := True; 
  Welcome.Parent := WizardForm; 
 
  Edit1 := TLabel.Create(WizardForm); 
  Edit1.Left := WizardForm.ClientWidth / 5; 
  Edit1.Top := ScaleY(45); 
  Edit1.Width := WizardForm.ClientWidth / 5; 
  Edit1.AutoSize := False; 
  Edit1.Caption := '|'; 
  Edit1.Transparent := True; 
  Edit1.Parent := WizardForm; 
 
  Edit2 := TLabel.Create(WizardForm); 
  Edit2.Top := ScaleY(45); 
  Edit2.Caption:= 'Параметры'; 
  Edit2.Transparent := True; 
  Edit2.Parent := WizardForm; 
   
  Ready1 := TLabel.Create(WizardForm); 
  Ready1.Left := Edit1.Left + Edit1.Width; 
  Ready1.Top := ScaleY(45); 
  Ready1.Width := WizardForm.ClientWidth / 5; 
  Ready1.AutoSize := False; 
  Ready1.Caption := '|'; 
  Ready1.Transparent := True; 
  Ready1.Parent := WizardForm; 
 
  Ready2 := TLabel.Create(WizardForm); 
  Ready2.Top := ScaleY(45); 
  Ready2.Caption := 'Меню "Пуск"'; 
  Ready2.Transparent := True; 
  Ready2.Parent := WizardForm; 
   
  Setup1 := TLabel.Create(WizardForm); 
  Setup1.Left := Ready1.Left + Ready1.Width; 
  Setup1.Top := ScaleY(45); 
  Setup1.Width := WizardForm.ClientWidth / 5; 
  Setup1.AutoSize := False; 
  Setup1.Caption := '|'; 
  Setup1.Transparent := True; 
  Setup1.Parent := WizardForm; 
 
  Setup2 := TLabel.Create(WizardForm); 
  Setup2.Top := ScaleY(45); 
  Setup2.Caption := 'Установка'; 
  Setup2.Transparent := True; 
  Setup2.Parent := WizardForm; 
   
  Finish1 := TLabel.Create(WizardForm); 
  Finish1.Left := Setup1.Left + Setup1.Width; 
  Finish1.Top := ScaleY(45); 
  Finish1.Width := WizardForm.ClientWidth / 5; 
  Finish1.AutoSize := False; 
  Finish1.Caption := '|'; 
  Finish1.Transparent := True; 
  Finish1.Parent := WizardForm; 
 
  Finish2 := TLabel.Create(WizardForm); 
  Finish2.Top := ScaleY(45); 
  Finish2.Caption := 'Готово'; 
  Finish2.Transparent := True; 
  Finish2.Parent := WizardForm; 
   
  WizardForm.BackButton.Top := WizardForm.BackButton.Top + ScaleY(110); 
  WizardForm.NextButton.Top := WizardForm.NextButton.Top + ScaleY(110); 
  WizardForm.CancelButton.Top := WizardForm.CancelButton.Top + ScaleY(110); 
 
  WizardForm.OuterNotebook.Left := WizardForm.Width / 2 - WizardForm.OuterNotebook.Width / 2; 
  WizardForm.OuterNotebook.Top := ScaleY(105); 
  WizardForm.InnerNotebook.Top := ScaleY(10); 
   
  WizardForm.Left := GetSystemMetrics(0) / 2 - WizardForm.Width / 2; 
  WizardForm.Top := GetSystemMetrics(1) / 2 - WizardForm.Height / 2; 
end; 
 
procedure CurPageChanged(CurPageID: Integer); 
begin 
  Welcome.Font.Color := clSilver; 
  Edit1.Font.Color := clSilver; 
  Edit2.Font.Color := clSilver; 
  Ready1.Font.Color := clSilver; 
  Ready2.Font.Color := clSilver; 
  Setup1.Font.Color := clSilver; 
  Setup2.Font.Color := clSilver; 
  Finish1.Font.Color := clSilver; 
  Finish2.Font.Color := clSilver; 
 
  Welcome.Left := WizardForm.ClientWidth / 5 / 2 - Welcome.Width / 2; 
  Edit2.Left := Edit1.Left + Edit1.Width / 2 - Edit2.Width / 2; 
  Ready2.Left := Ready1.Left + Ready1.Width / 2 - Ready2.Width / 2; 
  Setup2.Left := Setup1.Left + Setup1.Width / 2 - Setup2.Width / 2; 
  Finish2.Left := Finish1.Left + Finish1.Width / 2 - Finish2.Width / 2; 
   
  if CurPageID = wpWelcome then 
  begin 
    Welcome.Font.Color := clWhite; 
    Edit1.Font.Color := clWhite; 
  end; 
 
  if CurPageID = wpSelectDir then 
  begin 
    Edit1.Font.Color := clWhite; 
    Edit2.Font.Color := clWhite; 
    Ready1.Font.Color := clWhite; 
  end; 
   
  if CurPageID = wpSelectProgramGroup then 
  begin 
    Ready1.Font.Color := clWhite; 
    Ready2.Font.Color := clWhite; 
    Setup1.Font.Color := clWhite; 
    WizardForm.NextButton.Caption := 'Установить'; 
  end; 
   
  if CurPageID = wpInstalling then 
  begin 
    Setup1.Font.Color := clWhite; 
    Setup2.Font.Color := clWhite; 
    Finish1.Font.Color := clWhite; 
  end; 
 
  if CurPageID = wpFinished then 
  begin 
    Finish1.Font.Color := clWhite; 
    Finish2.Font.Color := clWhite; 
  end; 
end;

[Serega]

как здесь (и на следующих страницах) сделать прозрачность? »

Придётся создавать панель, и на неё накладывать все контролы, присмотритесь внимательней к процедуре CurPageChanged в моём скрипте, там сначала создаётся панель.

[A1EXXX]

Serega, ого... Спасибо за наводку....

[CrOsP]

Подскажите ребята как добавил данный тут скрипт чтобы повесить картинку на ссылку дак теперь очень долго инстал запускается вот видео Скачать

[A1EXXX]

CrOsP, все мелкие файлы (картинки, dll'ки и т.д.) записывай в начало секции [Files], а папки с файлами с самый конец! Пример:

Код:

[Files]
Source: C:\1.bmp; DestDir: {tmp}; Flags: dontcopy
Source: C:\1.mp3; DestDir: {tmp}; Flags: dontcopy
Source: C:\Program Files\Inno Setup 5\InnoCallback.dll; Flags: dontcopy noencryption solidbreak;;
Source: C:\2.bmp; DestDir: {tmp}; Flags: dontcopy
Source: "D:\Games\Call Of Duty 4\iw3sp.exe"; DestDir: "{app}"; Flags: ignoreversion
Source: "D:\Games\Call Of Duty 4\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs

[A1EXXX]

Serega, создавать панель я не умею, но на примере, в принципе, понял... Вот только я не знаю, как нанести контролы из моего скрипта на ваш... Пробовал просто соединить, получилось с прозрачностью, но без рюшек, создаваемых через Welcome, Edit1 и т.д. (другого не ожидал, но попробовать стоило ) В общем, без напутствий (или подсказки, примерчика) мне снова никак
А пока буду ещё пробовать что-нибудь написать...

---

Inno Setup Compiler v5.3.6 build 091128 (English) by Restools