Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
BUG: SelectedBackcolor for textbox with EnableHyperlinks
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Classes - VCX
Versions des environnements
Visual FoxPro:
VFP 9 SP1
OS:
Windows XP SP2
Divers
Thread ID:
01235547
Message ID:
01236735
Vues:
17
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
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform