how to display and check mouse interaction.
Code: Select all
; ***
; *** Click on Sprite Demo
; ***
; *** Kaeru Gaman, Dec.10 2008
; ***
; *** PB Ver. 4.20
; ***
EnableExplicit
; ****************************************
; *** Check if Point is inside Box
Procedure PointColl( x1.l, y1.l, x2.l, y2.l, a2.l, b2.l )
Protected Coll = #False
If x1 >= x2 And x1 <= x2 + a2 And y1 >= y2 And y1 <= y2 + b2
Coll = #True
EndIf
ProcedureReturn Coll
EndProcedure
#No_of_Elements = 19
#TextCol = $FFE0C0
Structure GadgetElement
SprNr.l
X.l
Y.l
W.l
H.l
C1.l
C2.l
T.s
EndStructure
Define ColR.l, ColG.l, ColB.l ; color channels
Define n.l ; Loopcounter
Define MX.l ; Mouse X
Define MY.l ; Mouse Y
Define MBL.l ; Mouse Button Left
Define MBR.l ; Mouse Button Right
Define MOver.l ; No of Gadget under the Mouse
Define EXIT.l ; Exit Flag
Dim Gadget.GadgetElement ( #No_of_Elements )
InitSprite()
InitKeyboard()
InitMouse()
OpenScreen( 1024, 768, 32, "Click Sprite Demo" )
; ****************************************
; *** Create a number of random elements
For n=1 To #No_of_Elements
Gadget( n )\W = Random( 128 ) + 64 ; Width
Gadget( n )\H = Random( 64 ) + 28 ; Height
Gadget( n )\X = Random( 1023 - Gadget( n )\W ) ; X-Pos
Gadget( n )\Y = Random( 767 - Gadget( n )\H ) ; Y-Pos
ColR = Random( 95 ) + 32 ; Red of Darker Color
ColG = Random( 95 ) + 32 ; Green of Darker Color
ColB = Random( 95 ) + 32 ; Blue of Darker Color
Gadget( n )\C1 = RGB( ColR , ColG , ColB ) ; Darker Color
Gadget( n )\C2 = RGB( ColR * 2, ColG * 2, ColB * 2 ) ; Lighter Color
Gadget( n )\T = "No. " + Str(n) ; simple text
; create a sprite for this gadget
Gadget( n )\SprNr = CreateSprite( #PB_Any, Gadget( n )\W, Gadget( n )\H )
StartDrawing( SpriteOutput( Gadget( n )\SprNr ) )
DrawingMode( #PB_2DDrawing_Transparent )
Box( 0, 0, Gadget( n )\W , Gadget( n )\H , Gadget( n )\C2 )
Box( 4, 4, Gadget( n )\W-8, Gadget( n )\H-8, Gadget( n )\C1 )
DrawText( 6,6, Gadget( n )\T, Gadget( n )\C2 )
StopDrawing()
Next
CreateSprite( 0, 32, 32 )
StartDrawing( SpriteOutput( 0 ) )
Line( 0, 0, 24, 8, $00FFFF )
Line( 0, 0, 8, 24, $00FFFF )
Line( 0, 0, 32, 32, $00FFFF )
StopDrawing()
Repeat
ExamineKeyboard()
ExamineMouse()
MX = MouseX()
MY = MouseY()
MBL = MouseButton( #PB_MouseButton_Left )
MBR = MouseButton( #PB_MouseButton_Right )
If KeyboardPushed( #PB_Key_Escape )
EXIT = 1
EndIf
ClearScreen( $201008 )
MOver = 0
For n=1 To #No_of_Elements
DisplaySprite( Gadget( n )\SprNr, Gadget( n )\X, Gadget( n )\Y )
If PointColl( MX, MY, Gadget( n )\X, Gadget( n )\Y, Gadget( n )\W, Gadget( n )\H )
MOver = n
EndIf
Next
StartDrawing( ScreenOutput() )
DrawingMode( #PB_2DDrawing_Outlined | #PB_2DDrawing_Transparent )
If MOver > 0
If MBL
Box( Gadget( MOver )\X, Gadget( MOver )\Y, Gadget( MOver )\W, Gadget( MOver )\H, $00FFFF )
DrawText( 1, 1, "Clicked On: " + Str( MOver ), #TextCol )
Else
Box( Gadget( MOver )\X, Gadget( MOver )\Y, Gadget( MOver )\W, Gadget( MOver )\H, $0000FF )
DrawText( 1, 1, "Mouse Over: " + Str( MOver ), #TextCol )
EndIf
EndIf
StopDrawing()
DisplayTransparentSprite( 0, MX, MY )
FlipBuffers( #PB_Screen_SmartSynchronization )
Until EXIT = 1
End
