Se puede aumentar el tamaño y visualizar mejor el dato, como se muestra en la siguiente imagen sin perder la forma.
viernes, 12 de agosto de 2016
Objeto para reemplazar el uso de DDDW
Se puede aumentar el tamaño y visualizar mejor el dato, como se muestra en la siguiente imagen sin perder la forma.
martes, 4 de agosto de 2015
Modernizar la presentación de aplicaciones PowerBuilder
He desarrollado una presentación moderna para aplicaciones PowerBuilder utilizando los componentes Outlook Style Bar y Ribbon Style Menu de PB Ultimate Suite.
Utilizo Outlook Style Bar para obtener un Menú de estilo Outlook en PowerBuilder que reemplaza al clásico menú principal y permita abrir windows dentro de un marco mdi! o mdihelp!.
Utilizo Ribbon Style Menu para obtener un Menú estilo Ribbon en PowerBuilder el cual tiene las opciones comunes que toda ventana necesita como Nuevo, Editar, Guardar, Buscar, Vista Previa, Imprimir, etc.
Presentación clásica:
Menú Ribbon en PowerBuilder
Menu Outlook en PowerBuilder
martes, 21 de julio de 2015
Obtener nombre de la ventana activa
This.ClassName()
Ejemplo:
String ls_NombreVentana
ls_NombreVentana = This.ClassName()
MessageBox('Nombre de Ventana Activa', ls_NombreVentana)
martes, 9 de agosto de 2011
Asociar Menu a un Window por PowerScript
lunes, 12 de octubre de 2009
MDI con Menu Treeview
1 - Suponiendo que ya tenemos nuestro window mdi (ejemplo w_frame)
2 - Suponiendo tambien que tenemos nuestro menu principal (ejemplo m_frame)
3 - Crearemos un Objeto Window (w_menu_treeview), tipo Child, al cual le agregaremos un objeto TreeView.
4 - Activar la propiedad LinesAtRoot del Objeto TreeView, esto nos permite mostrar el desplazamiento al estilo explorer.
5 - En el Evento Open de w_frame copiar y pegar este script:
//Se abre w_menu_treeview
Open(w_menu_treeview, This)
//Posicionando w_menu_treeview a un lado del frame
w_menu_treeview.Y = w_menu_treeview.Y + 112
6 - En el Evento Resize de w_frame copiar y pegar este script:
IF IsValid(w_menu_treeview) THEN
w_menu_treeview.Height = NewHeight - w_menu_treeview.Y - mdi_1.MicroHelpHeight
mdi_1.Width = NewWidth - w_menu_treeview.Width
mdi_1.Height = w_menu_treeview.Height
END IF
7 - En el Evento Constructor del Objeto TreeView de w_menu_treeview, solo por dar un ejemplo copiar y pegar este script:
Long ll_Expandir, ll_Item, ll_SubItem
ll_Item = tv_1.InsertItemLast(0,"Archivo", 1)
ll_SubItem = tv_1.InsertItemLast(ll_Item,"Window", 2)
ll_Expandir = tv_1.FindItem( RootTreeItem!, 0 )
tv_1.ExpandAll( ll_Expandir )
8 - En el Evento SelectionChanged del Objeto TreeView de w_menu_treview, tambien para el ejemplo copiar y pegar este script:
Integer li_Ind
String ls_MenuEtiqueta
TreeViewItem l_tvi
This.GetItem(NewHandle, l_tvi)
ls_MenuEtiqueta = l_tvi.Label
Choose Case ls_MenuEtiqueta
Case "Window"
OpenSheet(w_window, w_frame, 1, Original!)
End Choose
Disculpas por no subir imagenes, estoy en el trabajo y mi explorer es limitado. Pueden descargar el archivo ejemplo de:
http://www.megafileupload.com/en/file/143776/MDI-Treeview-rar.html
domingo, 30 de noviembre de 2008
Animacion en Titulo de Ventana
Para hacer movible el titulo de la ventana tienes que programar lo siguiente:
Evento Timer:
Char lc_caracter
lc_caracter = TITLE
TITLE = Mid ( TITLE , 2 )
TITLE = TITLE + lc_caracter
Evento Open:
Timer(0.1)
jueves, 17 de julio de 2008
Window Ancestro
3 - Para poder reutilizar las propiedades del Window Base o Ancestro vamos agregar eventos de usuario (User Events). Para crear User Events, nos posicionamos en la pestaña Event List que se encuentra en la parte inferior:
- ue_nuevo
- ue_grabar
- ue_eliminar
- ue_anular
- ue_buscar
- ue_imprimir
- ue_preliminar
- ue_siguiente
- ue_anterior
- ue_inicio
- ue_fin
- ue_validar
- ue_zoom
- ue_regla
7 - Para heredar de este Window Base o Ancestro (w_base) solo tenemos que darle click derecho sobre el y elegir la opcion Inherit from (desde la version 10.5 a inferiores solo dice Inherit)
Espero haber sido de gran ayuda, cualquier comentario o sugerencia no duden en escribir
lunes, 14 de abril de 2008
Cerrar un Window con la tecla ESC
CHOOSE CASE Key
CASE KeyEscape!
Close (This)
END CHOOSE
domingo, 13 de abril de 2008
Window Object
Creando un Objeto Window
- Click en el boton NEW del PowerBar, a continuación nos mostrara la sgte ventana, elegimos la pestaña PB Object, click a Window y OK.
- Luego se mostrara el Objecto Window creado al cual le debemos definir un nombre (siempre anteponiendo w_)
Tipos de Windows
La propiedad WindowType permite establecer el tipo de la ventana. Cómo se comportan los diferentes tipos de ventana se verá a continuación.
Window Main (Ventana Principal): Son independientes de otros windows
Window Popup (Ventana Emergente): Son Windows secundarios que se abren desde una ventana principal. Se abren fuera de la ventana principal, pero se cierran o minimizan cuando se cierra o minimiza la ventana principal.
Window Child (Ventana Hija): Los Windows Child son siempre abiertos desde un window main o popup, los que llegan a ser su window parent. Un window child sólo existe dentro de su parent. No puede tener asociado un menú y nunca son considerados como el window activo. Un window child se cierra cuando su parent se cierra.
Window Response (Ventana de Respuesta): Los Windows Response piden información al usuario, siempre son abiertos dentro de otro window.












