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

مشکل در اسکرول کردن لیبل


mamalliii

سوال

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

متن لیبل رو  مساوی قرار دادم با فایل تکس

بعد هم لیبل رو اسکرول کردم

اما متاسفانه کل متن اسکرول نشده

اینم کد های منه

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("formsakht")
	If File.Exists(File.DirInternal,"amozesh.txt") = False Then
File.Copy(File.DirAssets, "amozesh.txt" ,File.DirInternal,"amozesh.txt")
End If
	Dim font As Typeface
	font = Typeface.LoadFromAssets("ahayat.ttf")
	Dim auto As AutoSizeScroll
	label.Initialize("label")
	Dim st As String
    st = File.ReadString(File.DirAssets, "amozesh.txt")
	label.Text = st
	ScrollView1.Panel.AddView(label,0,0,100%x,100%y)
    auto.set(label,ScrollView1)
    label.TextColor = Colors.red
	label.TextSize = 28
	label.Typeface = font
	label.Gravity = Gravity.CENTER_VERTICAL
    End Sub
لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

سلام

مشکلم حل شد

کد زیر اشکال داشت

	label.Gravity = Gravity.CENTER_HORIZONTAL

اما خب graviti  رو به راست تغییر دادم و حل شد

ممنون از همه

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

 

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

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

سلام دوست عزیز اول بیا با استفاده از کتابخونه StringUtils ارتفاع متنتو بگیر و بعد مساوی با ScrollView1.Panel.Height قرار بده...

ScrollView1.Panel.AddView(label1,0,0,100%x,100%y)
Dim int1 As Int
	int1 = 0
	Dim su As StringUtils
	label1.Height = su.MeasureMultilineTextHeight(label1,label1.Text)
	int1 = int1 + label1.Height
	ScrollView1.Panel.Height = int1


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

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

بایگانی شده

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

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

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