Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.03.20;
Скачать: [xml.tar.bz2];

Вниз

Прокрутка двух RichEdit ов одновременно   Найти похожие ветки 

 
Mitrofan   (2003-03-10 10:03) [0]

Уважаемые мастера, подскажите как сделать следующее.
Задача следующая:
Имеется два RichEdit"a и один ScrollBar, нужно синхронно прокручивать эти два RichEdit"a. RichEdit"ы содержат порядка
300 строк.
Пробовал в обработчике
Scrollbar1Scroll(Sender: TObject; ScrollCode: TScrollCode;
var ScrollPos: Integer);
вызывать такой код:
{
wParam:=SB_THUMBTRACK + ScrollPos shl 16;
RichEdit1.Perform(WM_VSCROLL,wParam,0);
RichEdit2.Perform(WM_VSCROLL,wParam,0);
}
Прокручивается но не до конца :( Где копать ???


 
Song   (2003-03-10 10:07) [1]

Да SelStart одинаковый устанавливай для обоих.


 
Mitrofan   (2003-03-10 10:11) [2]

А что этот парпметр обозначает ???


 
Mitrofan   (2003-03-10 10:20) [3]

Не помогает :( Может пару строк кода подкинете, а то я может не туда всавляю ?


 
Song   (2003-03-10 10:28) [4]

RichEdit2.SelStart:=RichEdit1.SelStart;
RichEdit2.Perform(EM_SCROLLCARET,0,0);

Это если фокус в первом ричедите. Если во втором, тогда нужно сообщение первому посылать.


 
Mitrofan   (2003-03-10 10:31) [5]

Дело в том что у RichEdit"ов установлено Enabled в false :(


 
Mitrofan   (2003-03-10 12:50) [6]

Никак не получается, помогите кто-нибудь, плизззззззз !!!



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

Форум: "Основная";
Текущий архив: 2003.03.20;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.009 c
4-64447
MLAMIK
2003-01-26 22:21
2003.03.20
Мультиэкранный режим (работа с дополнительными мониторами)


9-63921
Kolya
2002-10-17 23:26
2003.03.20
алгоритм альфа-блендинга


14-64306
Дмитрий К.К.
2003-03-04 06:13
2003.03.20
Именинники 4 марта


14-64384
Igel
2003-03-05 13:38
2003.03.20
Компоненты для просмотра SLB-файлов.


1-64132
Avgur
2003-03-07 04:47
2003.03.20
PopUp Menu, я уже устал





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский