فیت پنل با لیبل

[sourse 82]

سلام دوستان میدونم راجبش زیاد بحث شده توی انجمن ولی نتونسم فیت کنم

اگه دوستان کسی بتونه سورس رو پیوست کردم هم اندازه کنه لیبل و پنل رو

http://s5.picofile.com/file/8220578084/basic_4_android_Copy.rar.html

[sourse 82]

کسی نتونست 

این کد هامه لاقل بگید چیکار کنم ؟

اموزش json رو خریدم ولی هنگام دریافت پنل با لیبل هماهنگ نمیشه 

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("lmain")
	h.Initialize("httpjob1",Me)
	h.Download("http://droidhelp.ir/azad2/read.php")
	lbl_show.Typeface = Typeface.LoadFromAssets("Segoe UI.ttf")
	lbl_show.text=""
	btn_info.Typeface =  Typeface.LoadFromAssets("BYekan+.ttf")
	btn_info.TextSize = 20
End Sub
Sub Activity_Resume

End Sub
Sub Activity_Pause (UserClosed As Boolean)

End Sub
Sub jobdone (job1 As HttpJob)
If job1.Success Then
	If job1.JobName ="httpjob1" Then
		Dim parser As JSONParser
		parser.Initialize(job1.GetString)
		Dim listdat As List
		listdat.Initialize
		listdat = parser.NextArray
		For Each mapdata As Map In listdat
		Dim p As Panel
		p.Initialize("p")
		sv.Panel.AddView(p,1%x,top,sv.Width,sv.Height)
		top = top+20%y
		p.LoadLayout("scrll")
		idlbl.Text=mapdata.Get("id")
		xabarlbl.Text=mapdata.Get("xabar")
		xabarlbl.Typeface = Typeface.LoadFromAssets("Segoe UI.ttf")
		Next
		
		sv.Panel.Height = top 
		
		
	End If
End If
End Sub