PureBasic Forums - English

Thank you very much! Now it's grabbing it correctly! Maybe the debugger got in the way somehow, I did step the code before.

Thanks for the code! I changed it to the following, to grab the cursor, even if it's not within the own window:

CallDebugger
Global ci.CURSORINFO

ci\cbSize = SizeOf(CURSORINFO)

CreateImageResult = CreateImage(#PB_Any, 64, 64, 32, #Red)
StartDrawing(ImageOutput(CreateImageResult))
GetCursorInfo ...

Greetings.

I'd like to capture the current mouse cursor and save it as a bitmap file. I'm struggling with this for about 4 hours now and I can't seem to make any progress. My code for now:


Global CursorInfo.CURSORINFO
Global gIconInfo.IconInfo
Global GetObjectBitmap.BITMAP
Global CopyIconResult ...

Sorry, I didn't mean to exaggerate and call that "bloat". PureBasic just got me in the mood of having a small executable as possible (compared to Delphi 5, which I used before, and produced a "Hello World"-program with about 450kb - crazy!). So I'm pretty excited PureBasic can do this within 2kb ...

Can we have a "no bloat"-option in the compiler options that strips those unnecessary code parts?

Thanks.