تنظیمات متن داخل لیبل

[AMiR 18]

باسلام

یه متنی از دیتابیس میگیریم که طولانی هستش و بصورت کامل داخل یک لیبل نشان داده نمیشه ( اسکرول هم نمیشه! )

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

یکی استفاده از کتابخونه AutoTextSizeLabel هست

یکی هم استفاده از این ماژول که توسط جناب jeqele تهیه شده

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

از طرفی هم نمیخوام محدودیتی تو انتخاب سایز فونت باشه

ممنون میشم راهماییم کنین

جایی هست که بعضی از کتابخونه های سایت مرجع رو بفروشن؟!

[sepidpor 19]

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

Dim label1 As Label 
label1.Initialize ("Label1")

label1.text=cur.GetString ("matn")
label1 .Gravity =Gravity.CENTER 



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


Dim su As StringUtils 
label1.TextSize =tanzimat2.size
label1 .Typeface =Typeface .LoadFromAssets (tanzimat2.font& ".ttf")
label1.Height =su.MeasureMultilineTextHeight(label1,label1.Text)
ScrollView1.Panel .Height =su.MeasureMultilineTextHeight(label1,label1.Text)+10%y

ارتفاع لیبلت اینجا به دست میاد

label1.Height =su.MeasureMultilineTextHeight(label1,label1.Text)

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

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

label1.Height =su.MeasureMultilineTextHeight(label1,label1.Text) * 2.5

ارتفاع رو ضرب در 2.5 کردم، بعضی وقتا دیدم به علت عوض کردن فونت درست کار نمی کنه ولی با یه ضرب ساده ارتفاع تو همه نوشته ها درست میشه

[jeqele 563]

سلام دوست عزیز چرا نتونستی راه بندازی؟

ارور میده یا درست کار نمیکنه.

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

[AMiR 18]

سلام دوست عزیز چرا نتونستی راه بندازی؟

ارور میده یا درست کار نمیکنه.

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

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

از اون مثالی که گذاشتین خواستم کمک بگیرم، این قسمت <code><code>ChangeFontByLabelSiz</code></code> قرمز میمونده همیشه ! (تو پیام براتون توضیح داده بودم )

---

با این کدی که دوستمون گذاشتن،یه مشکلی دارم، الآن سایز اسکرول ویو که رو لیبل گذاشتیم ثابته؛ وقتی فونت کمه،مشکلی نیست،ولی وقتی فونت زیاد میشه فقط قسمتایی ازکل متن که تو محدوده اسکرول جا میگیرن نشون داده میشه!

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

من ScrollView1 رو تو لایه لیبل گذاشم ( دقیقا رو لیبل ) همین کارُ باید میکردم یا اشتباه ست؟

[Farzad Musavi 576]

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

از اون مثالی که گذاشتین خواستم کمک بگیرم، این قسمت <code><code>ChangeFontByLabelSiz</code></code> قرمز میمونده همیشه ! (تو پیام براتون توضیح داده بودم )

---

با این کدی که دوستمون گذاشتن،یه مشکلی دارم، الآن سایز اسکرول ویو که رو لیبل گذاشتیم ثابته؛ وقتی فونت کمه،مشکلی نیست،ولی وقتی فونت زیاد میشه فقط قسمتایی ازکل متن که تو محدوده اسکرول جا میگیرن نشون داده میشه!

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

من ScrollView1 رو تو لایه لیبل گذاشم ( دقیقا رو لیبل ) همین کارُ باید میکردم یا اشتباه ست؟

اگه میخوای کل لایوتو لود کنی باید تو لایوت دگ بزاری

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

ScrollView1.Panel.Height=lable1.height

فقط این کدو باید بعد از کدی بزاری که اندازه لیبل و با فونت یکی میکنه

[AMiR 18]

اگه میخوای کل لایوتو لود کنی باید تو لایوت دگ بزاری

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

ScrollView1.Panel.Height=lable1.height

فقط این کدو باید بعد از کدی بزاری که اندازه لیبل و با فونت یکی میکنه

الآن سایز اسکرول خیلی زیاد شده !!

این سورس یرنامه، بی زحمت میشه نگاهی بهش بندازین، چه جاهایی رو اشتباه کردم

 http://upir.ir/aban93/3_d222a.rar 

