Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
BUG: SelectedBackcolor for textbox with EnableHyperlinks
Message
General information
Forum:
Visual FoxPro
Category:
Classes - VCX
Environment versions
Visual FoxPro:
VFP 9 SP1
OS:
Windows XP SP2
Miscellaneous
Thread ID:
01235547
Message ID:
01236735
Views:
18
I found that SelectedBackcolor is not the only problem. ForeColor is another property being locked (always back).

My current workaround is setting EnableHyperlinks to .T. on MouseEnter and reverting to .F. on MouseLeave. It is not perfect but solves some of my problem. Please let me know if can you think of a better solution.
_vfp.EditorOptions='LQTk'

o=CreateObject('form1')
o.Show(1)

Define Class form1 As Form
	Height = 154
	Width = 267

	Add Object edit1 As EditBox With ;
		Anchor = 240, ;
		Height = 53, ;
		Left = 12, ;
		Top = 12, ;
		Width = 240, ;
		EnableHyperlinks = .T., ;
		ForeColor = Rgb(255,0,0), ;
		Value = "Click here: http://www.welkin.com.hk (EnableHyperlinks=.T. -> RED can't be shown)"

	Add Object edit2 As EditBox With ;
		Anchor = 240, ;
		Height = 53, ;
		Left = 12, ;
		Top = 84, ;
		Width = 240, ;
		ForeColor = Rgb(255,0,0), ;
		Value = "Click here: http://www.welkin.com.hk (On-Mouse-Enter/Leave Programmed)"

	Procedure edit2.MouseLeave
	Lparameters nButton, nShift, nXCoord, nYCoord
	This.EnableHyperlinks=.F.

	Procedure edit2.MouseEnter
	Lparameters nButton, nShift, nXCoord, nYCoord
	This.EnableHyperlinks=.T.
EndDefine
>When EnableHyperlinks is true in a textbox, the SelectedBackcolor becomes always black. Anybody knows how to set it to a specific color?
>
>Ben
Previous
Reply
Map
View

Click here to load this message in the networking platform