*
** END HEADER -- do not remove this line
//
// Generated on 11/06/2018
//
parameter bModal
local f
f = new BickCholla2cForm()
if (bModal)
   f.mdi = false // ensure not MDI
   f.readModal()
else
   f.open()
endif

class BickCholla2cForm of FORM
   with (this)
      onOpen = class::FORM_ONOPEN
      metric = 6	// Pixels
      colorNormal = "LightGrey"
      height = 352.0
      left = 840.0
      top = 0.0
      width = 280.0
      text = ""
   endwith

   this.ENTRYFIELD1 = new ENTRYFIELD(this)
   with (this.ENTRYFIELD1)
      onOpen = {;this.value = "Rose"}
      height = 22.0
      left = 89.0
      top = 48.0
      width = 100.0
      fontSize = 11.0
      value = "Entryfield1"
   endwith

   this.ENTRYFIELD2 = new ENTRYFIELD(this)
   with (this.ENTRYFIELD2)
      onGotFocus = class::JUMPING_CHOLLA
      onOpen = {;this.value = "Tomato"}
      height = 22.0
      left = 89.0
      top = 115.0
      width = 100.0
      fontSize = 11.0
      value = "Entryfield2"
   endwith

   this.ENTRYFIELD3 = new ENTRYFIELD(this)
   with (this.ENTRYFIELD3)
      onGotFocus = class::JUMPING_CHOLLA
      onOpen = {;this.value = "West"}
      height = 22.0
      left = 89.0
      top = 182.0
      width = 100.0
      fontSize = 11.0
      value = "Entryfield3"
   endwith

   this.ENTRYFIELD4 = new ENTRYFIELD(this)
   with (this.ENTRYFIELD4)
      onGotFocus = class::JUMPING_CHOLLA
      onOpen = {;this.value = "Mow Lawn"}
      height = 22.0
      left = 89.0
      top = 249.0
      width = 100.0
      fontSize = 11.0
      value = "Entryfield4"
   endwith


	Function Form_onOpen
	* ----------------------------- *
	    if type('LockWindowUpdate') # 'FP'
         extern cLogical LockWindowUpdate( cHandle ) User32
      endif
	return
	*

	Function Jumping_Cholla
	* ------------------------------- *
		// create CHOLLA list for each entryfield ...
		do case
			case this.name = "ENTRYFIELD2"
				if type("form.aList") = 'U'
					form.aList = new array()
					form.aList.add( "Peaches" )
					form.aList.add( "Banana" )
					form.aList.add( "Rhubarb" )
					form.aList.add( "Pumpkin" )
					form.aList.add( "Apple" )
					// purposly left off entryfield2.value of 'Tomato"
					*
               form.aList = class::sort_array(form.entryfield2.value,form.alist)
 				endif
				*
            class::create_cholla(form.entryfield2,'form.alist')
 				*
			case this.name = "ENTRYFIELD3"
				// and repeat for new entryfield
				*
				// create CHOLLA list for each entryfield ...
				if type("form.bList") = 'U'
					form.bList = new array()
					form.bList.add( "North" )
					form.bList.add( "South" )
					form.bList.add( "East" )
					form.bList.add( "West" )
					// purposly included entryfield3.value of 'West"
					*
               form.bList = class::sort_array(form.entryfield3.value,form.blist)
				endif
				*
            class::create_cholla(form.entryfield3,'form.blist')
 				*
			case this.name = "ENTRYFIELD4"
				if type("form.cList") = 'U'
					form.cList = new array()
					form.cList.add( "Rake Leaves" )
					form.cList.add( "Clean Gutters" )
					form.cList.add( "Wash Car" )
					form.cList.add( "Walk Dog" )
					form.cList.add( "Shovel Snow" )
					// purposly left off entryfield4.value of 'Mow Lawn"
					*
               form.cList = class::sort_array(form.entryfield4.value,form.clist)
				endif
				*
            class::create_cholla(form.entryfield4,'form.clist')
 				*
		endcase
		*
      form.oLastFocus = form.activeControl // where was I ?
      LockWindowUpdate(0)
      form.CHOLLA.setFocus()
      form.CHOLLA.keyboard("{F4}")
	return
	*
   
   function sort_array(oRefVal,aArray)
      local nRow
      if NOT EMPTY( oRefVal )
         nRow = aScan( aArray, oRefVal )
         if nRow = 0 // not already in list ...
            aArray.add( TRIM( oRefVal ) )
         endif
      endif
      *
      aSort( aArray ) // nice alphabetical list for user ...
      return aArray
   *   
      
   function create_cholla(oRef,cArray)
      // new OCHOLLA object
      LockWindowUpdate(form.hWND)
      form.CHOLLA = new COMBOBOX(form)
      with (form.CHOLLA)
         onLostFocus = class::Reset_Cholla
         systemTheme = false
         height = 24.0
         fontSize = 11.0
         style = 2	// DropDownList
         dropDownHeight = 132.0
      endwith   
      form.cholla.left = oRef.left
      form.cholla.top = oRef.top
      form.cholla.width = oRef.width+18
      form.cholla.dataSource = 'array '+cArray
      form.cholla.value = TRIM( oRef.value )
      return

	Function Reset_Cholla
	* --------------------------- *
		if TRIM( form.oLastFocus.value ) # form.CHOLLA.value // no use updating same value
			form.oLastFocus.value = TRIM( form.CHOLLA.value ) // transfer value
		endif
		*
		release object form.CHOLLA
		*
		form.oLastFocus.before.setFocus()
		*
	return
	*

endclass

*
***
*