[kotyarko@fb]

То есть где предоставляется выбор Portable-версии? »

(когда\на каком этапе\на какой странице) установки пользователю предоставляется выбор версии?

[AlekseyPopovv]

kotyarko@fb, Понял, да эта страница после выбора портабле и инсталер. Скрипт собирается, но инсталлятор выдаёт ошибку и не запускается.

[kotyarko@fb]

Понял, да эта страница после выбора портабле и инсталер. »

Перечитайте внимательнее мой вопрос выше. Где находятся эти чекбоксы с версиями, при запуске или на одной из страниц установщика? - В первом случае можно использовать InitializeWizard, во втором - CurPageChanged.

[AlekseyPopovv]

kotyarko@fb, На одной из страниц установщика. Щас попробую через CurPageChanged. Кто мне про неё говорил, но тогда я не понял этого.

kotyarko@fb, Не могу допетрить и всё...

[Dodakaedr]

Я создал новую страницу "CreateCustomPage", как сделать что бы она отображалась только при выборе "Portable" версии? »

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[Code]
var
AkkPage: TWizardPage;
portbtn: TNewCheckbox;

procedure InitializeWizard();
begin
 AkkPage := CreateCustomPage(wpWelcome, 'PortablePage_Caption', 'PortablePage_Description');

 portbtn := TNewCheckBox.Create(WizardForm);
 portbtn.Parent := WizardForm.WelcomePage;
 portbtn.Caption := 'Portable';
 portbtn.SetBounds(ScaleX(180), ScaleY(280), ScaleX(80), ScaleY(23));
end;

function ShouldSkipPage(PageID: Integer): Boolean;
begin
  if (PageID = AkkPage.id) then Result := not portbtn.Checked;
end;

[AlekseyPopovv]

function ShouldSkipPage(PageID: Integer): Boolean;
begin
if (PageID = AkkPage.id) then Result := not portbtn.Checked;
end;
В этом вся проблема была, этого не хватало.

Я создал TRichEditViewer. Как к нему прикрутить файл .rtf?

[Dodakaedr]

Я создал TRichEditViewer. Как к нему прикрутить файл .rtf? »

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

Код:

[Setup]
AppName=My Program
AppVerName=My Program version 1.5
DefaultDirName={pf}\My Program

[Files]
Source: ReadMe.rtf; Flags: dontcopy

[Code]
var
  Page: TWizardPage;
  RichEditViewer: TRichEditViewer;
  Readme: ansistring;

procedure InitializeWizard();
begin
Page := CreateCustomPage(wpWelcome, 'Information', 'Please read the following important information before continuing.');

RichEditViewer := TRichEditViewer.Create(Page.Surface);
with RichEditViewer do
begin
  ExtractTemporaryFile('ReadMe.rtf');
  LoadStringFromFile(ExpandConstant('{tmp}')+'\ReadMe.rtf', Readme);
  SetBounds(ScaleX(12),ScaleY(12),ScaleX(400),ScaleY(222));
  Parent := Page.Surface;
  Font.Size := 8;
  RTFText:= Readme;
  ReadOnly := True;
  ScrollBars := ssVertical;
end;
end;

[nik1967]

AlekseyPopovv,

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

Код:

