![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
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 сам менять расцветку...
И зачем линию чертить ? Может и подчеркиваем/перечеркиванием обойдешься ?
Ну а проще свой написать, как наследник или содрать у борландов и дописать свое туда...