Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
BUG1: PageFrame add 4 to Height
Message
 
 
To
16/05/2003 09:11:26
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
00789180
Message ID:
00789185
Views:
27
Hi Fabio,

Check if it the same as described in [BUG] - PageFrame Rendering Message #784296 ?

Btw, you can use < pre > and < /pre > tags ( no spaces ) to preserve code formatting and make it more readeable.

>Hi
>
>Run this Code:
>
>PUBLIC oform1
>oform1=NEWOBJECT("form1")
>oform1.Show
>RETURN
>
>DEFINE CLASS form1 AS form
>
>	AutoCenter = .T.
>	Height = 600
>	Width = 600
>	Caption = "Bug1 Pageframe"
>	Name = "Form1"
>
>	ADD OBJECT cnt1 AS cnt WITH ;
>		Top = 168, ;
>		Left = 49, ;
>		Width = 240, ;
>		Height = 179, ;
>		Name = "Cnt1", ;
>		Pageframe1.Height = 144,;
>		Pageframe1.Page1.Name = "Page1", ;
>		Pageframe1.Page2.Name = "Page2", ;
>		Pageframe1.Name = "Pageframe1"
>
>	PROCEDURE cnt1.Pageframe1.Init
>		MESSAGEBOX(THIS.Name+" HEIGHT ="+TRANSFORM(this.Height);
>						+" WIDTH ="+TRANSFORM(this.width))
>	ENDPROC
>
>
>ENDDEFINE
>
>DEFINE CLASS cnt AS container
>
>	Name = "cnt"
>
>	ADD OBJECT pageframe1 AS pageframe WITH ;
>		TabOrientation = 0,;
>		PageCount = 2, ;
>		Top = 14, ;
>		Left = 18, ;
>		Width = 123, ;
>		Height = 123, ;
>		Name = "Pageframe1", ;
>		Page1.Caption = "Page1", ;
>		Page1.Name = "Page1", ;
>		Page2.Caption = "Page2", ;
>		Page2.Name = "Page2"
>
>ENDDEFINE
>You see pageframe Height isn't 144, but 148.
>
>Fabio
--sb--
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform