> ADD OBJECT text1 AS textbox WITH ; > Value = "www.microcomplex.com", ; > Height = 39, ; > Left = 46, ; > Top = 66, ; > Width = 317, ; > EnableHyperlinks = .T., ; > SelectedBackColor = RGB(255,0,0), ; > Themes = .T., ; > Name = "Text1" > > ADD OBJECT command1 AS mycommandbutton WITH ; > Top = 163, ; > Left = 110, ; > Height = 28, ; > Width = 166, ; > Caption = "Command1", ; > Name = "Command1" >ENDDEFINE >DEFINE CLASS mycommandbutton as CommandButton >FUNCTION Click > this.Parent.text1.EnableHyperLinks = not this.Parent.text1.EnableHyperLinks >ENDFUNC >ENDDEFINE>
>>PUBLIC oform1 >>oform1=NEWOBJECT("form1") >>oform1.Show >>RETURN >>************************************************* >>*-- ParentClass: form >>*-- BaseClass: form >>*-- Time Stamp: 06/26/07 08:35:14 PM >>* >>DEFINE CLASS form1 AS form >> DoCreate = .T. >> Caption = "Form1" >> Themes = .F. >> Name = "Form1" >> >> ADD OBJECT text1 AS textbox WITH ; >> Value = "www.microcomplex.com", ; >> Height = 39, ; >> Left = 46, ; >> Top = 66, ; >> Width = 317, ; >> EnableHyperlinks = .T., ; >> SelectedBackColor = RGB(0,0,0), ; >> Themes = .T., ; >> Name = "Text1" >> >> ADD OBJECT command1 AS commandbutton WITH ; >> Top = 163, ; >> Left = 110, ; >> Height = 28, ; >> Width = 166, ; >> Caption = "Command1", ; >> Name = "Command1" >>ENDDEFINE >>* >>*-- EndDefine: form1 >>************************************************** >>>>