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

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

SHVtYW4=


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

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


Цитата Rhianarkipom:
Как создать Label в окне выбора папки, и сменить заголовок окна "Обзор папок" ? »
Не понятно. Вам на странице SelectDirPage под DirEdit нужно окно для выбора месторасположения установки?

Пример:
Код: Выделить весь код
#define AppName "My Program"

[Setup]
AppName={#AppName}
AppVersion=1.5
DefaultDirName={pf}\{#AppName}
DefaultGroupName={#AppName}

[Files]
Source: C:\Program Files\Inno Setup 5\Examples\MyProg.exe; DestDir: {app}; Flags: ignoreversion

[Code]
var
 WTV_Window: TFolderTreeView;

procedure WTV_WindowChange(Sender: TObject);
begin
 WizardForm.DirEdit.Text:=AddBackslash(WTV_Window.Directory) + '{#AppName}'
end;

procedure InitializeWizard();
begin
  WTV_Window := TFolderTreeView.Create(WizardForm);
  with WTV_Window do
  begin
    Parent := WizardForm.SelectDirPage;
    SetBounds(ScaleX(0), ScaleY(96), ScaleX(417), ScaleY(113));
    OnChange := @WTV_WindowChange;
  end;
end;

Последний раз редактировалось Nordek, 09-07-2016 в 22:02.


Отправлено: 21:52, 09-07-2016 | #1611