Salva en 02:08 27 may 2015

2015-05-27T02:08:40Z

Página nueva

{{Menu|cat=Basic|Titulo=Diálogos multi-página|vers=4.1.x}}
<seo title="Diálogos multi-página - Apache OpenOffice Basic"
metakeywords="multipagina,acceso,control,controles,macro,basic,dialogos,starbasic,manual,curso,tutorial,open,office,openoffice,apache openoffice,libreoffice"
metadescription="Cómo crear y modificar diálogos multi-página en lenguaje OOo Basic (StarBasic) en Apache OpenOffice y LibreOffice"/>

{| class="mitb" width="80%" align="center"
|<big><big>
*[[#Diálogos multi-página |Diálogos multi-página]]</big>
:*[[#Definir las páginas del diálogo |Definir las páginas del diálogo]]
:*[[#Cambiar de página durante la ejecución|Cambiar de página durante la ejecución]]<big>
*[[#Diálogos en varios idiomas |Diálogos en varios idiomas]]
</big></big>
|}

Un diálogo puede contener más de una página (también llamadas ficha o pestaña); para crear múltiples páginas utilizamos la propiedad '''''Página (Step)'''''.

Esta propiedad aplicada a un diálogo creará nuevas páginas y mediante el establecimiento de su valor se define cual es la actual. La misma propiedad, pero aplicada a los controles, define a qué página son asignados.

Cuando esta propiedad se establece a 0 en un diálogo, los controles son visibles en todas las páginas, independientemente del valor de la propiedad '''''Página (Step)''''' de los controles. Del mismo modo, si se establece a 0 para un control, éste será visible en todas las páginas del diálogo.

== Definir las páginas del diálogo ==
El valor de esta propiedad se puede establecer desde el editor de diálogos y/o desde el código '''''Basic'''''. El siguiente ejemplo muestra cómo asignamos el valor de la propiedad a los controles.

<syntaxhighlight lang="oobas">
oDlg = DlgCrear( "Standard", "Dialog1" )
oDlg.Model.Title = "Copias de seguridad de clientes"
oDlg.Model.Step = 1
oModel = Model(oDlg, "ImgCopiar" )
oModel.Step = 1
oModel = Model(oDlg, "ImgRestaurar" )
oModel.Step = 2
</syntaxhighlight>

Aunque se pueda realizar por código, lo más cómodo es hacerlo desde el editor de diálogos. Hemos agregado algunos controles más a nuestro diálogo. Los pasos que hemos seguido son:

:1. Agregar los nuevos controles {{Boton|BtCopiar}}, {{Boton|BtRestaurar}} y '''''FrameControl1'''''. El diálogo mantiene su propiedad '''''Página (Step)''''' a 0, y los nuevos controles la heredan.
:2. Seleccionar el diálogo desde su marco; ajustar su propiedad Página (Step) a 1
:3. Agregar los nuevos controles {{Boton|ListaDst}}, {{Boton|BtAgregaTodos}}, {{Boton|BtAgregaSel}}, {{Boton|BtQuitaSel}}, {{Boton|BtQuitaTodos}}. Por defecto, los nuevos controles agregados heredan la propiedad del diálogo. Ajustar la propiedad '''''Página (Step)''''' a 1 de los controles '''''ImgCopiar''''', '''''ListaOrg''''' y '''''ChkDobleCopia'''''.
:4. Seleccionar el diálogo desde su marco; ajustar su propiedad '''''Página (Step)''''' a 2
:5. Agregar los nuevos controles. Ajustar la propiedad '''''Página (Step)''''' a 2 de los controles '''''ImgRestaurar''''', '''''FcSeleccionar''''' y '''''Label2'''''. Por defecto, los nuevos controles agregados heredan la propiedad del diálogo.

Hemos realizado también algunos ajustes en la ventana diseño para reducir el código mostrado en los ejemplos (tamaño de letra, fondo de color, valores de las listas, orden de tabulación, etc.)

Veamos el aspecto que presenta ahora:

[[Image:dialogos-basic-macro-openoffice-007.png|center|link=]]
<center>''Diálogo con la propiedad '''Página (Step)''' establecida a 1''</center>

[[Image:dialogos-basic-macro-openoffice-008.png|center|link=]]
<center>''Diálogo con la propiedad '''Página (Step)''' establecida a 1''</center>

{{Aviso|ancho=80%|imagen=[[image:Señal_Nota.png|link=]]|color=RoyalBlue|imagenpos= | texto=Si desde el editor de diálogos establecemos la propiedad del diálogo '''''Página (Step)''''' a 0 y hacemos clic en el diálogo, se muestran todos los controles. Estableciendo su propiedad al valor adecuado y haciendo clic en el diálogo se muestran sólo los controles asignados a esa página. }}

Los controles que mantienen el valor 0 de su propiedad '''''Página (Step)''''' serán visibles en todas las páginas del diálogo; hablamos de los botones {{Boton|Aceptar}} y {{Boton|Cancelar}}, {{Boton|Hacer copia}}, {{Boton|Restaurar copia}} y del control '''''Cuadro de grupo'''''.

En cambio, las imágenes y el resto de controles se han establecido en páginas distintas.

La página inicial se puede establecer desde el editor de diálogos o desde el código. Veamos como ha quedado nuestra subrutina '''''Main''''':

<syntaxhighlight lang="oobas">
Sub Main()
'--------------------------------------------------------------------------
Dim oDlg As Object, nBoton As Integer

oDlg = DlgCrear( "Standard", "Dialog1" )
oDlg.Model.Title = "Copias de seguridad de clientes"
oDlg.Model.Step = 1

nBoton = oDlg.Execute()
If nBoton = 1 Then MsgBox ("Se ha pulsado el botón Aceptar", 192, "Información")
DlgCerrar oDlg
End Sub
</syntaxhighlight>

== Cambiar de página durante la ejecución ==
Los botones {{Boton|BtCopiar}} y {{Boton|BtRestaurar}} son los encargados de cambiar de página el diálogo. Debemos escribir una subrutina que asignada al evento '''''Botón del ratón soltado''''' nos permita realizar el cambio de página y los ajustes en otros controles que consideremos oportunos. Veamos el código necesario:

<syntaxhighlight lang="oobas">
Sub BtCopiar_Clic( oEv )
'--------------------------------------------------------------------------
Dim oDlg As Object, oCtrl As Object
oDlg = oEv.Source.Context
oDlg.Model.Step = 1
oDlg.Model.Title = "Copias de seguridad de clientes"
oCtrl = Control( oDlg, "Label1" )
oCtrl.Text = "Selecciona uno de la lista"
End Sub
</syntaxhighlight>

<syntaxhighlight lang="oobas">
Sub BtRestaurar_Clic( oEv )
'--------------------------------------------------------------------------
Dim oDlg As Object, oCtrl As Object
oDlg = oEv.Source.Context
oDlg.Model.Step = 2
oDlg.Model.Title = "Restaurar copias de seguridad de clientes"
oCtrl = Control( oDlg, "Label1" )
oCtrl.Text = "Selecciona el archivo a restaurar"
End Sub
</syntaxhighlight>

== Diálogos en varios idiomas ==
Las propiedades de tipo texto de los controles pueden ser localizadas en multitud de idiomas a elección.

Para localizar los textos debemos mostrar la barra de herramientas '''''Idioma''''' desde el menú '''''Ver > Barras de herramientas...''''', y seleccionando cada idioma a utilizar, definir los textos correspondiente en cada uno de los controles.

{{Aviso|ancho=80%|imagen=[[image:Señal_Nota.png|link=]]|color=RoyalBlue|imagenpos= | texto=Más información sobre localización de diálogos en
:*{{Enlace|https://wiki.openoffice.org/wiki/Documentation/DevGuide/Basic/Dialog_Localization|Dialog Localization}} (en inglés)}}

{{Aviso|ancho=80%|imagen=[[image:Señal_aviso.png|link=]]|color=Orange|imagenpos= | texto='''Importante:''' Si se cambia el nombre a un control, las localizaciones se reinician y se pierden, por lo que es recomendable no localizar hasta que se hayan renombrado todos los controles}}

{{Aviso|ancho=80%|imagen=[[image:Señal_CopyRight.png|link=]]|color=NavajoWhite|imagenpos=top | texto=Texto, imágenes y código bajo licencia [[Image:CC_BY-SA.png|64px|link=http://creativecommons.org/licenses/by-sa/3.0/es/]] Basado en el documento '''Getting Started with Base. Apache OpenOfficetm Database Component''', de '''Drew Jensen''' Copyright 2013 liberado bajo licencia Apache Software License 2.0, que incluye material de:
:*OpenOffice.org 3.3 Getting Started Guide, Chapter 8 - Getting Started with Base, Copyright 2010 Dan Lewis, Iain Roberts, Magnus Adielsson, Jean Hollis Weber, JiHui Choi
:*OpenOffice.org 3.2 BASIC Guide · March 2010, Copyright Oracle Corp. }}

{{Pie|Eventos en OpenOffice Basic|Eventos|Larga=5}}
[[Category:Ver.4.0.x]][[Category:Ver.3.4.x]][[Category:Ver.3.3.x]][[Category:Ver.3.2.x]][[Category:Ver.3.1.x]]

Dialogos multipagina en OpenOffice Basic - Historial de revisiones

Salva en 02:08 27 may 2015