hi
i have an ios app that has 3 pages. when i switch between the pages i see that the Show sub will be called first then will the _Appear sub then the _Resize will be called.
on my phone everything is working well i tested it also on the simulator and it is working as expected.
today i talked to a user about another issue he had with my app but then he also complained about my app been zoomed out on his phone. he said that in the beginning when he used the app it was ok and after a while it start to show the page zoomed out.
this is how it looks on his phone:
this is how it should look:
what could be the reason for that?
in the layout file "Handle Resize" is unchecked because i hande resize in code with resize sub.
i use variant 414x736 and my resize event look like this:
i have an ios app that has 3 pages. when i switch between the pages i see that the Show sub will be called first then will the _Appear sub then the _Resize will be called.
on my phone everything is working well i tested it also on the simulator and it is working as expected.
today i talked to a user about another issue he had with my app but then he also complained about my app been zoomed out on his phone. he said that in the beginning when he used the app it was ok and after a while it start to show the page zoomed out.
this is how it looks on his phone:
this is how it should look:
what could be the reason for that?
in the layout file "Handle Resize" is unchecked because i hande resize in code with resize sub.
i use variant 414x736 and my resize event look like this:
B4X:
Private Sub mysalary_Resize(Width As Int, Height As Int) 'resize sub '| nr. 3
Log("mysalary resize sub")
'start rexize all views
ratiox = Width/414 'iphone 6+ 5.5" = x414
ratioy = Height/716 'iphone 6+ 5.5" = y736 - 20!
density = GetDeviceLayoutValues.DeviceApproximateScreenSize / 5.27
For Each v As View In mysalary.RootPanel.GetAllViewsRecursive
If Not(v.Tag = "dnrm") Then
v.Width = v.Width*ratiox
v.Height = v.Height*ratioy
v.Left = v.Left*ratiox
v.Top = v.Top*ratioy
End If
If v Is Label Then
Dim lbl As Label = v
Dim fontsize As Int = lbl.Font.Size
Dim fontname As String = lbl.Font.Name
lbl.Font = Font.CreateNew2(fontname, fontsize*density)
else if v Is Button Then
Dim btn As Button = v
Dim fontsize As Int = btn.CustomLabel.Font.Size
Dim fontname As String = btn.CustomLabel.Font.Name
btn.CustomLabel.Font = Font.CreateNew2(fontname, fontsize*density)
else if v Is TextField Then
Dim txtf As TextField = v
Dim fontsize As Int = txtf.Font.Size
Dim fontname As String = txtf.Font.Name
txtf.Font = Font.CreateNew2(fontname, fontsize*density)
End If
Next
loadvalues
addtosv(salaryp1) 'load page1
End Sub
