Poner una ventana en primer plano

En este caso, el empleo dado a la función API setWindowPos ha sido para que la ventana de "splash" de inicio de una aplicación sea siempre visible, y no se quede en segundo plano mientras esta abierta, pero podría usarse para la típica aplicación que deseamos que siempre se quede en primer plano, usando dicha función con su ventana principal.

En primer lugar debemos declararla como función externa del siguiente modo:

Function Boolean SetWindowPos(long hwnd, long hmode, integer ix, integer iy, integer cx, integer cy, ulong flags) library "user32.dll"

Después, sobre la ventana de "splash", en el propio evento open podemos usar el siguiente código:

// Declaración de constantes y variables. CONSTANT ulong HWND_TOPMOST = -1 CONSTANT ulong SWP_NOSIZE = 1 CONSTANT ulong SWP_NOMOVE = 2 CONSTANT ulong SWP_SHOWWINDOW = 64 long ll_hWnd // Recogemos el handle de la ventana y la ponemos en primer plano. ll_hWnd = Handle(This) SetWindowPos(ll_hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE + SWP_NOMOVE + SWP_SHOWWINDOW)

Si queréis información completa de la función SetWindowPos, la podéis encontrar en el MSDN de Microsoft. Respecto a los valores de las constantes los dejo aquí para mayor facilidad:

// Para establecer el orden Z de la ventana. CONSTANT ulong HWND_TOP = 0 CONSTANT ulong HWND_BOTTOM = 1 CONSTANT ulong HWND_TOPMOST = -1 CONSTANT ulong HWND_NOTOPMOST = -2 // Parámetros del falg de SetWindowPos CONSTANT ulong SWP_NOSIZE = 1 CONSTANT ulong SWP_NOMOVE = 2 CONSTANT ulong SWP_NOZORDER = 4 CONSTANT ulong SWP_NOREDRAW = 8 CONSTANT ulong SWP_NOACTIVATE = 16 CONSTANT ulong SWP_FRAMECHANGED = 32 CONSTANT ulong SWP_SHOWWINDOW = 64 CONSTANT ulong SWP_HIDEWINDOW = 128 CONSTANT ulong SWP_NOCOPYBITS = 256 CONSTANT ulong SWP_NOOWNERZORDER = 512 CONSTANT ulong SWP_NOSENDCHANGING = 1024 CONSTANT ulong SWP_DRAWFRAME = SWP_FRAMECHANGED CONSTANT ulong SWP_NOREPOSITION = SWP_NOOWNERZORDER CONSTANT ulong SWP_DEFERERASE = 8192 CONSTANT ulong SWP_ASYNCWINDOWPOS = 16384

Como siempre, espero que os sea de utilidad. Hasta pronto.

Crear objetos de Forma dinámica en un UserObject

Este post se origina con la respuesta que he dado en un foro de Sybase a este tema. Me parece interesante dejarlo aquí para que no se quede en el tintero, luego es muy difícil localizar temas antiguos en los foros.

La problemática surge de que en PB no se puede añadir un objeto, creado de modo dinámico, sobre un objeto de usuario visual. Sin embargo esto si se puede hacer sobre una ventana, así que utilizaremos esta opción para lograr lo que PB no nos permite hacer directamente.

Como se puede resolver... pues muy sencillo, hacemos el CREATE del objeto que queremos poner dinámicamente, le asignamos false a la propiedad visible y utilizamos la función OpenUserObject para pegarlo sobre la propia ventana donde se encuentra nuestro objeto visual, como el objeto esta invisible no se ve, después cambiamos mediante una función de API el padre del objeto creado dinámicamente y le asignamos como nuevo padre nuestro objeto visual y para terminar y antes de cambiar el atributo de visible, asignamos las propiedades que queremos al objeto en cuestión... Así se pierde mucho uno, por lo que lo mostraré con código. Reutilizaré el del post con las modificaciones necesarias para que funcione correctamente. Para poneros en antecedentes se trata de un objeto visual de usuario que se utilizará de barra de herramientas:

VARIABLES DE INSTANCIA DEL UO_BARRA_BOTONES:

PictureButton iPb_Button[] Integer iIndex[], iLastIndex window iw_win Long iHandle[] Integer iLastX = 4, iLastY = 4 Constant Integer HEIGHT_BUTTON = 88 Constant Integer WIDTH_BUTTON = 110

DECLARACIÓN DE FUNCIÓN EXTERNA:

Function ulong SetParent (ulong hWndChild, ulong hWndNewParent) Library "USER32.DLL"

CONSTRUCTOR DEL UO_BARRA_BOTONES:

iw_win = Parent

MÉTODO ADD:

////////////////////////////////////////////////// // Objeto: uo_barra_botones // // Función: of_add // // Argumentos: value integer ai_id // value string as_picture // value string as_tag // value boolean ab_initialstate // // Retorno: integer // // Descripción: Añade un botón en la barra y // recalcula la siguiente posición // ////////////////////////////////////////////////// iLastIndex = UpperBound(ipb_button) iLastIndex ++ ipb_button[iLastIndex] = Create PictureButton ipb_button[iLastIndex].visible = True // Después de crear el PictureButton lo ponemos sobre la // ventana donde esta el objeto visual de usuario. iw_win.openUserObject(ipb_button[iLastIndex]) // Obtenemos el Handle del PictureButton. iHandle[iLastIndex] = Handle(ipb_button[iLastIndex]) // Cambiamos el Padre del PictureButton asignandole ahora // como tal al uo_barra_botoenes SetParent( iHandle[iLastIndex], Handle(This)) // Aquí continuamos con el código normal... sin // olvidarse de hacerlo visible. ipb_button[iLastIndex].x = iLastX ipb_button[iLastIndex].y = iLastY ipb_button[iLastIndex].height = HEIGHT_BUTTON ipb_button[iLastIndex].Width = WIDTH_BUTTON ipb_button[iLastIndex].visible = True ipb_button[iLastIndex].enabled = ab_InitialState iLastX = iLastX + HEIGHT_BUTTON iIndex[iLastIndex] = ai_Id Return 1

Espero que os sirva a todos.

VScrollBar siempre visibles

Cuando la cantidad de páginas mostradas en un dw es solo una, la barra de desplazamiento vertical no aparece y en ocasiones estéticamente puede molestar. PowerBuilder no permite dejar la barra siempre visible y que esta este activa o no según corresponda, pero podemos simularlo utilizando APIS de Windows:

Declaración de funciones externas:

Function boolean ShowScrollBar(long hWnd, long wBar, boolean bShow) Library 'user32' Function boolean EnableScrollBar(long hWnd, ulong wSBflags, ulong wArrows) Library 'user32'

Función:

// Esta función debe llamarse siempre que se inserten o eliminen filas en el dw. Constant long SB_HORZ = 0 Constant long SB_VERT = 1 Constant long SB_CTL = 2 Constant long SB_BOTH = 3 Constant Long ESB_ENABLE_BOTH = 0 Constant Long ESB_DISABLE_BOTH = 3 long ll_pageCount string ls_aux ls_aux = dw_1.describe("evaluate('pageCount()', 0)") ll_pageCount = long(ls_aux) If ll_pageCount = 1 Then If dw_1.vScrollBar Then dw_1.vScrollBar = False ShowScrollBar(handle(dw_1),SB_VERT, True) EnableScrollBar(handle(dw_1),SB_VERT,ESB_DISABLE_BOTH) End If Else If Not dw_1.vScrollBar Then dw_1.vScrollBar = True EnableScrollBar(Handle(dw_1),SB_VERT,ESB_ENABLE_BOTH) End If End If