[AleD]

Сообщение от Metal71

Хотелось бы что бы было "примерно" как на рисунке №2. С помощью какого компонента этого можно добиться?

Рис.№1 сделан в DBMemo. Примечание: используется компонент для большого ввода данных (текстовых, длинной больше 255 символов).

Могу предложить с помощью WebBrowser, модератор этого форума мне такую функцию подкинул (ник не вспомню):

Код:

procedure TGTMailMain.ShowHTML(AText: String);
var
  Document: IHTMLDocument2;
  Element : IHTMLElement;
  V: OleVariant;
begin
  // Документ необходимо создать только один раз за текущую сессию работы
  If webBrowser.Document = Nil Then webBrowser.Navigate('about:blank');

  // Ожидаем создания документа и позволяем обрабатывать все сообщения
  While webBrowser.Document = Nil Do
    Application.ProcessMessages;
  Document := webBrowser.Document As IHtmlDocument2;

  // Вставляем текст (до 2Гб)
  {следующие строчки внесены недавно - старый вариант функции не работал под XP}
  V := VarArrayCreate([0, 0], varVariant);
  V[0] := AText;
  Document.Write(PSafeArray(TVarData(v).VArray));
  Document.Close;

  // Remove border
  Element := Document.Body;
  If Element <> Nil Then
    Begin
      Element.Style.BorderStyle := 'none';
    End;
end;

переменню webBrowser замени на свой компонент на форме
это пол работы, потом при помощи этой функции установи текст в WebBrowser'е на подобие этого:

Код:

<ul>
  <li>1</li>
  <li>2</li>
  <li>3</li>
  <li>4</li>
  <li>5 </li>
</ul>

здесь нужно банальное знание языка (ну это канешно громко звучит) HTML

знаю муторно, но RichEdit'ом не сильно пользовался, незнаю как там в RunTime'е изменить текст (всмысле с форматированием)