[Habetdin]

Возможно ли добавить на страницу выбора заданий (tasks) небольшое окошко и чтобы в нем выводилась дополнительная информация (инструкция) из .rtf файла? »

Показать исходный код »

Код:

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

[Languages]
Name: rus; MessagesFile: compiler:Languages\Russian.isl

[Files]
// Можно и .rtf
Source: compiler:Examples\Readme.txt; Flags: dontcopy ignoreversion solidbreak

[Tasks]
Name: example1; Description: Первый пошёл; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked
Name: example2; Description: Второй...; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked
Name: example3; Description: Третий...; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked
Name: example4; Description: Кто все эти люди?; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked

[Code]
{ RedesignWizardFormBegin } // Don't remove this line!
// Don't modify this section. It is generated automatically.
var
  RichEditViewer1: TRichEditViewer;
  // сохраняйте следующую переменную при редактировании элементов в FormDesigner'е, а то потеряется при перезаписи :)
  RichEditViewer1Text: AnsiString;

procedure RedesignWizardForm;
begin
  with WizardForm.TasksList do
  begin
    Height := ScaleY(128);
  end;

  { RichEditViewer1 }
  RichEditViewer1 := TRichEditViewer.Create(WizardForm);
  with RichEditViewer1 do
  begin
    Name := 'RichEditViewer1';
    Parent := WizardForm.SelectTasksPage;
    Left := ScaleX(0);
    Top := ScaleY(168);
    Width := ScaleX(417);
    Height := ScaleY(65);
    ScrollBars := ssVertical;
  end;

  RichEditViewer1.TabOrder := 2;

{ ReservationBegin }
  ExtractTemporaryFile('Readme.txt');
  LoadStringFromFile(ExpandConstant('{tmp}/Readme.txt'), RichEditViewer1Text);
  RichEditViewer1.RTFText := RichEditViewer1Text;
{ ReservationEnd }
end;
// Don't modify this section. It is generated automatically.
{ RedesignWizardFormEnd } // Don't remove this line!

procedure InitializeWizard();
begin
  RedesignWizardForm;
end;

[ISFormDesigner]
WizardForm=FF0A005457495A415244464F524D0030106B02000054504630F10B5457697A617264466F726D0A57697A617264466F726D0C436C69656E744865696768740368010B436C69656E74576964746803F1010C4578706C696369744C65667402000B4578706C69636974546F7002000D4578706C6963697457696474680301020E4578706C69636974486569676874038E010D506978656C73506572496E636802600A54657874486569676874020D00F10C544E65774E6F7465626F6F6B0D4F757465724E6F7465626F6F6B00F110544E65774E6F7465626F6F6B506167650B57656C636F6D65506167650D4578706C69636974576964746803F1010E4578706C696369744865696768740339010000F110544E65774E6F7465626F6F6B5061676509496E6E6572506167650D4578706C69636974576964746803F1010E4578706C6963697448656967687403390100F10C544E65774E6F7465626F6F6B0D496E6E65724E6F7465626F6F6B00F110544E65774E6F7465626F6F6B506167650B4C6963656E7365506167650D4578706C69636974576964746803A1010E4578706C6963697448656967687403ED000000F110544E65774E6F7465626F6F6B506167650F53656C6563745461736B73506167650D4578706C69636974576964746803A1010E4578706C6963697448656967687403ED0000F110544E6577436865636B4C697374426F78095461736B734C697374064865696768740380000E4578706C6963697448656967687403800000000F5452696368456469745669657765720F526963684564697456696577657231044C656674020003546F7003A80005576964746803A101064865696768740241085461624F72646572020200000000000000

Внешний вид можно отредактировать с помощью FormDesigner'а в расширенной версии Inno Setup