I'm probably missing something, but when I add a panel & some buttons, dispose of them all & then call the routines again I get the button_click sub called twice. Debugging shows that there is no detour between endsub & the first statement of the same sub.
Bug in B4PPC or in my programming??
Called from an imagebutton:
(Prefstable has 4 locations, one hardcoded as "All")
Code:
Sub OtherButton_ButtonDown
AddPanel("Main", "OtherPanel", 10, 10 ,225, 255)
spacer=10
ButtonHeight=(Otherpanel.Height-((PrefsTable.rowcount+1)*spacer))/PrefsTable.rowcount
Buttonwidth=Otherpanel.Width-(2*spacer)
For i = 0 To prefstable.rowcount-1
AddButton("OtherPanel", Prefstable.cell("Location",i)&"Button",spacer,((i+1)*spacer)+(i*buttonheight),ButtonWidth, ButtonHeight,Prefstable.cell("Location",i))
'AddEvent (Control Name, Event Name, Sub Name)
AddEvent (Prefstable.cell("Location",i)&"Button", Click, "SetFilter")
Next
Otherpanel.bringtofront
End Sub
Calls this:
Code:
Sub SetFilter
If Sender.text="All" Then
jobtable.Filter("Done=''")
Else
jobtable.Filter("Location='"&Sender.text&"'")
End If
jobtable.SelectCell("index",0)
For i = 0 To prefstable.rowcount-1
Control(Prefstable.cell("Location",i)&"Button", button).dispose
Next
Otherpanel.dispose
End Sub
Which repeats twice on the second call (button click) & errors because the sender doesn't exist for the second loop through the sub. Curiously, there are only 2 loops if I opt to continue after the error.
AddEvent but no RemoveEvent??
Linear Mode
