Observed : when Pageframe.Height minor of 3 the pageframe bottom border is draw above the tabs

Expected : the pageframe have to be displays properly.

Code: you execute and watches

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 = 74, ;
		Left = 20, ;
		Width = 241, ;
		Height = 169, ;
		Name = "Pageframe1", ;
		Page1.Caption = "Page1", ;
		Page1.Name = "Page1", ;
		Page2.Caption = "Page2", ;
		Page2.Name = "Page2"


	ADD OBJECT label1 AS label WITH ;
		AutoSize = .T., ;
		FontBold = .T., ;
		FontName = "Wingdings", ;
		FontSize = 24, ;
		Caption = "Ê", ;
		Height = 38, ;
		Left = 178, ;
		Top = 30, ;
		Width = 37, ;
		ForeColor = RGB(255,0,0), ;
		BackColor = RGB(255,255,0), ;
		Name = "Label1"


	PROCEDURE Init
		WITH thisform.pageframe1
			.Move(.left,.top,.width,1)
		endwith
	ENDPROC


ENDDEFINE