کتابخانه AutoSizeScroll ، تنظیم خودکار اسکرول ویو مطابق با لیبل(تمام گوشیها)

[پژمان نیکروان 6,055]

سلام دوستان.

 

نمیدونم از کجا شروع کنم...

میدونم خیلیا این مشکل رو دارن ، شاید دیده باشید وقتی یه کتاب میسازید به فرض مثلا یه متنی رو توی لیبل قرار میدید و اون لیبل رو تو اسکرول میذارید ، باید هی مقدار Height اسکرول ویو رو کمو زیاد کنید تا به اون نتیجه برسید.

 

بعد درضمن ، ممکنه بتونید همونجا عرض اسکرول ویو رو طوری قرار بدید که همه ی متن توش جا بشه ، اما اگه وقتی سایز متن لیبل رو میبرید بالا چی؟؟؟

وقتی تو گوشی هایی با سایز کوچیک تر برنامه اجرا بشه چی؟؟؟

 

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

یه ماژولی هم استاد خلیلی در این مورد گذاشته بودن که میومد اونقدر سایز متن لیبل رو کوچیک میکرد تا اینکه توی اسکرول ویو تمام متن جا بشه.

 

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

 

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

 

 

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

 

ما اومدیم تو این سورس که پیوست شده:

 

یه لایوت ایجاد کردیم و توش اسکرول ویو قرار دادیم.

و یک لیبل هم تعریف کردیم که متن طولانی مون رو اونجا قرار بدیم و ادش کنیم به اسکرول ویو ، که به این صورت تعریف شدن:

Sub Globals

	Dim label1 As Label

	Private ScrollView1 As ScrollView

End Sub

خب ، حالا اومدیم تو رویداد activity_Create متن رو دادیم به لیبل و بعد ادش کردیم توی اسکرول و بعد با کتابخانه AutoSizeScroll تنظیمش کردیم.

که من کدهای اکتیویتی کریت رو قرار میدم و خط به خط توضیح میدم:

Sub Activity_Create(FirstTime As Boolean)

	Activity.LoadLayout("main")

label1.Initialize("label1")


label1.Text=File.ReadString(File.DirAssets,"matn.txt")

label1.TextColor=Colors.Black

label1.TextSize=16

label1.Gravity=Gravity.CENTER


ScrollView1.Panel.AddView(label1,0,0,100%x,100%y)


Dim s As AutoSizeScroll

s.set(label1,ScrollView1)

End Sub

1.لایوتی که ساختیم لود کردیم تو اکتیویتی

2.لیبل رو initizile کردیم ، چون دستی ادش کردیم.

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

4. یه سری فونت و رنگ دادم به لیبل که هیچی.......

.........

7.لیبل رو اد کردیم به اسکرول ویو(که همتون میدونید)

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

تمام!

 

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

 

حالا هرچقد میخواین متن لیبل رو سایزشو زیاد کنید...... ، و یا متنش رو زیاد کنید.

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

 

خسته شدم اینقد نوشتم

:::دانلود سورس و کتابخانه:::

 

توجه:

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

مثلا بعد از زیاد کردن سایز توسط سیک بار باید این کد هم بعد از بزرگ کردن متن باید بنویسید:

Dim s As AutoSizeScroll

s.set(label1,ScrollView1)

End Sub

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

خدا خیریت بده کار ملتو راه انداختی پژمان جان

[علی علایی 161]

عالی بود پژمان جان 

اگر میشد فاصله خطوط رو هم اضافه میکردی خوب میشد 

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

[پژمان نیکروان 6,055]

عالی بود پژمان جان 

اگر میشد فاصله خطوط رو هم اضافه میکردی خوب میشد 

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

باشه.

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

[ehsankhan 256]

خیلی عالی بود

یه سوال؟

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

[پژمان نیکروان 6,055]

خیلی عالی بود

یه سوال؟

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

تو ورژن بعدی کاری میکنم که بتونید لیبل هارو بهش تا هرچند تا بدید و بعد آخر سر تنظیم کنید.

[ehsankhan 256]

تو ورژن بعدی کاری میکنم که بتونید لیبل هارو بهش تا هرچند تا بدید و بعد آخر سر تنظیم کنید.

 

الان راهی نیست؟

حتی بدون این کتابخونه؟؟؟؟

[hossein7 82]

مرسی پژی خان

[پژمان نیکروان 6,055]

الان راهی نیست؟

حتی بدون این کتابخونه؟؟؟؟

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

 

شما فعلا بیاین اینکارو بکنید.

یه لیبل مثلا به نام lbtest تعریف کنید و متن سه تا لیبل تون رو بریزید توش ، بعد به کتابخونه همین lbtest رو معرفی کنید.

اینجوری:

	'کد اد شدن به اسکرول
		Dim lbtest As Label
			lbtest.Initialize("lbtest")
	lbtest.Text=label1.Text&label2.text&label3.text
	
		Dim s As AutoSizeScroll
	s.set(lbtest,ScrollView1)

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

تست نکردم ، شاید جواب بده...

[mahdavifar 20]

سوال خوبی پرسیدند

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

Dim stu As StringUtils

Activity.LoadLayout("L_Scroll_txt")

ScrollView_text.Panel.LoadLayout("L_txt")

     


     

ltxt1.text= Main.cur1.GetString("matn")

ltxt1.Top=0


ltxt1.height = (stu.MeasureMultilineTextHeight(ltxt1,ltxt1.text))

     

     

     

ScrollView_text.Panel.Height=ltxt1.Height + ltxt1.Top

[saeed692 37]

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

[MahdiHD 1,748]

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

[saeed692 37]

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

[arastooms 1,046]

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

[amir1999 81]

آقا پژمان نسخه ی جدید کی میاد؟من منتظرم شدیـــــــــــد

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

خواهشا جوابمو بدید.مرسی    

[moslem 0]

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

چرا چیزی نشون داده نمیشه؟

سورس رو فرستادم.ممنووووووون

 

t3.rar

[پژمان نیکروان 6,055]

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

چرا چیزی نشون داده نمیشه؟

سورس رو فرستادم.ممنووووووون

سلام

 

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

http://s7.picofile.com/file/8249151584/t3.zip.html

[moslem 0]

سلام

 

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

http://s7.picofile.com/file/8249151584/t3.zip.html

 

یک دنیا ممنون

[leilab 17]

مرسییییی

مرسی

مرسی

[سیدمحمد 248]

سلام.

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

Sub Globals
	Dim cur As Cursor
	Private ScrollView1 As ScrollView
	
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("act")

	Dim label1 As Label
	label1.Initialize("")
	label1.Text=cur.GetString("matn")
	label1.TextSize=21
	label1.Gravity=Gravity.RIGHT
	ScrollView1.Panel.AddView(label1,3%x,2%y,94%x,100%y)
	Dim s As AutoSizeScroll
	s.set(label1,ScrollView1)

end sub