Rect Coordinates?

Blitz3D Forums/Blitz3D Programming/Rect Coordinates?

Guy Fawkes

(Posted 2013) [#1]

Hi all! =) Can someone please tell me how I can make ONLY the "X" button box clickable? I've tried all kinds of algorithms, and unfortunately I still can't figure out what I'm doing wrong, here..

I'm trying to make an image window GUI function for my purposes.

Here's the code:

Graphics3D 800, 600, 0, 2

SetBuffer BackBuffer()

	pointer=CreateImage(2, 2)

SetBuffer ImageBuffer(pointer)

	Color 140, 140, 180
	Rect 0, 0, 2, 2, 1
	
	Color 255,255,255
	
	image=CreateImage(GraphicsWidth()/2, GraphicsHeight()/2)

SetBuffer ImageBuffer(image)

	;Window Rect
	width = (gfxwidth/2)
	height = 25
	
	;Window Size
	gfxwidth = GraphicsWidth()
	gfxheight = GraphicsHeight()
	
	;Close Button Size
	width2 = 24
	height2 = 24

	x = 0
	y = 0

	x2 = (ImageWidth(image)-width2)
	y2 = 5
	
	x3 = x2
	y3 = y2

	Rect x, y, gfxwidth/2, gfxheight/2, 0

	Rect x3, 0, width2, height2, 0
	Text x3+7, y3, "X"
	
	ix=GraphicsWidth()/2
	iy=GraphicsHeight()/2
	
	cx = (ix/2-width/2)
	cy = (iy/2-height/2)
	
	cx2 = (ix/2-x3/2)
	cy2 = (iy/2-y3/2)

SetBuffer BackBuffer()

api_ShowWindow(SystemProperty$("AppHWND"), 1)

	While Not KeyHit(1)

		Cls
		
			;If MouseHit(1)

				;If ImagesOverlap(pointer, MouseX(), MouseY(), image, cx2, cy2)
				
				;	End
					
				;EndIf
				
			;EndIf
	
			If MouseDown(1) Then
						
				If ImagesOverlap(pointer, MouseX(), MouseY(), image, ix+cx, iy+cy) And drag=0 Then
				
					drag=1
					cx=ix-MouseX()
					cy=iy-MouseY()

				End If

			Else

				drag=0
				ix=ix+cx
				iy=iy+cy
				cx=0
				cy=0

			End If
						
			If drag=1 Then
				
				ix=MouseX()
				iy=MouseY()
				
			End If
				
			DrawImage image,ix+cx,iy+cy
			DrawImage pointer,MouseX(),MouseY()
			
			Text 10, 10, "X: "+MouseX()
			Text 10, 30, "Y: "+MouseY()
	
		Flip

	Wend

End

Thank You & Happy New Year!

Guy Fawkes

(Posted 2014) [#2]

Anyone? :(

RemiD

(Posted 2014) [#3]

You can use MouseX() and MouseY() to retrieve the mouse X,Y and calculate if the mouse is over a rect.

Since in your case there are 2 rects, one over the other, you need to introduce zorder.

Some tips :
The zorder will help to determine with which element or with which window it is possible to interact.
Each window will have a global zorder (zorder between all windows)
A window can contain elements (like your close button)
Each element in each window will have a local zorder (zorder between all elements in a window), this is a necessity when you need to interact with more complex elements.

Then you can add different layers of windows if you are good.

Good luck.

Guy Fawkes

(Posted 2014) [#4]

Alls I need to do is get the right coordinates in order to click the "X" button.

Guy Fawkes

(Posted 2014) [#5]

My second attempt... Closer, but I still can't figure out "X" & "Y" for the "X" button ONLY... :(

Graphics3D 800, 600, 0, 2

SetBuffer BackBuffer()

Global x
Global x2
Global x3

Global y
Global y2
Global y3

	pointer=CreateImage(2, 2)

SetBuffer ImageBuffer(pointer)

	Color 140, 140, 180
	Rect 0, 0, 2, 2, 1
	
	Color 255,255,255
	
	image=CreateImage(GraphicsWidth()/2, GraphicsHeight()/2)

SetBuffer ImageBuffer(image)

	;Window Rect
	width = (gfxwidth/2)
	height = 25
	
	;Window Size
	gfxwidth = GraphicsWidth()
	gfxheight = GraphicsHeight()
	
	;Close Button Size
	width2 = 24
	height2 = 24

	x = 0
	y = 0

	x2 = (ImageWidth(image)-width2)
	y2 = 5
	
	x3 = x2
	y3 = y2

	Rect x, y, gfxwidth/2, gfxheight/2, 0

	Rect x3, 0, width2, height2, 0
	Text x3+7, y3, "X"
	
	api_MessageBox(0, x3+7+"|"+y3, x3+7+"|"+y3, 0)
	
	ix=GraphicsWidth()/2
	iy=GraphicsHeight()/2
	
	cx = (ix/2-width/2)
	cy = (iy/2-height/2)
	
	cx2 = x3+7	
	cy2 = y3

SetBuffer BackBuffer()

	api_ShowWindow(SystemProperty$("AppHWND"), 1)
	
		While Not KeyHit(1)
	
			Cls
	
				If MouseDown(1) Then
							
					If ImagesOverlap(pointer, MouseX(), MouseY(), image, ix+cx, iy+cy) And drag=0 Then
					
						drag=1
						
						cx=ix-MouseX()
						cy=iy-MouseY()
						
						cx2=ix-MouseX()
						cy2=iy-MouseY()
	
					End If
	
				Else
	
					drag=0
	
					ix=ix+cx
					iy=iy+cy
	
					cx=0
					cy=0
					
					cx2=0
					cy2=0
	
				End If
							
				If drag=1 Then
					
					ix=MouseX()
					iy=MouseY()
					
				End If
					
				DrawImage image,ix+cx,iy+cy
				DrawImage pointer,MouseX(),MouseY()
	
				If MouseCollision(ix+cx2, iy+cy2, ImageWidth(image), ImageHeight(image), 0)
				
					End
					
				EndIf
				
				Text 10, 10, "X: "+MouseX()
				Text 10, 30, "Y: "+MouseY()
				
			Flip
	
		Wend
	
	End

Function MouseCollision( X, Y, Width, Height, Value )

	Select Value
	
		Case 0 ;Mouse Hit
			
			If MouseX()>=x And MouseY()>=y And MouseX()<=x+width And MouseY()<=y+height And MouseHit(1)
				Return True
			EndIf
			
		Case 1 ;Mouse Down
	
			If MouseX()>=x And MouseY()>=y And MouseX()<=x+width And MouseY()<=y+height And MouseDown(1)
				Return True
			End If
			
		Case 2 ;Mouse Over
	
			If MouseX()>=X And MouseY()>=Y And MouseX()<=X+Width And MouseY()<=Y+Height
				Return True
			End If

	End Select

End Function

Mikorians

(Posted 2014) [#6]

... Bug: Buzzing by- You've set gfxwidth too late...