تنظیم ارتفاع لیبل و پنل همراه با سایز لیبل

[shahab.msb 326]

سلام من تعدادی تکست طولانی رو ازبانک میخونم و در مولتی پتل لود میکنم و کد زیر رو نوشتم تا اگه تکست طولانی دااشته باشم ارتفاع لیبل رو با ارتفاع پنل یکی کنم ولی متاسفانه یه مشکل کوچیک داره که اگه سایز لیبل رو زیاد تر کنم ارتفاع لیبل و پنل برابر نمیشه خواهشا دوستان منو راهنمایی کنید اینم کدی که من نوشتم :

Dim st As Int=3%y

Dim su As StringUtils

Dim p As Panel

("")p.Initialize

("p.LoadLayout("tmpsm

(scv.Panel.AddView(p,0,st,100%x,100%y

( "lmatn.Text = c.getString("sms

(lmatn.Height =su.MeasureMultilineTextHeight(lmatn,lmatn.Text

prnt.Height=lmatn.Height+17%Y

st=st+lmatn.Height+18%Y

scv.Panel.Height=st

[porya 959]

دوست عزیز دارم یک کتاب مینویسم و متن هایم مقدار متفاوتی داره! و از تنظیمات اندازه فونت استفاده میکنم !چطور باید ارتفاع لیبل رو بدست بیارم؟

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

[ssoleimanz 51]

سلام , از این روش استفاده کردم ولی متنم اسکرول نمیشه:

	Dim su As StringUtils 
	ScrollMatn.Panel.AddView(Label1,0+10dip,0,100%x-20dip,100%y)
	Label1.Height = su.MeasureMultilineTextHeight(Label1,Label1.Text)

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

	Dim ts As TextSetting
	ts.Initialize()
	ScrollMatn.Panel.AddView(Label1,0+10dip,0,100%x-20dip,100%y)
	ts.LongText(Label1,Label1.Text,20,ScrollMatn,2)

اندازه فونتم رواز اسپینر میگیرم:	
Dim cmsize As Spinner
	cmsize.AddAll(Array As String ("17","20","23","26","29","32"))
در حافظه گوشی ذخیره می کنم:
Sub cmsize_ItemClick (Position As Int, Value As Object)
 	code.saveData("setting_cheshmzakhm.txt","FontSize",Value)
 	Label1.TextSize = code.getData("setting_cheshmzakhm.txt","FontSize") 
End Sub
از حافظه گوشی فراخوانی می کنم:
Sub Activity_Create(FirstTime As Boolean)
	Label1.TextSize = code.getData("setting_cheshmzakhm.txt","FontSize")
End Sub

چطور باید اندازه متن انتخاب شده و جایگزین سایز در کد زیر کنم؟ (size) 

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

	Dim size As Int
	size = code.getData("setting_cheshmzakhm.txt","FontSize") 

	Dim ts As TextSetting
	ts.Initialize()
	ScrollMatn.Panel.AddView(Label1,0+10dip,0,100%x-20dip,100%y)
	ts.LongText(Label1,Label1.Text,size,ScrollMatn,2)

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

[porya 959]

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

	Dim int1 As Int
	int1 = 0

	label1.Height = su.MeasureMultilineTextHeight(label1,label1.Text)
	int1 = int1 + label1.Height + 3%y
	ScrollView1.Panel.Height = int1

[ssoleimanz 51]

 

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

	Dim int1 As Int
	int1 = 0

	label1.Height = su.MeasureMultilineTextHeight(label1,label1.Text)
	int1 = int1 + label1.Height + 3%y
	ScrollView1.Panel.Height = int1

دوست عزیز دارم یک کتاب مینویسم و متن هایم مقدار متفاوتی داره! و از تنظیمات اندازه فونت استفاده میکنم !چطور باید ارتفاع لیبل رو بدست بیارم؟

[مهدی ایزدی 9,203]

دوست عزیز دارم یک کتاب مینویسم و متن هایم مقدار متفاوتی داره! و از تنظیمات اندازه فونت استفاده میکنم !چطور باید ارتفاع لیبل رو بدست بیارم؟

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

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