Private Sub Page1_Resize(Width As Int, Height As Int)
vedo che vuoi aggiungere una View (EditText) ad un pannello. Con b4a (e quindi al 99% con b4i) il modo migliore di caricare un pannello con delle view è caricarci un layout senza AutoScaleAll (sempre sfruttando ancoraggi e Script).
Se non vuoi che le view cambiano nelle diverse risoluzioni, allora non devi usare le percentuali "%" e neanche "AutoScaleAll".
Stai diventando pigro, prima elargivi codice sorgente a iosa, adesso fai il prezioso. ?
#ApplicationLabel: Alte Ego menu
#Version: 1.0.0
'Orientation possible values: Portrait, LandscapeLeft, LandscapeRight and PortraitUpsideDown
#iPhoneOrientations: Portrait, LandscapeLeft, LandscapeRight
#iPadOrientations: Portrait, LandscapeLeft, LandscapeRight, PortraitUpsideDown
#Target: iPhone, iPad
#ATSEnabled: True
#MinVersion: 8
#End Region
Sub Process_Globals
'These global variables will be declared once when the application starts.
'Public variables can be accessed from all modules.
Public App As Application
Public NavControl As NavigationController
Private Page1 As Page
Private pnlstart As Panel
Private pnldati As Panel
Private pnlweb As Panel
Private pnlordine As Panel
Private txtdati As TextField
Private imgconfermadati As ImageView
Private lblinfodati As Label
Private lbldescdati As Label
Private imgalterego As ImageView
Private imgbackdati As ImageView
Private imgdati As ImageView
Private imgmenu As ImageView
Private imglista As ImageView
Private lblinfomenu As Label
Private WebView1 As WebView
Private imgpizzeria As ImageView
Private imgpanini As ImageView
Private imgristorante As ImageView
Private imgcocktail As ImageView
Private imgvarie As ImageView
Private imgbackweb As ImageView
Private txtordine As TextField
Private imgaggiungi As ImageView
Private imgbackordine As ImageView
Private imginvio As ImageView
Private imgsplashscreen As ImageView
Private imgsfondo1 As ImageView
Private imgsfondoordine As ImageView
Private imgsfondoweb As ImageView
Private imgsfondostart As ImageView
End Sub
Private Sub Application_Start (Nav As NavigationController)
'SetDebugAutoFlushLogs(True) 'Uncomment if program crashes before all logs are printed.
NavControl = Nav
Page1.Initialize("Page1")
Page1.Title = "Alter Ego - Partanna"
Page1.RootPanel.Color = Colors.White
NavControl.ShowPage(Page1)
Page1.RootPanel.LoadLayout("alterego")
End Sub
Private Sub Page1_Resize(Width As Int, Height As Int)
End Sub
Private Sub Application_Background
End Sub
Sub imgconfermadati_Click
End Sub
Sub imgbackdati_Click
End Sub
Sub imgdati_Click
End Sub
Sub imgmenu_Click
End Sub
Sub imglista_Click
End Sub
Sub imgpizzeria_Click
End Sub
Sub imgpanini_Click
End Sub
Sub imgristorante_Click
End Sub
Sub imgcocktail_Click
End Sub
Sub imgvarie_Click
End Sub
Sub imgbackweb_Click
End Sub
Sub imgaggiungi_Click
End Sub
Sub imgbackordine_Click
End Sub
Sub imginvio_Click
End SubNo, è che non ho B4i, altrimenti lo avrei fatto con molto piacere (anche perchè, pur di perdere tempo ed evitare di fare ciò che dovrei, farei "qualunque" cosa ?)
Per abitudine (ma credo anche per "efficienza") faccio in modo molto simile, ma inverso; posiziono la View più o meno nella posizione voluta, poi imposto gli ancoraggi ed infine scrivo le distanze dai bordi. Questo perché impostando prima gli ancoraggi, il testo delle proprietà cambia, lo leggo e sono certo di aver ancorato "bene" - entrambi lati, in questo caso.
