فاصله ی بین خطوط

[kavehshahedi 16]

درود

دوستان چجوری میشه بین خطوط یه Text فاصله انداخت؟ چون همونطور که میدونید بطور پیشفرض خطوط خیلی بهم نزدیک هستند و موقع خواندن یکم سخت میشه.

با تشکر

[امین شاهدی 5,777]

obj1 چیه دیگه :دی ... اونو برادار

 

ببین شما هرچی ویو اضافه کردی رو ارتفاع همرو  با هم جمع کن اونو بزار

[kavehshahedi 16]

درود

آخ آخ ببخشید این خط رو باید تصحیح می کردید حواسم نبود ببخشید:

label1.Height=ss.MeasureMultilineTextHeight(label1,label1.Text)*1.5
ScrollView1.Height=Lable1.Height

با تشکر

[علی علایی 161]

ممنون کد شمارو اضاف کردم الان متن اسکرول میشه ولی متن همچنان ناقصه ؛ کلافم کرده دیگه دارم کم کم حرصمو در میاره 

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

ممنون میشم منو از این گل دربیارید 

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

سلام

ببخشید الان متتنون ناقص نشون میده ولی اسکرول میشه ؟

یکم توضیح بدید مشکلتون دقیق چیه ؟

[علی علایی 161]

سلام آقای آرتا 

من میخام متنم فاصله خطوطش بیشتر بشه 

این متن در حالت عادی بدون استفاده از کد مربوط به فاصله خطوطه 

 

بدون مشکل اجرا میشه ولی نوشته ها کمی توهم هستند من میخام که یه کم فاصله سطرها از هم بیشتر بشه 

و حالا من کد فاصله خطوط رو میاره تو کد اینجوری میشه و متنم ناقصه میشه 

کل کدها برای لیبل, اسکرول و فاصله خطوط 

 

 

همون طور که تو عکس مشاهد میکنید خط بعدی ناقص افتاده 

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

[mansour-ghanaei 24]

آقا خیلی خیلی شرمنده 

ببخشید مصدی اوقاتتان شدم آقایان آرتا, کوشاری و کاوه شاهدی 

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

در واقع راه حل جز تکس ستینگ نبود و من فکر میکردم باهاش نمیشه ولی شد به قول معرف جواب جلوم بود من نمیدیدم

در کل ممنون که وقت گذاشتید تا مشکلو حل کنید 

با تشکر

سلام دوست عزیز

منم مشکل شمارو دارم میشه اون تیکه کدی که باهاش مشکلت حل شد رو قرار بدی.

ممنون میشم.

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

شما اون تکه کد اخرو بردارید، این کدو میگم :

ScrollView1.Height = Label1.Height

تست کنید به چه نتیجه ای میرسید.

[علی علایی 161]

مشکلم با کتابخونه تکس ستینگ  حل شده 

[علی علایی 161]

مشکل هم چنان به قوت خودش باقیه 

 

به نظرم  Obj1 که برای فاصله خطوط باید بیاد تو 

ScrollView1.Panel.Height=ss.MeasureMultilineTextHeight(label1,label1.Text)*1.5

که هرچی متن کش میاد به طبع اون Obj1 هم کش بیاد 

چند بارم خودم تست کردم نشد 

میبخشید که این قدر اذیتتون میکنم 

[mansour-ghanaei 24]

مشکلم با کتابخونه تکس ستینگ  حل شده 

من از تکست ستینگ اسفاده کردم ولی حل نشد متاسفانه.

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

[علی علایی 161]

من از تکست ستینگ اسفاده کردم ولی حل نشد متاسفانه.

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

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

مطمئنا برای شما هم با همین حل میشه (بیشتر کسای که تو انجمن کتاب یا مطالب مثا کتاب درست میکنن با همین تکس ستینگه )

[علی علایی 161]

دوستان کسی نبود؟

[kavehshahedi 16]

سلام 

منم همین مشکل دارم کد فاصله خطوط رو اضاف میکنم متنم ناقص نشون میده ( کدفاصله خطوط رو برمیدارم متن کامل نشون میده ولی فاصله خطوطش کمه )

 

اینم کدم برای فاصله خطوط

	Dim Obj1 As Reflector
	Obj1.Target = label1
	Obj1.RunMethod3("setLineSpacing", 1, "java.lang.float", 1.7, "java.lang.float")

اینم برای تنظیم ارتفاع 

Dim ss As StringUtils
label1.Height=ss.MeasureMultilineTextHeight(label1,label1.Text)
	ScrollView1.Panel.Height=ss.MeasureMultilineTextHeight(label1,label1.Text)+35%Y
	

ممنون میشم که راهنمایی بفرماید 

درود

دوست عزیز شما به جای :

ScrollView1.Panel.Height=ss.MeasureMultilineTextHeight(label1,label1.Text)+35%Y 

بنویسید:

ScrollView1.Panel.Height=ss.MeasureMultilineTextHeight(label1,label1.Text)*1.5

