![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Добрый день. Я начну.
Необходимо сделать список шрифтов в виде самих шрифтов. Вот в нете нашел такой вот код: Код:
Но как бы он не работает... Иии тут Listbox я вообще делаю через ComboBox но и так и так вообще не выходит... Иии тут написано процедура TForm1.DrawItem но такой нет она же только или в ListBox или в ComboBox на Form её нет...я делал через TForm1.ListBox1DrawItem но всё равно результат нулевой... Помогите кто чем может) |
#2
|
|||
|
|||
![]() Кстати в этом коде лишний Label походу...и вообще я сделал для Richedit это всё...но важен мне сам список ибо всю остальную функцию я выполнил...
|
#3
|
||||
|
||||
![]() так надо??
|
#4
|
||||
|
||||
![]() вот еще с комбиком:
Код:
|
#5
|
|||
|
|||
![]() В ComboBox надо было в Style поставить csOwnerDrawVariable
-_-" Спасибо NumLockу сверил его архив смоим) |
#6
|
|||
|
|||
![]() Блин вот теперь когда это заработало теперь вот нне работает определение шрифта: когда щёлкаешь на отдельную область текста в ричедите что бы он показыавл что там за шриф в этом же комбобоксе ну как в ворде...
У меня раньше тупо так работало в MouseUpе: ComboBox2.SelText:=RichEdit1.SelAttributes.Name; Хотя размер отлично показыввыает: ComboBox1.Text:=IntToStr(RichEdit1.SelAttributes.s ize); |
#7
|
|||
|
|||
![]() Он печатает тем же шрифтом но не показывает его почему то =\
|
#8
|
|||
|
|||
![]() ДУмаю как нибудь через ComboBox2.Items[ComboBox2.ItemIndex] сделать но ещё не допёр)
Как выяснить какой строчкой идёт шрифт в комбобоксе именно тот на котором сейчас курсор... |