BlitzCoder Code Database

BlitzCoder Essentials

•Home Page
•About BlitzCoder
•Contributors
•Terms of Use
•Email Us

Main Areas

•BlitzCoder Chat
•Discussions
•Articles/Tutorials
•Code Database
•Link Database
•Showcase Area
•Worklogs
•Competitions

Special Areas

•Undocumented

Other Blitz Sites

•Blitz Basic Home
•Blitz Showcase
•BlitzPlay Library

BlitzCoder Code Archives Page

Main Codes Page

"Mouse pointer demo", by thechange

Easily create custom mouse pointers in a snap with small code.

Code

; An easy way to use your own windows-like mouse cursor
;  when running in windowed mode, replacing the mouse over the window.
; Can ofcourse be used in fullscreen mode as well.

Graphics 640,480,0,2  ; Windowed
Restore MouseImage  ; Select data to grab
Global MouseImage=GrabBitmap()  ; Create mouse pointer from data

SetBuffer BackBuffer()
HidePointer  ; Replace windows cursor with our own
Repeat
  DrawImage MouseImage,MouseX(),MouseY()
  Flip
  Cls
Until KeyHit(1)
End

Function GrabBitmap()
  Read SizeX  ; Width
  Read SizeY  ; Height
  Bitmap=CreateImage(SizeX,SizeY)
  Buffer=ImageBuffer(Bitmap)
  For Y=0 To SizeY-1
    For X=0 To SizeX-1
      Read Pixel
      If Pixel  ; Plot non-zero values as white
        WritePixel X,Y,16777215,Buffer
      End If
    Next
  Next
  Return Bitmap
End Function

.MouseImage
Data 8,16
Data 1,0,0,0,0,0,0,0
Data 1,1,0,0,0,0,0,0
Data 1,1,1,0,0,0,0,0
Data 1,1,1,1,0,0,0,0
Data 1,1,1,1,1,0,0,0
Data 1,1,1,1,1,1,0,0
Data 1,1,1,1,1,1,1,0
Data 1,1,1,1,1,1,1,1
Data 1,1,1,1,1,0,0,0
Data 1,1,0,1,1,0,0,0
Data 1,0,0,0,1,1,0,0
Data 0,0,0,0,1,1,0,0
Data 0,0,0,0,0,1,1,0
Data 0,0,0,0,0,1,1,0
Data 0,0,0,0,0,0,1,1
Data 0,0,0,0,0,0,1,1

;-->

Code software created by Krylar's Kreations