PureBasic

Code : Tout sélectionner

Enumeration
  #Mainform
  #Information
EndEnumeration

Enumeration 10 Step 64 ;Réservation de  64 constantes
  #Cell_Start
  #Cell_End
EndEnumeration

;Evenements (Fenetre, Menu, Gadget, Dernier evenement)
Define.l Event, WEvent, MEvent, GEvent, TEvent

;Style window
Global WindowStyle.i=#PB_Window_MinimizeGadget|#PB_Window_MaximizeGadget|#PB_Window_ScreenCentered

;Definition trés simplifiée d'une cellule de ton jeu d'echec
Structure Cell
  Idgadget.i    ;Canvas associé
  NumCell.i     ;Numéro de cellule
  BackColor.i   ;Couleur de fond pour redessin de la cellule
EndStructure

Global NewList Chess.Cell() ;Le jeu d'échec

Procedure Open_MainForm()
  Protected NumCell.i, X.b, BackColor.i
  
  OpenWindow(#Mainform, 0, 0, 450, 450, "New Form", WindowStyle)
  
  ;Un jeu d'echec c'est une grille de 8 x 8
  ;Le Canvasgadget peut être une solution pour créer une grille
  For Row = 1 To 8
    For Col = 1 To 8
      IdGadget = #Cell_Start+NumCell
      CanvasGadget(IdGadget, Col*43, Row*43, 40, 40) ;J'ecarte volontairement les cases
            
      ;Un peu de couleur. On dessine sur le canvas nouvellement crée.
      StartDrawing(CanvasOutput(IdGadget))
      
      ;Si X = #False, on colore en jaune sinon marron
      If X=#False
        BackColor = RGB(255, 215, 0)
        X=#True
      Else
        BackColor = RGB(210, 105, 30)
        X=#False
      EndIf
      
      ;Dessin du fond de la cellule
      Box(0, 0, 40 ,40, BackColor)
      
      ;Dessin d'un cadre
      DrawingMode(#PB_2DDrawing_Outlined)
      Box(0, 0, 40, 40, RGB(0, 0, 0))
      StopDrawing() ;Fin du dessin et affichage
      
      ;Mise à jour de la structure associé au jeu d'echec
      AddElement(Chess()) ;Ajout d'un élement dans la structure du jeu d'echec
      SetGadgetData(IdGadget, NumCell) ;Le Canvasgadget connait sa position dans la structure
            
      With Chess()
        \IdGadget = IdGadget ;Quel est le canvas associé
        \NumCell = NumCell ;Numéro de cellule
        \BackColor = BackColor
      EndWith
            
      NumCell+1
    Next
    
    ;C'est une astuce pour la création du damier.Peut etre qu'il y a mieux :)
    If X=#True 
      X=#False
    Else
      X=#True
    EndIf
  Next
  
  TextGadget(#Information, 200, 420, 50, 20, "?/?")
  
EndProcedure
  
Open_MainForm()

Repeat
  Event  = WaitWindowEvent(10)
  WEvent = EventWindow() ;Quelle fenetre reçoit l'evenement. Different de WindowEvent() :p (oui je me suis fais avoir !!!)
  MEvent = EventMenu() ;Evenement menu
  GEvent = EventGadget() ;Evenement gadget
  TEvent = EventType() ;Type du dernier évènement survenu 
  Select Event
    Case #PB_Event_Gadget
      Select GEvent
        Case #Cell_Start To #Cell_End ;Quel est la cellule qui reçoit l'evenement
          Select TEvent ;Quel type d'évenement reçoit la cellule  
              
            Case #PB_EventType_MouseEnter 
              ;La souris survole la cellule
              SetGadgetAttribute(GEvent, #PB_Canvas_Cursor, #PB_Cursor_Hand) ;Changement de curseur
              
              ;Dessin d'un cadre de sélection
              StartDrawing(CanvasOutput(GEvent))
              DrawingMode(#PB_2DDrawing_Outlined)
              Box(0, 0, 40, 40, RGB(255, 0, 0))
              StopDrawing()
              
            Case #PB_EventType_MouseLeave
              ;La souris quitte la cellule : Dessin du cadre noir sur la cellule (CanvasGadget)
              StartDrawing(CanvasOutput(GEvent))
              DrawingMode(#PB_2DDrawing_Outlined)
              Box(0, 0, 40, 40, RGB(0, 0, 0))
              StopDrawing()
              
            Case #PB_EventType_LeftButtonUp
              ;Le joueur clique sur une cellule : Recherche de la cellule correspondante dans la structure
              ;Le canvas represantant une case de ton jeu d'echec connait une position dans la structure
              SelectElement(Chess(), GetGadgetData(GEvent)) ;On se positionne dans la structure
              SetGadgetText(#Information, Str(Chess()\NumCell + 1)) ;Affichage du numéro de cellule
              
          EndSelect          
      EndSelect
        
    Case #PB_Event_CloseWindow
      End
  EndSelect
ForEver