Subject Re: Changing value of speedTip
From Milind Nighojkar <milinigh@yahoo.com>
Date Sat, 11 Dec 2021 03:25:50 -0500
Newsgroups dbase.getting-started


Hi Ken,
Tons of THANKS...also for educating me
It worked...

Regards
Milind Nighojkar

Ken Mayer, dBase, LLC Wrote:

> On 12/10/2021 9:21 AM, Milind Nighojkar wrote:
 > > Hi Ken,
 > > I tried to write syntax. But it seems my understanding is poor....
 > > Can you further guide me on this....?
 > >
>
> Milind -- please see the attached form. You should be able to copy
> it/download it to a folder and run it.
 >
> Examine the code. It's not as complex as I expected it to be. When the
> rowset navigates it assigns the speedTip of the first column the value
> of the company field (this uses the dBASE Samples, Customers table).
 >
> The trick is that the rowset's onNavigate event handler assigns the value.
 >
> Of course, much depends on exactly what you want to do.
 >
> This is based on what you explained in the first message -- which wasn't
> much. If you are more specific as to *EXACTLY* what you want, we can
> provide better assistance.
 >
> Ken
 >
> --
> *Ken Mayer*, dBase, LLC
 > Ken's dBASE Page: http://www.goldenstag.net/dbase
 > The dUFLP: http://www.goldenstag.net/dbase/index.htm#duflp
 > dBASE Books: http://www.goldenstag.net/dbase/Books/dBASEBooks.htm
 > dBASE Tutorial: http://www.goldenstag.net/dbase/Tutorial/00_Preface.htm
 > dBASE Web Tutorial: http://www.goldenstag.net/dbase/WebTutorial/00_Menu.htm
 > ** END HEADER -- do not remove this line
 > //
 > // Generated on 12/10/2021
 > //
 > parameter bModal
 > local f
 > f = new Grid_SpeedtipForm()
 > if (bModal)
 >    f.mdi = false // ensure not MDI
 >    f.readModal()
 > else
 >    f.open()
 > endif
 >
> class Grid_SpeedtipForm of FORM
 >    with (this)
 >       onOpen = class::FORM_ONOPEN
 >       scaleFontName = "Calibri"
 >       scaleFontSize = 12.0
 >       metric = 6        // Pixels
 >       height = 400.0
 >       left = 117.0
 >       top = 277.0
 >       width = 811.0
 >       text = ""
 >    endwith
 >
>    this.DBASESAMPLES1 = new DATABASE(this)
 >    with (this.DBASESAMPLES1)
 >       left = 18.0
 >       top = 352.0
 >       width = 78.0
 >       height = 37.0
 >       databaseName = "DBASESAMPLES"
 >       active = true
 >    endwith
 >
>    this.CUSTOMERS1 = new QUERY(this)
 >    with (this.CUSTOMERS1)
 >       left = 119.0
 >       top = 343.0
 >       width = 63.0
 >       height = 37.0
 >       database = form.dbasesamples1
 >       sql = "select * from CUSTOMERS.DBF"
 >       active = true
 >    endwith
 >
>    with (this.CUSTOMERS1.rowset)
 >       onNavigate = class::ROWSET_ONNAVIGATE
 >       indexName = "COMPANY"
 >    endwith
 >
>    this.TEXT1 = new TEXT(this)
 >    with (this.TEXT1)
 >       height = 57.0
 >       left = 20.0
 >       top = 7.0
 >       width = 408.0
 >       fontName = "Calibri"
 >       fontSize = 12.0
 >       text = '<p>Miland Speedtip with Grid Column Example</p><p></p><p>Uses SAMPLES table "Customers"</p>'
 >    endwith
 >
>    this.GRID1 = new GRID(this)
 >    with (this.GRID1)
 >       fontName = "Calibri"
 >       fontSize = 12.0
 >       headingFontName = "Calibri"
 >       headingFontSize = 12.0
 >       dataLink = form.customers1.rowset
 >       columns["COLUMN1"] = new GRIDCOLUMN(form.GRID1)
 >       with (columns["COLUMN1"])
 >          dataLink = form.customers1.rowset.fields["company"]
 >          editorType = 1        // EntryField
 >          width = 231.0
 >       endwith
 >       columns["COLUMN2"] = new GRIDCOLUMN(form.GRID1)
 >       with (columns["COLUMN2"])
 >          dataLink = form.customers1.rowset.fields["firstname"]
 >          editorType = 1        // EntryField
 >          width = 150.0
 >       endwith
 >       columns["COLUMN3"] = new GRIDCOLUMN(form.GRID1)
 >       with (columns["COLUMN3"])
 >          dataLink = form.customers1.rowset.fields["lastname"]
 >          editorType = 1        // EntryField
 >          width = 150.0
 >       endwith
 >       columns["COLUMN4"] = new GRIDCOLUMN(form.GRID1)
 >       with (columns["COLUMN4"])
 >          dataLink = form.customers1.rowset.fields["city"]
 >          editorType = 1        // EntryField
 >          width = 200.0
 >       endwith
 >       with (columns["COLUMN1"].editorControl)
 >          fontName = ""
 >          speedTip = "Starting Text for Speedtip"
 >       endwith
 >
>       with (columns["COLUMN1"].headingControl)
 >          fontName = ""
 >          value = "Company"
 >       endwith
 >
>       with (columns["COLUMN2"].editorControl)
 >          fontName = ""
 >       endwith
 >
>       with (columns["COLUMN2"].headingControl)
 >          fontName = ""
 >          value = "FirstName"
 >       endwith
 >
>       with (columns["COLUMN3"].editorControl)
 >          fontName = ""
 >       endwith
 >
>       with (columns["COLUMN3"].headingControl)
 >          fontName = ""
 >          value = "LastName"
 >       endwith
 >
>       with (columns["COLUMN4"].editorControl)
 >          fontName = ""
 >       endwith
 >
>       with (columns["COLUMN4"].headingControl)
 >          fontName = ""
 >          value = "City"
 >       endwith
 >
>       headingHeight = 25.0
 >       cellHeight = 25.0
 >       height = 255.0
 >       left = 22.0
 >       top = 72.0
 >       width = 759.0
 >    endwith
 >
>    this.rowset = this.customers1.rowset
 >
>    function form_onOpen()
 >       // force the rowset to navigate so the speedTip
 >       // updates:
 >       form.rowset.first()
 >    return
 >
>    function rowset_onNavigate(type, nRows)
 >       // need a form reference, because rowset
 >       // doesn't understand what "form" means.
 >       // this = rowset
 >       // parent = query
 >       // parent = form
 >       oForm = this.parent.parent
 >       oForm.grid1.columns["COLUMN1"].editorControl.speedTip := ;
 >          this.fields["Company"].value.rightTrim()
 >          
 >      
>    return
 >
> endclass
 >