[roman_kudin@vk]

Сделало шыре. А
Как только передвинуть элемнты?

[Dodakaedr]

как мне быть? »

Код:

with WizardForm do
begin
Width:=600;
end;

[vint56]

roman_kudin@vk, можно так если есть в наличий InitializeWizard

procedure ResizeForm; //просто назови по другому
begin
with WizardForm do
begin
ClientWidth := ScaleX(600);
end;

procedure InitializeWizard();
begin
ResizeForm;
end;
скачай InnoUltra установи расширинный редактор там есть редактор форм

[Dodakaedr]

Как только передвинуть элемнты? »

Задайте расположение элемента.
Пример:

Код:

procedure InitializeWizard();
begin
with WizardForm.DirEdit do
  begin
    SetBounds(ScaleX(10), ScaleY(153), ScaleX(295), ScaleY(20));
  end;

  with WizardForm.DirBrowseButton do
  begin
    SetBounds(ScaleX(320), ScaleY(153), ScaleX(80), ScaleY(22));
  end;
end;

p.s. SetBounds(ScaleX(отступ слева), ScaleY(отступ сверху), ScaleX(ширина элемента), ScaleY(высота элемента));
и так далее для каждого элемента который хотите переместить.

[audiofeel]

есть много примеров и все они рабочие и тд, для запуска приложения "через кнопку" с параметрами и без , те же автораны и тд, но вот если возникла необходимость поменять параметр, как это сделать ?? не компилировать ж кому то самому по новой установщик, как это все дело организовать ??
допустим через NewEdit, то есть прописать там параметр и уже потом нажать на кнопку "вкл" с уверенностью что прога запустится с теми параметрами которые пользователь указал в NewEdit
как это все организовать ??

[saurn]

audiofeel, Текст из TEdit можно без проблем передать запускаемой программе в качестве параметра комстроки, но только тот или те параметры, которые были предустановленны в запускаемой программе при компиляции.

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

Код:

[Setup]
AppName=My Application
AppVersion=1.5
CreateAppDir=no
SolidCompression=yes
Compression=lzma/ultra
PrivilegesRequired=none
Uninstallable=no
OutputDir=...

[code]
var
    pEdit: TEdit;

procedure TButtonOnClick( Sender: TObject );
var
    erCode: Integer;
begin
    case ( Sender as TButton ).Tag of
        0: Exec( 'Setup.exe', pEdit.Text, ExpandConstant( '{src}' ), SW_SHOW, ewNoWait, erCode );
    end;
end;

procedure FormExec();
var
    Form: TSetupForm;
begin
    Form := CreateCustomForm();
    with Form do
    try
        ClientWidth := ScaleX( 473 );
        ClientHeight := ScaleY( 333 );
        BorderStyle := bsDialog;
        Position := poDesktopCenter;

        pEdit := TEdit.Create( Form );
        with pEdit do
        begin
            Parent := Form;
            SetBounds( ScaleX( 16 ), ScaleY( 40 ), ScaleX( 441 ), ScaleY( 21 ) );
            AutoSelect := False;
            Text := '/SILENT';
        end;

        with TButton.Create( Form ) do
        begin
            Parent := Form;
            SetBounds( ScaleX( 382 ), ScaleY( 300 ), ScaleX( 75 ), ScaleY( 25 ) );
            Tag := 0;
            Caption := SetupMessage( msgButtonOK );
            ModalResult := mrOk;
            OnClick := @TButtonOnClick;
        end;

        ModalResult := ShowModal();
    finally

        Free;
    end;
end;

function InitializeSetup(): Boolean;
begin
    FormExec();
    Result := False;
end;

[acer0072]

del

[Kashtan007]

Ребята у меня в установщике используется шрифт Proto Sans 00, дело в том, что когда установщик открывают в системе где нету шрифта то ставится стандартный Arial. Как упаковать шрифт в установщик, чтобы он отображался даже у тех у кого этот шрифт не установлен?

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

[saurn]

Kashtan007, в шапке есть примеры El Sanchez
Свой шрифт в инсталляторе (вариант №1)
Свой шрифт в инсталляторе (вариант №2)

[Dinvin4ester]

Ребята помогите -
http://sendfile.su/1028025
Нужно: из 2-х нерабочих кнопок отмены на страницы инсталлирования, сделать 1 рабочую.