cheveguerra/Kelloggs_v4
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Kelloggs_v4.git synced 2026-04-21 03:49:14 +00:00
Code Issues Packages Projects Releases Wiki Activity

20/11/23 - Cambios en defailt para clientes nuevos y algunos estilos

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2023-11-20 22:56:22 -06:00
parent 6a303eb0dc
commit 25eb489d91
9 changed files with 42 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
B4A/B4XMainPage.bas
View File

@@ -544,7 +544,10 @@ Private Sub B4XPage_CloseRequest As ResumableSub
' BACK key pressed
'Return True to close, False to cancel
Log("BACK")
If Panel1.Visible Then
If p_extras.Visible Then
p_extras.Visible = False
Return False
else If Panel1.Visible Then
Panel1.Visible = False
Entrar.Visible = True
p_extras.Visible = False
@@ -816,7 +819,7 @@ Private Sub et_geocerca_TextChanged (Old As String, New As String)
End Sub
Private Sub b_extras_Click
p_extras.Top = p_botones.Top
p_extras.Top = E_SERVER.Top
kh.centraPanel(p_extras, Root.Width)
p_extras.Elevation = 100dip
p_extras.BringToFront