[El Sanchez]

1) Через секцию [Run] служба не устанавливалась; »

Dodakaedr, все пашет:

Код:

[Run]
Filename: {app}\DfSdkS32.exe; Parameters: -install

Ни у кого ответа нет? »

kotyarko@fb,

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

Код:

[Components]
Name: "main"; Description: "Main Files"; Types: full compact custom; Flags: fixed
Name: "help"; Description: "Help Files"; Types: full
Name: "help\english"; Description: "English"; Types: full
Name: "help\dutch"; Description: "Dutch"; Types: full

[code]
var
    PupMnu: TPopupMenu;

//////////////////////////////////////////////////////////////////////////////////////////////////////////////
procedure ComponentsListOnMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
    P: TPoint;
    Item: Integer;
    ComponentsList: TNewCheckListBox;
begin
    if Button = mbRight then
    begin
        P.x := X;
        P.y := Y;
        ComponentsList := TNewCheckListBox(Sender);
        Item := ComponentsList.ItemAtPos(P, True);
        if (Item = - 1) then Exit;
        if (Item = 1) { or (Item = ComponentsList.Items.IndexOf('Main Files')) } then   // например, 1-й компонент, т.е. help или 0-й по его описанию
        begin
            P := ComponentsList.ClientToScreen(P);
            PupMnu.Popup(P.x, P.y);
        end;
    end;
end;

////////////////////////////////////////
procedure Menu1OnClick(Sender: TObject);
begin
  MsgBox('Menu 1 OnClick!', mbInformation, MB_OK);
end;

////////////////////////////////////////
procedure Menu2OnClick(Sender: TObject);
begin
  MsgBox('Menu 2 OnClick!', mbInformation, MB_OK);
end;

/////////////////////////////
procedure InitializeWizard();
var
    Mnu: TMenuItem;
begin
    PupMnu := TPopupMenu.Create(WizardForm);
    // Menu 1
    Mnu := TMenuItem.Create(WizardForm);
    Mnu.Caption := 'Menu 1';
    Mnu.OnClick := @Menu1OnClick;
    PupMnu.Items.Add(Mnu);
    // Menu 2
    Mnu := TMenuItem.Create(WizardForm);
    Mnu.Caption := 'Menu 2';
    Mnu.OnClick := @Menu2OnClick;
    PupMnu.Items.Add(Mnu);
    PupMnu.AutoPopup := False;
    
    WizardForm.ComponentsList.OnMouseDown := @ComponentsListOnMouseDown;
    WizardForm.ComponentsList.PopupMenu := PupMnu;
end;

[Nightwishh]

Всем привет. Не подскажите как мне сделать кнопку BackButton неактивной на странице приветствия. Код

Код:

Procedure CurPageChanged(CurPageID: Integer);
begin
  WizardForm.BackButton.Enabled:= True;
  if  CurPageID = wpWelcome then begin
    WizardForm.BackButton.Enabled:= False;
  end;
end;

что то не помогает
Ах да, содавать новую страницу и кнопку "назад" я не хочу, кнопка должна быть на визарде...

[kotyarko@fb]

Не подскажите как мне сделать кнопку BackButton неактивной на странице приветствия. »

Её там просто нет. Зачем?

[Nightwishh]

Воо:

Код:

Procedure CurPageChanged(CurPageID: Integer);
begin
  WizardForm.BackButton.Show;
  WizardForm.BackButton.Enabled:= True;
  if  CurPageID = wpWelcome then begin
    WizardForm.BackButton.Enabled:= False;
  end;
end;

Накатал. Правильно?

Зачем? »

мне на неё текстуру повесить надо для симетрии)))

[kotyarko@fb]

Правильно? »

Думаю, нет. Насколько я помню, PageChanged не отменяет действия, которые уже сделал.
Нужно как-то так:

Код:

Procedure CurPageChanged(CurPageID: Integer);
begin
  case CurPageID of
  wpWelcome:
  begin
   WizardForm.BackButton.Show;
   WizardForm.BackButton.Enabled:= False;
  end
  else
   WizardForm.BackButton.Enabled := True;
  end;
end;

kotyarko@fb, »

Спасибо за отзыв, но просто не работает.

[Nightwishh]

Нужно как-то так »

спасибо это тоже работает, думаю что возьму ваш вариант

[Kashtan007]

Всем привет, возникла такая проблема, что когда перелистываю по страницам в установщике у меня проскакивает белый фон на пару секунд. Как решить эту проблему?
Возможно причина в том, что на страницах фон либо же установщик сильно перегружен? Можно ли как-то решить эту проблему? Заранее спасибо за ответ.

[kotyarko@fb]

когда перелистываю по страницам в установщике у меня проскакивает белый фон на пару секунд. Как решить эту проблему? »

Скинь скомпиленный инстальник, посмотреть.

[Kashtan007]

kotyarko@fb, http://rghost.ru/57868859

[kotyarko@fb]

возникла такая проблема, что когда перелистываю по страницам в установщике у меня проскакивает белый фон на пару секунд. »

Нуу.. там даже далеко не секунда. Еле успеваю заметить. Так, как это воспроизводится у меня - вполне нормально.
Если не против, дам пару советов, по поводу инсталла:
1) В конце InitializeWizard прописать WizardForm.Center;
2) Перерисовать все элементы (лейблы, эдиты, листбоксы) и прописать всем параметр Transparent, а у фона дорисовать на местах этих лейблов небольшие затемнения, чтобы текст выделялся. И будет здорово.
3) На последней странице выбора устанавливаемого контента (непосредственно перед самой установкой) переименовать кнопку "Далее" на "Установить".