Es posible poder ocultar un Xbrowse cuando se ingrese al dialog, he puesto un botón posterior con el que el usuario podría habilitar una búsqueda con el Xbrowse?
La idea que es que este oculto cuando ingrese, presione el botón muestre el xbrowse y cuando seleccione se oculte y cargue un dato a una variable.
Muchos saludos
Antonio
- Code: Select all Expand view
@ 280,030 SAY "Examen: " SIZE 60,20 PIXEL OF oDlg2 RIGHT FONT oFont16 TRANSPARENT
@ 280,100 SAY oSay12 Prompt Tip_Pro2 SIZE 280,20 PIXEL OF oDlg2 COLOR RGB(0,0,128), RGB(159,233,255) FONT oFont16 BORDER
@ 280, 100 XBROWSE oBrw1 SIZE 300,150 PIXEL OF oDlg2 FONT oFont16;
DATASOURCE aDatos1 ;
COLUMNS 1 ;
HEADERS "Descripcion";
ColSizes 280;
CELL LINES AUTOSORT NOBORDER;
oBrw1:nMarqueeStyle := MARQSTYLE_HIGHLROW
oBrw1:nColDividerStyle := LINESTYLE_INSET
oBrw1:nRowDividerStyle := LINESTYLE_INSET
oBrw1:bClrHeader := {|| { nRGB(140, 0, 0), nRGB( 231, 242, 255 ), } }
oBrw1:nOpacity := 230
oBrw1:bClrStd := {|| { nRGB( 0, 0, 0), nRGB(255,248,220) } }
oBrw1:bClrSelFocus := {|| { nRGB( 255, 255, 255), nRGB(102, 178, 255) } }
oBrw1:bClrSel := {|| { nRGB( 0, 0,255), nRGB(241,222,088) } } // para barra de linea selecc cuando el control no tiene el foco
WITH OBJECT oBrw1
:lFooter := .f.
oBrw1:lVScroll := .f.
oBrw1:lHScroll := .f.
oBrw1:lIncrFilter := .f.
oBrw1:lSeekWild := .F. && .T. Busca Contenido, .F. Que comience con lo que digita
oBrw1:SetStyle( 2018)
oBrw1:nColorPen := CLR_RED
oBrw1:nStretchCol := STRETCHCOL_WIDEST
oBrw1:nRowHeight := (20)
:bLDblClick:={|| xBr:=.T., msgInfo(aMarAdm[oBrw1:nArrayAt]),oBrw1:Hide(), oSay12:Refresh() }
oBrw1:CreateFromCode()
END
@ 280,420 BTNBMP SIZE 30, 28 OF oDLG2 PIXEL 2007 Resource "#8023" FONT oFont16 ;
ToolTip "BUSCAR DATOS";
Action (oBrw1:Show(),oBrw1:Open(),oBrw1:SetFocus()) // Mando a Desactivar Say y Activar Xbrowse
ACTIVATE DIALOG oDlg2 CENTERED ON INIT oBrw1:Hide()
Error:
- Code: Select all Expand view
C compiler version: Borland/Embarcadero C++ 7.0 (32-bit)
Windows version: 6.2, Build 9200
Time from start: 0 hours 0 mins 11 secs
Error occurred at: 16/09/2022, 11:44:10
Error description: Error BASE/1004 Message not found: TXBROWSE:OPEN
Stack Calls
===========
Called from: .\source\function\HARBOUR.PRG => _CLSSETERROR( 247 )
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:OPEN( 11618 )
