Observed : when you Anchor a Pageframe, and resize the container,
Pageframe can to be displays incorrectly

Expected : the pageframe have to be displays properly

Code: you execute and wait

- you can resize the form and see the problem, also manually.

PUBLIC oform1

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

DEFINE CLASS form1 AS form

	Height = 200
	Width = 300
	DoCreate = .T.
	AutoCenter = .T.
	Caption = "Form1"
	BackColor = RGB(0,255,0)
	Name = "Form1"


	ADD OBJECT pageframe1 AS pageframe WITH ;
		ErasePage = .T., ;
		PageCount = 2, ;
		Anchor = 15, ;
		Top = 80, ;
		Left = 18, ;
		Width = 127, ;
		Height = 84, ;
		Name = "Pageframe1", ;
		Page1.FontSize = 13, ;
		Page1.Caption = "Page1", ;
		Page1.Name = "Page1", ;
		Page2.Caption = "Page2", ;
		Page2.Name = "Page2"


	ADD OBJECT pageframe2 AS pageframe WITH ;
		ErasePage = .T., ;
		PageCount = 3, ;
		Anchor = 15, ;
		Top = 12, ;
		Left = 156, ;
		Width = 138, ;
		Height = 84, ;
		Name = "Pageframe2", ;
		Page1.FontSize = 13, ;
		Page1.Caption = "Page1", ;
		Page1.Name = "Page1", ;
		Page2.Caption = "Page2", ;
		Page2.Name = "Page2", ;
		Page3.Caption = "Page3", ;
		Page3.Name = "Page3"


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


	PROCEDURE Init
		thisform.height = 130
	ENDPROC


	PROCEDURE Click
		FOR k=200 TO 400 STEP 4
			=CHRSAW(0.1)
			DOEVENTS
			thisform.width  = m.k
		next
	ENDPROC


	PROCEDURE Timer1.Timer
		this.Enabled = .f.
		thisform.click
	ENDPROC


ENDDEFINE