واسه سایز متن از سیکبار استفاده کردم؛ مقدار valueرو 24گذاشتم ماکس رو 40 ،ولی وقتی رو کمترین مقدارش هست اصن متن معلوم نیست!!

[Farzad Musavi 576]

سورست ناقصه فایل calc.bal نیست توش

[AMiR 18]

http://upir.ir/aban93/3_eb42e.rar

[Farzad Musavi 576]

بیا درست کردم

http://uplood.ir/5KUK

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

[shahab1392 47]

با سلام خوب بود ولی من می خوام متنم از قسمت چپ و راست فیت بشه یعنی مقدار x

این مشکل منه ؟

[AMiR 18]

بیا درست کردم

http://uplood.ir/5KUK

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

عذر میخوام ولی هیچ تغییری تو کد ایجاد نشده !

مشکلات هم هنوز هست.

[Farzad Musavi 576]

با این کدی که دوستمون گذاشتن،یه مشکلی دارم، الآن سایز اسکرول ویو که رو لیبل گذاشتیم ثابته؛ وقتی فونت کمه،مشکلی نیست،ولی وقتی فونت زیاد میشه فقط قسمتایی ازکل متن که تو محدوده اسکرول جا میگیرن نشون داده میشه!

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

مگه مشکلت این نبود؟

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

[AMiR 18]

مگه مشکلت این نبود؟

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

چرا مشکل من همینه

ولی با تغییر سایز فونت، اسکرول تغییری نمیکنه !

شاید فایل ُ اشتباهی آپلود کردید.

---

یه سوال خارج از موضوع داشتم

الان مثلا میرم تو لیبل، back رو میزنم کلا میزنه بیرون!! چطوری میشه وقتی back بزنم، مرحله به مرحله بیاد عقب؟!

[Farzad Musavi 576]

من فایل هم تست کردم مشکلی نداره

با این کد میتونی به دکمه back رویداد بدی

Sub Activity_KeyPress (KeyCode As Int) As Boolean 
 If KeyCode = KeyCodes.KEYCODE_BACK Then
کد دلخواهت
       End If
End Sub 

[Farzad Musavi 576]

ببین تو پروژت Dim su As StringUtils رو تو Sub Globals تعریف کن بعد تو رویداد تغییر سایز فونت اینارو بنویس

Sub fontsize_ValueChanged (Value As Int, UserChanged As Boolean)

   Label1.TextSize = fontsize.Value
   Label1.Height =su.MeasureMultilineTextHeight(Label1,Label1.Text)
   ScrollView1.Panel.Height =Label1.Height

End Sub

[AMiR 18]

من فایل هم تست کردم مشکلی نداره

با این کد میتونی به دکمه back رویداد بدی

Sub Activity_KeyPress (KeyCode As Int) As Boolean 
 If KeyCode = KeyCodes.KEYCODE_BACK Then
کد دلخواهت
       End If
End Sub 

شما تغییری تو سورسی که براتون فرستادم دادم ایجاد کردین؟ چون من هیچ تغییری نمیبینم !

--------------------

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

کدازبرنامه خارج شدن رو میدونم ! ولی به لایه برگرده عقب رو نه

[Farzad Musavi 576]

شما تغییری تو سورسی که براتون فرستادم دادم ایجاد کردین؟ چون من هیچ تغییری نمیبینم !

--------------------

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

کدازبرنامه خارج شدن رو میدونم ! ولی به لایه برگرده عقب رو نه

فایلو اشتباه دادم کاری تو پست بالا گفتم و انجام بده

برای برگشت هم اینو بنویس

Sub Activity_KeyPress (KeyCode As Int) As Boolean 
 If KeyCode = KeyCodes.KEYCODE_BACK Then
Activity.RemoveAllViews
   Activity.LoadLayout("main")
       End If
End Sub

[AMiR 18]

فایلو اشتباه دادم کاری تو پست بالا گفتم و انجام بده

برای برگشت هم اینو بنویس

Sub Activity_KeyPress (KeyCode As Int) As Boolean 
 If KeyCode = KeyCodes.KEYCODE_BACK Then
Activity.RemoveAllViews
   Activity.LoadLayout("main")
       End If
End Sub

تشکر، درست شد

الآن دیگه با تغییر سایز فونت، اندازه اسکرول هم تغییر میکنه

فک کنم تایپیک خیلی مفیدی شد