Android Question some times app open with large scaled stretched objects

tejmccindia

Member
Licensed User
Screenshot_20190118-173806.jpg some time application open with large scaled stretched objects and this condition remain until i exit from app when i exit from app and reopen then its working fine , i am using b4a 8.30 please help
 

tejmccindia

Member
Licensed User
my project is too big to post and cant post all codes for security reasons
here is my designer script code and main activity code

AutoScaleAll
'mccimg.VerticalCenter = loginpanel.Width / 4
mccimg1.Top = mccimg.Top + mccimg.Height + 5dip
Label2.SetTopAndBottom(100%y - (Label2.Height * 1.5) , 100%y)
lblMessage.Top = mccimg1.Top + mccimg1.Height + 1dip


#Region Project Attributes
#ApplicationLabel: Trakit
#VersionCode: 11
#VersionName: Kaina
'SupportedOrientations possible values: unspecified, landscape Or portrait.
#SupportedOrientations: portrait
#CanInstallToExternalStorage: False
#AdditionalRes: ..\resource1


#Extends: android.support.v7.app.AppCompatActivity
#AdditionalJar: com.google.android.gms:play-services-base

#BridgeLogger: True
#MultiDex: True
#End Region
#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region

Sub Process_Globals
Dim access As Accessiblity
Public objPhone1 As Phone
Public deviceid1 As String

Dim strUserID As String
Dim strPassword As String
Dim strUserName As String

Private mpass As String
Private mdeviceid As String
Dim Timer1 As Timer
Dim crypt As Crypter
Dim mytoken1 As String
Dim sql1 As SQL
Dim msgctr As Int
Dim notimessage As String
Dim mcompanyname As String
Private rp As RuntimePermissions
End Sub

Sub Globals
Private gmap As Camera
'Private MapFragment1 As MapFragment
Dim appverno As Int = 11
Private ms1 As String
Private ms2 As String


Dim sf As StringFunctions
Private useridtxt As EditText
Private passtxt As EditText
Private mccimg As ImageView

Private lblMessage As Label
Private loginpanel As Panel
Private lblforgot As Label
Private lblsignup As Label
Private Label2 As Label
Private Loginbtn As Button
Private Label1 As Label
Private loginpanel As Panel
Private Loginbtn As Button
Dim Bmp As Bitmap
Private splashpanel As Panel
Private resetpasslbl As Label
Dim Login As HttpJob
Dim job1 As HttpJob
Dim job2 As HttpJob
Dim job3 As HttpJob


Dim ftemp As String = ""

Private fjobbtn As Button

End Sub

Sub Activity_Create(FirstTime As Boolean)

Activity.LoadLayout("frmlogin")


Dim mbar As ACActionBar


sf.Initialize
mbar.Initialize

mbar.HomeVisible = True
mbar.Title = "Trakit"
mbar.Subtitle = "Trackitsolutions"
Bmp.Initialize(File.DirAssets, "ic_launcher.png")



splashpanel.Visible=True
splashpanel.BringToFront
Timer1.Initialize("Timer1", 3000)
Timer1.Enabled=True
 
Upvote 0
Top