Subject Re: SpeedTip followup
From Tom <IHaveNoEmail@ddress>
Date Wed, 22 Feb 2023 17:28:49 -0500
Newsgroups dbase.getting-started

On 2/21/23 5:40 PM, Tom wrote:
> Hi all,
 >
> Confounded by the form included.
 >
> 1) Speedtip never appears
 >
> 2) Form color change works once, not every time textlabel is 'clicked'
 >
> Your help and guidance appreciated. If the code looks familiar, probably
> is but I do not remember from whom I stole it. Mind the wrap.
 >
> Thanks,
 > Tom
 > *
 > ** END HEADER -- do not remove this line
 > //
 > // Generated on 02/21/2023
 > //
 > parameter bModal
 > local f
 > f = new ImageClicked2Form()
 > if (bModal)
 >     f.mdi = false // ensure not MDI
 >     f.readModal()
 > else
 >     f.open()
 > endif
 >
> class ImageClicked2Form of FORM
 >     with (this)
 >        doubleBuffered = true
 >        metric = 6    // Pixels
 >        colorNormal = "LightGrey"
 >        height = 352.0
 >        left = 1004.0
 >        top = 0.0
 >        width = 280.0
 >        text = ""
 >        showSpeedTip = true
 >     endwith
 >
>     this.GETENTRY1 = new ENTRYFIELD(this)
 >     with (this.GETENTRY1)
 >        onOpen = class::ENTRYFIELD_ONOPEN
 >        height = 24.0
 >        left = 76.0
 >        top = 163.0
 >        width = 125.0
 >        fontSize = 11.0
 >        speedTip = "Assist"
 >        value = ""
 >     endwith
 >
>
>
>      Function ENTRYFIELD_ONOPEN
 >      * ------------------------------------------ *
 >        oThis = this // reference the entryfield control
 >        this.TL1 = new TEXTLABEL( oThis.parent ) // oThis.parent == the
> FORM !!!
 >        this.TL1.top := oThis.top + 1
 >        this.TL1.width := 22.0
 >        this.TL1.height := 22.0
 >        this.TL1.left := (oThis.left + oThis.width) - (this.TL1.width + 1)
 >        this.TL1.text := "6"
 >        this.TL1.colorNormal := "Red/Window"
 >        this.TL1.fontName := "Webdings"
 >        this.TL1.fontSize := 14.0
 >        this.TL1.borderStyle := 3    // None
 >        this.TL1.alignVertical := 1    // Middle
 >        this.TL1.alignHorizontal := 1    // Center
 >        this.TL1.speedTip := "Calendar ..."
 >      this.TL1.onLeftMouseDown := class::TL1_ONLEFTMOUSEDOWN
 >          *
 >      return
 >      *
 >
>     Function TL1_onLeftMouseDown(flags, col, row)
 >      * ------------------------------------------------------------- *
 >          // 'click' it ...
 >          this.borderStyle = 2
 >          _app.executeMessages( )
 >          sleep .35
 >          this.borderStyle = 3
 >          _app.executeMessages( )
 >          *
 >          this.parent.colorNormal := iif( this.parent.colorNormal =
> "LightGrey","Fuchsia","Lightgrey")
 >          *
 >     return
 >      *
 >
> endclass
 >
> *
 Ken, Lee, Edward

Last time, then I quit.

My ?set("Exact") result is OFF. Typically, I never alter this.

Ken: I included all the pictures to show everyone my system is a little
more complicated than most. Thought this may have some bearing on the issue.

Edward: Typically I 'quit' dBase when I am away from the computer for a
relatively short period of time. This leaves the Windows 'desktop'
visible on the screen. For an extended time period or over night I quit
dBase, 'quit' Windows which does not actually shut it down but leaves it
'suspended'. Followed by 'quit' of Parallels which is the software that
acts as a go between between Windows OS and Mac OS. Lastly, I click
'sleep' in Mac OS which is not a complete shut down as my keyboard and
external hard drive light go on and off as if possessed during the
night. On rare occasions, I do a complete shut down of Windows and Mac
OS. As to how all this works, you will have to ask my #1 son-in-law who
is the resident computer geek in the family and set all this up.

In summary, I do quit dBase but I cannot say I see a direct connection
to my sample form operating as expected or not. I cannot site specific
examples but it seem that I have had this sort of problem in the past.
Checked my form a short time ago and it works as expected. Checked it
this morning about 20 minutes after my 'go figure' post report and no
speedup was displayed.

Thank you all for your efforts but I feel it best to just consider the
matter unresolved.

Regards,
Tom