حالا با اون عدد اعشاری آخرش ور برید تا دقیق بشه.

با تشکر

[علی علایی 161]

اون 1.5 فقط ارتفاع اسکرول ویو رو زیاد میکنه ولی اثری بر فاصله خطوط نداره 

[phd.khosravi 64]

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

label1.Height=ss.MeasureMultilineTextHeight(label1,label1.Text)*1.5
ScrollView1.panel.Height=Lable1.Height

[phd.khosravi 64]

تو کد بالا که دیدم شما متن و اندازه گیری کردین ولی بعدش اسکرول رو ضبدر 1.5 کردین که این مشخصا اسکرول از متن بیشتره تا اونجا که یادمه باید متن رو ضربدر 1.5 یا هر عددی که کارو درست میکنه کنین بعد ارتفاع اسکرول رو برابر با متن قرار بدین خیلی چیز سختی نیست

 

اگه بازم نتونستی کتابخونه textsetting تو این زمینه کار عالیه خیلی راحت میکنه کارتو

[علی علایی 161]

آقا خیلی خیلی شرمنده 

ببخشید مصدی اوقاتتان شدم آقایان آرتا, کوشاری و کاوه شاهدی 

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

در واقع راه حل جز تکس ستینگ نبود و من فکر میکردم باهاش نمیشه ولی شد به قول معرف جواب جلوم بود من نمیدیدم

در کل ممنون که وقت گذاشتید تا مشکلو حل کنید 

با تشکر

[امین شاهدی 5,777]

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

[kavehshahedi 16]

بفرمایید این کدشه

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: False
#End Region
Sub Process_Globals
End Sub
Sub Globals
	Private ScrollView1 As ScrollView
	Private ListView1 As ListView
	Dim imageView1 As ImageView
	Dim Obj1 As Reflector

End Sub

Public Sub strCopy(strMain As String,Start As Int,Count As Int) 
	'Author:Sajjad3011
	If Start>(strMain.Length-1) Or Count <1 Then Return("")
	If Start<0 Then Start=0  
  	If (Start+Count)>(strMain.Length) Then Count=strMain.Length-Start
	Dim  subStr As String=""
 	Dim i As Int
 	For i=Start To Start+Count-1
 	subStr=subStr & strMain.CharAt(i)
  	Next
	Return(subStr)
End Sub

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("IntroLayout")
'ScrollView1.Initialize(100%y)
doc2Scrollview("1.txt")

End Sub

Sub Activity_Resume	
End Sub

Sub Activity_Pause (UserClosed As Boolean)
	
End Sub
Sub doc2Scrollview(fileName As String)

	Dim i As Int=0
	Dim line As String
	Dim su As StringUtils
    Dim TextReader1 As TextReader
	Dim condition As Boolean
	Dim position As Int=0
	Dim imageFileName As String
	'
	TextReader1.Initialize(File.OpenInput(File.DirAssets, fileName)) 
	'
    line = TextReader1.ReadLine 
'=========================
  Do While line <> Null  
		i=i+1
		condition=strCopy(line,0,5)="[img]" And line.SubString2(line.Length-5,line.Length)="[img]"
	If condition Then 'age image bashe :
			Dim b As Bitmap
    		Dim iv As ImageView
			imageFileName=line.SubString2(5,line.Length-5)		
			b.Initialize(File.DirAssets,imageFileName)			
			iv.Initialize("")		
			iv.Bitmap = b
			ScrollView1.Panel.AddView(iv,30dip,30dip,212,64)
			iv.Left=50%x-iv.Width/2'<center>imageView</center>
			iv.Top=position
			position=position+iv.Height
	'
	Else				'age text bashe :	
			Dim Label1 As Label
			Label1.Initialize("")
			Label1.Color=Colors.White 
			Label1.TextColor=Colors.Black
			Label1.Text=line
			Label1.TextSize=30
			Label1.Typeface=Typeface.LoadFromAssets("btitr.TTF")
			ScrollView1.Panel.AddView(Label1,0,0,95%x,64dip)
			
			Label1.Top=position
			Label1.Left=50%x-Label1.Width/2'<center>Label1</center>
			Label1.Gravity=Gravity.NO_GRAVITY
			Obj1.Target = Label1
   			Obj1.RunMethod3("setLineSpacing", 1, "java.lang.float", 1.3, "java.lang.float")
			Label1.Height= su.MeasureMultilineTextHeight(Label1,Label1.Text)
			Label1.Top=position

	End If
	'
	line = TextReader1.ReadLine
	'
  Loop
'=========================  
  	TextReader1.Close
	ScrollView1.Panel.Height=position
End Sub
Sub SeekBar1_ValueChanged (Value As Int, UserChanged As Boolean)
End Sub

با تشکر

[امین شاهدی 5,777]

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

 

scrollview1.panel.height رو برابر ارتفاع لیبل + ارتفاع عکس و فاصله های بینش قرار بدین