iOS Question CustomListview Problems

[jahswant]

Declare all CustomListViews as process global variables and they will work properly.

I think i don't understand this very well.

I need to make something like this.

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

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 ?

 

[Erel]

Can you upload the project (File - Export as zip)?

 

[jahswant]

Can you upload the project (File - Export as zip)?

The project is a little bit heavy i sent you via your mail account [email protected] .

 

[Erel]

I'm sorry but you will need to reproduce it in a small project and upload the project.

 

[jahswant]

I'm sorry but you will need to reproduce it in a small project and upload the project.

Done now.

 

[Erel]

1. Use anchors in all the layouts:

2. The problem is here:

ListViewCats.Add(MyPanel, 25%y,RS.GetString("id"))

You can only use percentage units inside Page_Resize event.

If you are showing text items then you can use AddTextItem.

 

[jahswant]

1. Use anchors in all the layouts:

While keeping my designer scripts ?

 

[Erel]

While keeping my designer scripts ?

I didn't see them. Designer script is also good.

 

[jahswant]

Use anchors in all the layouts:

Didn't solve my issue.

 

[Erel]

See point #2 in my previous post.

 

[jahswant]

See point #2 in my previous post.

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 ?

 

[Erel]

This code works:

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

 

[jahswant]

This code works:

Solved.
Thanks for your interest to my question.