关于Asphyre的菜问题，请指点一下：（ ( 积分: 50 )

用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;

用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;

好,帮顶



--------签名档---------------------------

比肩国内顶尖源码下载站点 -> 源码我爱你

http://www.source520.com
http://www.source520.net

80G源码电子书免费免注册下载,大量精辟技术文档库随时更新
******************************************************************
附:为了站点持续发展,现有本站近年来收藏的大量大型商业源码低价出售,
详情请进入以下链接查看:
http://www.source520.com/building_delphi.htm

浏览商业代码请从如下URL进入查看实物:
1.商业源码库1: ftp://source520see3:browse@61.152.199.245/
2.商业源码库2: ftp://source520see2:browse@61.152.199.245/