متریال دیالوگ دستی

[ali afrazi 47]

        سلام

 

 

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

 

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

 

          شات:

 

                                           

 

 

 

     سورس پیوست شد.

 

 

 

 

 

 

 

 

material dialog.zip

[امین مهدی نژاد 2,142]

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

البته برای اینکه محدود نشم اونو به صورت کتابخونه درنیاوردم. تا انعطافش کم نشه

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

Private Sub Class_Globals
	Dim pa As Panel
	Private msg As Panel
	Dim Enable As Boolean=False	
End Sub
Public Sub Initialize
	pa.Initialize("pa")
	Dim bitmap As BitmapDrawable
	bitmap.Initialize(LoadBitmap(File.DirAssets,"Untitle.png"))
	pa.Background=bitmap
	pa.Visible=False
End Sub
Public Sub AddView(v As View,i1 As Int,i2 As Int,i3 As Int,i4 As Int)
	msg=v
	pa.AddView(msg,i1,i2,i3,i4)
	Dim cd As ColorDrawable
  cd.Initialize ( Colors.Transparent , 5dip )
	msg.Background=cd
End Sub
Public Sub Show
	Enable=True
	pa.Visible=True
End Sub
Public Sub hide
	Enable=False
	pa.Visible=False
End Sub
Sub pa_click
	'hide
End Sub

مثال استفاده:

	cd.Initialize
	Activity.AddView(cd.pa,0%x,0%y,100%x,100%y)
	Dim msg As Panel
	msg.Initialize("")
	msg.LoadLayout("Dialog")
	cd.AddView(msg,5%x,50%y-100dip,90%x,200dip)	

«موفق باشید.»

dialog.rar