HEllo everbody;
My new library is same WhatsApp attachment menu.
My new library is same Circle Reveal
This lib need to AnimationMultiple lib.
Please update /download AnimationMultiple lib.
AnimationMultiple in attachmet
(External link or my in signature)
Version 1.10
I added a new methods:
DelayTime(Value As Int)
' set/get value of delay for options animations from background panel animations
' auto change value when you up to Animi_Time
' After, must be call "SetLayout" for recalculate all settings
' After, must be call "OptionsAdd" for recalculate all settings
' After, must be call "OptionsLoad" for recalculate all settings
***************************************
Version 1.03
I added methods:
' set/get value of sizes
' After, must be call "SetLayout" for recalculate all settings
' After, must be call "OptionsAdd" for recalculate all settings
' After, must be call "OptionsLoad" for recalculate all settings
*****************************************************
View attachment 38892 View attachment 38894
#Event:
Click(Text as String, No as Int)
METHOD
'You must declare ColCount and RowCount method
' Text >>
Normal_Pic_File_Name >> fiel name of Option's Normal picture
' Push_Pic_File_Name >> fiel name of Option's Pushing time picture
' Return >> every thing is ok >> TRUE
' SP_Left_Bottom =>>2
' SP_Right_Top =>>3
' SP_Right_Bottom =>>4
' This values use SP_??? for staring animations point
'---settin LAyout values
PROPERTIES:
' SP_Left_Bottom =>>2
' SP_Right_Top =>>3
' SP_Right_Bottom =>>4
' This values use SP_??? for staring animations point
My new library is same WhatsApp attachment menu.
My new library is same Circle Reveal
This lib need to AnimationMultiple lib.
Please update /download AnimationMultiple lib.
AnimationMultiple in attachmet
(External link or my in signature)
Version 1.10
I added a new methods:
DelayTime(Value As Int)
' set/get value of delay for options animations from background panel animations
' auto change value when you up to Animi_Time
' After, must be call "SetLayout" for recalculate all settings
' After, must be call "OptionsAdd" for recalculate all settings
' After, must be call "OptionsLoad" for recalculate all settings
***************************************
Version 1.03
I added methods:
- LEFT As Int
- TOP As Int
- HEIGHT As Int
- WIDTH As Int
' set/get value of sizes
' After, must be call "SetLayout" for recalculate all settings
' After, must be call "OptionsAdd" for recalculate all settings
' After, must be call "OptionsLoad" for recalculate all settings
*****************************************************
View attachment 38892 View attachment 38894
#Event:
Click(Text as String, No as Int)
METHOD
- Initialize(CallbackModule AsObject, EventName AsString, Activityx AsActivity)
- AsMainViewAsView
- OptionsLoad
- OptionsDeleteAll
- OptionsAdd(Text AsString,Normal_Pic_File_Name AsString,Push_Pic_File_Name AsString) AsBoolean
'You must declare ColCount and RowCount method
' Text >>
Normal_Pic_File_Name >> fiel name of Option's Normal picture
' Push_Pic_File_Name >> fiel name of Option's Pushing time picture
' Return >> every thing is ok >> TRUE
- ShowAsBoolean
- HideAsBoolean
- SetLayout'(Left As Int,Top As Int,Width As Int, Height As Int,StartPoint As Int)
' SP_Left_Bottom =>>2
' SP_Right_Top =>>3
' SP_Right_Bottom =>>4
' This values use SP_??? for staring animations point
'---settin LAyout values
- isShowAsBoolean
PROPERTIES:
- Animi_Time(value AsInt)
- Padding(value AsInt)
- Col_Count(value AsInt)
- Row_Count(value AsInt)
- BackgroundColor(Color AsInt)
- TextColor(Color AsInt)
- StartingPoint(Value AsInt)
' SP_Left_Bottom =>>2
' SP_Right_Top =>>3
' SP_Right_Bottom =>>4
' This values use SP_??? for staring animations point
- TextSize(Value AsInt)
B4X:
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
End Sub
Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Private z As wAppMenu
Public b,c,d,e,TL,TR,BL,BR As Button
Private p As ImageView
Private s As Spinner
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("Layout1")
z.Initialize(Me,"z",Activity)
TL.Initialize("TL")
TR.Initialize("TR")
BL.Initialize("BL")
BR.Initialize("BR")
Activity.AddView(TL,0,0,40%x,20%y)
Activity.AddView(TR,60%x,0,40%x,20%y)
Activity.AddView(BL,0,55%y,40%x,20%y)
Activity.AddView(BR,60%x,55%y,40%x,20%y)
TL.Text="3x2 cells, 3sec, 10dip pad."
TR.Text="2x3 cells, 10sec, 2dip pad."
BL.Text="2x2 cells, 5sec, 20dip pad."
BR.Text="3x1 cells, 1 sec, 5dip pad"
b.Initialize("b")
c.Initialize("c")
d.Initialize("d")
d.Initialize("d")
s.Initialize("s")
Activity.AddView(b,0,90%y,50%x,10%y)
b.Text="show"
Activity.AddView(c,50%x,90%y,50%x,10%y)
c.Text="close"
Activity.AddView(z.AsMainView,0,25%y,100%x,30%y)
End Sub
Sub TL_Click
z.BackgroundColor=Colors.Yellow
z.TextColor=Colors.Blue
z.Animi_Time=3000
z.Col_Count=3
z.Row_Count=2
z.Padding=10dip
z.StartingPoint=1
z.SetLayout
z.OptionsDeleteAll
If z.OptionsAdd("Option #1","1.png","1n.png")=False Then LogColor("1# error",Colors.red)
If z.OptionsAdd("Option #2","2.png","2n.png")=False Then LogColor("2# error",Colors.red)
If z.OptionsAdd("Option #3","3.png","3n.png")=False Then LogColor("3# error",Colors.red)
If z.OptionsAdd("Option #4","4.png","4n.png")=False Then LogColor("4# error",Colors.red)
If z.OptionsAdd("Option #5","5.png","5n.png")=False Then LogColor("5# error",Colors.red)
If z.OptionsAdd("Option #6","6.png","6n.png")=False Then LogColor("6# error",Colors.red)
z.OptionsLoad
End Sub
Sub TR_Click
z.BackgroundColor=Colors.Blue
z.TextColor=Colors.Yellow
z.Animi_Time=10000
z.Col_Count=2
z.Row_Count=3
z.Padding=2dip
z.StartingPoint=3
z.SetLayout
z.OptionsDeleteAll
If z.OptionsAdd("Option #1","1.png","1n.png")=False Then LogColor("1# error",Colors.red)
If z.OptionsAdd("Option #2","2.png","2n.png")=False Then LogColor("2# error",Colors.red)
If z.OptionsAdd("Option #3","3.png","3n.png")=False Then LogColor("3# error",Colors.red)
If z.OptionsAdd("Option #4","4.png","4n.png")=False Then LogColor("4# error",Colors.red)
If z.OptionsAdd("Option #5","5.png","5n.png")=False Then LogColor("5# error",Colors.red)
If z.OptionsAdd("Option #6","6.png","6n.png")=False Then LogColor("6# error",Colors.red)
z.OptionsLoad
End Sub
Sub BL_Click
z.BackgroundColor=Colors.White
z.TextColor=Colors.Red
z.Animi_Time=5000
z.Col_Count=2
z.Row_Count=2
z.Padding=20dip
z.StartingPoint=2
z.SetLayout
z.OptionsDeleteAll
If z.OptionsAdd("Option #1","1.png","1n.png")=False Then LogColor("1# error",Colors.red)
If z.OptionsAdd("Option #2","2.png","2n.png")=False Then LogColor("2# error",Colors.red)
If z.OptionsAdd("Option #3","3.png","3n.png")=False Then LogColor("3# error",Colors.red)
If z.OptionsAdd("Option #4","4.png","4n.png")=False Then LogColor("4# error",Colors.red)
If z.OptionsAdd("Option #5","5.png","5n.png")=False Then LogColor("5# error",Colors.red)
If z.OptionsAdd("Option #6","6.png","6n.png")=False Then LogColor("6# error",Colors.red)
z.OptionsLoad
End Sub
Sub BR_Click
z.BackgroundColor=Colors.LightGray
z.TextColor=Colors.Blue
z.Animi_Time=1000
z.Col_Count=3
z.Row_Count=1
z.Padding=5dip
z.StartingPoint=4
z.SetLayout
z.OptionsDeleteAll
If z.OptionsAdd("Option #1","1.png","1n.png")=False Then LogColor("1# error",Colors.red)
If z.OptionsAdd("Option #2","2.png","2n.png")=False Then LogColor("2# error",Colors.red)
If z.OptionsAdd("Option #3","3.png","3n.png")=False Then LogColor("3# error",Colors.red)
If z.OptionsAdd("Option #4","4.png","4n.png")=False Then LogColor("4# error",Colors.red)
If z.OptionsAdd("Option #5","5.png","5n.png")=False Then LogColor("5# error",Colors.red)
If z.OptionsAdd("Option #6","6.png","6n.png")=False Then LogColor("6# error",Colors.red)
z.OptionsLoad
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub b_Click
z.Show
End Sub
Sub c_Click
z.Hide
End Sub
Sub z_Click(Text As String, No As Int)
Msgbox(Text,No)
Log(Text &" --- "&No)
End Sub
Attachments
Last edited: