[saurn]

Все правильно я сделал больше кнопку! »

Я так и сказал. Раз Вы увеличили кнопку, следовало учитывать, что размеры других контролов придется так же изменять: уменьшить размер DirEdit по ширине, сдвинуть кнопку влево, в частности.

[Gamattinol]

[code]

Код:

const
    STR_TXT = #32'Destination Folder'#32;


procedure _CtrlsEdit();
begin
    with WizardForm do
    begin
        with TBevel.Create( nil ) do
        begin
            Parent := SelectDirPage;
            SetBounds( ScaleX( 0 ), ScaleY( 125 ), ScaleX( 418 ), ScaleY( 50 ) );
            Shape := bsFrame;
        end;

        with TNewStaticText.Create( nil ) do
        begin
            Parent := SelectDirPage;
            Left := ScaleX( 13 );
            Top := ScaleY( 118 );
            AutoSize := True;
            Caption := STR_TXT;
        end;

        with DirBrowseButton do
        begin
            Left := ScaleX( 315 );
            Top := ScaleY( 137 );
            Width := ScaleX( 85 );
        end;

        with DirEdit do
        begin
            Left := ScaleX( 15 );
            Top := ScaleY( 139 );
            Width := ScaleX( 290 );
        end;
    end;
end;


procedure InitializeWizard();
begin
    _CtrlsEdit();
end;

Пока что только так получилось

[Gamattinol]

SelectDirBrowseLabel
SelectDirLabel

Как переместить в нужное место эти компоненты (label) ?

[Nordek]

Не знаю как эту рамку можно сделать шире »

InnerNotebook:

Код:

          with WizardForm.InnerNotebook do
          begin
            Left := ScaleX(0);
            Width := ScaleX(499);
          end;

[ZVSRus]

Как переместить в нужное место эти компоненты (label) ?

Скрытый текст

Код:

procedure _CtrlsEdit();
begin
    with WizardForm do
    begin
        with TBevel.Create( nil ) do
        begin
            Parent := SelectDirPage;
            SetBounds( ScaleX( 0 ), ScaleY( 125 ), ScaleX( 418 ), ScaleY( 50 ) );
            Shape := bsFrame;
        end;

        with TNewStaticText.Create( nil ) do
        begin
            Parent := SelectDirPage;
            Left := ScaleX( 13 );
            Top := ScaleY( 118 );
            AutoSize := True;
            Caption := STR_TXT;
        end;

        with DirBrowseButton do
        begin
            Left := ScaleX( 315 );
            Top := ScaleY( 137 );
            Width := ScaleX( 85 );
        end;

        with DirEdit do
        begin
            Left := ScaleX( 15 );
            Top := ScaleY( 139 );
            Width := ScaleX( 290 );
        end;
        
        with SelectDirBrowseLabel do
        begin
            Left := ScaleX(0);
            Top := ScaleY(74);
            Width := ScaleX(417);
            Height := ScaleY(27);
        end;

        with SelectDirLabel do
        begin
            Left := ScaleX(44);
            Top := ScaleY(39);
            Width := ScaleX(373);
            Height := ScaleY(14);
        end;
    end;
end;

[vadjliss]

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

[saurn]

как можно сделать что бы перед инсталляцией выскакивала рамка с предупреждением »

Скрытый текст

Код:

#define MyAppName "My Program"
#define MyAppVersion "1.5"


[Setup]
AppName={#MyAppName}
AppVersion={#MyAppVersion}
DefaultDirName={pf}\{#MyAppName}
DefaultGroupName={#MyAppName}
OutputBaseFilename=setup


[Code]
function NextButtonClick( CurPageID: Integer ): Boolean;
begin
    case CurPageID of
        wpReady: Result := ( mrYes = MsgBox( 'Продолжить?', mbConfirmation, MB_YESNO ) );
        else Result := True;
    end;
end;

[Irenis]

Всем здравствуйте Подскажите пожалуйста, в чем может быть проблема. В установщиках, созданных через inno setup, не всегда появляется окно, где можно задавать путь установки, это окно пропускается и программа устанавливается принудительно, хотя я не задаю никаких параметров принудительной установки. Например, создала установщик, установила созданную программу, удалила ее, и при повторной установке уже нет окна, где можно выбрать путь установки. То есть каким то образом запоминается, куда я до этого устанавливала программу, и второй раз не появляется возможность выбора. Проблема еще в том, что часто создаю программы, которые бывают похожи по содержанию (например, одинаковые папки, похожие файлы .exe), так вот эти программы тоже начинают принудительно устанавливаться в одну папку. Подскажите пожалуйста, что можно сделать, чтобы не происходило таких принудительных установок и всегда можно было выбрать путь установки? Спасибо, очень надеюсь на ответ

[saurn]

Irenis, значение директивы DisableDirPage в секции Setup, часом не auto?

[Irenis]

Честно говоря, у меня такой директивы вообще нету
Установщики самые простейшие, созданные через мастера создания установщика, который автоматически создает какой то скрипт, дальше уже сама просто вношу мелкие дополнения в скрипт.