>>Hi Carlos, great work as usual!
>>
>>I think I've found a bug in the class. I'm calling it from my form's save method to display a validation error and it scrolls up the display of the form. Here's the code I'm using (taken from one of the class sample forms)
>>
>>
>> This.LockScreen=.t.
>> This.txtCuenta.SetFocus
>> Thisform.ctl32_balloontip1._AutoPosition = 1
>> Thisform.ctl32_balloontip1._HideDelay = 5000
>> Thisform.ctl32_balloontip1._CapsLockTip = 0
>> Thisform.ctl32_balloontip1._TipIcon = 3
>> Thisform.ctl32_balloontip1._TipTitle = "Error!"
>> Thisform.ctl32_balloontip1._TipText = "Cuenta Del Cliente NO Puede Estar En Blanco"
>> Thisform.ctl32_balloontip1._Visible = 1
>> Thisform.Refresh
>> This.LockScreen= .F.
>> RETURN 0
>>
>>
>>
>>Check the inline comment. If I remove that line, then the form displays correctly.
>>
>Enmanuel:
>
>This class started as a caps lock password textbox ballon, i was just showing in the sample form some other potential uses, but those are fully untested. Lots of things could be going wrong there. I see you do a setfocus, does txtCuenta have SelectOnEntry = .T.? The Autoposition = 1 means align to caret, if there is no caret, things get ugly.
>
>Check my next post, and try with the new version.
>
>Carlos
Yes, the textbox has SelectOnEntry=.t., I've put a Setfocus on the code because that way the tip display over the textbox.
I'll try the new version and let you know!
Enmanuel
I'm a mixture of Albert Einstein and Arnold Schwarzenegger. The only trouble is that I got Einstein's body and Schwarzenegger's brain