Вопрос по DelphiX.

[EridorBlade]

Доброго времени суток.
На моей форме находится DXDraw, который выводит спрайтовую анимацию. При открытии формы сначала появляется черный квадрат, а только потом начинает работать спрайтовая анимация. Как можно сделать чтобы при открытии формы на месте DXDraw был не черный квадрат, а хотя бы какое-то фоновое изображение(а в идеале первый кадр спрайтовой анимации, что наверно вообщем-то одно и то же )? Насколько я понял у DXDraw нету свойства "прозрачность", если есть поправьте меня пожалуйста .

У меня реализовано вот так:

type
  TTitleWindow = class(TImageSprite)
  private 
  public
  constructor Create(AParent: TSprite); override;
end;

constructor TTitleWindow.Create(AParent: TSprite);
begin
  inherited Create(AParent);
  X :=  0;
  Y :=  0;
  Image := Form4.DXImageList2.Items.Find('TitleFonSpr');
  AnimCount:=Image.PatternCount; 
  AnimLooped:=True;
  AnimSpeed:=80/1000;
  Width := Image.Width;
  Height := Image.Height;
  Z  := 2;
end;



procedure TForm4.FormCreate(Sender: TObject);
begin
  DXImageList2.Items[0].picture.LoadFromFile('SysAnimate\SpriteAnimate\Menu\MainTitleFonSpr.bmp');
  DXImageList2.Items.MakeColorTable;
  DXDraw2.ColorTable := DXImageList2.Items.ColorTable;
  DXDraw2.DefColorTable := DXImageList2.Items.ColorTable;

  TTitleWindow.Create(DXSpriteEngine2.Engine);
end;

procedure TForm4.DXTimer2Timer(Sender: TObject; LagCount: Integer);
begin
if not DXDraw2.CanDraw then exit;
  DXSpriteEngine2.Move(1);
  DXDraw2.Surface.Fill(0);
  DXSpriteEngine2.Draw;
  DXDraw2.Flip;
end;

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

[EridorBlade]

Эх . Никто не знает? Или может быть я вопрос плохо сформулировал?)

[xexxex]

При открытии формы сначала появляется черный квадрат, а только потом начинает работать спрайтовая анимация.

Видать у таймера большой интервал.
Попробовать в Form4.OnShow пнуть таймер ручками - вызвать DXTimer2Timer.
Или при первом NC_PAINT...

[EridorBlade]

xexxex к сожалению так как посоветовал ты у меня что-то не получилось
Решил проблему следующим образом (на мой взгляд довольно кривым)
Поставил в FormCreate
DXDraw2.Visible:=False;
а в процедуре DXTimer2Timer после DXDraw2.Flip;
поставил DXDraw2.Visible:=True;

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