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

ENERGY · 23 октября, 2017

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

Странная проблема с 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 )

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

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

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

Изменено 23 октября, 2017 пользователем ENERGY

Вопрос