Re positioning of labels required and this code works fine on B4A . Bu does not change in B4i .
and this line in Application start
and this is in sub which is called
and so on . But does not work on 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
B4X:
lblG = Array As Label(lbllg,lblrv,lblch,lblkj,lblbd,lblgr,lblsk,lblsn,lblrh,lblkt,lblmd)
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