مشکل مشکل در کتابخانه فراخوانی

[محمد معین عبدی 255]

سلان خدمت دوستان عزیز

من واسه نرم افزارم از کتابخانه فراخوانی استفاده کردم  و خواستم متن رو زیر عکس قرار بدم ولی وقتی فراخوان میشه از دیتابیس، کلا به هم میریزه وعکس روی متن قرار میگیره و اسکرول نمیشه 

اینم هم کد ها واسه راهنمایی دوستان :

Sub Globals
	Private btnbk As Button
	Private lbltot As Label
	Private sct As ScrollView
	Dim fo As Typeface
	Dim mt As Farakhani
	Dim sql1 As SQL
	Dim cur As Cursor
	Dim ts As TextSetting
	Dim l1 As Label
	Dim a1 As ImageView
	Dim bt1 As Bitmap
	Dim a2 As ImageView
	Dim bt2 As Bitmap
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("tot")
	fo = Typeface.LoadFromAssets("font.TTF")
	btnbk.Typeface = fo
	lbltot.Typeface = fo
	tm1.Initialize("tm1",1200)
	mt.IsInitialized
	ts.Initialize
	l1.Initialize("")
	a1.Initialize("a1")
	a2.Initialize("a2")
	mt.FarakhaniMatn("leica.db",sql1,cur,"SELECT * FROM main Where id=","1",l1,"m&a")
	sct.Panel.AddView(l1,20,25,90%x,100%y)
	ts.LongText(l1,l1.Text,18,sct,1.5)
	l1.Typeface = fo
	l1.TextColor = Colors.Black
	mt.FarakhaniImage("leica.db", sql1,cur,"SELECT * FROM main Where id=","2","m&a",bt1)
	a1.Bitmap = bt1
	sct.Panel.AddView(a1,40,50,90%x,100%y)
	mt.FarakhaniImage("leica.db",sql1,cur,"SELECT * FROM main Where id=","3","m&a",bt2)
	a2.Bitmap = bt2
	sct.Panel.AddView(a2,60,75,90%x,100%y)
End Sub

 

عکس از برنامه :

http://s9.picofile.com/file/8267773292/Screenshot_۲۰۱۶۰۹۱۸_۰۹۲۳۲۹.png

 

دوستان لطفا راهنمایی کنید.