iOS Question change position of label

gjoisa

Active Member
Licensed User
Longtime User
Re positioning of labels required and this code works fine on B4A . Bu does not change in B4i .
B4X:
Private lblG(12) As Label
Private lblbd As Label
    Private lblch As Label
    Private lblgr As Label
    Private lblkj As Label
    Private lblkt As Label
    Private lbllg As Label
    Private lblmd As Label
    Private lblrh As Label
    Private lblrv As Label
    Private lblsk As Label
    Private lblsn As Label
and this line in Application start
B4X:
lblG = Array As Label(lbllg,lblrv,lblch,lblkj,lblbd,lblgr,lblsk,lblsn,lblrh,lblkt,lblmd)
and this is in sub which is called
B4X:
xPos = Array As Int(24%x,48%x,72%x,72%x,72%x,72%x,48%x,24%x,2%x,2%x,2%x,2%x)
    yPos = Array As Int(1%x,1%x,1%x,23%x,47%x,71%x,71%x,71%x,71%x,47%x,23%x,1%x)
    RasiX = Array As Int(1%x,15%x,1%x,15%x,7%x,7%x,7%x,1%x,15%x)
    RasiY = Array As Int(1%x,1%x,18%x,18%x,12%x,1%x,18%x,12%x,12%x)

num = FindNavamsa(Main.Pl(0)):RaPo(GName(0),num)
    num = FindNavamsa(Main.Pl(1)):RaPo(GName(1),num)
    num = FindNavamsa(Main.Pl(2)):RaPo(GName(2),num)
    num = FindNavamsa(Main.Pl(3)):RaPo(GName(3),num)
    num = FindNavamsa(Main.Pl(4)):RaPo(GName(4),num)
    num = FindNavamsa(Main.Pl(5)):RaPo(GName(5),num)
    num = FindNavamsa(Main.Pl(6)):RaPo(GName(6),num)
    num = FindNavamsa(Main.Pl(7)):RaPo(GName(7),num)
    num = FindNavamsa(Main.Pl(8)):RaPo(GName(8),num)
    num = FindNavamsa(Main.Pl(9)):RaPo(GName(9),num)
    num = FindNavamsa(Main.Pl(10)):RaPo(GName(10),num)
    For i = 1 To r1
      lp = xPos(0) + RasiX(i - 1)
      tp = yPos(0) + RasiY(i - 1)
      lblG(ind).Left = lp
      lblG(ind).Top = tp
      lblG(ind).Text = mes(i)
      ind = ind + 1
    Next
and so on . But does not work on B4i .
 
Top