用Asphyre写显示图片的程序，怎么不能装载预设的图片？

wolfzjs

用Asphyre写一段很简单的小程序，想显示一下图片，图片也已经打包放在当前目录下的asdb文件内，但运行时却老是显示别的Asphyre程序运行时的图片，好象是图片未读入，：（。不知为何，请高手指教。
procedure TForm1.FormCreate(Sender: TObject);
begin
if (not Device.Initialize()) then
  begin
   MessageDlg('Failed to initialize Asphyre device!', mtError, [mbOk], 0);
   Close();
  end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
Device.Finalize();
end;

procedure TForm1.DeviceInitialize(Sender: TObject; var Success: Boolean);
var
  rects : TRect;
begin
  Success := Images.LoadFromASDb(ASDB);
  rects := Rect(0,0,1024,768);
  MyCanvas.Draw(Images[0],rects,0,fxBlend);
  Timer.Enabled := Success;
end;

procedure TForm1.TimerTimer(Sender: TObject);
begin
Device.Render(0, True);
Device.Flip();
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key=VK_ESCAPE) then
    Close;
end; [em23]

mmzmagic

增加一个Device的Render事件 把绘制动作放到里边
procedure TForm1.AsphyreDevice1Render(Sender: TObject);
begin
  MyCanvas.DrawEx(Images[0],Rect(0,0,1024,768),0,fxBlend);
end;
//将ONTIMER中的Device.Render($FF000000, True); 0改为$FF000000,
procedure TForm1.AsphyreTimer1Timer(Sender: TObject);
begin
Device.Render($FF000000, True);
Device.Flip();
end;

wolfzjs

老大，我照你说的改了，这下别的图片是不显示了，但屏幕上还是白白的一片，什么都没啊 [em11]。