اسکرول کردن متن

[MR.B4A 126]

سلام.

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

sv_label.Initialize2(xx,"sv_label")
		pnl_main.AddView(sv_label, 0, xx/20, xx, 100%y - xx/10)
		Dim r As Reflector
		r.Target = sv_label
		r.RunMethod2("setVerticalScrollBarEnabled", False, "java.lang.boolean")
		r.RunMethod2("setOverScrollMode", 2, "java.lang.int" )
	
		Dim lbl As Label
		lbl.Initialize("lbl")
		sv_label.Panel.addview(lbl, xx/20, 0, xx- xx/10,  xx- xx/10)
		lbl.Gravity = Gravity.CENTER

lbl.TextColor=Colors.White
	
		lbl.Text=cur_txt.GetString("txt")
		lbl.Text = lbl.Text.Replace("x","{BOL}{C}x{C}{BOL}")
		lbl.Text = lbl.Text.Replace("y","{BOL}{C}y{C}{BOL}")
		lbl.Text = lbl.Text.Replace("c","{BOL}{C}c{C}{BOL}")
		lbl.Text = lbl.Text.Replace("g","{BOL}{C}g{C}{BOL}")
		
		Dim rs As RichString
		rs.Initialize(lbl.Text)
		rs.Color2(Colors.Red, "{C}")
		rs.Style2(rs.STYLE_BOLD,"{BOL}")
		lbl.Text = rs
	
		Dim rowheight As Int = su.MeasureMultilineTextHeight(lbl, lbl.Text)
		Dim Obj1 As Reflector
		Obj1.Target = lbl
		Dim before As Int = Obj1.RunMethod("getLineHeight")
		Obj1.Target = lbl
		Obj1.RunMethod3("setLineSpacing", 0, "java.lang.float", 1.5, "java.lang.float")
		Obj1.Target = lbl
		Dim after As Int = Obj1.RunMethod("getLineHeight")
		lbl.Height = ((after * rowheight)/before) + xx/20
		sv_label.Panel.Height = lbl.Height + xx/20

مشکل اینجاست که وقتی روی یک گوشی با اندروید ده تست کردم، متن رو ناقص نشون میداد

ممنون میشم بگید که مشکلش از کجاست.

[batman1 13]

در در 19 آذر 1399 در 10:02، Mthzf1384 گفته است :

سلام دوست عزیز پیشنهاد من به شما استفاده از کتابخانه زیر هست:

این کتابخانه کدهاش آمادست و بسیار هم دقیقه و من باگی داخلش ندیدم و همچنین تنظیمات اسکرول بار رو هم داره

مثال تست این پست، ارور داره

اصلا اجرا نمیشه که بخواد به باگ گیری برسه

setScrollSize not found

 

[Mthzf1384 123]

در 2 ساعت قبل، batman1 گفته است :

مثال تست این پست، ارور داره

اصلا اجرا نمیشه که بخواد به باگ گیری برسه

setScrollSize not found

 

من بهتون مشکل رو گفتم در بخش گفت و گو ها مشکل اینه که اگر از طریق اکتویتی متن رو میدید به لیبل باید حتما invalidate رو بزنید تا درست بشه نزنید ارور میده 

[batman1 13]

در 3 ساعت قبل، Mthzf1384 گفته است :

من بهتون مشکل رو گفتم در بخش گفت و گو ها مشکل اینه که اگر از طریق اکتویتی متن رو میدید به لیبل باید حتما invalidate رو بزنید تا درست بشه نزنید ارور میده 

نه عزیزم. از این نیست

اصلا به کدنویسی نمیرسه. توی activity loadlayout درجا خطا میده.

اصلا مشخصه که مشکل یه جای دیگس

[Mthzf1384 123]

در 21 ساعت قبل، batman123 گفته است :

سلام.

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

sv_label.Initialize2(xx,"sv_label")
		pnl_main.AddView(sv_label, 0, xx/20, xx, 100%y - xx/10)
		Dim r As Reflector
		r.Target = sv_label
		r.RunMethod2("setVerticalScrollBarEnabled", False, "java.lang.boolean")
		r.RunMethod2("setOverScrollMode", 2, "java.lang.int" )
	
		Dim lbl As Label
		lbl.Initialize("lbl")
		sv_label.Panel.addview(lbl, xx/20, 0, xx- xx/10,  xx- xx/10)
		lbl.Gravity = Gravity.CENTER

lbl.TextColor=Colors.White
	
		lbl.Text=cur_txt.GetString("txt")
		lbl.Text = lbl.Text.Replace("x","{BOL}{C}x{C}{BOL}")
		lbl.Text = lbl.Text.Replace("y","{BOL}{C}y{C}{BOL}")
		lbl.Text = lbl.Text.Replace("c","{BOL}{C}c{C}{BOL}")
		lbl.Text = lbl.Text.Replace("g","{BOL}{C}g{C}{BOL}")
		
		Dim rs As RichString
		rs.Initialize(lbl.Text)
		rs.Color2(Colors.Red, "{C}")
		rs.Style2(rs.STYLE_BOLD,"{BOL}")
		lbl.Text = rs
	
		Dim rowheight As Int = su.MeasureMultilineTextHeight(lbl, lbl.Text)
		Dim Obj1 As Reflector
		Obj1.Target = lbl
		Dim before As Int = Obj1.RunMethod("getLineHeight")
		Obj1.Target = lbl
		Obj1.RunMethod3("setLineSpacing", 0, "java.lang.float", 1.5, "java.lang.float")
		Obj1.Target = lbl
		Dim after As Int = Obj1.RunMethod("getLineHeight")
		lbl.Height = ((after * rowheight)/before) + xx/20
		sv_label.Panel.Height = lbl.Height + xx/20

مشکل اینجاست که وقتی روی یک گوشی با اندروید ده تست کردم، متن رو ناقص نشون میداد

ممنون میشم بگید که مشکلش از کجاست.

سلام دوست عزیز پیشنهاد من به شما استفاده از کتابخانه زیر هست:

این کتابخانه کدهاش آمادست و بسیار هم دقیقه و من باگی داخلش ندیدم و همچنین تنظیمات اسکرول بار رو هم داره