Subject Re: Data not visable
From Bob McKinney <bmckinney@gmail.com>
Date Sun, 22 Mar 2020 04:04:40 -0400
Newsgroups dbase.getting-started

Don't bother with this post as I finally figured the problem out. It had to do with the highlight colors.  The data was still displayed, I just couldn't see it Thanks anyway....Bob


>Bob McKinney Wrote:

>     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
> > >
> >
>