Initial Comit

DPMCharge/About.bas

@@ -0,0 +1,51 @@
+B4A=true
+Group=Default Group
+ModulesStructureVersion=1
+Type=Activity
+Version=11
+@EndOfDesignText@
+#Region  Activity Attributes 
+	#FullScreen: False
+	#IncludeTitle: True
+#End Region
+
+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.
+
+	Private ImageView1 As ImageView
+	Private Label5 As Label
+End Sub
+
+Sub Activity_Create(FirstTime As Boolean)
+	'Do not forget to load the layout file created with the visual designer. For example:
+	'Activity.LoadLayout("Layout1")
+	Activity.LoadLayout("About")
+	Activity.Title="Über..."
+	Label5.text=Chr(0x00A9)& "2021 - Stefan Hutter Unternehmensberatung"
+	Dim Any As Animation
+   
+	Any.InitializeRotateCenter("",360,0,ImageView1)
+	Any.Duration=3000
+	ImageView1.Tag=Any
+	Any.Start(ImageView1)
+End Sub
+
+Sub Activity_Resume
+
+End Sub
+
+Sub Activity_Pause (UserClosed As Boolean)
+
+End Sub
+
+
+Private Sub Button3_Click
+	Activity.Finish
+End Sub