RichEdit

← →
SMike (2002-03-27 20:28) [0]

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

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) [1]

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

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

RichEdit Найти похожие ветки