MR.B4A 104 ارسال شده در 19 آذر، ۱۳۹۹ اشتراک گذاری ارسال شده در 19 آذر، ۱۳۹۹ سلام. این دستورات من برای اسکرول کردن متنی هست که از دیتابیس میگیرم: 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 ارسال شده در 20 آذر، ۱۳۹۹ اشتراک گذاری ارسال شده در 20 آذر، ۱۳۹۹ در در 19 آذر 1399 در 10:02، Mthzf1384 گفته است : سلام دوست عزیز پیشنهاد من به شما استفاده از کتابخانه زیر هست: این کتابخانه کدهاش آمادست و بسیار هم دقیقه و من باگی داخلش ندیدم و همچنین تنظیمات اسکرول بار رو هم داره مثال تست این پست، ارور داره اصلا اجرا نمیشه که بخواد به باگ گیری برسه setScrollSize not found لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
Mthzf1384 123 ارسال شده در 20 آذر، ۱۳۹۹ اشتراک گذاری ارسال شده در 20 آذر، ۱۳۹۹ در 2 ساعت قبل، batman1 گفته است : مثال تست این پست، ارور داره اصلا اجرا نمیشه که بخواد به باگ گیری برسه setScrollSize not found من بهتون مشکل رو گفتم در بخش گفت و گو ها مشکل اینه که اگر از طریق اکتویتی متن رو میدید به لیبل باید حتما invalidate رو بزنید تا درست بشه نزنید ارور میده لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
batman1 13 ارسال شده در 20 آذر، ۱۳۹۹ اشتراک گذاری ارسال شده در 20 آذر، ۱۳۹۹ در 3 ساعت قبل، Mthzf1384 گفته است : من بهتون مشکل رو گفتم در بخش گفت و گو ها مشکل اینه که اگر از طریق اکتویتی متن رو میدید به لیبل باید حتما invalidate رو بزنید تا درست بشه نزنید ارور میده نه عزیزم. از این نیست اصلا به کدنویسی نمیرسه. توی activity loadlayout درجا خطا میده. اصلا مشخصه که مشکل یه جای دیگس لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
Mthzf1384 123 ارسال شده در 19 آذر، ۱۳۹۹ اشتراک گذاری ارسال شده در 19 آذر، ۱۳۹۹ در 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 مشکل اینجاست که وقتی روی یک گوشی با اندروید ده تست کردم، متن رو ناقص نشون میداد ممنون میشم بگید که مشکلش از کجاست. سلام دوست عزیز پیشنهاد من به شما استفاده از کتابخانه زیر هست: این کتابخانه کدهاش آمادست و بسیار هم دقیقه و من باگی داخلش ندیدم و همچنین تنظیمات اسکرول بار رو هم داره لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
سوال
MR.B4A 104
سلام.
این دستورات من برای اسکرول کردن متنی هست که از دیتابیس میگیرم:
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 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.