Subject Re: SpeedTip followup
From AndrewS <no@nomore.com>
Date Fri, 24 Feb 2023 20:12:51 +1100
Newsgroups dbase.getting-started
Attachment(s) TomsSpeedTipProblem.png

Tom,

The only additional information I can give you is my VirtualBox system settings for my W10P guest. Screenshot attached.

The virtual machine manager is providing an Intel ICH9 chipset and a PS/2 mouse to the W10P guest. You may want to check what Parallels is providing to your W10P system.

regards, AndrewS


On 24/2/23 10:27, AndrewS wrote:
> Tom,
 >
> I am running dBase 2019 in a W10 virtual machine:
 >
> dBASE 2019 13.20  b2618 (11/26/2019-EN191126)
 > Windows 10 Pro 22H2 build 19045.2486
 > VirtualBox 6.1.42
 > Ubuntu 20.04.5 Gnome
 >
> When I change your code, to the following, I have no problems and it runs fine.
 >
> It appears your problem MAY be a systems integration problem. Unfortunately, this is no longer considered important, so good luck finding the answer.
 >
> FWIW ...
 >
> My mouse and keyboard are Logitech:
 >
> MX Master 3
 > MX Keys
 >
> using a unifying receiver attached to an Aten CS1824 KVM switch.
 >
> regards, AndrewS
 >
> *
 > ** 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
 >      * ------------------------------------------ *
 >
>        this.TL1 = new TEXTLABEL( this.parent )   // this.parent == the FORM !!!
 >        this.TL1.top := this.top + 1
 >        this.TL1.width := 22.0
 >        this.TL1.height := 22.0
 >        this.TL1.left := (this.left + this.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( )
 >          *
 >
>           do case
 >              case  this.parent.colorNormal == "LightGrey"
 >                    this.parent.colorNormal := "Fuchsia"
 >              case  this.parent.colorNormal == "Fuchsia"
 >                    this.parent.colorNormal := "LightGrey"
 >           endcase
 >
>          *this.parent.colorNormal := iif( this.parent.colorNormal = "LightGrey","Fuchsia","Lightgrey")
 >          *
 >     return
 >      *
 >
> endclass
 >
> *
 >
> On 22/2/23 09:40, 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
 >>
 >> *