В общем проблема наверное корректно назвать с перерисовкой, хотя может ошибаюсь - щас объясню.

У меня есть форма которая динамически создаётся. Почти все компоненты DevExpress, кроме панелек на коорых это всё расположено. Панельки - обычные TPanel.

Смотрю профилировщиком AQTimePro время выполнения строчек. 
И оно невероятно долгое при создании компонентов и их настройке. Внутри своего кода вижу что наибольшее по времени занимают такие действия как изменение координат компонента, т.е. TControl.Top:=XTop занимает почти всё время выполнения процедуры создания компонента. А на втором месте по длительности выполнения стоит изменение высоты компонетов. 

Поставил у всех TPanel FullRepaint в False - эффект ноль. Пробовал использовать LockWindowUpdate - эффект ноль, к тому же добавилось время выполнение блокировки. Я даже не знаю что ещё попробовать. Форма тоже блокируется, но ничего не помогает...
Я даже пробовал создавать все компоненты не показывая форму, т.е. по идее перерисовываться в этом момент ничего не должно - эффект ноль.

Кто-нибудь может подсказать в чём проблема?

P.S. Такие проблемы наблюдаются как у TPanel, так и у Других  компонентов.

у формы и у панелей попробуй включить DoubleBuffered

Добавлено через 5 минут и 11 секунд
http://delphiblog.ru/2007/double-buffering-delphi/

но не факт, что поможет

А попробуйте, в качестве эксперимента, у формы (на которой все находится) перекрыть метод AlignControls и оставить его пустым:




Будет ли все создаваться так же долго?

Добавлено через 55 секунд
Имею в виду ту форму, которая создается у вас динамически

Во время создания в Create сделать все контролы не видимыми. 
После в Show сделать видимыми.
Если не помогает значит дело в чём то другом.

А разве то что форма не отображается это не одно и тоже?

а не проще WM_PAINT "хавать" во время загрузки?

Не знаю. 
Но когда создаёшь контролы с Visible := False; а потом когда всё создано и настроено делаешь True то процес ускорялся.
+ ко всему если в контролы нужно занести какую то информацию скажем в Memo то это то же тормозит если контрол видим.

По-моему, вы зря думаете, что дело в перерисовке. Уверен, что дело в лавинообразном позиционировании компонентов. Миллионы рекурсивных вызовов всяких RequestAlign, AlignControls, или что-то вроде того.

Вы пробовали перекрыть AlignControls, как я предлагал? Или перекройте не у формы, а у TPanel (наследника напишите), на котором все лежит.

Я вчера ковырял исходники делфи - основная проблема в том, что все методы связанные с изменением высоты, ширины, координат вообще чихать хотели на свойство Visible и будут работать в любом случае.

Выход я нашёл - раньше я пытался изначально нормально расставлять все компоненты - как результат долго и тяжело, а теперь я на это забил и выполняю расстановку один раз - куда эффективнее.


И смысл?

Я думал насчёт того чтобы не давать полностью выполняться функции SetTop и подобным ей, написав наследника, но к сожалению это в данный момент не актуально. К тому же это касается не только Panel. Компонент сам перерисовывается и заставляет перерисоваться родителей. Включение различных свойств и отключение их заметной прибавки не даёт(это профилировщиком если смотреть по числам, а временами даже становится хуже).

Смысл в том, что у вас не перерисовка тормозит, а позиционирование.

Вы можете настроить профайлер так, чтобы он покрывал не только ваш код, но и VCL? Нужно проследить откуда в подавляющем большинстве вызывается метод SetBounds. Только сделайте резервную копию исходников VCL, на всякий случай.

Это сообщение отредактировал(а) tikskit - 16.1.2012, 19:07