Regarde ici, peut-être que ça répondra à ta recherche...Ehma a écrit :Bonjour,
J'aimerai savoir s'il existe un éditeur graphique de boîte de dialogue au format XML "OpenXMLDialog" ?
Code : Tout sélectionner
Procedure Open(MotherWindow,*CallBack)
Protected xml.s
xml="<window name='FactureFic' "+
" width='400'"+
" height='auto'"+
" text=''"+
" flags='#PB_Window_SystemMenu|#PB_Window_ScreenCentered|#PB_Window_SizeGadget'>"+
" <vbox expand='item:1'>"+
" <vbox expand='item:1'>"+
" <gridbox columns='2'>"+
" <frame text='Numéro'>"+
" <string name='gNumero' flags='#PB_String_ReadOnly'/>"+
" </frame>"+
" <frame text='Date'>"+
" <date name='gDate' text='%dd-%mm-%yyyy'/>"+
" </frame>"+
" </gridbox>"+
" <frame text='Membre'>"+
" <hbox expand='item:1'>"+
" <combobox name='gMembre'/>"+
" <button name='gBtMembre' text='...'/>"+
" </hbox>"+
" </frame>"+
" </vbox>"+
" <hbox expand='no' heigth='30'>"+
" <button name='bt_valide' text='Valider'/>"+
" <button name='bt_chancel' text='Annuler'/>"+
" </hbox>"+
" </vbox>"+
"</window>"
gMother=MotherWindow
*gCallBack=*CallBack
CatchXML(0,@xml,StringByteLength(xml))
CreateDialog(0)
SetGadgetFont(#PB_Default,FontID(gFont))
OpenXMLDialog(0,0,"FactureFic",0,0,0,0,WindowID(gMother))
DisableWindow(gMother,#True)
gForm=DialogWindow(0)
gMembre=DialogGadget(0,"gMembre")
gBtMembre=DialogGadget(0,"gBtMembre")
gDate=DialogGadget(0,"gDate")
gBtValide=DialogGadget(0,"bt_valide")
gBtChancel=DialogGadget(0,"bt_chancel")
gNumero=DialogGadget(0,"gNumero")
BindEvent(#PB_Event_CloseWindow,@Exit(),gForm)
BindGadgetEvent(gBtChancel,@Exit())
BindGadgetEvent(gBtMembre,@BtMembreEvent())
BindGadgetEvent(gBtValide,@Valide())
FillMembre()
; Numéro de facture
SetGadgetText(gNumero,prj::GetFactureNumber())
EndProcedure
