Перейти к содержанию
  • Регистрация
  • 0
ENERGY

При скроле прямоугольники в ScrollBox меняются местами

Вопрос

Видео и исходный код см. ниже в теме.

Странная проблема с VertScrollBox (и ScrollBox ).

Добавляю несколько TRectangle и указываю их стиль в ScrollBox. Проблема: При скролле вниз и обратно - прямоугольники меняются местами.

Видео

Детали: 

Добавляю в рантайм свой класс: TFormatBlock = class(TStyledControl)

В конструкторе этого класса указываю стиль StyleLookup := 'CascadeBlock'; и TAlignLayout.Top;

Сам стиль CascadeBlock состоит из TLayout > TRectangle > TLabel and TGlowEffect  (TLabel  добавляется в райнтайм позже)

Далее в цикле создаю этот класс,  применяю там же стили :

vBlock.NeedStyleLookup;
vBlock.ApplyStyleLookup;

Нахожу прямоугольник в стилях так:

vRect := (vBlock.FindStyleResource('rectangle') as TRectangle);

Создаю Label и добавляю его к vRect.AddObject(vLabel); (или можно через Parent )

 

Далее во время скрола вверх-вниз (даже не отпуская кнопку мыши), прямоульники меняются местами как на видео. 

В чем проблема никак не пойму. 

См. тестовый проект в аттаче.

testproject.zip

Изменено пользователем ENERGY

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

Рекомендуемые сообщения

Ответы на этот вопрос пока отсутствуют

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить на вопрос...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.


  • Последние посетители   0 пользователей онлайн

    Ни одного зарегистрированного пользователя не просматривает данную страницу

×
×
  • Создать...