Скрипты Inno Setup. Помощь и советы [часть 8]

Gamattinol · Отправлено: **13:18, 25-02-2016** | #**1381**

Как это исправить ?

Dodakaedr · Конфигурация компьютера

Цитата Gamattinol:

Как это исправить ? »

Откуда я знаю что вы там написали, скриншот то даже не с моего примера.

Gamattinol · Отправлено: **13:45, 25-02-2016** | #**1383**

Цитата Dodakaedr:

Откуда я знаю что вы там написали, скриншот то даже не с моего примера. »

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

; Script generated by the Inno Setup Script Wizard.
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!

#define MyAppName "My Program"
#define MyAppVersion "1.5"
#define MyAppPublisher "My Company, Inc."
#define MyAppURL "http://www.example.com/"
#define MyAppExeName "MyProg.exe"

[Setup]
; NOTE: The value of AppId uniquely identifies this application.
; Do not use the same AppId value in installers for other applications.
; (To generate a new GUID, click Tools | Generate GUID inside the IDE.)
AppId={{11852012-EB17-4CF3-A873-BB154995AD34}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
;AppVerName={#MyAppName} {#MyAppVersion}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName={pf}\{#MyAppName}
DisableProgramGroupPage=yes
OutputBaseFilename=setup
Compression=lzma
SolidCompression=yes

[Languages]
Name: "english"; MessagesFile: "compiler:Default.isl"

[Tasks]
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked

[Files]
Source: "C:\Program Files (x86)\Inno Setup 5\Examples\MyProg.exe"; DestDir: "{app}"; Flags: ignoreversion
; NOTE: Don't use "Flags: ignoreversion" on any shared system files

[Icons]
Name: "{commonprograms}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"
Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: desktopicon

[code]
var
NewGroupBox: TNewGroupBox;

procedure InitializeWizard();
begin
NewGroupBox := TNewGroupBox.Create(WizardForm);
with NewGroupBox do
begin
Parent := WizardForm.SelectDirPage;
Left := ScaleX(0);
Top := ScaleY(100);
Width := ScaleX(417);
Height := ScaleY(60);
Caption := 'Папка установки:';
end;

NewGroupBox.TabOrder := 5;

with WizardForm.DirBrowseButton do
begin
Left := ScaleX(334);
Top := ScaleY(23);
Parent := NewGroupBox;
end;

with WizardForm.DirEdit do
begin
Left := ScaleX(8);
Top := ScaleY(24);
Width := ScaleX(320);
Parent := NewGroupBox;
end;
end;

Как исправить ?
В коде ничего не трогал !

Скриншот - это мой,показываю что ничего не происходит от вашего кода!

Dodakaedr · Конфигурация компьютера

Цитата Gamattinol:

Как исправить ?
В коде ничего не трогал ! »

добавьте

Код:

procedure InitializeWizard();
begin
  RedesignWizardForm;
end;

saurn · Конфигурация компьютера

Цитата Gamattinol:

Как исправить ?»

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

Пример

Код:

[code]
const
    STR_TBOX = #32'Папка установки:'#32;


procedure _CtrlsEdit();
var
    _tBox: TNewGroupBox;
begin
    with WizardForm do
    begin
        _tBox := TNewGroupBox.Create( nil );
        with _tBox do
        begin
            Parent := SelectDirPage;
            SetBounds( ScaleX( 0 ), ScaleY( 100 ), ScaleX( 417 ), ScaleY( 60 ) );
            Caption := STR_TBOX;
        end;

        with DirBrowseButton do
        begin
            Left := ScaleX( 334 );
            Top := ScaleY( 23 );
            Parent := _tBox;
        end;

        with DirEdit do
        begin
            Left := ScaleX( 8 );
            Top := ScaleY( 24 );
            Width := ScaleX( 320 );
            Parent := _tBox;
        end;
    end;
end;


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

Gamattinol · Отправлено: **15:17, 25-02-2016** | #**1386**

http://pixs.ru/showimage/Snimokekra_...4_20838132.png

Как подогнать чтобы было как на картинке ?
Больше не получается подогнать компонент и "caption" не знаю как там сделать !

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

; Script generated by the Inno Setup Script Wizard.
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!

#define MyAppName "My Program"
#define MyAppVersion "1.5"
#define MyAppPublisher "My Company, Inc."
#define MyAppURL "http://www.example.com/"
#define MyAppExeName "MyProg.exe"

[Setup]
; NOTE: The value of AppId uniquely identifies this application.
; Do not use the same AppId value in installers for other applications.
; (To generate a new GUID, click Tools | Generate GUID inside the IDE.)
AppId={{11852012-EB17-4CF3-A873-BB154995AD34}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
;AppVerName={#MyAppName} {#MyAppVersion}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName={pf}\{#MyAppName}
DisableProgramGroupPage=yes
OutputBaseFilename=setup
Compression=lzma
SolidCompression=yes

[Languages]
Name: "english"; MessagesFile: "compiler:Default.isl"

[Tasks]
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked

[Files]
Source: "C:\Program Files (x86)\Inno Setup 5\Examples\MyProg.exe"; DestDir: "{app}"; Flags: ignoreversion
; NOTE: Don't use "Flags: ignoreversion" on any shared system files

[Icons]
Name: "{commonprograms}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"
Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: desktopicon

[code]
var
Bevel2: TBevel;

procedure RedesignWizardForm;
begin
{ Bevel2 }
Bevel2 := TBevel.Create(WizardForm);
with Bevel2 do
begin
Parent := WizardForm.SelectDirPage;
Left := ScaleX(0);
Top := ScaleY(135);
Width := ScaleX(418);
Height := ScaleY(50);
Shape := bsFrame;
end;

with WizardForm.DirBrowseButton do
begin
Top := ScaleY(150);
Width := ScaleX(65);
end;

with WizardForm.DirEdit do
begin
Left := ScaleX(15);
Top := ScaleY(150);
Width := ScaleX(315);
end;
end;

procedure InitializeWizard();
begin
RedesignWizardForm;
end;

saurn · Конфигурация компьютера

Цитата Gamattinol:

Как подогнать »

Выставляйте нужные значения:

Код:

Left := ScaleX( положение контрола от левой границы );
Top := ScaleY( положение контрола от верхней границы );
Width := ScaleX( ширина контрола );
Height := ScaleY( высота контрола );

Тоже самое, только одной строкой:

Код:

SetBounds( ScaleX( от левой границы ), ScaleY( от верхней границы ), ScaleX( ширина ), ScaleY( высота ) );

Цитата Gamattinol:

"caption" не знаю как там сделать »

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

Код:

[code]
const
    STR_TXT = #32'Папка установки:'#32;


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

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

        with DirBrowseButton do
        begin
            Top := ScaleY( 130 );
            Width := ScaleX( 65 );
        end;

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


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

Gamattinol · Отправлено: **18:40, 25-02-2016** | #**1388**

Цитата saurn:

[code]
const
STR_TXT = #32'Папка установки:'#32;
procedure _CtrlsEdit();
begin
with WizardForm do
begin
with TBevel.Create( nil ) do
begin
Parent := SelectDirPage;
SetBounds( ScaleX( 0 ), ScaleY( 115 ), ScaleX( 418 ), ScaleY( 50 ) );
Shape := bsFrame;
end;
with TNewStaticText.Create( nil ) do
begin
Parent := SelectDirPage;
Left := ScaleX( 8 );
Top := ScaleY( 108 );
AutoSize := True;
Caption := STR_TXT;
end;
with DirBrowseButton do
begin
Top := ScaleY( 130 );
Width := ScaleX( 65 );
end;
with DirEdit do
begin
Left := ScaleX( 15 );
Top := ScaleY( 130 );
Width := ScaleX( 315 );
end;
end;
end;
procedure InitializeWizard();
begin
_CtrlsEdit();
end;
Полезное сообщение | Отправлено: 17:41, Сегодня | #1387 »

[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
            Top := ScaleY( 137 );
            Width := ScaleX( 85 );
        end;

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


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

Как убрать этот баг ?
http://pixs.ru/showimage/Snimokekra_...8_20840618.png

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