Código: Selecionar todos
@ 11, 101 BROWSE ARRAY oBrowse ;
SIZE AppWindowRect( 3 ) - 10 - 10, AppWindowRect( 4 ) - 10 - 100 STYLE WS_BORDER + WS_VSCROLL + WS_HSCROLL + DS_CENTER ;
ON CLICK { || lSelected := .T., oDlg:Close() }
Código: Selecionar todos
STATIC FUNCTION oBrowseKey( oDlg, oBrowse, nKey, cFilter, lSelected )
nKey := hb_KeyStd( nKey )
DO CASE
CASE nKey == VK_RETURN .OR. nKey = VK_ESCAPE
IF nKey == VK_RETURN
lSelected := .T.
ENDIF
oDlg:Close()
RETURN .F.
Código: Selecionar todos
ACTIVATE DIALOG oDlg CENTER
IF Len( oBrowse:aSelected ) != 0
MsgExclamation( "Tem coisa em aSelected" )
ENDIF
IF lSelected .AND. bCode != Nil
Código: Selecionar todos
@ 157,9 OWNERBUTTON oOwnerbutton3 OF oPanel1 SIZE 73,63 ;
ON CLICK {|| ::MANUTENCAO_EXCLUI( LTRIM(str(oPage1:oBrowse1:aArray[ oPage1:oBrowse1:nCurrent, 1]))) , oPage1:oBrowse1:aArray := ::MANUTENCAO_CARREGA( "ORDER BY " + cAlvo_Consulta ), ::MANUTENCAO_onDlgInit( oDlg), obrowse1:REFRESH() };
FLAT ;
TEXT 'Exclui' COLOR 16777215 ;
COORDINATES 0, 40, 0, 0 ;
BITMAP HBitmap():Addresource('delete-256-30') ;
COORDINATES 0, 5, 0, 0 ;
TOOLTIP 'Exclui Produtos'
oOwnerbutton3:aStyle := OwnerbuttonStyle