FOLDEREX EN DIALOGOS NO MODALES
Posted: Thu Mar 09, 2017 11:01 am
Estimados:
Quiero poner un FOLDEREX en un dialogo no modal, pero luego nunca me da el foco para que pueda acceder a el
Pongo el ejemplo
Y este es el .RC
Cualquier sugerencia será bienvenida.
Quiero poner un FOLDEREX en un dialogo no modal, pero luego nunca me da el foco para que pueda acceder a el
Pongo el ejemplo
Code: Select all
DEFINE WINDOW oWnd1 MDICHILD TITLE "A/B/M" OF oApp:oWnd NOZOOM ICON oApp:oIco
oWnd1:bGotFocus := { || oDlg:SetFocus}
DEFINE DIALOG oDlg RESOURCE "ABMEXPE" OF oWnd1
REDEFINE XBROWSE oBrw DATASOURCE oQry;
COLUMNS "origen","numero","ano","fecha_ent","tema","nombre_rub";
HEADERS "Orig.","Numero","Año","Fecha","Tema","Rubro";
SIZES 60,60,40,90,200,200;
ID 111 OF oDlg AUTOSORT ON DBLCLICK IF("M"$cPermisos,Formu( .f. ),.F.)
REDEFINE FOLDEREX oFol;
ID 4001 ;
OF oDlg;
PROMPT "Hoja de Ruta","Decretos","Ordenanzas","Comunicaciones","Despachos","Resoluciones" ;
PAGES "abms","abms","abms","abms","abms","abms";
ROUND 05 ;
SEPARATOR 05 ;
BOTTOM;
TRANSPARENT
REDEFINE SAY oBrw:oSeek PROMPT "" ID 113 OF oDlg
REDEFINE CHECKBOX oChe VAR lChe ID 112 OF oDlg ON ;
CHANGE ( IF(lChe,(oBrw:lSeekwild:=.t.,oBrw:lIncrFilter:=.t.,oBrw:Seek( "" ),oBrw:Refresh(), oBrw:SetFocus()),;
(oBrw:lSeekwild:=.f.,oBrw:lIncrFilter:=.f.,oBrw:Seek( "" ),oBrw:Refresh(), oBrw:SetFocus())))
// Activo el dialogo y al iniciar muevo a 0,0
ACTIVATE DIALOG oDlg CENTER NOWAIT ON INIT oDlg:Move(0,0)
ACTIVATE WINDOW oWnd1Code: Select all
ABMEXPE DIALOG DISCARDABLE 15, 19, 617, 341
STYLE WS_CHILD
FONT 8, "Tahoma"
{
CONTROL "", 111, "TXBROWSE", WS_TABSTOP|0x00b000a1, 4, 44, 604, 184
CONTROL "Buscar====>>>:", -1, "Static", SS_RIGHT|WS_GROUP, 4, 328, 88, 8
CONTROL "", 113, "Static", WS_GROUP, 100, 328, 444, 8
CONTROL "Filtrando...", 112, "Button", BS_AUTOCHECKBOX|WS_TABSTOP, 552, 324, 56, 10
CONTROL "", 4001, "SysTabControl32", WS_CHILD | WS_VISIBLE | WS_TABSTOP, 4, 232, 604, 88
}