رفتن به مطلب
  • 0

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


MR.B4A

سوال

سلام.

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

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

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

4 پاسخ به این سوال تاکنون داده شده است

ارسال‌های توصیه شده

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

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

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

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

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

setScrollSize not found

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

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

setScrollSize not found

 

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

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

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

در 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

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

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

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...