Dim SV As ScrollView
Dim QuickAction As AHQuickAction
For ligne = 0 To List1.Size - 1
Dim Lab1, Lab2 As Label
Lab1.Initialize("") : Lab2.Initialize("")
|
bla bla bla
|
Dim Pan As Panel
Pan.Initialize("")
Pan.AddView(Lab1, 15dip, 5dip, 250dip, 20dip)
Pan.AddView(Lab2, 15dip, 28dip, 250dip, 20dip)
SV.Panel.AddView(Pan, 0, 60dip * ligne, SV.Width - 12, 56dip)
Next
SV.Panel.Height = List1.Size * 60dip
Sub Pan_Click
Dim Panneau As Panel
Panneau = Sender
QuickAction.show(Panneau)
Index_Item = Panneau.Tag
End Sub