B4J Question [SOLVED][B4X][B4J] SplashScreen problem Transparent

GMan

Well-Known Member
Licensed User
Longtime User
i am using @Erel 's code for displaying a splashscreen with a transparent logo and an transparent screen:

B4X:
Sub ShowSplashScreen
   Dim sp As Form
   sp.Initialize("sp", 600, 600)
   sp.SetFormStyle("TRANSPARENT")
   sp.BackColor = fx.Colors.Transparent
   'change image here
   CSSUtils.SetBackgroundImage(sp.RootPane, File.DirAssets, "aLogo.png")
   sp.Show
   sp.RootPane.Alpha = 0
   sp.RootPane.SetAlphaAnimated(500, 1)
   Wait For (sp.RootPane) sp_AnimationCompleted
   Sleep(3000)
   sp.RootPane.SetAlphaAnimated(1000, 0)
   Wait For (sp.RootPane) sp_AnimationCompleted
   sp.Close
   CallSubDelayed(Me, "Splash_Complete")
End Sub

Allw works fine, but the screen isn't transparent - the .png is !
B4X:
   sp.SetFormStyle("TRANSPARENT")
   sp.BackColor = fx.Colors.Transparent

and
B4X:
sp.RootPane.Alpha = 0

The Sample code works fine !

I am always using paint.net to make pics transparent
 

GMan

Well-Known Member
Licensed User
Longtime User
SOLVED - i hadn't placed the part

B4X:
Sub AppStart (Form1 As Form, Args() As String)
    ' Programmfenster anzeigen
    MainForm = Form1
    ShowSplashScreen
    Wait For Splash_Complete
    MainForm.RootPane.LoadLayout("Layout1")
    MainForm.SetFormStyle("UNIFIED")

NOT at the very beginning of AppStart and initialized some non-Designer objects first: then it will not work and the background colored (here gray)

When placing dirctly behind AppStart all works fine
 
Upvote 0
Top