ظاهر شدن پنل تنظیمات

[حاج حسین 2,098]

با سلام

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

وبا ذخیره کردن محو میشه

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

دانلود

تصاویر برنامه

[مهدی ایزدی 9,203]

درود و تشکر فراوان.

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

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

با آرزوی موفقیت

[mahfelsoft 130]

اونوقت چطور باید اون تنظیماتی که انتخاب میشه روی متن مورد نظر توی برنامه اعمال بشه ؟

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

سلام

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

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

به شکل زیر عمل می کنیم:

[/b][b]	Private FontSize As EditText[/b][b]	Private FontColor As EditText[/b]
[b]	Private Font As EditText[/b]
[b]	Dim TF As Typeface[/b]
[b]	Dim TXT As String[/b]
[b]	TXT = FontColor.Text[/b]
[b]	Private Lbl As Label[/b]
[b]	Lbl.TextSize = FontSize.Text[/b]
[b]	Lbl.Typeface = Typeface.LoadFromAssets(Font.Text)[/b]
[b]	Select TXT[/b]
[b]	 Case "قرمز"[/b]
[b]	   Lbl.TextColor = Colors.Red[/b]
[b]	 Case "سبز"[/b]
[b]	   Lbl.TextColor = Colors.Green[/b]
[b]	 Case "آبی"[/b]
[b]	   Lbl.TextColor = Colors.Blue[/b]
[b]	End Select[/b][b]

[مهدی ایزدی 9,203]

سلام

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

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

به شکل زیر عمل می کنیم:

[b]    Private FontSize As EditText[/b][b]    Private FontColor As EditText[/b]
[b]    Private Font As EditText[/b]
[b]    Dim TF As Typeface[/b]
[b]    Dim TXT As String[/b]
[b]    TXT = FontColor.Text[/b]
[b]    Private Lbl As Label[/b]
[b]    Lbl.TextSize = FontSize.Text[/b]
[b]    Lbl.Typeface = Typeface.LoadFromAssets(Font.Text)[/b]
[b]    Select TXT[/b]
[b]     Case "قرمز"[/b]
[b]       Lbl.TextColor = Colors.Red[/b]
[b]     Case "سبز"[/b]
[b]       Lbl.TextColor = Colors.Green[/b]
[b]     Case "آبی"[/b]
[b]       Lbl.TextColor = Colors.Blue[/b]
[b]    End Select[/b]

اتفاقی چشمم به یک چیزی افتاد.

[/b][b]Lbl.Typeface = Typeface.LoadFromAssets(Font.Text)[/b][b]

Font.Text ؟؟؟

[mahfelsoft 130]

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

[mahfelsoft 130]

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

Sub Globals
Dim Label1 As Label
Dim ScrollView1 As ScrollView
Dim Str As StringUtils
Dim ht As Float
Dim myfont As Typeface
Dim text As String
Dim sm As SlideMenu

End Sub


Sub Activity_Create(FirstTime As Boolean)
   'Do not forget to load the layout file created with the visual designer. For example:
   Activity.LoadLayout("darbare")
   ScrollView1.Initialize(2000)
   Activity.AddView(ScrollView1, 0,90,100%x, 100%y)
   myfont = Typeface.LoadFromAssets("IranNastaliq.ttf")

Label1.initialize("Label1")
ScrollView1.Panel.addview(Label1,0,10,97%x,0)
ht=art(text,Label1,myfont,17)
Label1.TextSize = 19
Label1.TextColor = Colors.Black
Label1.text = File.ReadString(File.DirAssets,"darbare.txt")
Label1.Height = Str.MeasureMultilineTextHeight(Label1,Label1.text)
Label1.Gravity=Gravity.RIGHT
ScrollView1.Panel.Height = Label1.Height+50dip

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

اتفاقی چشمم به یک چیزی افتاد.

[b]Lbl.Typeface = Typeface.LoadFromAssets(Font.Text)[/b]

Font.Text ؟؟؟

اینا از علایم پیریه *خنده* چون هنوز صبحونه نخوردم مغزم از کار افتاده. *خنده* کد رو اجرا نکرده بودم به همین صورت گزاشتم.*باکلاس*

MahfelSoft : میتونی تابع تعریف کنی واسش.این تابع رو در نظر بگیر:

[b]Sub Font(Lbl As Label)[/b][b]    
Lbl.Typeface = Typeface.LoadFromAssets("BDavat.ttf")[/b]

[b]End Sub[/b]

این واسه فونت دادنه به لیبل هاست.روش های مختلفی هست فقط الان باید برم صبحونه بخورم همین *خنده*

[mahfelsoft 130]

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

 myfont = Typeface.LoadFromAssets("IranNastaliq.ttf")

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