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

[mamal00 11]

با سلام دوستان عزیز،من الان چند روزی میشه که دارم روی یه برنامه کار میکنم و تقریبا کارم تموم شده برنامم هم (مجموعه اشعاره) ولی مشکلم اینه که برنامرو وقتی توی گوشی وارد می کنم و اجرا می گیرم نصف مصرع شعر رو نشون نمیده و فونت هم که نستعلیق هست (ی) اون رو خراب نشون میده ولی توی شبیه ساز(بلواستکس) بدرستی نمایش میده اشکال از چیه؟؟

البته بگم من کد width و height در قسمت script رو هم وارد کردم که در تمام گوشی ها کل صفحه نمایش داده بشه

[mamal00 11]

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

روشی که آقای زارع دادن اصلا جواب نمیده 

روش لیبل اسکرول هم موقع اجرای برنامه این خطا رو میده و متوقف میشهscroll1.Panel.AddView(poam1, 0, 0, 300dip, 600dip)

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

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

[shahab.es 5,429]

سلام

ببین

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

[mamal00 11]

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

Dim text As String

    Dim font As Typeface

Dim poam1 As Label

 

Dim scroll1 As ScrollView

 

 

text= File.ReadString(File.DirAssets,"poam1.txt")

poam1.text=text

font=Typeface.LoadFromAssets("farnaz.ttf")

poam1.Typeface= font

poam1.TextSize=14

poam1.TextColor=Colors.Black

 

 ChangeFontByLabelSize.FitToLabelSize(poam1)

 

    scroll1.Panel.AddView(poam1, 0, 0, 300dip, 600dip)

[Nemesis 1,846]

لین پست رو با دقت مطالعه کنید

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

[mamal00 11]

من برای نمایش متن اومدم اون رو توی edit text قرار دادم  و input رو none کردم حالا راهی نیست که دیگه لیبل اضافه نکنم و توی همون edit text از طریق همین ماژولChangeFontByLabelSize اندازه متن رو در همه گوشی ها درست کنم؟؟؟؟؟؟

[mahdi tahan 723]

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

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

[mamal00 11]

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

 

 

Dim text As String

    Dim font As Typeface

Dim poam1 As Label

 

Dim scroll1 As ScrollView

 

 

text= File.ReadString(File.DirAssets,"poam1.txt")

poam1.text=text

font=Typeface.LoadFromAssets("farnaz.ttf")

poam1.Typeface= font

poam1.TextSize=14

poam1.TextColor=Colors.Black

 

 ChangeFontByLabelSize.FitToLabelSize(poam1)

 

    scroll1.Panel.AddView(poam1, 0, 0, 300dip, 600dip)

 

اشکال رو از این کد میده

scroll1.Panel.AddView(poam1, 0, 0, 300dip, 600dip)

[mamal00 11]

کسی نیست؟؟؟

[Nemesis 1,846]

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

[حمید زارع 331]

فکر کنم با این مششکلتون حل بشه

http://answercenter.ir/topic/3739-auto-size-label-%D8%A8%D8%B3%DB%8C%D8%A7%D8%B1-%D8%B3%D8%A7%D8%AF%D9%87-%D9%88-%D8%B1%D8%A7%D8%AD%D8%AA/