Subject AutoDropNot
From Tom <IHaveNoEmail@ddress>
Date Sun, 4 Nov 2018 12:58:13 -0500
Newsgroups dbase.getting-started

Hi all,

  Been fooling around with this for most of the morning. As you can see,
numerous code changes still fail to produce a combobox autodrop.

Can you straighten me out.

Thanks in advance,

Tom

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

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

    this.EFBOOLIAN = new ENTRYFIELD(this)
    with (this.EFBOOLIAN)
       height = 22.0
       left = 88.0
       top = 32.0
       width = 39.0
       fontSize = 11.0
       statusMessage = "Boolian: Allows input and display of TRUE,
FALSE, T, F, Y or N in upper or lower case."
       speedTip = "Boolian"
       value = false
    endwith

    this.EFNUMERIC = new ENTRYFIELD(this)
    with (this.EFNUMERIC)
       height = 22.0
       left = 88.0
       top = 65.0
       width = 60.0
       picture = "99,999,999.99"
       fontSize = 11.0
       statusMessage = "Numeric Allows a numeric value including 2
decimal places. Decimal point is required. Commas are automatic."
       speedTip = "Numeric"
       value = 0.0
    endwith

    this.EFDATE = new ENTRYFIELD(this)
    with (this.EFDATE)
                onGotFocus = class::EFDATE_ONGOTFOCUS
       height = 22.0
       left = 88.0
       top = 98.0
       width = 81.0
       picture = "99/99/9999"
       fontSize = 11.0
       statusMessage = "Date: Type two digit month, day and four digit
year. No separators are required."
       speedTip = "Date"
       value = {01/17/1947}
    endwith

    this.EFINTIGER = new ENTRYFIELD(this)
    with (this.EFINTIGER)
       height = 22.0
       left = 88.0
       top = 131.0
       width = 56.0
       picture = "99,999,999"
       fontSize = 11.0
       statusMessage = "Integer: Integers only. Commas are automatic."
       speedTip = "Intiger"
       value = 0
    endwith

    this.EFCHARACTER = new ENTRYFIELD(this)
    with (this.EFCHARACTER)
       onGotFocus = class::EFCHARACTER_ONGOTFOCUS
       height = 22.0
       left = 88.0
       top = 164.0
       width = 76.0
       fontSize = 11.0
       statusMessage = "Character: Any typable character."
       speedTip = "Character"
       value = "Entryfield1"
    endwith

    this.EFTIME = new ENTRYFIELD(this)
    with (this.EFTIME)
       height = 22.0
       left = 88.0
       top = 197.0
       width = 66.0
       picture = "99:99:99"
       fontSize = 11.0
       statusMessage = "Time: Military (24 hour) time format of hours,
minutes and seconds (hh:mm:ss). No separaters are required."
       speedTip = "Time"
       value = "10:00:00"
    endwith

    this.EFDATETIME = new ENTRYFIELD(this)
    with (this.EFDATETIME)
       height = 22.0
       left = 88.0
       top = 230.0
       width = 140.0
       picture = "99/99/9999 99:99:99"
       fontSize = 11.0
       statusMessage = "DateTime: Two digit mont and day, four digit
year, and military time format (hhmm:ss). No separaters are required."
       speedTip = "Datetime"
       value = {01/17/1947 10:00:00 AM}
    endwith

    this.CHOLLA = new COMBOBOX(this)
    with (this.CHOLLA)
       onOpen = {;this.height = 23}
                onLostFocus = class::Cholla_oLF
       systemTheme = false
//      visible = false
***pageNo = 2
       height = 25.0
       left = 51.0
       top = -100 // 288.0
       width = 175.0
       fontSize = 11.0
       dataSource = 'array {"Cholla"}'
       statusMessage = "Click pushbutton or use <F4> key to display list."
       style = 2        // DropDownList
       dropDownHeight = 132.0
autoDrop = TRUE // FALSE // true
TABSTOP = FALSE
    endwith


    Function EFCHARACTER_onGotFocus()
        * -------------------------------------------------- *
                //local aList
                aList = new ARRAY()
                aList.add("ABC")
                aList.add("def")
                aList.add("GHI")
                aList.add("jkl")
                aList.add("MNO")
                aList.add("pqr")
                aList.add("STU")
                aList.add("vwxyz")
                form.CHOLLA.dataSource = 'ARRAY aList'
                *
                form.oNextFocus = this.before
                form.CHOLLA.width = this.width+18
                form.CHOLLA.top = this.top
                form.CHOLLA.left = this.left
//form.CHOLLA.AutoDrop = true
***                form.CHOLLA.visible = true
***form.CHOLLA.pageNo = 1
***form.CHOLLA.AutoDrop = true
                form.CHOLLA.setFocus()
///                this.keyboard "{F4}"
    return
        *
        
        Function EFDATE_onGotFocus()
        * --------------------------------------- *
                //local aList
                aList = new ARRAY()
                aList.add(Date())
                form.CHOLLA.dataSource = 'ARRAY aList'
                *
                form.oNextFocus = this.before
                form.CHOLLA.width = this.width+18
                form.CHOLLA.top = this.top
                form.CHOLLA.left = this.left
***                form.CHOLLA.visible = true
***form.CHOLLA.pageNo = 1
                form.CHOLLA.setFocus()        
        return
        *
        
                Function Cholla_oLF
                * -------------------------*
//                this.autoDrop = false
***                this.visible = false
//this.pageNo = 2
this.top = -100
                if type("form.oNextFocus") # 'U'
                        form.oNextFocus.setFocus()
                        form.oNextFocus = null
                endif
                return
                *
endclass

/*
    form.aFlavors.add( this.form.newFlavorText.value ) // Add new flavor
    form.flavorCombobox.dataSource += "" // Reassert by adding empty string
*/