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

vahe-91 · Сообщение **vahe-91** » 06 янв 2011, 20:03

Цитата Imitri7:

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

Код:

[Setup]
AppName=My Program
AppVerName=My Program
DefaultDirName={pf}\My Program
OutputDir=userdocs:InnoSetupTest.
[Languages]
Name: russian; MessagesFile: compiler:Languages\Russian.isl;
[CustomMessages]
MyCheckListBox_Group1=Язык субтитров
MyCheckListBox_Group2=Язык озвучки
MyCheckListBox_Russian=Русский
MyCheckListBox_English=Английский
[code]
var
  MyComponentPage: TWizardPage;
  MyCheckListBox: TNewCheckListBox;
procedure GetMyComponentPage();
begin
  MyComponentPage := CreateCustomPage(wpWelcome, 
         SetupMessage(msgWizardSelectComponents),
            SetupMessage(msgSelectComponentsDesc));
  with TNewStaticText.Create(WizardForm) do
  begin
    Width := WizardForm.InnerNotebook.Width;
    WordWrap := True;
    Caption := SetupMessage(msgSelectComponentsLabel2);
    Parent := MyComponentPage.Surface;
  end;
  MyCheckListBox := TNewCheckListBox.Create(WizardForm);
  with MyCheckListBox do
  begin
    Parent := MyComponentPage.Surface;
    Top := ScaleY(48);
    Width := WizardForm.InnerNotebook.Width;
    Height := ScaleY(157);
    AddCheckBox(ExpandConstant('{cm:MyCheckListBox_Group1}'),
           '', 0, True, False, False, True, TStringList.Create);
    AddRadioButton(ExpandConstant('{cm:MyCheckListBox_Russian}'),
                           '', 1, True, True, TStringList.Create);
    AddRadioButton(ExpandConstant('{cm:MyCheckListBox_English}'),
                           '', 1, False, True, TStringList.Create);
    AddCheckBox(ExpandConstant('{cm:MyCheckListBox_Group2}'), '',
                      0, True, False, False, True, TStringList.Create);
    AddRadioButton(ExpandConstant('{cm:MyCheckListBox_Russian}'),
                                  '', 1, True, True, TStringList.Create);
    AddRadioButton(ExpandConstant('{cm:MyCheckListBox_English}'),
                                 '', 1, False, True, TStringList.Create);
  end;
end;
procedure InitializeWizard();
begin
  GetMyComponentPage();
end;

R.i.m.s.k.y.

serg aka lain, а для другого цвета текста нужны лейблы отдельные?

vahe-91 · Сообщение **vahe-91** » 06 янв 2011, 21:40

Цитата Imitri7:

а для другого цвета текста нужны лейблы отдельные?

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

Если для TNewCheckListBox, то так:

Код:

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

MyCheckListBox.Font.Color := $6af140;

Serega · Сообщение **Serega** » 06 янв 2011, 23:02

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

Не подскажете в чем проблема -

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



 
 Код: [url=#][/url]
 [code]const
    Archives = '{src}\*.arc';    // укажите расположение архивов FreeArc; для внешних файлов строку в [Files] добавлять необязательно
    PM_REMOVE = 1;
    CP_ACP = 0; CP_UTF8 = 65001;
    oneMb = 1048576;
type
#ifdef UNICODE  ; если у вас ошибка на этой строке, то установите препроцессор или исправьте скрипт для вашей версии Inno Setup
    #define A "W"
#else
    #define A "A"  ; точка входа в SetWindowText, {#A} меняется на A или W в зависимости от версии
    PAnsiChar = PChar;  // Required for Inno Setup 5.3.0 and higher. (требуется для Inno Setup версии 5.3.0 и ниже)
#endif
#if Ver < 84018176
    AnsiString = String; // There is no need for this line in Inno Setup 5.2.4 and above (для Inno Setup версий 5.2.4 и выше эта строка не нужна)
#endif

Что за препроцессор?, или как можно эту проблему подругому исправить, заранее благодарен