[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
OutputDir=.
Compression=lzma/ultra
InternalCompressLevel=ultra
SolidCompression=yes
InfoBeforeFile=ReadMeRu.rtf

[Languages]
Name: ENG; MessagesFile: "compiler:Default.isl"
Name: RUS; MessagesFile: "compiler:Languages\Russian.isl"

[Files]
Source: ReadMeRu.rtf; Flags: dontcopy
Source: ReadMeEn.rtf; Flags: dontcopy

[Code]
var
  InfoBefore: TRichEditViewer;
  ReadmeRu,ReadmeEn: AnsiString;
	
procedure InitializeWizard();                       
begin
  ExtractTemporaryFile('ReadMeRu.rtf');
  LoadStringFromFile(ExpandConstant('{tmp}')+'\ReadMeRu.rtf', ReadmeRu);
  ExtractTemporaryFile('ReadMeEn.rtf');
  LoadStringFromFile(ExpandConstant('{tmp}')+'\ReadMeEn.rtf', ReadmeEn);
	
  InfoBefore:= TRichEditViewer.Create(WizardForm);
  with InfoBefore do begin
    SetBounds(ScaleX(0),ScaleY(24),ScaleX(417),ScaleY(205));
    Parent:= WizardForm.InfoBeforePage;
    ParentColor:= True;
    Color:= WizardForm.Color;
    BorderStyle:= bsNone;
    ScrollBars:= ssVertical;
    ReadOnly:= true;
		
    if ActiveLanguage='RUS' then
      RTFText:= ReadmeRu
    else
    if ActiveLanguage='ENG' then
      RTFText:= ReadmeEn;
    end;
end;

Это на стандартной инновской странице InfoBefore. И с выбором языка.

[AlekseyPopovv]

У меня на странице 2 "CheckBox'a". Первый - копирует файл в папку, второй - этот файл запускает. По умолчанию оба "Checked:=True;". Как сделать так, что бы если галочку снять с первого, второй был не активен?

Код:

NewDel := TNewGroupBox.Create(WizardForm);
  with NewDel do
  begin
    Parent := NewForPortablePage.Surface;
    Caption := 'Дополнительно:';
    Left := ScaleX(0);
    Top := ScaleY(195);
    Width := ScaleX(417);
    Height := ScaleY(40);
  end;

  StartNewDel := TNewCheckBox.Create(WizardForm);
  with StartNewDel do
  begin
    Parent := NewForPortablePage.Surface;
    Left := ScaleX(5);
    Top := ScaleY(210);
    Width := ScaleX(174);
    Height := ScaleY(17);
    Caption := 'Распаковать My Prog';
    Checked:=True;
  end;

  PuskNewDel := TNewCheckBox.Create(WizardForm);
  with PuskNewDel do
  begin
    Parent := NewForPortablePage.Surface;
    Left := ScaleX(225);
    Top := ScaleY(210);
    Width := ScaleX(174);
    Height := ScaleY(17);
    Caption := 'Запустить My Prog';
    Checked:=True;
  end;
 end;
end;

[kotyarko@fb]

Как сделать так, что бы если галочку снять с первого, второй был не активен? »

Так:

Код:

Var
 NewDel: TNewGroupBox;
 StartNewDel, PuskNewDel: TNewCheckBox;
 
Procedure EnableWhenChecked(Sender: TObject);
begin
 case StartNewDel.Checked of
 False:
  begin
   PuskNewDel.Checked := False;
   PuskNewDel.Enabled := False;
  end;
 True:
  begin
   PuskNewDel.Enabled := True;
   PuskNewDel.Checked := True;
  end;
 end;
end;

Procedure InitializeWizard();
begin
  NewDel := TNewGroupBox.Create(WizardForm);
  with NewDel do
  begin
    Parent := WizardForm;
    Caption := 'Дополнительно:';
    Left := ScaleX(0);
    Top := ScaleY(195);
    Width := ScaleX(417);
    Height := ScaleY(40);
  end;

  StartNewDel := TNewCheckBox.Create(WizardForm);
  with StartNewDel do
  begin
    Parent := WizardForm;
    Left := ScaleX(5);
    Top := ScaleY(210);
    Width := ScaleX(174);
    Height := ScaleY(17);
    Caption := 'Распаковать My Prog';
    Checked:=True;
    OnClick := @EnableWhenChecked;
  end;

  PuskNewDel := TNewCheckBox.Create(WizardForm);
  with PuskNewDel do
  begin
    Parent := WizardForm;
    Left := ScaleX(225);
    Top := ScaleY(210);
    Width := ScaleX(174);
    Height := ScaleY(17);
    Caption := 'Запустить My Prog';
    Checked:=True;
  end;
end;