PureBasic

bonjour

je voudrais si c'etait obliger de mettre un If devant openwindow
et comencer afficher du texte avec une police+ sa taille + sa couleur...

merci

jbernard13

OpenWindow est une fonction comme une autre et bien sûr, tu doit la tester pour le bon déroulement de ton programme!

Code : Tout sélectionner

Global Nb_elements.l

Structure dessin
  texte_.s
  rouge_.l
  Vert_.l
  Bleu_.l
  Police_.s
  Taille_.l
  Option_.l
  X_.l
  Y_.l
EndStructure 

Dim crayon.dessin(5)

  Procedure dessin(Elements.l)
    If StartDrawing(WindowOutput())
      For Nb=0 To Elements      
        LoadFont (Nb, crayon(Nb)\Police_,crayon(Nb)\Taille_,crayon(Nb)\Option_)
        DrawingFont(UseFont(Nb))              ;On utilise la police précédemment chargé avec LoadFont
        Locate(crayon(Nb)\X_, crayon(Nb)\Y_)  ;Positionnement du texte
        DrawingMode(1)                        ;Fond de texte transparent
        FrontColor(crayon(Nb)\rouge_,crayon(Nb)\Vert_,crayon(Nb)\Bleu_)
        DrawText(crayon(Nb)\texte_)
      Next 
    StopDrawing()
    EndIf
  EndProcedure 
  

  Procedure ProcedureCallback(WindowID, message, wParam, lParam) 
    Resultat = #PB_ProcessPureBasicEvents 
    Select message
      Case #PB_EventRepaint
        dessin(Nb_elements)

    EndSelect

    ProcedureReturn Resultat 
  EndProcedure 


  If OpenWindow(0, 100, 200, 400, 300, #PB_Window_SystemMenu, "2D Drawing Test") 
    SetWindowCallback(@ProcedureCallback())
    
    crayon(0)\texte_="Jbernard13"
    crayon(0)\rouge_=255
    crayon(0)\Vert_=0
    crayon(0)\Bleu_=0
    crayon(0)\Police_="Courier"
    crayon(0)\Taille_=30
    crayon(0)\Option_=#PB_Font_Underline
    crayon(0)\X_=70
    crayon(0)\Y_=50
    
    crayon(1)\texte_="Pure Basic"
    crayon(1)\rouge_=164
    crayon(1)\Vert_=164
    crayon(1)\Bleu_=255
    crayon(1)\Police_="Arial"
    crayon(1)\Taille_=50
    crayon(1)\Option_=0
    crayon(1)\X_=30
    crayon(1)\Y_=150
    
    Nb_elements=1       ;Ici on détermine combien d'éléments du tableau on veut tracé
                        ;On compte à partie de 0
                        ;Avec 1, on dessinera les deux premiers éléments du tableau
    dessin(Nb_elements)
   
    Repeat
      EventID=WaitWindowEvent()
      Select EventID  
        Case #WM_CLOSE        
          Quit=1
          
      EndSelect
      
    Until Quit=1  
EndIf

je traduit ce qu'a voulu dire Jbernard13

message original

bonjour

je voudrais si c'etait obliger de mettre un If devant openwindow
et comencer afficher du texte avec une police+ sa taille + sa couleur...

message traduit

bonjour

je voudrais savoir si c'etait obliger de mettre un If devant openwindow
et comment fait on pour afficher du texte avec une police+ sa taille + sa couleur...

ha ba nico a deja repondu plus vite que mon ombre !!

2éme TRADUCTION

bonjour

je voudrais savoir si j'etait obligé de mettre un If devant openwindow
et savoir comment faire pour afficher du texte avec une police+ sa taille + sa couleur...

j'ai respecté l'esprit et le sens que l'auteur a voulu donner a sa phrase !!

Quant à moi, j'ai respecté la fantaisie humoristique qui me caractérise!

si tu te respecte , c'est deja ça !!
c'est pas donné a tout le monde !!

je doit dire que moi en plus , je m'aime bien !!

Moi aussi, je m'aime bien,
mais à force de trop s'aimer , on devient jaloux
alors forcément, je m'en veut
du coup, je préfère m'ignorer
mais comme je peux pas m'éviter...

Donc, je vais devoir passer ma vie à me réconcilier avec moi-même!

Tu vois, c'est pas si facile!

merci nico

pour ton code

merci nico

pour ton Humour !!

C'est rien à coté des rires que j'ai à te lire, toi Dodro et Chris entre autres !

Comme le dit Nico, il faut tester.

SI pour une raison mystérieuse, l'ouverture de la fenêtre échoue, il ne faut pas tenter d'écrire sur cette fenêtre sous peine de générer une erreur plus ou moins grave qui affichera la petite fenêtre "l'application bla bla bla', voire même un plantage plus sérieux.

De même si l'ouverture de la fenêtre réussi, il faut tester la fonction creategadgetlist pour les même raisons.

Si creategadgetlist échoue, il faut terminer le programme avec une petite fenêtre d'erreur.

Donc le corps du programme devrait ressembler à ça

Code : Tout sélectionner

if OpenWindow(...)
      if creategadgetlist(...)

        ; ici on met le reste du programme avec la boucle d'événements

      else
       messagerequester(...)  ; indique l'erreur
      endif

else
       messagerequester(...)  ; indique l'erreur
endif
end

PureBasic

j'ia des questions sur l'affichage du texte

j'ia des questions sur l'affichage du texte