PureBasic

bonsoir
voila cela quelques temps que j'essaye de crée ma propre boite de dialogue

j'ai passer quelques jours à fouiller sur ce forum afin de recuperer des bouts de code et j'ai assembler et bricoler le tout en me servant de la doc et aussi celle des apis pour crée ceci :
attention ce n'est qu'un essaie j

Code : Tout sélectionner


; test de boite de dialogue  
; Constantes pour dessiner le titre 
#Im_x=200
#imy=125
#bordure=20 




; on crée une fenetre sans bordure 
If OpenWindow(0,0,0,200,125,"Boite de Dialogue" ,#PB_Window_BorderLess|#WS_BORDER|#WS_SYSMENU|#WS_MINIMIZEBOX|#PB_Window_ScreenCentered)=0 Or CreateGadgetList(WindowID(0))=0
End
EndIf
; dessin du titre de le fenetre et du bouton 
CreateImage(1,#im_x+2*#bordure,25)
  LoadFont(0,"arial",14,#PB_Font_Bold)
  StartDrawing(ImageOutput(1))
  DrawingFont(FontID(0))
  FrontColor(RGB(50,150,255))
  DrawingMode(1)
  DrawText(50,2,"MESSAGE  ")
  StopDrawing()
 ImageGadget(0, 0, 0, #Im_X + 2 * #Bordure, 20, ImageID(1)) 
ButtonGadget(4,70,85,60,30,"Ok")


; Boucle du programme  
Repeat 
  Event = WaitWindowEvent() 
  
  If Event = #PB_Event_Gadget 
    Select EventGadget() 
      
      Case 0 
        SendMessage_(WindowID(0), #WM_NCLBUTTONDOWN, #HTCAPTION, 0) 
              Case 4 
        Event = #PB_Event_CloseWindow 
    EndSelect 
  EndIf 
  
  
Until Event = #PB_Event_CloseWindow

alors qu'en pensez vous ?

Aller demain je te montrerez ce que c'est une vrai boite de dialogue by wolfjeremy

Mais c'est un bon début.

Pas mal !

bernard13 a écrit :alors qu'en pensez vous ?

c'est super bien

Je suis impressioné par ce code qui.. fonctionne

merci
j'ai passer beaucoup de temps sans vous posez de questions bete et stupide

je sais c'est pas du grand art mais on je sais faire que ça pour le moment en purebasic

wolfjeremy : C'étaît ironique ?

"Aller demain je te montrerez ce que c'est une vrai boite de dialogue by wolfjeremy"
Je trouve ça un poil agressif si j'aurais étaît lui, enfin je me trompe peut être

Sinon c'est pas mal

merci

je suis pas un grand programmeur comme vous
mais j'essaye de me debrouiler

Pas mal la technique de la barre de titre
je m'en souviendrais ^^

Dri

merci Dr dri mais je suis pas un pro de purebasic comme toi et les autres de ce forum

garzul a écrit :wolfjeremy : C'étaît ironique ?

"Aller demain je te montrerez ce que c'est une vrai boite de dialogue by wolfjeremy"
Je trouve ça un poil agressif si j'aurais étaît lui, enfin je me trompe peut être

Sinon c'est pas mal

Mais nan c'est pas agressif, je l'aime bien le bernard13, et quand il a besoin d'aide, comme le MP qu'il m'avais envoyer pour les lib et bien je l'aide, j'ai rien contre lui et contre personne

C'était pour le taquiner, de toute façon je n'ai pas l'intension de passer mon temps a faire une fenetre de dialogue pour le moment, je n'ai même pas le temps de finir mon programme

PureBasic

Test de boite de dialogue ,

Test de boite de dialogue ,