topic-33753

Posts: 1344

Joined: Wed Nov 16, 2005 09:14 PM

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

Code (fw): Select all Collapse

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 oWnd1

Y este es el .RC

Code (fw): Select all Collapse

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
}

Cualquier sugerencia será bienvenida.

Salu2
Cesar Gomez
https://www.bcnsoft.com.ar
https://www.pedidosbcn.com

groiss

Posts: 234

Joined: Tue Sep 01, 2009 07:55 AM

Re: FOLDEREX EN DIALOGOS NO MODALES
Posted: Thu Mar 09, 2017 11:32 AM

cmsoft, ten en cuenta que tfolderex es un custom control, en los recursos debería estar así:

Code (fw): Select all Collapse

CONTROL "", 4001, "TFOLDEREX",  WS_CHILD | WS_VISIBLE | WS_TABSTOP, 4, 232, 604, 88

Un saludo
José Luis

cmsoft

Posts: 1344

Joined: Wed Nov 16, 2005 09:14 PM

Re: FOLDEREX EN DIALOGOS NO MODALES
Posted: Fri Mar 10, 2017 04:34 PM

Gracias por responder Jose Luis.
Funciono perfecto..
Saludos!!

Salu2
Cesar Gomez
https://www.bcnsoft.com.ar
https://www.pedidosbcn.com

FiveTech Support Forums

Continue the discussion