Hi,
I created a class with a custom panel and I want to showing the panel when i click the table cell
This is a sample of my code :
In MAIN
in CLASS PilihRT
But it always stop at Panel1.LoadLayout("PilihTerapis")
Sorry for very newbie question....
Please help....
Thank You...
I created a class with a custom panel and I want to showing the panel when i click the table cell
This is a sample of my code :
In MAIN
B4X:
Sub Globals
Private dbtable As Table
Private dipilih As PilihRT
End Sub
Sub Activity_Create(FirstTime As Boolean)
dbtable.Initialize(Me,"dbtable",5)
dbtable.AddToActivity(Activity,0,0dip,100%x,80%y)
dbtable.HeaderColor=Colors.Blue
dbtable.HeaderFontColor=Colors.White
dbtable.SetHeader(Array As String("Loker","Customer","Room","Terapis","Waktu"))
dipilih.Initialize
End Sub
Sub dbtable_CellClick(Col As Int, Row As Int)
dipilih.Show
End Sub
in CLASS PilihRT
B4X:
Sub Class_Globals
Private Room As Spinner
Private Terapis As Spinner
Private BtnWaktu As Button
Private BtnCancel As Button
Private BtnOK As Button
Private Panel1 As Panel
End Sub
Public Sub Initialize
End Sub
Public Sub Show
Panel1.LoadLayout("PilihTerapis")
Panel1.SetVisibleAnimated(500,True)
End Sub
But it always stop at Panel1.LoadLayout("PilihTerapis")
Sorry for very newbie question....
Please help....
Thank You...