Sub Carrega_PedidosEnviados
scConteudoPrincipal.Panel.RemoveAllViews
scConteudoPrincipal.Panel.Height = 100%y
scConteudoPrincipal.Panel.LoadLayout("pedidosEnviados")
pFundoPrincipal.Height = 100%y
scConteudoPrincipal.Panel.Height = pFundoPrincipal.Height
lbTituloActionBar.Text = "PEDIDOS ENVIADOS"
For i = 1 To 10000
Dim cd As DataClvPedidosEnviados
cd.Initialize
cd.titulo = "Farol direito Palio Weekend 2010"
cd.desc = "Farol lado do passageiro da Palio Weekend ELX..."
cd.numeroPedido = "Pedido: 10536"
cd.hora = "25/02/2018 15:35"
If i Mod 2 == 0 Then
cd.cor = 0xFFafafaf
Else
cd.cor = 0xFF8b8b8b
End If
Dim p As B4XView = xui.CreatePanel("")
p.SetLayoutAnimated(0, 0, 0, clvPedidosEnviados.AsView.Width, 15%y)
clvPedidosEnviados.Add(p, cd)
Next
pPrincipal.Visible = True
End Sub