Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Пользователь


Сообщения: 129
Благодарности: 76

Профиль | Отправить PM | Цитировать


Цитата Imitri7:
+1 ну или хотяб покажите как реализовать смену формы инстлала по клику на чекбокс(как добавить чекбокс знаю) »
Для этого надо будет писать очень много кода (описание стандартной формы и расположение на ней элементов, и описание новой формы с новым расположением этих элементов),
если готов потрудиться, то вот ->
читать дальше »
Код: Выделить весь код
[Setup]
AppName=My Program
AppVerName=My Program
DefaultDirName={pf}\My Program
OutputDir=.

[code]
var
  MyCheck: TCheckBox;

procedure StandartForm();
begin
  { описание стандартного расположения элементов WizardForm }
  with WizardForm do
  begin
    ClientWidth := ScaleX(497);
    ClientHeight := ScaleY(360);
    Center;
  end;   
end;

procedure MyNewForm();
begin
  { описание нового расположения элементов WizardForm }
  with WizardForm do
  begin
    ClientWidth := ScaleX(700);
    ClientHeight := ScaleY(500);
    Center;
  end;
end;

procedure GetWizardForm(Sender: TObject);
begin
  if MyCheck.Checked then
    MyNewForm()
  else
  StandartForm();
end;

procedure InitializeWizard();
begin
  MyCheck := TCheckBox.Create(WizardForm);
  with MyCheck do
  begin
    SetBounds(5, 330, 100, 13);
    Caption := 'Сменить размер';
    OnClick := @GetWizardForm;
    Parent := WizardForm;
  end;
end;
Это сообщение посчитали полезным следующие участники:

Отправлено: 20:11, 11-12-2010 | #84