Sub updateheader (bt As Bitmap)
pnlHdr.RemoveAllViews
pnlHdr.AddView(profilepic,16dip,5%y,80dip,80dip)
profilename.Initialize("profilename")
profileFullname.Initialize("profileFullname")
profilename.TextColor = Colors.White
profilename.TextSize = 12
profilename.Gravity = Gravity.LEFT
profileFullname.TextColor = Colors.White
profileFullname.TextSize = 12
profileFullname.Gravity = Gravity.LEFT
If manager.GetString("Fullname") <> "0" Then
profilename.Text = manager.GetString("User")
profileFullname.Text = manager.GetString("Fullname")
Else
profilename.Text = GetLang.GetResourceString("mymenu2")
profileFullname.Text = GetLang.GetResourceString("mymenu3")
End If
Dim profiletagdown As Label
profiletagdown.Initialize("profiletagdown")
profiletagdown.TextColor = Colors.White
profiletagdown.TextSize = 16
profiletagdown.Typeface = fontawsome.FontAwesomeTypeface
profiletagdown.Text = fontawsome.GetFontAwesomeIconByName("fa-chevron-circle-down")
profiletagdown.Gravity = Gravity.RIGHT
pnlHdr.AddView(profilename,16dip,profilepic.Top + profilepic.Height + 10dip,pnlHdr.Width /2 ,20dip)
pnlHdr.AddView(profileFullname,16dip,profilename.Top + profilename.Height + 10dip,pnlHdr.Width /2,20dip)
pnlHdr.AddView(profiletagdown,drawerwidth - 35dip ,profileFullname.Top + profileFullname.Height + 10dip,20dip,20dip)
profilepic.ImageBitmap = bt
profilepic.ScaleType=profilepic.SCALETYPE_CENTER_CROP
profilepic.Oval=False
profilepic.CornerRadius=0
Dim xImgSize As Int = 25%x * 100%y/100%x
Dim States(3,1) As Int
States(0,0) = 16842919
States(1,0) = 16842910
States(2,0) = -16842910
Dim Color(3) As Int = Array As Int(AppColors,Colors.White, AppColors)
profilepic.setBorderColors(States,Color)
profilepic.BorderWidth=4dip
pnlHdr.Height =profiletagdown.Top + 30dip
headerloader.Visible = False
end sub