Hi Greg
any vfp control.tooltiptext can embed 8192 characters in rectangular yellow area.
can build multiline tooltiptext with text/endtext or adding chr(13) in any string.
PUBLIC oform
oform=NEWOBJECT("form1")
oform.Show
RETURN
DEFINE CLASS form1 AS form
Top = 0
Left = 0
Height = 264
Width = 528
Caption = "ToolTopText can embed 8192 characters."
Name = "Form1"
ADD OBJECT text1 AS textbox WITH ;
Height = 37, ;
Left = 60, ;
Top = 72, ;
Width = 181, ;
Name = "Text1"
PROCEDURE text1.Init
local m.myvar
text to m.myvar noshow
Lorem ipsum dolor sit amet, consectetur adipiscing elit. Proin vel risus eget lorem feugiat
fermentum nec a turpis. Phasellus purus sem, mollis ac posuere eget, ornare vel orci. Sed ac rutrum
nulla. Aenean ultrices eget lectus eu efficitur. In hac habitasse platea dictumst. Nulla in iaculis nisi.
Nullam et pulvinar tellus. Donec arcu dui, efficitur a odio non, porta congue dolor. Aenean viverra
auctor sagittis. Integer lobortis dignissim auctor. Proin et volutpat massa.
Cras vitae felis venenatis, egestas sem quis, sodales neque. Donec venenatis hendrerit odio, non
pellentesque metus scelerisque ac. Suspendisse aliquet rhoncus odio id viverra. Vestibulum feugiat
lectus a nisl pulvinar, in tempor metus eleifend. Nunc id odio quam. Praesent egestas lorem ut
sollicitudin consectetur. Vestibulum id bibendum est. Ut vel lacus sapien. Quisque eget molestie
sem. Integer eget purus eu orci molestie aliquam quis in ante. Integer a magna eget lectus finibus
porttitor. Donec fringilla sapien a quam aliquet, pellentesque blandit nisl placerat. Nam hendrerit
velit vel ex aliquam, eget convallis ante mollis....end
endtext
this.tooltipText=m.myvar
thisform.showTips=.t.
ENDPROC
ENDDEFINE
