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

    Another clue, I hope.  On an old existing form having a field that contains data, to edit that field you would normally place the pointer on any part that you want to edit an rht/click to start editing.  The current data displayed would always be visible.  
    Now when I click on the field the data disappears and the color changes.  As long a that field has focus, no data my be seen.  By clicking on another field that changes the focus, the contents of previous, blank field now reappears.
    I hope the additional info will help any good soul that has seen my post......Bob


>Bob McKinney Wrote:
> 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
 > >
>