Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Label with Windows background
Message
From
06/08/2004 11:27:26
 
 
To
06/08/2004 08:58:25
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Miscellaneous
Thread ID:
00928846
Message ID:
00931331
Views:
31
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.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform