TMultiView [TMultiView] Как избежать задержки при первом появлении TMultiView?

[Martifan]

Здравствуйте.

У меня возникла проблема с TMultiView.

После запуска программы на телефоне при первом открытии компонента, он подвисает и появляется медленно, но во все последующие вызовы этого компонента работает без задержки.

 

P.S. Когда использую анимацию появляется та-же самая проблема.

 

Заранее спасибо.

[ruslan]

смирись 

[Martifan]

нет мне интересует только у меня или у всех так?

[ildvild]

У меня тоже самое (на XE7). Видимо что то подгружается при первом запуске, поэтому и медленно.

[Anasazi]

У меня под Android при первом открытии тоже есть "скачок". Под iOS нормально.

[Martifan]

ну значит не я один только такой "это радует"

[Brovin Yaroslav]

Задержка пропадает, если использовать этот код в TForm.OnShow?

  var
    Buffer: TBitmap;
  begin
    // Draw to Bitmap force to load all styles, measure size, build font-glyphs etc
    Buffer := TBitmap.Create(1, 1);
    try
      Buffer.Canvas.BeginScene;
      try
        MultiView.PaintTo(Buffer.Canvas, Control.LocalRect);
      finally
        Buffer.Canvas.EndScene;
      end;
    finally
      Buffer.DisposeOf;
    end;

[zairkz]

Возможно ли, таким способом отрисовать анимацию переходов между Табами в TTabControl (SetActiveTabWithTransition)?

Изменено 8 июля, 2015 пользователем Brovin Yaroslav

[Martifan]

Control.LocalRect на это ругается не может найти

[Равиль Зарипов (ZuBy)]

Возможно вместо Control надо указать MultiView

[Martifan]

я указал но все равно не помогает код все равно дергается

[Brovin Yaroslav]

Так, я посмотрел. Сохраняем себе такую процедуру:

procedure PreloadContent(const Control: TControl);
var
  I: Integer;
begin
  if Control is TStyledControl then
    TStyledControl(Control).ApplyStyleLookup;
  for I := 0 to Control.ControlsCount - 1 do
    PreloadContent(Control.Controls[I]);
end;

Она форсирует загрузку стилей. Задержка при появлении TMutliView заключается в том, что стиль загружается не сразу у любого контрола, а только по мере появления контрола. Обычно это происходит при первой отрисовки. Это правило касается всех контролов.

 

Поэтому, в этом случае, вам нужно форсировать загрузку стилей. Это можно сделать при помощи моей процедуру PreloadContent.

Добавьте в TForm.OnCreate и это решит задержку при первом появлении:

PreloadContent(MultiView1);

[Martifan]

спасибо все работает