|
|
Регистрация | << Правила форума >> | 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'е изменить текст (всмысле с форматированием) TAleD = class(TUser) public function HelpMe(ASubject, ARequest: String): String; function GiveMeExample(ASubject: String): TStringList; procedure WriteReview(APost: Integer; ADescription: TStringList); end; |
#4
|
|||
|
|||
Страдалецъ
Это не TCheckListBox. TCheckListBox - это список с флажками. Как здесь: AleD спасибо, попробую, а язык HTML я оч. хорошо знаю. Если ещё кто знает как реализовать данное действо другими способами, то говорите пожалуйста. |
#5
|
||||
|
||||
Ну если надо именно с точками, то воспользуйтесь TListView. Подключите нужные иконки, установить режим vsReport и будет тоже самое.
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |