What, oh what is this.. I had to reinstall my Windows XP and so everything else; Delphi too, and Asphyre there.. well, it worked well, but I seem to have problems with graphics.
So, I do remember to initialize the AsphyreDevice before using it. AsphyreTimer makes Dev.Render and Dev.Flip so the screen is black, untill..
I load images to AsphyreImages with this:
Code:
procedure Tform1.AddImage(img:string; where:TAsphyreImages; tolerance:integer);
var
sad:TBitmap;
wi,he:variant;
begin
sad := TBitmap.Create;
sad.LoadFromFile(img);
wi := sad.Width; he := sad.Height;
with where.Add do
begin
Quality := aqHigh;
AlphaLevel := alFull;
PatternSize:= Point(wi, he);
Size := Point(wi, he);
VisibleSize:= Point(wi, he);
LoadFromBitmap(sad, true, 0, tolerance);
Name := (extractfilename(img));
end;
end;
..and it throws error; right now the code where Access violation- error points is this (DXBase.pas):
Code:
function DXTexFormatAvail(Format: TD3DFormat; Usage: Cardinal): Boolean;
begin
Result:= Succeeded(Direct3D.CheckDeviceFormat(D3DADAPTER_DEFAULT,
D3DDEVTYPE_HAL, PresentParams.BackBufferFormat, Usage, D3DRTYPE_TEXTURE,
Format));
end;
What's the problem? I do everything right but.. :(
Bookmarks