(un)DelphiX 1.0.8 released

[ijcro]

New version 1.0.8 (un)DelphiX released now, downloadable from http://www.micrel.cz/Dx/index.html, any suggestions welcome...

[Wizard]

Hi ijcro, thanks for your effort in maintaining the unDelphiX library :-) I removed the previous version 1.07f and installed the new release 1.0.8. Everything seems fine and my games written in unDelphiX works fine. One problem I noticed is that my game crashes at this line:

Image:= DXImageList.Items[10];

procedure TFormGame.BackGroundCreate;
var
i,j: integer;
begin
with TBackground.Create(DXSpriteEngine.Engine) do
begin
SetMapSize(200, 10);
Image:= DXImageList.Items[10]; ----------- ERROR HERE
Y:= 10;
Z:= -22;
FSpeed:= 0.5;
Tile:= TRUE;

for I:= 0 to MapHeight-1 do
for J:= 0 to MapWidth-1 do
begin
Chips[J, I]:= Image.PatternCount-Random(Image.PatternCount div 8);
if Random(100) < 95 then Chips[J, I]:= -1;
end;
end;

It worked 100% with the previous version of unDelphiX. Did something change with the TBackGroundSprite?

[seiferalmasy]

excellent!

[ijcro]

How error produce this line? In Delphi 2005 it not works fine (must be local variable like code bellow), please see document about changes.



procedure TFormGame.BackGroundCreate;
var
i,j&#58; integer;
q&#58; TBackgroundSprite;
begin
q &#58;= TBackground.Create&#40;DXSpriteEngine.Engine&#41;;
with q do
begin
SetMapSize&#40;200, 10&#41;;
q.Image&#58;= DXImageList.Items&#91;10&#93;; //----------- ERROR HERE
Y&#58;= 10;
Z&#58;= -22;
FSpeed&#58;= 0.5;
Tile&#58;= TRUE;

for I&#58;= 0 to MapHeight-1 do
for J&#58;= 0 to MapWidth-1 do
begin
Chips&#91;J, I&#93;&#58;= Image.PatternCount-Random&#40;Image.PatternCount div 8&#41;;
if Random&#40;100&#41; < 95 then Chips&#91;J, I&#93;&#58;= -1;
end;
end;

[ijcro]

Released version with forgotten WaveX/WaveY extension for texture flip/mirror support. Sorry.

[pixin]

Many Thanks IJCRO, u did a very impressive job, u really amazing man,..im very ashamed that i can't help u with hard programming u do...keep working please!...

[ijcro]

New version 1.0.8.2 (un)DelphiX released now as fix.
Big thanks to Mr. Takanori Kawasaki! Thank you!
Regards

[harrypitfall]

Well... I install your new version, and get my games badly graphic screwed, i find the problem.
I change all instances of D2D_LINEAR on dxdraws.pas to D2D_POINT, and all works nice as before.
Why you don't add a propery of td2dtexturemode on tdxdraw component? and all instances that requires is, just pick from property?

[Wizard]

Hi ijcro, I also installed the new release: 1.0.8.2 (un)DelphiX. I have the folowing code for simple TextOut :


dxDrawGame.Surface.Canvas.TextOut&#40;100,250,'Well done!!! Your Time&#58; ' + MSecToStr&#40;MSec&#41;&#41;;
dxDrawGame.Surface.Canvas.TextOut&#40;15,300,'Walk through the door to play the next level'&#41;;
dxDrawGame.Surface.Canvas.Release;

It works on my work PC but on my LapTop, it flickers the text and then it's gone. The exact same game and textOut worked perfectly with your previous release.

Any suggestion?