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