Test de boite de dialogue ,

bernard13 · Message par **bernard13** » jeu. 15/juin/2006 18:18

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

bernard13 · Message par **bernard13** » jeu. 15/juin/2006 20:59

alors qu'en pensez vous ?

wolfjeremy · Message par **wolfjeremy** » jeu. 15/juin/2006 21:06

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

Mais c'est un bon début.

flaith · Message par **flaith** » jeu. 15/juin/2006 21:06

Pas mal !

Backup · Message par **Backup** » jeu. 15/juin/2006 21:08

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

c'est super bien

Droopy · Message par **Droopy** » jeu. 15/juin/2006 21:20

Je suis impressioné par ce code qui.. fonctionne

bernard13 · Message par **bernard13** » jeu. 15/juin/2006 21:29

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

garzul · Message par **garzul** » jeu. 15/juin/2006 22:15

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

bernard13 · Message par **bernard13** » ven. 16/juin/2006 7:28

merci

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

Dr. Dri · Message par **Dr. Dri** » ven. 16/juin/2006 9:53

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

Dri

bernard13 · Message par **bernard13** » ven. 16/juin/2006 10:37

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

wolfjeremy · Message par **wolfjeremy** » ven. 16/juin/2006 10:48

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