Private Sub AddMainProducts
Private Column,Row As Int
Private ImV As ImageView:ImV.Initialize("ImV")
Private Lv As Label:Lv.Initialize
For i=0 To MainProductList.Size-1
ImV=CallSub2(ParentObject,"GetMainIv",MainProductList.Get(i))
Lv=CallSub2(ParentObject,"GetMainLv",MainProductList.Get(i))
Column=CallSub2(ParentObject,"GetMainColum",MainProductList.Get(i))
Row=CallSub2(ParentObject,"GetMainRow",MainProductList.Get(i))
ScrlPage.Panel.AddView (ImV,Column,Row ,33%x,33%x)
ScrlPage.Panel.AddView (Lv,Column,Row+33%x,33%x ,22%x)
Next
End Sub