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

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