Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.05.30;
Скачать: CL | DM;

Вниз

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 сам менять расцветку...
И зачем линию чертить ? Может и подчеркиваем/перечеркиванием обойдешься ?

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



Страницы: 1 вся ветка

Текущий архив: 2002.05.30;
Скачать: CL | DM;

Наверх




Память: 0.44 MB
Время: 0.005 c
1-97313
MaximatorVeter
2002-05-19 17:26
2002.05.30
Что значит reintroduce?


3-97115
VICTOR_
2002-05-10 16:30
2002.05.30
Проблема с LANGUAGE DRIVER в PARADOX


3-97207
Snake
2002-05-06 16:12
2002.05.30
Не работает Locate!


3-97155
Санёк
2002-05-01 18:48
2002.05.30
Interbase...


1-97319
OlegBat
2002-05-18 10:05
2002.05.30
Где взять библиотеку RX для Delphi 6 ?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский