Hi all,

I'm try to use scrolled containner by Alex Grigorjev and getting some weird behavior (image attached)

here is a summary of the code

Thisform.LockScreen = .T.
LockWindowUpdate(Thisform.HWnd)
With This.cntEspera._scrollcontainer1.clientarea
	thisform.clearall()
	Select cur_mycursor
	SCAN
		lcObjName = "cntBoxProd" + ALLTRIM(cur_preffila.creferencia)
		.Newobject( m.lcObjName, "boxnew_fila_produto", _Screen.cClass_library)
		loObj = Evaluate( "." + m.lcObjName)
		If  Type( "loObj") = "O" And !Isnull( m.loObj)
			loObj.set_data( Alltrim(cur_preffila.cdescricao), cur_preffila.creferencia, cur_preffila.nqtd, cur_preffila.nmed, cur_preffila.cultdt, cur_preffila.p_blank)
			loObj.Top	= m.lnLinha - 2
			loObj.Left	= m.lnCol
			m.lnCol		= m.lnCol + loObj.Width + 5
		Endif
		loObj.Visible = .T.

		lnbase = loTemp.Top + loTemp.Height + 600

		If  .Height < lnbase
			This.cntEspera._scrollcontainer1.viewFrame.Height			 = lnbase
			This.cntEspera._scrollcontainer1.viewFrame.clientarea.Height = lnbase
		Endif
	Endscan
endwith
LockWindowUpdate(0)
Thisform.LockScreen						 = .F.
Thisform.Refresh

Anyone with experience on it's use? Or could advise a better container with scroll?

TIA

Cláudio