Sub LoadReminders
Dim InsideTabWidth As Int
InsideTabWidth = Activity.Width - tabsInsideMargin*2 ' margin on the left and on the right
Dim InsideTabHeight As Int
InsideTabHeight = Activity.Height - 60dip
Msgbox(InsideTabWidth, "InsideTabWidth")
Dim p As Panel
p.Initialize("PanelReminder")
p.LoadLayout("ReminderListPanel")
p.Tag = "1"
svReminders.Panel.AddView(p, 0, 0, InsideTabWidth, 88dip)
Dim p As Panel
p.Initialize("PanelReminder")
p.LoadLayout("ReminderListPanel")
p.Tag = "2"
svReminders.Panel.AddView(p, 0, 1*90dip, InsideTabWidth, 88dip)
End Sub
Sub PanelReminder_Click
Dim p As Panel
p = Sender
Msgbox(p.Tag, "PanelReminder")
End Sub