iOS Question CustomListview Problems

jahswant

Well-Known Member
Licensed User
Longtime User
Erel said:
Declare all CustomListViews as process global variables and they will work properly.
Click to expand...
I think i don't understand this very well.

I need to make something like this.

B4X: 
Sub ListViewCats_ItemClick (Index As Int, Value As Object)
    Reader.Concerned = PG.Title
    Reader.Subcat = Value
    Reader.Show
End Sub

This is my show code in reader

B4X: 
Public Sub Show
    Main.NavControl.ToolBarVisible = False
    btnBack.InitializeText("Previous","Previous")
    If PG.IsInitialized = False Then
        PG.Initialize("PG")
        PG.RootPanel.LoadLayout("mainreader")
        PG.RootPanel.Color = Colors.White
        pnlContent.LoadLayout("readerlayout")
        PG.HideBackButton = True
    End If
  
    Main.NavControl.ShowPage(PG)
   
     ListViewCats.Clear

    PG.Title = "Learn Arabic" & " V " & Utils.GetVersion
  
    lblMenu.Text = Concerned
  
    lblSousMenu.Text = Subcat
  
    Timer1.Initialize("Timer1",1)
      
    ImageView1.Bitmap = Utils.ResizeImage (LoadBitmap(File.DirAssets,"play.png"),ImageView1.Width,ImageView1.Height)
  
    FillListView(Concerned,Subcat)
End Sub

First time it displays correctly but when i come for the second time.Items are not displayed correctly and the third time items are not visible at all.What are the best practices when you have to do such actions ?
 
Sort by date Sort by votes

jahswant

Well-Known Member
Licensed User
Longtime User
Erel said:
See point #2 in my previous post.
Click to expand...
Look. i've called my subs in page resize event. didn't solve.
Then i changed layout values to plain figures didn't solve too.
What are best practices when you have to do such things ?
 
Upvote 0

Erel

B4X founder
Staff member
Licensed User
Longtime User
This code works:
B4X: 
Sub FillListView(WithConcerned As String)
  ListViewCats.Clear
   Dim SQL As  SQL = Utils.OpenDatabase("learnarabic.db",False)
   Dim RS As ResultSet
   ListViewCats.GetBase.Color = Colors.White
   RS = SQL.ExecQuery("SELECT * FROM Arabic_Categories where categories = '"& WithConcerned&"'")
   Do While RS.NextRow
   Dim MyPanel As Panel
   MyPanel.Initialize("")
   MyPanel = CreateListItem( RS.GetString("english_word"),"("&RS.GetString("transliteration_word")&")",RS.GetString("arabic_word"),ListViewCats.GetBase.Width, 30)
   Size = Size + 1
  ListViewCats.Add(MyPanel, 30,RS.GetString("id"))
   Log(RS.GetString("english_word")&RS.GetString("transliteration_word")&RS.GetString("arabic_word"))
   Loop
End Sub

Sub CreateListItem(ENText As String,TText As String,AText As String, Width As Int, Height As Int) As Panel
   Dim p As Panel
   p.Initialize("")
   p.SetLayoutAnimated(0, 1, 0, 0, Width, Height)
   p.LoadLayout("readerpnl1")
   lblEnglish.Text = ENText
   lblTrans.Text  = TText
   lblArabic.Text = AText
   Return p
End Sub
 
Upvote 0
You must log in or register to reply here.

Similar Threads

D
  • Question
iOS Question Tableview issue
Replies
1
Views
912
Erel
  • Question
iOS Question Error reading layout file
Replies
6
Views
3K
cirollo
  • Question
iOS Question Problem iSideMenu / CustomListView ?
Replies
4
Views
2K
MarcoRome
B
Bug? Managing Pages with and without Toolbar
Replies
3
Views
1K
Erel
  • Question
iOS Question ShowPage method in Module Layout Issue
Replies
2
Views
1K
Mashiane
Menu
Log in
Register
Cookies are required to use this site. You must accept them to continue using the site. Learn more…