Dim lw As LiveWallpaper
Dim btmp As Bitmap
lw.Initialize
btmp.Initialize(File.DirAssets,"rs2.png")
lw.clearWallpaper
Msgbox(lw.WallpaperInfo,"Information")
Msgbox(lw.DesiredMinimumHeight,lw.DesiredMinimumWidth)
lw.WallpaperBitmap(btmp)
You are getting better and fasterPretty cute!
Audiorecorder
Not sure how to record and store files, no sample available.
Advanced Camera
Saves images taken in portrait mode not in portrait mode.
dim lw as LiveWallpaper
lw.clearWallpaper
'Activity module
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.
Dim lw As LiveWallpaper
Dim imgbox As ImageView
Dim btmp As Bitmap
btmp.Initialize(File.DirAssets,"rs2.png")
End Sub
Sub Activity_Create(FirstTime As Boolean)
lw.Initialize
imgbox.Initialize("image")
Activity.AddMenuItem("setBitmap","mnusetBitmap")
Activity.AddMenuItem("clear","mnuClear")
Activity.AddMenuItem("Info","mnuInfo")
Activity.AddView(imgbox,0,0,75,100)
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub mnuClear_Click
lw.clearWallpaper
End Sub
Sub mnuInfo_Click
Msgbox(lw.WallpaperInfo,"info")
Msgbox(lw.DesiredMinimumHeight,lw.DesiredMinimumWidth)
End Sub
Sub mnusetBitmap_Click
lw.WallpaperBitmap(btmp)
End Sub
you can use a timer and set a new bitmap, but I will look for a more efficient, alternative way.
However, It will be a lot easier if I could use the source code of Agraham's GifDecoder Library.
XverhelstX
I just want to make a LW that draws some stuff
Livewallpapers are actually much more complicated than most of the above mentioned features and are probably less useful for most developers / users than most of them.In general, I'm still trying to figure out how complex things like GPS, sensors, widgets, OpenGL, voice recognition, camera, web, etc can be a part of B4A but live wallpaper continues to be so elusive.
We use cookies and similar technologies for the following purposes:
Do you accept cookies and these technologies?
We use cookies and similar technologies for the following purposes:
Do you accept cookies and these technologies?