رفتن به مطلب
  • 0

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


mojcom

سوال

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

4 پاسخ به این سوال تاکنون داده شده است

ارسال های توصیه شده

 

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

dim fara as farkhany





fara.setscrolview(label1,scrolview1)

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بفرمایید

 

farakhani.rar

لینک ارسال
به اشتراک گذاری در سایت های دیگر

درود

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

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
لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

dim fara as farkhany





fara.setscrolview(label1,scrolview1)
لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

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

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...