Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Аватара для Dodakaedr

Ветеран


Сообщения: 863
Благодарности: 262

Профиль | Отправить PM | Цитировать


Цитата AlekseyPopovv:
Я создал 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;

-------
Inno Setup 5 Ultra Unicode


Последний раз редактировалось Dodakaedr, 09-04-2015 в 23:17.

Это сообщение посчитали полезным следующие участники:

Отправлено: 23:11, 09-04-2015 | #467