vint56
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
procedure InitializeWizard();
begin
ExtractTemporaryFile('ReadMe.rtf');
LoadStringFromFile(ExpandConstant('{tmp}')+'\ReadMe.rtf', Readme);
RichEditViewer1 := TRichEditViewer.Create(WizardForm);
with RichEditViewer1 do
begin
Parent := WizardForm.InstallingPage;
Left := ScaleX(0);
Top := ScaleY(72);
Width := ScaleX(417);
Height := ScaleY(153);
ReadOnly:= true;
RTFText:= Readme;
ScrollBars := ssVertical;
end;
end; |
Всего записей: 1277 | Зарегистр. 07-10-2008 | Отправлено: 20:13 06-01-2014 | Исправлено: vint56, 20:38 06-01-2014 |
|
