Tester la souris dans une zone de forme carrée ou rectangle

[GallyHC]

Bonjour,

Comme dit Ar-S, dans ta procedure "Dessine_Grille()" >

Code : Tout sélectionner

  For i=71 To 698 Step 33
    LineXY(3, i, 794, i, RGB(256,256,256))
  Next i
  For i=3 To 795 Step 33
    LineXY(i, 71, i, 698, RGB(256,256,256))
  Next i

GallyHC

[Zorro]

For i=71 To 698 Step 33
LineXY(3, i, 794, i, RGB(256,256,256))
Next i

pas la peine de lui ajouter des erreurs non plus

on peut faire encore plus court (une seule boucle ) (de pref sur des carreaux carrés )

Code : Tout sélectionner

Procedure Grille(taille,larg,haut)
;By Zorro
;taille=taille d'un carreau
;larg =largeur de l'ecran ou de la zone a dessiner
; haut = hauteur de l'ecran ou de la zone a dessiner
		;******************
		nb=(haut/taille)*taille
		For i=0 To nb		
				LineXY(0, i, larg, i, RGB(255,255,255))		
				LineXY(i, 0, i,haut, RGB(255,255,255))
				i=i+taille-1
		Next i
		; *********************
Endprocedure

exemple en condition :

Code : Tout sélectionner

#window = 0
#Width = 600
#Height = 600

Declare grille(taille,larg,haut)



Enumeration
		#Panel
		#Cont
		#Button
EndEnumeration

;- Initialisation de DirectX
If InitSprite() = 0 Or InitKeyboard() = 0 Or InitMouse() = 0
		MessageRequester("Erreur", "Impossible d'initialiser DirectX", 0)
		CloseWindow(#window) : End
EndIf


;- Ouverture de la fenêtre et de l'écran
hwnd = OpenWindow(#window, 0, 0,  #Width, #Height, "",#PB_Window_TitleBar |#PB_Window_SystemMenu  )

ScrollAreaGadget(#Panel,10, 10,#Width, #Height, 1024-20, 768-20, 30)
hCont = ContainerGadget(#Cont,10,10,#Width-20, #Height-20,#PB_Container_Double)
OpenWindowedScreen(hCont, 0, 0, #Width, #Height, 0, 0, 0)




Repeat
		
		ExamineMouse()  ; on demande a purebasic de surveiller les event de souris !
		ExamineKeyboard() ; on demande a purebasic de surveiller les event de clavier!
		evnt= WaitWindowEvent(2)	
		
		Select    evnt
				
		Case #PB_Event_CloseWindow 
				End 
		EndSelect
		
		StartDrawing(ScreenOutput())
				DrawText(10, 10, "touche ESC pour quitter" ,RGB(255,255,0),RGB(0,0,0))
				Grille(33,#Width,#Height)
		StopDrawing()
		
		FlipBuffers() 
		
		
		
		
Until KeyboardPushed(#PB_Key_Escape)



Procedure Grille(taille,larg,haut)
;By Zorro
;taille=taille d'un carreau
;larg =largeur de l'ecran ou de la zone a dessiner
; haut = hauteur de l'ecran ou de la zone a dessiner
		;******************
		nb=(haut/taille)*taille
		For i=0 To nb		
				LineXY(0, i, larg, i, RGB(255,255,255))		
				LineXY(i, 0, i,haut, RGB(255,255,255))
				i=i+taille-1
		Next i
		; *********************
Endprocedure

;EPb

[Ar-S]

Et ne pas oublier que PB connait maintenant quelques constantes de couleurs, dont #White

Tu peux remplacer RGB(255,255,255) par #White ou en hexa (en BGR pas RGB!) par $FFFFFF
Avec l'habitude ça reste plus simple que de taper des virgules et parenthèses

[Marc56]

Sans oublier qu'en utilisant une valeur numérique ou une constante tu libères le système d'un calcul.

[GallyHC]

@Zorro > je n'ajoute pas une erreur, je le reproduit car copier-coller de son code et j'avoues que je n'ai pas regarder cela. La prochaine fois je regarderais de plus près ^^ avant de recopier.

GallyHC

[PCPixMusic]

Bonjour,

Merci beaucoup à tous.

Entre temps j'avais résolu les problèmes avec la grille en fessant mes for Next et placer les constantes #White et #Black.Il me semble que la version Linux de PureBasic 5.60 connais ces constantes (ça ne marchait pas avec la version 5.42 sous Linux). Comme je fais du multi-boot, ça pose parfois problème.

[Résolu] et Falsam Il a déplacé mes messages.