Hello ;
I used your sliding panels. it is very good.
I added in tabs "control list view". so, it is not sliding with tabs.
1.steps: run app
2.steps : sliding with tabs cheked . its runnig
3.steps: click button "create list" on Panel2
4.steps: sliding with tabs cheked, so list is not move.
our full sample code is attachemnt.
where is the problem.
Note : ı used costum list view links
https://www.b4x.com/android/forum/t...ew-a-flexible-list-based-on-scrollview.19567/
i used acrtionbar sliding links:
https://www.b4x.com/android/forum/threads/actionbar-sliding-pages-tutorial.36865/#post-350067
full sample project
You can download it from address: http://s000.tinyupload.com/?file_id=04389155563947391584
screenshots:
'*************libraries****************
' contetn resolver
' CORe
' SQL
' stdActionbar
' stringutils
'*************libraries****************
...
I used your sliding panels. it is very good.
I added in tabs "control list view". so, it is not sliding with tabs.
1.steps: run app
2.steps : sliding with tabs cheked . its runnig
3.steps: click button "create list" on Panel2
4.steps: sliding with tabs cheked, so list is not move.
our full sample code is attachemnt.
where is the problem.
Note : ı used costum list view links
https://www.b4x.com/android/forum/t...ew-a-flexible-list-based-on-scrollview.19567/
i used acrtionbar sliding links:
https://www.b4x.com/android/forum/threads/actionbar-sliding-pages-tutorial.36865/#post-350067
full sample project
You can download it from address: http://s000.tinyupload.com/?file_id=04389155563947391584
screenshots:
'*************libraries****************
' contetn resolver
' CORe
' SQL
' stdActionbar
' stringutils
'*************libraries****************
B4X:
Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then
'sh.Initialize
cu.Initialize
End If
Dim height As Int = CalculateHeight(True, True)
vp.Initialize("vp", 3, 100%x, height)
Activity.AddView(vp.AsView, 0, 0, 100%x, height)
'load the pages layouts
vp.Panels(0).LoadLayout("0")
vp.Panels(1).LoadLayout("1")
vp.Panels(2).LoadLayout("2")
bar.Initialize("bar")
'bar.Icon = LoadBitmap(File.DirAssets, "giris.png")
bar.NavigationMode = bar.NAVIGATION_MODE_TABS
bar.AddTab("panel 0")
bar.AddTab("panel 1")
bar.AddTab("panel 2")
bar.ShowUpIndicator = False' True
bar.SelectedIndex = currentPage
Activity.Title = "bu ana baslik"
bar.Subtitle = "alt balikta bu"
Activity.AddMenuItem3("", "mnuEdit", LoadBitmap(File.DirAssets, "ic_action_edit.png"), True)
Activity.AddMenuItem3("", "mnuNew", LoadBitmap(File.DirAssets, "ic_action_new.png"), True)
Activity.AddMenuItem3("", "mnuUndo", LoadBitmap(File.DirAssets, "ic_action_undo.png"), True)
Activity.AddMenuItem3("Home", "ActionHome", LoadBitmap(File.DirAssets, "ic_action_undo.png"), True)
Activity.AddMenuItem3("Search", "ActionSearch", LoadBitmap(File.DirAssets, "ic_action_undo.png"), True)
End Sub
...
B4X:
Sub Button1_Click
' cretae phobne list
Rehber_yukleme
End Sub
Sub Rehber_yukleme
'********************* SMS GÖNDERME VE ARAMA *****************************************
'Dim xcall As PhoneCalls
'Dim xsms As PhoneSms
'xsms.Send("+905335135121","2 sistemm çalıstı")
'Dim sonuc As PhoneEvents
'sonuc.Initialize("PE")
'StartActivity( xcall.Call("02127711379"))
'********************* SMS GÖNDERME VE ARAMA *****************************************
'clv3.Initialize(Me, "clv3")
clv3.Initialize(Me,"clv3")
'clv3.Initialize(Panel_rehber,"clv3")
'clv3.Initialize(vp.Panels(1),"clv3")
Activity.AddView(clv3.AsView,0,Button1.Height , 100%x*0.90,100%y-Button1.Height-10)
Dim reh_list As List
reh_list.Initialize
reh_list.Clear
Dim adet As Int=cu.FindAllContacts(True).Size
DoEvents
Log (cu.FindAllContacts(True).Size)
DoEvents
Dim i As Int=0
For Each c As cuContact In cu.FindAllContacts(True)
reh_list.Clear
For Each phone As cuPhone In cu.GetPhones(c.Id)
'sb.Append(phone.Number & ", " & phone.PhoneType).Append(CRLF)
reh_list.Add(phone.Number)
Next
i=i+1
'clv3.Add(CreateListItem2( Rehber(i).isim, clv3.AsView.Width, 38dip,Rehber(i).telefon,i), 38dip, Rehber(i).id )
DoEvents
clv3.Add(CreateListItem2( c.DisplayName, clv3.AsView.Width, 38dip, reh_list,i ), 38dip, c.Id)
'clv3.Add(CreateListItem2( Rehber(i).isim, clv3.AsView.Width, 38dip,Rehber(i).telefon,i), 38dip, Rehber(i).id )
Next
End Sub
Sub CreateListItem2(Text As String, Width As Int, Height As Int, phonelist As List, index As Int) As Panel
Dim p As Panel
p.Initialize("")
p.Color = Colors.Black
Dim b As Button
b.Initialize("button") 'all buttons click events will be handled with Sub Button_Click
Dim chk As CheckBox
chk.Initialize("chk")
Dim lbl As Label
lbl.Initialize("etiket")
Dim spn As Spinner
Dim spn2 As Spinner
spn.Initialize("spn")
spn2.Initialize("spn2")
spn.AddAll(phonelist)
spn2.AddAll(Array As String("< YOK >","bey","hanım"))
lbl.Gravity = Bit.Or(Gravity.CENTER_VERTICAL, Gravity.LEFT)
lbl.Text = Text
lbl.TextSize = 16
lbl.TextColor = Colors.White
b.Text = "Click"
chk.Tag=index
spn2.Tag=index
spn.Tag=index
p.AddView(chk, 5dip, 2dip, 50dip, Height - 4dip) 'view #0
p.AddView(lbl, 55dip, 2dip, 165dip, Height - 4dip) 'view #1
p.AddView(spn, 220dip, 2dip, 170dip, Height - 4dip) 'view #2
p.AddView(spn2, 390dip, 2dip, 150dip, Height - 4dip) 'view #3
Return p
end sub