![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
![]() Хотелось бы что бы было "примерно" как на рисунке №2. С помощью какого компонента этого можно добиться? Рис.№1 сделан в DBMemo. Примечание: используется компонент для большого ввода данных (текстовых, длинной больше 255 символов). |
|
#2
|
||||
|
||||
|
Наверное TCheckListBox
|
|
#3
|
||||
|
||||
|
Цитата:
Код:
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'е на подобие этого: Код:
<ul> <li>1</li> <li>2</li> <li>3</li> <li>4</li> <li>5 </li> </ul> знаю муторно, но RichEdit'ом не сильно пользовался, незнаю как там в RunTime'е изменить текст (всмысле с форматированием) |
|
#4
|
|||
|
|||
|
Страдалецъ
Это не TCheckListBox. TCheckListBox - это список с флажками. Как здесь: ![]() AleD спасибо, попробую, а язык HTML я оч. хорошо знаю. Если ещё кто знает как реализовать данное действо другими способами, то говорите пожалуйста. |
|
#5
|
||||
|
||||
|
Ну если надо именно с точками, то воспользуйтесь TListView. Подключите нужные иконки, установить режим vsReport и будет тоже самое.
|