>Observed 2 : with TabOrientation 2 or 3, when the container width is changed,
>pageframe's tabs height are resized.
>
>Expected : the pageframe's Tabs they does not have to change if its container width is changed.
>

This issue also has nothing to do with the Anchor property. Here is the code that doesn't use the Anchor property, but the behavior is the same and it is the same in VFP8:


*********************************
PUBLIC oform1

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


DEFINE CLASS form1 AS form


DoCreate = .T.
Caption = "Form1"
Name = "Form1"


ADD OBJECT pageframe1 AS pageframe WITH ;
ErasePage = .T., ;
PageCount = 2, ;
Top = 36, ;
Left = 50, ;
Width = 241, ;
Height = 169, ;
TabOrientation = 2, ;
Name = "Pageframe1", ;
Page1.FontSize = 20, ;
Page1.Caption = "Page1", ;
Page1.Name = "Page1", ;
Page2.Caption = "Page2", ;
Page2.Name = "Page2"

ADD OBJECT timer1 AS timer WITH ;
Top = 8, ;
Left = 10, ;
Height = 23, ;
Width = 23, ;
Interval = 1000, ;
Name = "Timer1"

PROCEDURE Click
ACTIVATE SCREEN
FOR k=200 TO 280
=CHRSAW(0.1)
DOEVENTS
thisform.width = m.k
thisform.pageframe1.width = m.k-75
next
ENDPROC

PROCEDURE Timer1.Timer
this.Enabled = .f.
thisform.pageframe1.Height = 169
thisform.click
ENDPROC

ENDDEFINE
*********************************

Bottom line, we do not consider the described behavior as a BUG.

Thanks,
Aleksey.


I reproduce this is another mode, i hope in a more clear manner:

PUBLIC oform1

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

DEFINE CLASS form1 AS form

	Height = 442
	Width = 658
	DoCreate = .T.
	Caption = "Form1"
	Name = "Form1"


	ADD OBJECT pageframe1 AS pageframe WITH ;
		ErasePage = .T., ;
		PageCount = 2, ;
		ActivePage = 1, ;
		Top = 89, ;
		Left = 14, ;
		Width = 241, ;
		Height = 169, ;
		Name = "Pageframe1", ;
		Page1.FontSize = 20, ;
		Page1.Caption = "Page1", ;
		Page1.Name = "Page1", ;
		Page2.Caption = "Page2", ;
		Page2.Name = "Page2"


	ADD OBJECT pageframe2 AS pageframe WITH ;
		ErasePage = .T., ;
		PageCount = 2, ;
		Anchor = (0xF0), ;
		ActivePage = 1, ;
		Top = 94, ;
		Left = 324, ;
		Width = 200, ;
		Height = 169, ;
		TabOrientation = 2, ;
		Name = "Pageframe2", ;
		Page1.FontSize = 20, ;
		Page1.Caption = "Page1", ;
		Page1.Name = "Page1", ;
		Page2.Caption = "Page2", ;
		Page2.Name = "Page2"


	ADD OBJECT label1 AS label WITH ;
		AutoSize = .T., ;
		WordWrap = .T., ;
		Caption = "Compare the two pageframes when the tabs axis is resized:", ;
		Height = 17, ;
		Left = 12, ;
		Top = 20, ;
		Width = 328, ;
		ForeColor = RGB(0,128,192), ;
		BackColor = RGB(255,255,0), ;
		Name = "Label1"


	ADD OBJECT label2 AS label WITH ;
		AutoSize = .T., ;
		WordWrap = .T., ;
		Caption = "tabs sizes NOT CHANGE", ;
		Height = 17, ;
		Left = 72, ;
		Top = 70, ;
		Width = 138, ;
		ForeColor = RGB(0,128,192), ;
		BackColor = RGB(255,255,0), ;
		Name = "Label2"


	ADD OBJECT label3 AS label WITH ;
		AutoSize = .T., ;
		WordWrap = .T., ;
		Caption = "tabs sizes CHANGE", ;
		Height = 17, ;
		Left = 326, ;
		Top = 70, ;
		Width = 110, ;
		ForeColor = RGB(0,128,192), ;
		BackColor = RGB(255,255,0), ;
		Name = "Label3"


	ADD OBJECT shape1 AS shape WITH ;
		Top = 90, ;
		Left = 314, ;
		Height = 176, ;
		Width = 80, ;
		BackStyle = 0, ;
		BorderWidth = 2, ;
		Curvature = 99, ;
		BorderColor = RGB(255,0,0), ;
		Name = "Shape1"


	ADD OBJECT shape2 AS shape WITH ;
		Top = 88, ;
		Left = 14, ;
		Height = 64, ;
		Width = 240, ;
		BackStyle = 0, ;
		BorderWidth = 2, ;
		Curvature = 99, ;
		BorderColor = RGB(255,0,0), ;
		Name = "Shape2"


	PROCEDURE GotFocus
		this.Closable = .F.
		CHRSAW(1)
		FOR J=1 TO 3
			FOR k=100 TO 200
				thisform.Pageframe1.Height = m.k
				thisform.Pageframe2.Width  = m.k 
				=CHRSAW(0.01)
			ENDFOR
		NEXT
		this.Closable = .T.
	ENDPROC

	PROCEDURE Release
		NODEFAULT
	ENDPROC


ENDDEFINE

Is impossible that this is a expected behaviour.

Thanks
Fabio