Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Label with Windows background
Message
De
06/08/2004 08:58:25
 
 
À
05/08/2004 18:21:23
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Divers
Thread ID:
00928846
Message ID:
00931269
Vues:
32

Try setting the Style property of the Container to 3 - Themed. This works for me in VFP8 or VFP9 beta, after I do that the label has the expected backcolor.


Sorry Jim, of course i has set Container.Style = Themed.

Run this, i see Label's back color still fixed to the Form backcolor :
PUBLIC oform1

oform1=NEWOBJECT("form1")
oform1.Show
RETURN

DEFINE CLASS form1 AS form

	Height = 194
	Width = 339
	DoCreate = .T.
	Caption = "Form1"
	BackColor = RGB(255,0,0)

	PROCEDURE Resize
		WITH this.Pageframe1
			.move(10,10,.Parent.Width-20,.Parent.height-20)
			WITH .Page1.Container1
				.Style = 3
				.move(10,10,.Parent.Parent.PageWidth-20,.Parent.Parent.Pageheight-20)
				.Label1.move(10,10,.Width-20,.height-20)
			ENDWITH
		ENDWITH
	ENDPROC


	PROCEDURE Init
		this.AddObject('pageFrame1','pageframe')
		WITH this.Pageframe1
			.PageCount = 1
			WITH .Page1
				.AddObject('Container1','container')
				WITH .Container1
                                        .Style = 3  && <== Container is themed
					.AddObject('Label1','label')
					.Label1.Style = 3 && <== Label is themed
				ENDWITH
			ENDWITH
		ENDWITH
		this.SetAll('Visible',.T.)
		this.Resize
	ENDPROC

ENDDEFINE
Thanks,
Fabio
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform