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

[Nordek]

доброе время суток. как распаковать .srep?

[Shkutu]

Доброго времени суток!

Подскажите плиз, какой компонент отвечает за дропбокс с типами установки?

[saurn]

Shkutu,



Код:

Код: Выделить всё

TWizardForm = class(TSetupForm)
    property TypesCombo: TNewComboBox; read;

[Shkutu]

saurn, да, спасибо.

И еще такая проблема. Повесила обработку выбора компонентов (на ComponentsList.OnClickCheck) - сломалось автоопределение типа. Подскажите плиз, куда можно повесить определение типа в зависимости от выбранных компонентов? Вешать на тот же OnClickCheck не получается, потому что тогда ломается выбор компонентов( Думала использовать что-то вроде на ComponentsList.OnChange, но ничего похожего пока не нашла

[saurn]

Shkutu, да вроде не ломается.

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

Код:

Код: Выделить всё

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
[Languages]
Name: Russian; MessagesFile: compiler:Languages\Russian.isl
[Components]
Name: a; Description: Моя программа; ExtraDiskSpaceRequired: 15000000; Types: full custom;
Name: aa; Description: Руководство пользователя; ExtraDiskSpaceRequired: 2655285235; Types: custom
Name: aaa; Description: Русский; ExtraDiskSpaceRequired: 5587282385; Types: custom
[Code]
var
    OldCompListOnClickCheckProc: TNotifyEvent;
    SpaceComponentsLabel: TLabel;
procedure ComponentsListOnClickCheck(Sender: TObject);
begin
    OldCompListOnClickCheckProc(TNewCheckListBox(Sender));
    SpaceComponentsLabel.Caption := WizardForm.ComponentsDiskSpaceLabel.Caption;
end;
procedure InitializeWizard();
begin
    WizardForm.ComponentsDiskSpaceLabel.Hide;
    OldCompListOnClickCheckProc := WizardForm.ComponentsList.OnClickCheck;
    WizardForm.ComponentsList.OnClickCheck := @ComponentsListOnClickCheck;
    SpaceComponentsLabel:= TLabel.Create(nil);
    with SpaceComponentsLabel do
    begin
        Parent := WizardForm.SelectComponentsPage;
        SetBounds(ScaleX(WizardForm.ComponentsDiskSpaceLabel.Left), ScaleY(WizardForm.ComponentsDiskSpaceLabel.Top), ScaleX(WizardForm.ComponentsDiskSpaceLabel.Width), ScaleY(WizardForm.ComponentsDiskSpaceLabel.Height));
        AutoSize := False;
        Font.Style := [fsBold];
        Font.Color := $0000FF;
    end;
end;
procedure CurPageChanged(CurPageID: Integer);
begin
    case CurPageID of
        wpSelectComponents: ComponentsListOnClickCheck(WizardForm.ComponentsList);
    end;
end;

У компонент листа, насколько мне известно, нет свойства OnChange

[Shkutu]

saurn, обработчик был кривоватый

Спасибо, поправила как в Вашем примере, теперь ничего не ломается

[Ivan_009]

Как прицепить дополнительную форму к инсталлятору и чтобы она была вверху инсталлятора.

Зарание спасибо...

[habib2302]

доброе время суток. как распаковать .srep?

[Ivan_009]

habib2302, Так:

Код:

Код: Выделить всё

if not ISSRepExtract   ( 0, 0, ExpandConstant('{app}\data1024_1024.srep'),ExpandConstant('{app}\data1024.arc'), true) then break;

Как и arc...

И справочку читани перед сном...

[habib2302]

Цитата Ivan_009:



Подскажите, что за стиль текста такой :



Код:

Код: Выделить всё

Font.Style := [];

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

Простой стиль шрифта.



Пример:



Код:

Код: Выделить всё

procedure InitializeWizard();
begin
  WizardForm.WelcomeLabel1.Font.Style := [];
end;

Далее:



Код:

Код: Выделить всё

[fsBold]      - Жирный         Текст
[fsItalic]    - Курсив         Текст
[fsUnderline] - Подчёркнутый   Текст
[fsStrikeOut] - Зачёркнутый    Текст

Можно комбинировать:



Код:

Код: Выделить всё

// Жирный     Курсив    Подчёркнутый  Зачёркнутый
[  fsBold,    fsItalic, fsUnderline,  fsStrikeOut] // Текст