B4X FEED CLV VisibleRangeChanged, how to add panel height

[PracticalBot]

Dear

I have try too using

برای دیدن لینک ها باید ثبت نام کنید

, but i have some problem with panel height.
The panel item in CLV didn't load full page.

My code like this

Private Sub clvhistory_VisibleRangeChanged (FirstIndex As Int, LastIndex As Int)
For Each i As Int In Pclvhistory.VisibleRangeChanged(FirstIndex, LastIndex)
Dim item As CLVItem = clvhistory.GetRawListItem(i)
Dim pnl As B4XView = xui.CreatePanel("" )
'Dim pnl As Panel
item.Panel.AddView(pnl , 0, 0, item.Panel.Width, item.Panel.Height)
pnl.LoadLayout("pgmenuhistoryitem")
Dim ItemHistory1 As ItemHistory
ItemHistory1 =item.Value
lblmenuhistoryitem_no.Text =ItemHistory1.nobaris
Next
End Sub
Click to expand...

I had try add height in panel height like this

item.Panel.AddView(pnl , 0, 0, item.Panel.Width, item.Panel.Height+200)
Click to expand...

but this not make any change in my view

this the result

برای دیدن تصاویر باید ثبت نام کنید

Anyone know how to solve this panel height...

برای دیدن لینک ها باید ثبت نام کنید

برای دیدن لینک ها باید ثبت نام کنید