PureBasic

Code : Tout sélectionner

;----------------------------------------------------------------------
;boite de dialogue comme en gfa sur atari st
;syntaxe : requester(titre$,texte$,reponses$[,image])
;le titre de la fenetre est une chaine de caractere normale
;le texte est multiligne les lignes sont séparées par le caractere |
;le nombre de reponses possible est illimité (sauf par la taille de l'ecran)
;chaque bouton est delimité par le caractere |
;il est posible de specifier une image comme icone elle sera positionée en haut a gauche de la fenetre
;---------------------------------------------------------------------
;auteur Case,forums pure basic.  domaine public
Procedure requester(req_title$,req_txt$,req_reply$,req_icon=0)
  req_lines=CountString(req_txt$,"|")+1
  req_winheight=req_lines*16
  ; verifie la plus grande longueur de chaine dans le résumé
  For req_a=1 To req_lines
    req_l=Len(StringField(req_txt$,req_a,"|"))
    If req_mx<req_l
      req_mx=req_l
    EndIf
  Next
  ;verrifie si le contenu des boutons au total est plus grand que laplus grande des chaines
  If req_mx<Len(req_reply$)+2
    req_mx=Len(req_reply$)+2
  EndIf
  ;verifie la presence d'une image en tant qu'icone et modifie la taille de la fenetre en focntion
  If req_icon<>0
    req_icon_h=ImageHeight(req_icon)+4
    req_icon_w=ImageWidth(req_icon)+4
    If req_winheight<req_icon_h
      req_winheight=req_icon_h
    EndIf
  Else
    req_icon_h=0
    req_icon_w=0
  EndIf
  ;ouvre la fenetre
  req_main=OpenWindow(#PB_Any,0,0,req_mx*6+req_icon_w,req_winheight+20,req_title$,#PB_Window_TitleBar| #PB_Window_ScreenCentered)
  ;ecrit les lignes de texte
  For req_a=0 To req_lines-1
    TextGadget(#PB_Any,req_icon_w,req_a*16,req_mx*6,16,StringField(req_txt$,req_a+1,"|"))
  Next
  ;cree les boutons
  req_nb_b=CountString(req_reply$,"|")+1
  NewList req_buttons()
  req_butsize=(WindowWidth(req_main))/req_nb_b
  For req_a=1 To req_nb_b
    AddElement(req_buttons())
    req_buttons()=ButtonGadget(#PB_Any,(req_a-1)*req_butsize,req_winheight,req_butsize,20,StringField(req_reply$,req_a,"|"))
  Next

  Repeat
    If req_icon<>0
      StartDrawing(WindowOutput(req_main))
      DrawImage(ImageID(req_icon),0,0)
      StopDrawing() 
    EndIf
    req_ev=WaitWindowEvent()
  Until req_ev=#PB_Event_Gadget
  ForEach req_buttons()
    If req_buttons()=EventGadget()    
       req_ret=ListIndex(req_buttons())
       ClearList(req_buttons())
       CloseWindow(req_main)
      ProcedureReturn  req_ret+1 ; pour eviter de renvoyer un zero
    EndIf
  Next
      ProcedureReturn 0 ; erreur
EndProcedure
  ; exemple d'utilisation
  UsePNGImageDecoder()
  img=LoadImage(#PB_Any,"Image2.png") ; charger une image pour l'exemple
  ;
  reply=requester("boite d'alerte GFA like","enorme j'en ai révé|c'est a ma portée enfin|et super flexible","ok|mitho|lol")
  Select reply
  Case 1
    requester("fin du programme","jeul savais","ok",img)
  Case 2 
    requester("Mitho","comment ca mitho ?","je m'excuse",img)
  Case 3
    requester("lol ?", "rien d'amusant la dedans","pas drole",img)
  EndSelect

Code : Tout sélectionner

Procedure GadgetTextWidth(Gagdet, GagdetText.s)
  Protected Size.Size, hdc, hFontOld
  hdc = GetDC_(GadgetID(Gagdet)) 
  hFontOld = SelectObject_(hdc, GetGadgetFont(Gagdet)) 
  GetTextExtentPoint32_(hdc, @GagdetText, Len(GagdetText), @Size) 
  SelectObject_(hdc, hFontOld) 
  ReleaseDC_(GadgetID(Gagdet), hdc)
  ProcedureReturn Size\cx
EndProcedure

If OpenWindow(0, 450, 200, 380, 104, "Largeur en fonction du texte", #PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_TitleBar|#PB_Window_Invisible)
  
  Texte.s = "Texte du bouton (essayez différentes longueurs !)"
  
  ButtonGadget(0, 0, 32, 0, 36, Texte)
  SetGadgetFont(0, LoadFont(0, "Arial", 10))
  ResizeGadget(0, #PB_Ignore, #PB_Ignore, GadgetTextWidth(0, Texte) + GetSystemMetrics_(#SM_CXEDGE) * 2, #PB_Ignore)
  ResizeWindow(0, #PB_Ignore, #PB_Ignore, GadgetWidth(0), #PB_Ignore)
  HideWindow(0, #False)
  
  Repeat
    Event = WaitWindowEvent()
    Select Event
      Case #PB_Event_CloseWindow
        Break
    EndSelect
  ForEver
  
EndIf

Code : Tout sélectionner

reply=requester("boite d'alerte GFA like","enorme j'en ai révé|c'est a ma portée enfin|et super flexible","j'ai essayé avec anticonstitutionnellement et ca passe|aagggggggggggggggggggggggggggggggggggggaa|ca passe")