Hi LifePower,
to find out if it is my fault I tried a little thing with your Hasteroids Demo.
The bluescreen also appears if I add only one line to your code:
procedure TMainForm.Timer1Render(Sender: TObject);
begin
if (not PowerDraw1.DeviceActive) then Exit;
with PowerDraw1.Device do
begin
Clear(clBlack);
BeginScene();
OEngine1.Render(VScreen1);
PEngine1.Render(VScreen1);
TextureMap(Images1[2], pBounds4(100, 100, 64, 64), cColor1({clWhite}0), tPattern(0), effectSrcAlpha);
Fonts1[0].TextOut('PixelCol: ' + IntToStr(Images1[2].Pixels[10,10,0]), 4, 14, $FF00FF00);
Fonts1[0].TextOut('FPS: ' + IntToStr(Timer1.FrameRate), 4, 4, $FF00FF00);
Fonts1[0].AlignedOut('Press ESC to exit, SPACE to switch Hardware/Software', 0, 440, taCenter, taBeginning, $FF00FF00);
Fonts1[0].AlignedOut('and finally, ALT + ENTER to switch from windowed to full-screen mode.', 0, 458, taCenter, taBeginning, $FF7FEF00);
EndScene();
Present();
end;
end;
Am I doing something wrong?
Here my PC specs:
Toshiba TECRA S1
Centrino 1,7 Ghz
ATI Mobility Radeon 9000 (latest driver)
Windows XP Prof (latest updates)
Direct X 9.0c
I did not try it on other PCs. This will be the next step to find out more.
But since this is my developement machine, I am very interested in finding out the reason why Pixels does not work here.
Greetings,
Dirk
Bookmarks