Subject Re: Data not visable
From Bob McKinney <bmckinney@gmail.com>
Date Sat, 21 Mar 2020 15:54:51 -0400
Newsgroups dbase.getting-started

this problem is contaminating all entry fields on all existing forms , so it must be in the "MyControls" code somewhere.  If I had a clue as to what would cause such a thing,  I would the  search for such incorrect code.  When the programmer is 96 the old think tank is rather slow.  Thhanks for any help..Bob



?Bob McKinney Wrote:

>  I am still using DB2.8 w/W10(home).  I only progrm for my personal use. I have a new problem, when I place a new entryfield on a form (old or new), the field will accept date but you can't see it until you "save".  Then the data is visable and was entered in a table. I don't have a clue what caused the problem or haow to corect it.
>      Below is my code from "MyControls MyEntryField" :  Any help for this problem, greatly appreciated....Bob
>    
>
>  ********
> class MYENTRYFIELD(parentObj, name) of ENTRYFIELD(parentObj, name) custom
>    with (this)
> //      onGotFocus = {;this.keyboard( "}Home}" )}     //  ?
>       height = 5.0
>       left = 3.0
>       top = 1.5
>       width = 13.0
>       metric = 6        // Chars
>       colorHighLight = "white/Yellow"
>       value = "MyEntryField"
>       selectAll = false  // This value was false, testing I
>         // changed to true, that did not help my problem
>                                        
> endclass
>
>
> ************ code for a test form
>
> ** END HEADER -- do not remove this line
> //
> // Generated on 03/21/2020
> //
> parameter bModal
> local f
> f = new testtransForm()
> if (bModal)
>    f.mdi = false // ensure not MDI
>    f.readModal()
> else
>    f.open()
> endif
>
> class testtransForm of BASE_CFORM from :BMCustom:base.cfm
>    set procedure to :PSource:aponts.dmd additive
>    set procedure to :BMCustom:mycontrols.cc additive
>    with (this)
>       height = 423.0
>       width = 558.0
>    endwith
>
>    this.APONTSDATAMODULE1 = new APONTSDATAMODULE()
>    this.APONTSDATAMODULE1.parent = this
>    with (this.APONTSDATAMODULE1)
>       left = 455.0
>       top = 297.0
>    endwith
>
>    with (this.TITLETEXT)
>       text = "Test for Transparent Form"
>    endwith
>
>    this.MYENTRYFIELD1 = new MYENTRYFIELD(this)
>    with (this.MYENTRYFIELD1)
>       dataLink = form.apontsdatamodule1.aponts1.rowset.fields["name"]
>       height = 33.0
>       left = 196.0
>       top = 143.0
>       width = 119.0
>    endwith
>
>    this.MYTOOLBARV1 = new MYTOOLBARV(this)
>    with (this.MYTOOLBARV1)
>       left = 392.0
>       top = 44.0
>       width = 101.0
>       height = 336.0
>    endwith
>
>    this.MYTEXTLABEL1 = new MYTEXTLABEL(this)
>    with (this.MYTEXTLABEL1)
>       height = 18.0
>       left = 119.0
>       top = 154.0
>       width = 75.0
>       transparent = false
>    endwith
>
>    this.rowset = this.apontsdatamodule1.aponts1.rowset
>
> endclass
>