Code: Select all
UsePNGImageDecoder()
;UseTIFFImageDecoder()
#frate = 100
#scrw = 800
#scrh = 600
#scrd = 32
If InitSprite() = 0 Or InitSprite3D() = 0 Or InitKeyboard() = 0 Or InitMouse()=0:MessageRequester("Error", "Can't open DirectX 7 Or later", 0):End:EndIf
If OpenScreen(#scrw, #scrh, #scrd, "Test")
SetFrameRate(#frate)
LoadSprite (0, "cursor2.png", #PB_Sprite_AlphaBlending)
TransparentSpriteColor(0,0)
Repeat
FlipBuffers(1): ExamineKeyboard(): ExamineMouse()
ClearScreen(RGB(224,200,190))
msx=MouseX()
msy=MouseY()
DisplayTransparentSprite(0, msx, msy)
Until KeyboardPushed(#PB_Key_Escape)
EndIf
End


If remove comments from "UseTIFFImageDecoder()" then create Error:

I use Win XP SP2.