Share My Creation B4X Template Code Generator 1.00

Jhonn · Feb 23, 2022

Correct code!!

Sample Code Generated for a Custom Dialog:

'CODE GENERATED BY TOOL. TEMPLATE: B4X DIALOG CUSTOM. LAYOUT: "layout5"
'Warning: if you change design names must be regenerate code.
'Parent: mContent
'Views: TitleBar,Forms,Label1,Icon,Title,Minimize,Maximize,Close

Sub Class_Globals
    Private xui As XUI
    Private mContent As B4XView
    Private mDialog As B4XDialog
End Sub

'Initializes the object. You can add parameters to this method if needed.
Public Sub Initialize(Parent As B4XView)
    mDialog.Initialize(Parent)
    mContent = xui.CreatePanel("")
    #if B4A
    setSize(80%x, 80%y) 'Set default size 80%
    #Else
        setSize(Parent.Width * 0.8, Parent.Height * 0.8) 'Set default size 80%
    #End if
End Sub

Private Sub LoadAllContent
    If mContent.IsInitialized Then mContent.RemoveAllViews
    mContent.LoadLayout("layout5") 'Here if need access views else BEFORE show
    
End Sub

'You call first after initiliaze
Sub setSize(Width As Int, Height As Int)
    mContent.Width = Width
    mContent.Height = Height
    LoadAllContent
End Sub

'B4XDialog
Sub getDialog() As B4XDialog
    Return mDialog
End Sub

'Get the panel that contains this layout: "layout5"
Sub getContent() As B4XView 'Panel
    Return mContent
End Sub

Public Sub getTitleBar() As B4XView 'Panel
    Return GetView( "TitleBar" )
End Sub

Public Sub getIcon() As B4XView 'ImageView
    Return GetViewTitleBar( "Icon" )
End Sub

Public Sub getTitle() As B4XView 'Label
    Return GetViewTitleBar( "Title" )
End Sub

Public Sub getMinimize() As B4XView 'ImageView
    Return GetViewTitleBar( "Minimize" )
End Sub

Public Sub getMaximize() As B4XView 'ImageView
    Return GetViewTitleBar( "Maximize" )
End Sub

Public Sub getClose() As B4XView 'ImageView
    Return GetViewTitleBar( "Close" )
End Sub

'TitleBar Views: "Icon","Title","Minimize","Maximize","Close"
Sub GetViewTitleBar(Name As String) As B4XView
    Dim Views As List: Views.Initialize2(Array As String("Icon","Title","Minimize","Maximize","Close"))
    Return getTitleBar.GetView(Views.IndexOf(Name))
End Sub

Public Sub getForms() As B4XView 'Panel
    Return GetView( "Forms" )
End Sub

Public Sub getLabel1() As B4XView 'Label
    Return GetViewForms( "Label1" )
End Sub

'Forms Views: "Label1"
Sub GetViewForms(Name As String) As B4XView
    Dim Views As List: Views.Initialize2(Array As String("Label1"))
    Return getForms.GetView(Views.IndexOf(Name))
End Sub

'Activity Views: "TitleBar","Forms"
Sub GetView(Name As String) As B4XView
    Dim Views As List: Views.Initialize2(Array As String("TitleBar","Forms"))
    Return mContent.GetView(Views.IndexOf(Name))
End Sub

'Show a custom dialog using B4XDialog
Public Sub Show(Yes As Object, Cancel As Object, No As Object) As Object
    'LoadAllContent 'Here if not access views BEFORE show, else SetSize
    
    Dim res As Object = mDialog.ShowCustom(mContent, Yes, Cancel, No)

    TempFixedHeight 'Temp

    'Random Animate
    AnimateDialog(Array As String("bottom", "top", "left", "right")(Rnd(0, 4)) )
            
    Return res
End Sub

'Close custom B4XDialog
Public Sub CloseDialog(Result As Int) As Boolean
    Return mDialog.Close(Result)
End Sub

'Animate Dialog Fragment Code from forum by Erel
Public Sub AnimateDialog (FromEdge As String)
    Dim base As B4XView = mDialog.Base
    Dim top As Int = base.Top
    Dim left As Int = base.Left
    Select FromEdge.ToLowerCase
        Case "bottom": base.Top = base.Parent.Height
        Case "top": base.Top = -base.Height
        Case "left": base.Left = -base.Width
        Case "right": base.Left = base.Parent.Width
    End Select
    base.SetLayoutAnimated(300, left, top, base.Width, base.Height)
End Sub

'Fixed buttons top
Sub TempFixedHeight
    #IF B4A
    For Each b As B4XView In mDialog.Base.GetAllViewsRecursive
        If (Not(b Is Panel)) Then
            If b Is Label Then b.Top = getContent.Top + getContent.Height + 1dip 'Fixed Top
        Else
            Exit
        End If
    Next
    #END IF
End Sub

Share My Creation B4X Template Code Generator 1.00

Jhonn

Member

Similar Threads