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

Вниз

Мерцание при перерисовке   Найти похожие ветки 

 
Eisdolch ©   (2007-10-24 14:47) [0]

Возникла небольшая проблема.
У меня имеется несколько RichEdit. Мне нужно передвинуть их вверх с помощью TScrollBar.
Я сделал так:
procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
RichEdit1.Top:=-RichEdit1.Top-ScrollBar1.Position;
RichEdit2.Top:=-RichEdit2.Top-ScrollBar1.Position;
RichEdit3.Top:=-RichEdit3.Top-ScrollBar1.Position;
end;      

Но когда начинаю прокручивать ScrollBar, то возникает мерцание. Подскажите, пожалуйста, как от этого мерцания избавиться.


 
Сергей М. ©   (2007-10-24 14:50) [1]

Не проще ли все свои ричэдиты кинуть на TScrollBox и не париться с ручной обработкой скроллинга и всякими там "мерцаниями" ?



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

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

Наверх




Память: 0.46 MB
Время: 0.016 c
2-1198845339
Stepper
2007-12-28 15:35
2008.01.27
Как в RichEdit проверить, есть какая нибудь срока или нет?


2-1198681178
fics
2007-12-26 17:59
2008.01.27
TCanvas (нарисовать стрелочку)


15-1198055878
Kolan
2007-12-19 12:17
2008.01.27
Delphi не ищет в подпапках SearchPath.


2-1198502186
saNat
2007-12-24 16:16
2008.01.27
Определение разделителя целой/дробной части


15-1198157192
Kolan
2007-12-20 16:26
2008.01.27
В свойствах папки нет закладки «Доступ», почему?