[Vamp1re]

Лександер, я читал там есть прогресс бар но он мне почемуто ненравиться! особенно етот круг под линией прогресса

[insombia]

Как сделать чтобы установка ушла в левый угол экрана я просто не могу найти,и как сделать чтобы после установки устанавлевался директ и такое разное у меня что-то не получается

[Gnom_aka_Lexander]

Как сделать чтобы установка ушла в левый угол экрана »

Прогрессбар в маленьком окне В левом нижнем углу

[EvilAlex]

Доброго времени суток форумчане !

Вы кнопки для инсталов сами делаете или же есть какая-то прога ?

Зарание спасибо за ответ ...

[Krinkels]

EvilAlex
Смотря какие кнопки ты имеешь ввиду. Если текстуры для кнопок то лучше рисовать самому, а если чисто кнопки то тут 2 варианта:
1. Руками
2. Воспользоваться компилятором от китайцев и там использовать редактор. Но опять же придется поработать ручками

[EvilAlex]

Krinkels, понятно, спосиб .

[Gnom_aka_Lexander]

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

[Serega]

какой командой завершить созданную процедуру? »

end;

P.S.
Какой вопрос - такой ответ...

[Serega]

Лександер, конечно для каждого случая нужно смотреть, но вот накидал, как пример:

Пример

Код:

[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
OutputDir=.
Compression=lzma2/ultra
InternalCompressLevel=ultra
SolidCompression=yes

[Languages]
Name: rus; MessagesFile: compiler:Languages\Russian.isl

[Code]
var
  pnl: TPanel;

procedure CreateControl(const ParentControl: TWinControl);
// создаём все контролы
var
  i, lLeft, cLeft, aTop: Integer;
begin
  aTop := ScaleY(10);
  for i := 0 to 14 do
    begin
      with TLabel.Create(ParentControl) do
        begin
          Parent := ParentControl;
          AutoSize := True;
          Left := ScaleX(50);
          Top := aTop;
          Caption := 'TLabel № ' + IntToStr(i+1);
        end;
      with TCheckBox.Create(ParentControl) do
        begin
          Parent := ParentControl;
          SetBounds(ScaleX(200), aTop, ScaleX(100), ScaleY(14));
          Caption := 'TCheckBox № ' + IntToStr(i+1);
        end;
      with TEdit.Create(ParentControl) do
        begin
          Parent := ParentControl;
          SetBounds(ScaleX(350), aTop, ScaleX(100), ScaleY(20));
          Text := 'TEdit № ' + IntToStr(i+1);
        end;
      aTop := aTop + ScaleY(21);
    end;
end;

function DetectControl(const ParentControl: TWinControl): Boolean;
// проверяем наличие контролов
var
  i: Integer;
begin
  Result := False;
  for i := 0 to ParentControl.ControlCount-1 do
    if (ParentControl.Controls[i] is TLabel) or // проверяем, что контрол TLabel
      (ParentControl.Controls[i] is TCheckBox) or // проверяем, что контрол TCheckBox
      (ParentControl.Controls[i] is TEdit) then // проверяем, что контрол TEdit
      begin
        Result := True;
        Break;
      end;
end;

procedure ClearAllControl(const ParentControl: TWinControl);
// уничтожаем все контролы
var
  i: Integer;
begin
  { откровенно говоря с repeat..until ерись полнейшая... }
  repeat
    for i := 0 to ParentControl.ControlCount-1 do
      if (ParentControl.Controls[i] is TLabel) or // проверяем, что контрол TLabel
        (ParentControl.Controls[i] is TCheckBox) or // проверяем, что контрол TCheckBox
        (ParentControl.Controls[i] is TEdit) then // проверяем, что контрол TEdit
    { видимо какой-то глюк, но такое ощущение, что в этой процедуре не происходит задержки и
      цикл продолжается не дождавшись выполнения, в связи с чем некоторые контролы остаются }
          ParentControl.Controls[i].Free;
  until not DetectControl(ParentControl); // чтоб не зависнуть в цикле пришлось сделать доп. проверку
end;

procedure ButtonClick(Sender: TObject);
begin
  case TButton(Sender).Tag of
    0: CreateControl(pnl);
    1: ClearAllControl(pnl);
  end;
end;

procedure InitializeWizard();
var
  i, aLeft: Integer;
begin
  pnl := TPanel.Create(WizardForm);
  with pnl do
    begin
      Parent := WizardForm;
      Left := 0;
      Top := 0;
      Align := alClient;
    end;

  aLeft := ScaleX(100);
  for i := 0 to 1 do
    begin
      with TButton.Create(WizardForm) do
        begin
          Parent := pnl;
          SetBounds(aLeft, WizardForm.CancelButton.Top, ScaleX(150), ScaleY(23));
          case i of
            0: Caption := 'Создать все контролы';
            1: Caption := 'Разрушить все контролы';
          end;
          OnClick := @ButtonClick;
          Tag := i;
          aLeft :=  aLeft + ScaleX(160);
        end;
    end;
end;

procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
  Confirm := False;
end;

[EvilAlex]

Доброго времени суток !

Как зделать 3 разных кнопки в инстоляторе (Назад, Далее , Установить/Отмена/Завершить/выбор папок) ?

сами кнопки есть: http://rghost.ru/5110713 ...

вот если что скрипт: http://rghost.ru/5110569

вот что выдает инстал при запуске:


испробовал все что пришло на ум, помогите пожалуйсто .

если что: http://rghost.ru/5110611

Зарание благодарю .

P.S. Кнопки есть но они не подогнаны пока под инстал