دریافت کتابخانه PersianAutoSizeLabel

[محمدرضا شاهپیری 5,631]

مشاهده فایل

دریافت کتابخانه PersianAutoSizeLabel

---

با سلام خدمت همه دوستان.

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

دانلود سورس

---

• ارسال کننده
  محمدرضا شاهپیری
• ارسال
  جمعه, 21 آذر 1399
• دسته
  کتابخانه ها

 

[MR.B4A 208]

سلام.

آقا من این کتابخونه رو اینطوری دارم استفاده میکنم.

psc.Text = psc.Text.Replace("السَّلامُ عَلَيْكَ يَا أَبا عَبْدِاللّٰهِ","{BOL}{C}السَّلامُ عَلَيْكَ يَا أَبا عَبْدِاللّٰهِ{C}{BOL}")	
		psc.TextColor=Colors.White
		psc.Gravity=Gravity.CENTER
		psc.TextSize=cursize.GetString("size")

Dim rs As RichString
		rs.Initialize(psc.Text)
		rs.Color2(Colors.Red, "{C}")
		rs.Style2(rs.STYLE_BOLD,"{BOL}")
		psc.Text = rs
		psc.Text=cur_txt.GetString("txt")

چرا عبارت مشخص شده، به رنگ قرمز درنمیاد؟

آیا همچین کاری روی این کتابخونه persianautosizelable کاربرد نداره؟

[MR.B4A 208]

در در 22 آذر 1399 در 15:05، batman123 گفته است :

سلام.

آقا من این کتابخونه رو اینطوری دارم استفاده میکنم.

psc.Text = psc.Text.Replace("السَّلامُ عَلَيْكَ يَا أَبا عَبْدِاللّٰهِ","{BOL}{C}السَّلامُ عَلَيْكَ يَا أَبا عَبْدِاللّٰهِ{C}{BOL}")	
		psc.TextColor=Colors.White
		psc.Gravity=Gravity.CENTER
		psc.TextSize=cursize.GetString("size")

Dim rs As RichString
		rs.Initialize(psc.Text)
		rs.Color2(Colors.Red, "{C}")
		rs.Style2(rs.STYLE_BOLD,"{BOL}")
		psc.Text = rs
		psc.Text=cur_txt.GetString("txt")

چرا عبارت مشخص شده، به رنگ قرمز درنمیاد؟

آیا همچین کاری روی این کتابخونه persianautosizelable کاربرد نداره؟

ممنون میشم یکی جواب منو بده

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

کسی میدونه چرا؟

[محمدرضا شاهپیری 5,631]

در 20 ساعت قبل، batman123 گفته است :

ممنون میشم یکی جواب منو بده

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

کسی میدونه چرا؟

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

Dim lbl As Label=psc.ContentView
Dim rs As RichString
rs.Initialize(psc.Text)
rs.Color2(Colors.Red, "{C}")
rs.Style2(rs.STYLE_BOLD,"{BOL}")
lbl.Text=rs

 

[MR.B4A 208]

سلام.

امکانش هست که با استفاده از این روش، متن رو به صورت خودکار اسکرول کرد؟

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

Dim rowheight As Int = su.MeasureMultilineTextHeight(lbl, lbl.Text)
			Dim Obj1 As Reflector
			Obj1.Target = lbl
			Dim before As Int = Obj1.RunMethod("getLineHeight")
			Obj1.Target = lbl
			Obj1.RunMethod3("setLineSpacing", 0, "java.lang.float", 2, "java.lang.float")
			Obj1.Target = lbl
			Dim after As Int = Obj1.RunMethod("getLineHeight")
			lbl.Height = ((after * rowheight)/before) + xx/20
			sv_label.Panel.Height = lbl.Height + xx/20

به علاوه تایمر

Sub timer_scroll_Tick
	Dim position As Int = (mp.Position/mp.Duration*1)*sv_label.Height - xx/4
	If position < 0 Then
		position = 0
	End If
	sv_label.ScrollPosition = position
End Sub

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

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

[MR.B4A 208]

در 22 ساعت قبل، batman123 گفته است :

سلام.

امکانش هست که با استفاده از این روش، متن رو به صورت خودکار اسکرول کرد؟

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

Dim rowheight As Int = su.MeasureMultilineTextHeight(lbl, lbl.Text)
			Dim Obj1 As Reflector
			Obj1.Target = lbl
			Dim before As Int = Obj1.RunMethod("getLineHeight")
			Obj1.Target = lbl
			Obj1.RunMethod3("setLineSpacing", 0, "java.lang.float", 2, "java.lang.float")
			Obj1.Target = lbl
			Dim after As Int = Obj1.RunMethod("getLineHeight")
			lbl.Height = ((after * rowheight)/before) + xx/20
			sv_label.Panel.Height = lbl.Height + xx/20

به علاوه تایمر

Sub timer_scroll_Tick
	Dim position As Int = (mp.Position/mp.Duration*1)*sv_label.Height - xx/4
	If position < 0 Then
		position = 0
	End If
	sv_label.ScrollPosition = position
End Sub

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

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

ممنون میشم جواب منو بدید.

[محمدرضا شاهپیری 5,631]

در 2 ساعت قبل، batman123 گفته است :

ممنون میشم جواب منو بدید.

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

AutoScrool.startAutoScroll(50,1000)

 

[MR.B4A 208]

سلام به همه

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

[MR.B4A 208]

ممنن میشم جواب بدید

[اندرویدستان 92]

سلام

این کتابخانه واقعا عالیه

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

اگر ممکن هست این گزینه را فعال کنید

 

با تشکر

[MR.B4A 208]

امکان بولدکردن عناوین هم بشه بهش اضافه کرد، خیلی عالیه

[اندرویدستان 92]

در ۱۳۹۹/۹/۲۶ در 15:32، محمدرضا شاهپیری گفته است:

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

AutoScrool.startAutoScroll(50,1000)

 

سلام

آقای شاهپیری عزیز میشود مشکل ارتفاع متن را هم درست کنید

چون وقتی به ارتفاع عدد منفی یک میدهیم نمیشود ارتفاع متن را حساب کرد و عدد منفی یک میدهد

و همینطور گزینه کلیک ندارد

 

ممنون میشوم این دو مشکل را حل کنید

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

😍🥰

[محمدرضا شاهپیری 5,631]

در ۱۴۰۳/۱۱/۲۳ در 11:14، اندرویدستان گفته است:

سلام

این کتابخانه واقعا عالیه

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

اگر ممکن هست این گزینه را فعال کنید

با تشکر

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

#If java
import android.view.View;

public void SetOnclick(View view){
     view.setOnClickListener(new View.OnClickListener() {
            @Override
            public void onClick(View v) {
                activityBA.raiseEvent(v, "txt_click", new Object[0]);
            }
        });
}
#End If

Dim txt As PersianAutoSizeLabel
...
Dim jo As JavaObject
jo.InitializeContext.RunMethod("SetOnclick",Array(txt.ContentView))

Private Sub txt_Click
	Log("view clicked")
End Sub