#Region Project Attributes
#ApplicationLabel: Amir_Fragment
#VersionCode: 1
#VersionName: 1.00
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#End Region
#Region Activity Attributes
#FullScreen: False
#IncludeTitle: False
#End Region
#Extends : android.support.v4.app.FragmentActivity
Sub Process_Globals
End Sub
Sub Globals
Dim Content As Panel
Dim Header As Panel
Private SelectedFragment, ContentId As Int
End Sub
Sub Activity_Create(FirstTime As Boolean)
Header.Initialize("")
Activity.AddView(Header,0,0,100%x,56dip)
Header.Color=Colors.White
Header.Elevation=4dip
Dim Titile As Label
Titile.Initialize("")
Header.AddView(Titile,24dip,0,150dip,56dip)
Titile.TextColor=Colors.Black
Titile.TextSize=20
Titile.Text="Amir_Fragment"
Titile.Gravity=Bit.Or(Gravity.CENTER_VERTICAL,Gravity.LEFT)
Dim F1 As Label
F1.Initialize("ShowFragment")
F1.Tag=1
Header.AddView(F1,100%x-112dip,0,56dip,56dip)
F1.Typeface=Typeface.MATERIALICONS
F1.TextColor=Colors.Black
F1.TextSize=26
F1.Text=Chr(0xE400)
F1.Gravity=Gravity.CENTER
Dim F2 As Label
F2.Initialize("ShowFragment")
F2.Tag=2
Header.AddView(F2,100%x-56dip,0,56dip,56dip)
F2.Typeface=Typeface.MATERIALICONS
F2.TextColor=Colors.Black
F2.TextSize = 26
F2.Text=Chr(0xE401)
F2.Gravity = Gravity.CENTER
Content.Initialize("")
Activity.AddView(Content,0,56dip,100%x,100%y-56dip)
Content.Color = Colors.RGB(248,248,248)
Dim FT As Amir_FragmentTransaction
FT.Initialize
ContentId = FT.GenerateViewId(Content)
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Private Sub ShowFragment_Click
Dim View As View = Sender
Dim FragmentIndex As Int = View.Tag
If FragmentIndex <> SelectedFragment Then
Dim Fragment As Amir_Fragment
Select FragmentIndex
Case 1
Dim First As FirstFragment
First.Initialize
Fragment = First.Fragment
Case 2
Dim Second As SecondFragment
Second.Initialize
Fragment=Second.Fragment
End Select
Dim FT As Amir_FragmentTransaction
FT.Initialize
FT.Replace(ContentId , Fragment)
FT.Transition = FT.TRANSIT_FRAGMENT_OPEN
FT.Commit
End If
SelectedFragment = FragmentIndex
End Sub