** END HEADER -- do not remove this line
//
// Generated on 08/02/2009
//
parameter bModal
local f
f = new test_dbulletin18_proceduresForm()
if (bModal)
   f.mdi = false // ensure not MDI
   f.readModal()
else
   f.open()
endif

class test_dbulletin18_proceduresForm of FORM
   with (this)
      onClose = class::FORM_ONCLOSE
      height = 17.7727
      left = 53.0
      top = 0.0
      width = 40.0
      text = ""
   endwith

   this.PBQUIT = new PUSHBUTTON(this)
   with (this.PBQUIT)
      onClick = class::PBQUIT_ONCLICK
      height = 1.0909
      left = 12.0
      top = 2.0
      width = 15.2857
      text = "Test méthode"
   endwith

   this.RADIOBUTTON1 = new RADIOBUTTON(this)
   with (this.RADIOBUTTON1)
      onChange = class::RADIOBUTTON_CHANGE
      height = 1.0909
      left = 12.0
      top = 5.0
      width = 15.7143
      text = "Radiobutton1"
      group = true
      value = true
   endwith

   this.RADIOBUTTON2 = new RADIOBUTTON(this)
   with (this.RADIOBUTTON2)
      onChange = class::RADIOBUTTON_CHANGE
      height = 1.0909
      left = 12.0
      top = 8.0
      width = 15.7143
      text = "Radiobutton2"
   endwith

   this.RADIOBUTTON3 = new RADIOBUTTON(this)
   with (this.RADIOBUTTON3)
      onChange = class::RADIOBUTTON_CHANGE
      height = 1.0909
      left = 12.0
      top = 11.0
      width = 15.7143
      text = "Radiobutton3"
   endwith

   this.PBTESTWRITE = new PUSHBUTTON(this)
   with (this.PBTESTWRITE)
      onClick = class::PBTESTWRITE_ONCLICK
      height = 2.5
      left = 7.0
      top = 13.0
      width = 25.0
      text = "Teste l'appel d'une fonction hors de la classe"
   endwith

   this.TEXTLABEL1 = new TEXTLABEL(this)
   with (this.TEXTLABEL1)
      height = 1.0
      left = 2.0
      top = 16.5
      width = 35.0
      text = "Source : dBulletin n°18  - par Gerald Lightsey"
      fontSize = 8.0
      alignHorizontal = 1	// Center
   endwith


function PBQUIT_onClick
// Code a exécuter lorsque l'on clique sur le bouton
msgbox("Bouton pbQuit actionné", "Test")
return

function PBTESTWRITE_onClick
writeTest()
return

function form_onClose
// code des actions à effectuer après la fermeture du formulaire
return

function Radiobutton_Change
if this.value // seul le dernier bouton sélectionné a pour valeur(value): true 
do case 
case this.name == "RADIOBUTTON1" 
// action code 
msgbox("Boutonradio1 selectionné", "Test")
case this.name == "RADIOBUTTON2" 
// action code 
msgbox("Boutonradio2 selectionné", "Test")
case this.name == "RADIOBUTTON3" 
// action code 
msgbox("Boutonradio3 selectionné", "Test")
endcase 
endif 
return
return

endclass

Function writeTest 
msgbox("Appel d'une fonction extérieure à la classe" , "Test")
return