Public Sub Initialize
Log($"Version:${NumberFormat2(Constants.Version, 0, 2, 2, False)}"$)
xui.SetDataFolder("b4x_pleroma")
Settings.Initialize
TextUtils1.Initialize
LinksManager.Initialize
Constants.Initialize
ServerManager1.Initialize
HamburgerIcons.Initialize
store.Initialize(xui.DefaultFolder, "store.dat")
StoreVersion = store.GetDefault("version", 0)
Log($"Store version:${NumberFormat2(StoreVersion, 0, 2, 2, False)}"$)
If StoreVersion < Constants.Version Then
UpdateOldStore
End If
store.Put("version", Constants.VERSION)
Settings.LoadFromStore(store, StoreVersion)
Theme.Initialize(File.ReadString(File.DirAssets, "theme.json"))
ServerManager1.AfterThemeCreated
ImagesCache1.Initialize
ViewsCache1.Initialize
auth.Initialize(Me, "auth")
#if B4A
Provider.Initialize
#End If
Constants.Initialize
push1.Initialize
Report.Initialize
Theme.RegisterForEvents(Me)
Stream.Initialize
Stream.LoadFromStore(store)
B4XPages.GetManager.TransitionAnimationDuration = 0
Sound.Initialize
Sound.AddSound(Constants.SOUND_MESSAGE, File.DirAssets, "message.wav")
ServerFeatures.Initialize
End Sub