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

[mojcom 22]

سلام دوستان - من لیبلی را داخل پنل و پنل رو داخل اسکرول لود کردم و از کتابخانه string utils استفاده کردم که ارتفاع لیبل رو متناسب با متن داخلش بصورت خودکار تغییر میده اما من این لیبل رو داخل پنل و پنل رو داخل اسکرول لود کردم و میخوام ارتفاع پنل و اسکرول بصورت خودکار با ارتفاع اون لیبل یکی بشه چون متنها از دیتابیس خونده میشه نمیشه استاتیک مقدار ارتفاع رو تنظیم کنم- برای اینکه ارتفاع پنل و اسکرول خودکار با ارتفاع لیبل یکی بشه باید دقیقا چه کار انجام داد از کدوم کتابخونه و چجوری استفاده کنم؟ 

[mojcom 22]

 

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

dim fara as farkhany





fara.setscrolview(label1,scrolview1)

سلام - ببخشید این کتابخونه ای که شما گفتید رو دانلود کردم آما دستوری با نام setscrolview داخلش نداشت - فقط دستور FarakhaniMatn که برای فراخوانی متن از دیتابیس بود رو داشت و چیزی مثل دستور بالا داخل کتابخونه نداشت. اگه شما این کتابخونه رو دارید که با دستور بالا که نوشتید همخوانی داره لطفا ضمیمه کنید. ممنونم

[mehrabmmp 528]

بفرمایید

 

farakhani.rar

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

درود

از این کد الگو برداری کنید :

Sub Globals
	Private txtAddBlockText As EditText
	Private ScrollView1 As ScrollView
	Private lblPnlBlockText As Label
	Private btnDeleteBlockText As Button
	Private Panel1 As Panel
	Dim ph,p_h As Int
	Private btnAddBlockText As Button
	Dim cur2 As Cursor
	Dim sql2 As SQL
	Dim xxx As Int
	Dim bt As BitmapDrawable
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("lBlockText")
	bt.Initialize(LoadBitmap(File.DirAssets,"txtez.png"))
	txtAddBlockText.Background = bt
	txtAddBlockText.Hint = "مثال: شرکت در مسابقه"
	sql2.Initialize(File.DirInternal,"block.db",False)
	cur2 = sql2.ExecQuery("SELECT * FROM tbltxt")
	xxx = cur2.RowCount-1
	For i=0 To cur2.RowCount-1
		cur2.Position=xxx
		xxx=xxx-1
		Dim p1 As Panel
		p1.Initialize("")
		p1.LoadLayout("LScrollAddBlockText")
		lblPnlBlockText.Text= ""
		ScrollView1.Panel.AddView(p1,0,ph,100%x,110dip)
		p_h= 120dip
		p1.Height=p_h
		lblPnlBlockText.Text = cur2.GetString("txt")
		btnDeleteBlockText.Tag = cur2.GetString("id")
		Panel1.Height=p1.Height
		ph=ph+p_h+13dip
		ScrollView1.Panel.Height=ph
	Next
End Sub

[mehrabmmp 528]

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

dim fara as farkhany





fara.setscrolview(label1,scrolview1)