تنظیم متن لیبل با اسکرول

[marshal 71]

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

 

از دوستان کسی میتونه بهم کمک کنه تا تو این سورسی که گذاشتم متن لیبلم با اسکرولم هماهنگ بشه. خیلی تلاش کردم یا اسکرول کم شدش و یا اضافه... تنظیم نشد که نشد... ممنون از دوستان...

#Region  Activity Attributes 
	#FullScreen:True 
	#IncludeTitle:False 
#End Region

Sub Process_Globals

End Sub

Sub Globals

	Dim fara As Farakhani
	Dim ts As TextSetting
	Dim a As String
      Dim hl As HeightLabel
	Private Label1 As Label
	Private ScrollView1 As ScrollView
	Dim f As Typeface

End Sub	 
	 


Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("2")
    Activity.LoadLayout("2")
	
		
	lbl.Initialize("")
	ts.Initialize
	
	ScrollView1.Panel.AddView(lbl,0,0,100%x,100%y)
	fara.FarakhaniMatn("faratest.db",start.SQL1,start.Cursor1,"SELECT * FROM faratable WHERE id=",start.meghdar,lbl,"Text")
	

	lbl.TextColor = Colors.white
	ts.LongText(lbl,lbl.Text,"18",ScrollView1,"2")
	lbl.Typeface=Typeface.LoadFromAssets("byekan.ttf")

	ScrollView1.Color = Colors.Transparent

End Sub

[marshal 71]

با سلام...

 

آقای گنجی ممنون از راهنماییتون این مشکل رو خودم حل کردم... فقط مشکلی که الان هستش اینه که وقتی میرم قسمت تنظیمات و سایز و نوع فونت و رنگ رو تغییر میدم دوباره از تنظیم در میاد...

 

دیگه واقعا خسته شدم...

[sganji 678]

 

شما تنظیمات رو چطوری اعمال کردید؟

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

(شما از کتابخونه TextSetting استفاده کن)

[marshal 71]

راستی دوستان برای فراخوانی متن از دیتابیسم از کتابخونه واقعا کاربردی آقا شهاب استفاده کردم...

[sganji 678]

ببین من خودم هم این مشکل رو داشتم تو باید با آزمون و خطا, خط زیر توی کدنویسی رو عوض کنی:

ScrollView1.Panel.AddView(lbl,0,0,100%x,100%y)

مثلا اینطوی:

ScrollView1.Panel.AddView(lbl,5,0,100%x,83%y)

(البته اینی که من نوشتم همینطوری بود تو با یکم تست عدد صحیح رو بدست میاری)

[marshal 71]

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

[majid08 266]

سلام با این مشکلت حل میشه

کتابخانه StringUtils  و TextSetting رو فعال کن

ScrollView1.Panel.AddView(Label1,0,0,ScrollView1.Width,ScrollView1.Height)
TextSetting1.LongText(Label1,Label1.Text,17,ScrollView1,1)
Dim su As StringUtils
Label1.Height=su.MeasureMultilineTextHeight(Label1,Label1.Text)

[shahab.es 5,429]

سلام

ببین 

یه فایل تکست میسازی تو پوشه ی فایل ها

مثلا برای فونت

 

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

If File.Exists(File.DirInternal,"FontType.txt") = False Then
		File.Copy(File.DirAssets,"FontType.txt",File.DirInternal,"FontType.txt")
	End If

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

File.WriteString(File.DirInternal,"FontType.txt",Spinner1.SelectedItem)

برای اینکه بخونه

LoadFromAssets(File.ReadString(File.DirInternal,"FontType.txt") & ".ttf")

موفق باشی

[Kazem Forghani 2,928]

سلام

ببین 

یه فایل تکست میسازی تو پوشه ی فایل ها

مثلا برای فونت

 

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

If File.Exists(File.DirInternal,"FontType.txt") = False Then
		File.Copy(File.DirAssets,"FontType.txt",File.DirInternal,"FontType.txt")
	End If

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

File.WriteString(File.DirInternal,"FontType.txt",Spinner1.SelectedItem)

برای اینکه بخونه

LoadFromAssets(File.ReadString(File.DirInternal,"FontType.txt") & ".ttf")

موفق باشی

ببخشید اما این پستتون این جا چکار می کنه ؟

[shahab.es 5,429]

 

با سلام...

 

آقای گنجی ممنون از راهنماییتون این مشکل رو خودم حل کردم... فقط مشکلی که الان هستش اینه که وقتی میرم قسمت تنظیمات و سایز و نوع فونت و رنگ رو تغییر میدم دوباره از تنظیم در میاد...

 

دیگه واقعا خسته شدم...

 

جناب فرقانی جای اشتباهی پست گذاشتم؟

[Farzad Musavi 576]

اگه منظورتونو درست متوجه شدم که کاری نداره

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