Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
BUG2: PageFrame TabOrientation resize Height/Width
Message
 
 
To
16/05/2003 09:14:26
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
00789182
Message ID:
00789196
Views:
24
Hi Fabio,

Looks like VFP builds pageframe with specified height and width and than adjusts height and width of the pageframe by the height of the tabs. Seems like a bug to me.

>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 = 2,;
		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 121 ( 144 -23 BUG2),
>and Width is 150 = ( 123 + 23 BUG2 + 4 see my BUG1 post).
>
>Fabio
--sb--
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform