Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

RichEdit [D5, D6, Win95/98]


SMike ©   (2002-03-27 20:28:00) 

Уважаемые эксперты!
У меня два вопроса:

1) Как в RichEdit САМОМУ начертить линию?
Почему RichEdit.PaintTo(RichEdit.Handle, 100, 100) не работает?
Или она (линия) перерисовывается (перекрывается) заново текстом? Если да, то как этого избежать?

2) Как в RichEdit сделать аналог HotTrack-а в TreeView-е?
Пробую делать так:
procedure SetComCtlStyle(Ctl: TWinControl; Value: Integer; UseStyle: Boolean);
var
Style: Integer;
begin
if Ctl.HandleAllocated then
begin
Style := GetWindowLong(Ctl.Handle, GWL_STYLE);
if not UseStyle then Style := Style and not Value
else Style := Style or Value;
SetWindowLong(Ctl.Handle, GWL_STYLE, Style);
end;
end;

SetComCtlStyle(RichEdit, TVS_TRACKSELECT, TRUE)
Ошибка ен возникает, однако слова не выделяются

Заранее благодарен, SMike.


Севостьянов Игорь   (2002-03-28 19:26:00) [1]

Конечно не будут выделяться TVS_TRACKSELECT - Enables hot tracking in a tree view controlпредназначено только для TreeView контрола. Попробуй на OnMouseMove сам менять расцветку...
И зачем линию чертить ? Может и подчеркиваем/перечеркиванием обойдешься ?

Ну а проще свой написать, как наследник или содрать у борландов и дописать свое туда...


Наверх

Титульная страница Поиск, карта сайта Написать письмо