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

class BickCholla2bForm 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"
					*
					local nRow
					if NOT EMPTY( form.ENTRYFIELD2.value )
						nRow = aScan( form.aList, form.ENTRYFIELD2.value )
						if nRow = 0 // not already in list ...
							form.aList.add( TRIM( form.ENTRYFIELD2.value ) )
						endif
					endif
					*
					aSort( form.aList ) // nice alphabetical list for user ...
					*
				endif
				*
				// new OCHOLLA object
				LockWindowUpdate(form.hWND)
				form.CHOLLA = new COMBOBOX(form)
				with (form.CHOLLA)
					onLostFocus = class::Reset_Cholla
					systemTheme = false
					height = 24.0
					left = form.activeControl.left
					top = form.activeControl.top
					width = form.activeControl.width+18
					fontSize = 11.0
					style = 2	// DropDownList
					dropDownHeight = 132.0
					dataSource = 'ARRAY form.aList'
					value = TRIM( this.value )
				endwith
				*
				form.oLastFocus = form.activeControl // where was I ?
				LockWindowUpdate(0)
				form.CHOLLA.setFocus()
				form.CHOLLA.keyboard("{F4}")
				form.CHOLLA.visible = true
				*
			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"
					*
					local nRow
					if NOT EMPTY( form.ENTRYFIELD3.value )
						nRow = aScan( form.bList, form.ENTRYFIELD3.value )
						if nRow = 0 // not already in list ...
							form.bList.add( TRIM( form.ENTRYFIELD3.value ) )
						endif
					endif
					*
					aSort( form.bList ) // nice alphabetical list for user ...
					*
				endif
				*
				LockWindowUpdate(form.hWND)
				form.CHOLLA = new COMBOBOX(form)
				with (form.CHOLLA)
					onLostFocus = class::Reset_Cholla
					systemTheme = false
					height = 24.0
					left = form.activeControl.left
					top = form.activeControl.top
					width = form.activeControl.width+18
					fontSize = 11.0
					style = 2	// DropDownList
					dropDownHeight = 132.0
					dataSource = 'ARRAY form.bList'
					value = TRIM( this.value )
				endwith
				*
				form.oLastFocus = form.activeControl // where was I ?
				LockWindowUpdate(0)
				form.CHOLLA.setFocus()
				form.CHOLLA.keyboard("{F4}")
				*
			case this.name = "ENTRYFIELD4"
				if type("form.cList") = 'U'
					form.cList = new array()
					form.cList.add( "Rake Leaves" )
					form.cList.add( "Clead Gutters" )
					form.cList.add( "Wash Car" )
					form.cList.add( "Walk Dog" )
					form.cList.add( "Shovel Snow" )
					// purposly left off entryfield4.value of 'Mow Lawn"
					*
					local nRow
					if NOT EMPTY( form.ENTRYFIELD4.value )
						nRow = aScan( form.cList, form.ENTRYFIELD4.value )
						if nRow = 0 // not already in list ...
							form.cList.add( TRIM( form.ENTRYFIELD4.value ) )
						endif
					endif
					*
					aSort( form.cList ) // nice alphabetical list for user ...
					*
				endif
				*
				// new OCHOLLA object
				LockWindowUpdate(form.hWND)
				form.CHOLLA = new COMBOBOX(form)
				with (form.CHOLLA)
					onLostFocus = class::Reset_Cholla
					systemTheme = false
					height = 24.0
					left = form.activeControl.left
					top = form.activeControl.top
					width = form.activeControl.width+18
					fontSize = 11.0
					style = 2	// DropDownList
					dropDownHeight = 132.0
					dataSource = 'ARRAY form.cList'
					value = TRIM( this.value )
				endwith
				*
				form.oLastFocus = form.activeControl // where was I ?
				LockWindowUpdate(0)
				form.CHOLLA.setFocus()
				form.CHOLLA.keyboard("{F4}")
				*
		endcase
		*
	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

*
***
*