>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 >* >*-- EndDefine: form1 >