Hi BB,
I tryed
with
Themes = .F.
SelectOnEntry = .t.
SelectedBackColor = RGB(255,0,0), ;
but the result is the same.
Take a look at message#
1235756.
>Try with:
>
>PUBLIC oform1
>oform1=NEWOBJECT("form1")
>oform1.Show
>RETURN
>
>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, ;
> SelectOnEntry = .t.,;
> EnableHyperlinks = .T., ;
> SelectedBackColor = RGB(255,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
>**************************************************
>>and select the text in the TextBox.
_______________________________________________________________
Testing displays the presence, not the absence of bugs.
If a software application has to be designed, it has to be designed correctly!
_______________________________________________________________
Vladimir Zografski
Systems Analyst
