Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Label with Windows background
Message
De
06/08/2004 11:27:26
 
 
À
06/08/2004 08:58:25
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Divers
Thread ID:
00928846
Message ID:
00931331
Vues:
27
My code also sets the backstyle of the container to 0 - transparent. Try this:
WITH .Page1.Container1
	.Style = 3
	.backstyle = 0    && add this
	.move(10,10,.Parent.Parent.PageWidth-20,.Parent.Parent.Pageheight-20)
	.Label1.move(10,10,.Width-20,.height-20)
ENDWITH
>
>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
Jim Saunders
Microsoft
This posting is provided “AS IS”, with no warranties, and confers no rights.
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform