[Антихристъ]

Привет, народ. Прицепил на панель скроллбар и столкнулся с проблемой: во время скроллинга на компонентах остаются полосы

Лечится при обновлении компонента или наведением мыши.
Есть идея в процедуре скроллинга обновлять каждый компонент методом refresh, но кажется, что по мере увеличения кол-во компонентов программа будет тормозить. Как исправить? Кто-то советовал Application.ProcessMessages - не помогает.

[lmikle]

Попробуй DoubleBuffer := True (или как там это свойство называется).

[Антихристъ]

Сообщение от lmikle

Попробуй DoubleBuffer := True (или как там это свойство называется).

Не-а, не помогло. К тому же панель стала непрозрачной.

[NumLock]

будет гораздо проще разобраться Нам если выложишь минимальный проект воспроизводящий проблему.

[Антихристъ]

Сообщение от NumLock

будет гораздо проще разобраться Нам если выложишь минимальный проект воспроизводящий проблему.

Просто на панель прокручивается скроллбаром:

Код:

p1.ScrollBy(0, s1.Tag - s1.Position);
  s1.Tag := s1.Position;

p1 - панель, s1 - скроллбар.
На самой панели и её элементах остаются полосы, вот.

[NumLock]

Код:

  p1.ScrollBy(0, s1.Tag - s1.Position);
  s1.Tag := s1.Position;
  p1.Invalidate;

еще можно использовать TScrollBox вместо панели и скроллбара

[Антихристъ]

Сообщение от NumLock

Код:

  p1.ScrollBy(0, s1.Tag - s1.Position);
  s1.Tag := s1.Position;
  p1.Invalidate;

еще можно использовать TScrollBox вместо панели и скроллбара

Я так понял, эффект такой же как и от p1.Refresh, т.е. каждый элемент надо отдельно перерисовывать. А насчёт скролбокса, можно как-то у панели на него сменить тип, чтобы не настраивать его заново?

[NumLock]

в dfm замени TPanel на TScrollBox. в implementation само изменится после вывода сообщения.

[Антихристъ]

Сообщение от NumLock

в dfm замени TPanel на TScrollBox. в implementation само изменится после вывода сообщения.

Спасибо, но всё таки полосует, но уже не белым и не поверх текста %)

[NumLock]

тут есть проблемы https://yadi.sk/d/Wo_g07ulYUTZ8 ?

[M.A.D.M.A.N.]

Оффтоп: Черные буквы на тёмно-зеленом вовсе не видно.
Ответ "стопицот спартанцев" эпичен

[Антихристъ]

Сообщение от NumLock

тут есть проблемы https://yadi.sk/d/Wo_g07ulYUTZ8 ?

нет, но я так понял это делфи 7, а я в 2010

Сообщение от M.A.D.M.A.N.

Оффтоп: Черные буквы на тёмно-зеленом вовсе не видно.
Ответ "стопицот спартанцев" эпичен

Насчёт чёрных букв тоже проблема, кстати, в свойствах чекбоксов и радиобаттонов установлен белый цвет, но прога их игнорирует.

[NumLock]

проверил на Delphi 2010 - все отлично, как и ожидалось.

[Антихристъ]

Сообщение от NumLock

проверил на Delphi 2010 - все отлично, как и ожидалось.

Беда-печаль, что же делать(
От компа это вряд ли зависит, он у меня мощный, тестил на других, то же самое.

[NumLock]

ну очевидно проблема в твоем коде