مشکل در کتابخانه TextSetting

[Assassin-Wolf 13]

سلام . من روی برنامم این کد رو با Lib . TExSetting اضافه کردم . بعد از اومدن به اون قسمت که کد ها اضافه شده این میاد

http://upir.ir/khordad94/guest/bandicam-2015-07-04-02-14-30-266.jpg

این هم کدی که اضافه شده

	ts.LongText(l,l.Text,File.ReadString(File.DirInternal,"FontSize.txt"),sc,File.ReadString(File.DirInternal,"lineheight.txt"))

این هم سورس اون قسمت

#Region  Activity Attributes 
	#FullScreen: True
	#IncludeTitle: False
#End Region
 
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
	Dim s As SQL
 
End Sub
 
Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
	Dim sc As ScrollView
	Dim ts As TextSetting
End Sub
 
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
	'Activity.LoadLayout("InfoJK_Matlab")
	If File.Exists(File.DirInternal,"Joke-db.db") = False Then
	File.Copy(File.DirAssets,"Joke-db.db",File.DirInternal,"Joke-db.db")
	End If
	
	If s.IsInitialized=False Then
	s.Initialize(File.DirInternal,"Joke-db.db",False)
	End If

  	sc.Initialize(800dip)
  
	Dim cur1 As Cursor
	cur1 = s.ExecQuery("SELECT * FROM Mytable where id="&InfoJK.fasl)
	cur1.Position=0
	


	Activity.AddView(sc,0,0,100%x,100%y)
	
 
	Dim l As Label
	l.Initialize("l")
	l.Text=cur1.GetString("matn")
	l.TextColor=Colors.Black
	l.Typeface=Typeface.LoadFromAssets(File.ReadString(File.DirInternal,"FontType.txt") & ".ttf")
	ts.LongText(l,l.Text,File.ReadString(File.DirInternal,"FontSize.txt"),sc,File.ReadString(File.DirInternal,"lineheight.txt"))
	
	sc.Panel.AddView(l,10dip,0,95%x,sc.Height)
	
	sc.Color=Colors.ARGB(255,191, 85, 236)
	
	Dim su As StringUtils
	Dim f As Float
	f=su.MeasureMultilineTextHeight(l,l.Text)
 	l.Height=f
 	sc.Height=sc.Panel.Height
	sc.Panel.Height=f+80%y

 
End Sub
 
Sub Activity_Resume
 
End Sub
 
Sub Activity_Pause (UserClosed As Boolean)
 
End Sub
 

[مجید آرتا 5,874]

ببخشید دیگه پیریو هزارتا دنگ و فنگ

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

ببینید من تا این حدش که نوشتم خیلی شیک و مجلسی اومده اسکرول کرده متنو مشکلی نبوده :

lbl.Text = c.GetString("Text")
sv.Panel.AddView(lbl,0,0,sv.Width,sv.Height)
lbl.TextSize = 20
Dim stu As StringUtils
lbl.Height = stu.MeasureMultilineTextHeight(lbl,lbl.Text)
sv.Panel.Height = stu.MeasureMultilineTextHeight(lbl,lbl.Text)

اینجا Lbl  توی Globals  تعریف شده

واسه فونت میتونید همون فایل تکست رو متنشو بریزید توی یک متغییر استرینگ و بعد متغییر استرینگ رو بریزید توی یک متغییر اینت و بدید به TextSize  لیبل.

خیلی شیک

[مجید آرتا 5,874]

سلام

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

الان بنده متوجه نشدم منظورتون چه خطایی هستش.

اول تایتل رو درست کنید و بعد ار خطا یک اسکرین بگیرید.

[Assassin-Wolf 13]

ممنون که جواب میدید

 

اگه یکم دقت میکردید اون اول عکس از خطا رو گذاشتم

http://upir.ir/khordad94/guest/bandicam-2015-07-04-02-14-30-266.jpg