Ejemplo de wTabs - Nefele 4 Harbour

Acceder Darse de alta He olvidado la contraseña

Etiquetado: wTabs

Este debate tiene 0 respuestas, 1 mensaje y ha sido actualizado por última vez el 4 años, 1 mes por Alfredo Sanz. This post has been viewed 893 times

Mostrando 0 respuestas a los debates

Autor

Entradas

14-10-2020 a las 17:26 #1193

Alfredo Sanz

Superadministrador

Ejemplo aportado por Eduardo Trasviña en el que podemos ver funcionando la clase wTabs

PROCEDURE Tabs1()
   // Comenzamos instanciando la Página Web que queremos crear
   With Object TWebPage():New()
      :lValign          := .f.
      :lContainer       := .f.
      :lAlerts          := .f.

      WITH object WPanel():New(:WO)
         
         :cTitle                := "Clientes"
         :aWidth[ _grande ]     := 10
         :aOffset[ _grande ]    := 1
         :oStyle:cPadding       := 0
         :oStyle:cBorder_radius := "10px"

         WITH OBJECT WForm():New( :WO )
            :cId       := "forma_clientes"
            :cFunction := "#alert('Saliendo')"

            WITH OBJECT wTabs():New( :WO )
               :cId           := "tabs_captura"

               :additem("primero"  , "bevel_uno")
               :additem("segundo"  , "bevel_dos")
               :additem("tercero"  , "bevel_tres")

               :Create()

            end with

            WITH OBJECT WBevel():New(:WO)
               :cId       := "bevel_uno"
               :nStyle    := xc_Row

               WITH object WEdit():New( :WO )
                  :cId                := "cliente"
                  :cHint              := "."
                  :cTitle             := "cliente"
                  :nLength            := 4
                  :Create()
               END WITH

               WITH object WEdit():New( :WO )
                  :cId                := "nombre"
                  :cHint              := "."
                  :cTitle             := "Nombre"
                  :nLength            := 50
                  :Create()
               END WITH

               :Create()
            END WITH

            WITH OBJECT WBevel():New(:WO)
               :cId       := "bevel_dos"
               :nStyle    := xc_Row

               WITH object WEdit():New( :WO )
                  :cId                := "direccion"
                  :cHint              := "."
                  :cTitle             := "Direccion"
                  :nLength            := 40
                  :Create()
               END WITH

               WITH object WEdit():New( :WO )
                  :cId                := "ciudad"
                  :cHint              := "."
                  :cTitle             := "Ciudad"
                  :nLength            := 40
                  :Create()
               END WITH

               :Create()
            END WITH

            WITH OBJECT WBevel():New(:WO)
               :cId       := "bevel_tres"
               :nStyle    := xc_Row

               WITH object WEdit():New( :WO )
                  :cId                := "empresa"
                  :cHint              := "."
                  :cTitle             := "Empresa"
                  :nLength            := 40
                  :Create()
               END WITH

               WITH object WEdit():New( :WO )
                  :cId                := "puesto"
                  :cHint              := "."
                  :cTitle             := "Puesto"
                  :nLength            := 40
                  :Create()
               END WITH

               :Create()
            END WITH

            WITH object WButton():New(:WO)
               :cText                    := "Nuevo Cliente"
               :cIcon                    := "addbox"
               :lLarge                   := .T.
               :nFix                     := "100%"
               :cOnClick                 := "#alert('Nuevo cliente')"
               :Create()
            END

            :Create()

         END WITH   // Form

         :Create()

      END WITH   // Listview principal

      oCgi:SendPage( :Create() )        // Se crea el HTML final y se envía al navegador saliendo del ejecutable CGI

   End With

RETURN
//---------------------------------------
CLASS WTabs FROM ZTabs // Estas dos líneas no harán falta en futuras versiones
ENDCLASS

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

PROCEDURE Tabs1()

// Comenzamos instanciando la Página Web que queremos crear

With Object TWebPage():New()

:lValign := .f.

:lContainer := .f.

:lAlerts := .f.

WITH object WPanel():New(:WO)

:cTitle := "Clientes"

:aWidth[ _grande ] := 10

:aOffset[ _grande ] := 1

:oStyle:cPadding := 0

:oStyle:cBorder_radius := "10px"

WITH OBJECT WForm():New( :WO )

:cId := "forma_clientes"

:cFunction := "#alert('Saliendo')"

WITH OBJECT wTabs():New( :WO )

:cId := "tabs_captura"

:additem("primero" , "bevel_uno")

:additem("segundo" , "bevel_dos")

:additem("tercero" , "bevel_tres")

:Create()

end with

WITH OBJECT WBevel():New(:WO)

:cId := "bevel_uno"

:nStyle := xc_Row

WITH object WEdit():New( :WO )

:cId := "cliente"

:cHint := "."

:cTitle := "cliente"

:nLength := 4

:Create()

END WITH

WITH object WEdit():New( :WO )

:cId := "nombre"

:cHint := "."

:cTitle := "Nombre"

:nLength := 50

:Create()

END WITH

:Create()

END WITH

WITH OBJECT WBevel():New(:WO)

:cId := "bevel_dos"

:nStyle := xc_Row

WITH object WEdit():New( :WO )

:cId := "direccion"

:cHint := "."

:cTitle := "Direccion"

:nLength := 40

:Create()

END WITH

WITH object WEdit():New( :WO )

:cId := "ciudad"

:cHint := "."

:cTitle := "Ciudad"

:nLength := 40

:Create()

END WITH

:Create()

END WITH

WITH OBJECT WBevel():New(:WO)

:cId := "bevel_tres"

:nStyle := xc_Row

WITH object WEdit():New( :WO )

:cId := "empresa"

:cHint := "."

:cTitle := "Empresa"

:nLength := 40

:Create()

END WITH

WITH object WEdit():New( :WO )

:cId := "puesto"

:cHint := "."

:cTitle := "Puesto"

:nLength := 40

:Create()

END WITH

:Create()

END WITH

WITH object WButton():New(:WO)

:cText := "Nuevo Cliente"

:cIcon := "addbox"

:lLarge := .T.

:nFix := "100%"

:cOnClick := "#alert('Nuevo cliente')"

:Create()

END

:Create()

END WITH // Form

:Create()

END WITH // Listview principal

oCgi:SendPage( :Create() ) // Se crea el HTML final y se envía al navegador saliendo del ejecutable CGI

End With

RETURN

//---------------------------------------

CLASS WTabs FROM ZTabs // Estas dos líneas no harán falta en futuras versiones

ENDCLASS

Lo podéis ver funcionando en

https://samples.nefele.dev/cgi-bin/usuarios.exe?tabs1

Autor

Entradas

Mostrando 0 respuestas a los debates

Debes estar registrado para responder a este debate.