Como se pone txbrowse en un folder (ya resuelto gracias)

[AIDA]

HOLA

Como se pone un txbrowse en un folder
ya puse en folders campos get , say y campos memo con botones y todo bien pero poner un txbrowse no le encuentro como hacerle


ya me da mucha pena estar de preguntona pero si no nunca terminare.


Espero ya no molestar mas

Gracias por todo

Aida

[jfafive]

Hola Aida,

Espero que te sirva este ejemplo. En él, he inhabilitado el segundo y tercer folder, dejando solo activo el primero que es el unico al que le he asignado un XBrowse.

Espero que te funcione.

Un saludo.

Code: Select all  Expand view

STATIC function fBrowse()

   local oDlg, oBrwContactos, oTab

   CLOSE ALL
   USE DATABASE\CONTACTO.DBF ALIAS "CONTACTO" NEW

   SELECT CONTACTO

   DEFINE DIALOG oDlg RESOURCE "DIALOGO1"

   REDEFINE FOLDER oTab ID ID_TAB OF oDlg ;
     PROMPTS "BROWSE1",;
             "BROWSE2",;
             "BROWSE3";
     DIALOGS "BROW_DLG1",;
             "BROW_DLG2",;
             "BROW_DLG3"

   REDEFINE XBROWSE oBrwContactos ID ID_BROWSE OF oTab:aDialogs[1] ;
      ALIAS "CONTACTO";
      HEADERS "Nombre",;
              "Cargo",;
              "Telefono",;
              "Fax",;
              "Email",;
              "Observaciones";
      COLUMNS "NOMBRE",;
              "CARGO",;
              "TFNO",;
              "FAX",;
              "EMAIL",;
              "OBSERVACIO";
      JUSTIFY AL_LEFT,;
              AL_LEFT,;
              AL_RIGHT,;
              AL_RIGHT,;
              AL_RIGHT,;
              AL_RIGHT;
      COLSIZES 100,100,100,100,100,100

   oTab:aEnable[1] := .t.
   oTab:aEnable[2] := .f.
   oTab:aEnable[3] := .f.

   ACTIVATE DIALOG oDlg CENTERED

return nil


[AIDA]

Gracias Jfafive

Mi TxBrowse esta muy diferente a tu ejemplo te pongo el mio

espero que el mio se pueda poner en un folder por que seran 4 folders con TxBrowse.

Saludos y gracias

//---------------------------------------------------------//

Function oDbfBrowse2(pErsosS,cFile,oWndD)

local oDlx, oCol, oDlg, oBtnBmp, oBrush, oPersos,oBmp
local cPath,oActiveX,oActiveXX
local OCHO:=0



DEFINE BRUSH oBrush FILE "ima\tapiz5.bmp"

DEFINE DIALOG oDlx RESOURCE "BITA" TRANSPARENT BRUSH oBrush OF oWnd



REDEFINE SAY oPersos VAR pErsosS ID 14 OF oDlx

REDEFINE BITMAP oBmp FILE cFile ID 15 OF oDlx ADJUST


cPath := cFilePath( GetModuleFileName( GetInstance() ) )

oActiveX = TActiveX():Redefine( 16, oDlx, "ShockwaveFlash.ShockwaveFlash.9" )
oActiveXX = TActiveX():Redefine( 19, oDlx, "ShockwaveFlash.ShockwaveFlash.9" )



dbselectarea( "BITACORA" )
dbgotop()


oBrw := TXBrowse():New( oDlx )




oBrw:nMarqueeStyle := 6

obrw:nfreeze:=1
obrw:nfreeze:=2



oBrw:blDblClick:={|| (Sndplaysound("select.wav"),modguarda(oBrw)) }
oBrw:bKeyDown :={|| Sndplaysound("select.wav") }

oBrw:nColDividerStyle := LINESTYLE_BLACK
oBrw:nRowDividerStyle := LINESTYLE_BLACK
oBrw:lColDividerComplete := .t.
oBrw:nHeaderLines := 1
oBrw:nFooterLines := 1

oBrw:lFooter := .t.
oBrw:lFastEdit := .T.

oBrw:bClrStd := {|| {CLR_BLACK, iif( oBrw:nArrayAt % 2 = 0, RGB(245,255,250 ),RGB(176,196,222 ) ) } }


oBrw:bClrStd:= {|| { IIF(BITACORA->TIPO="Falsa Alarma",Rgb(255,0,0),CLR_BLACK) , IIF(OrdKeyNo()%2=0,Rgb(193,221,255),Rgb(221,245,255)) } }



oCol:= oBrw:AddCol()
oCol:cHeader := "TURNO"
oCol:bClrHeader := { || { CLR_RED ,RGB(176,196,222 ) } }
oCol:bStrData := { || ALLTRIM(BITACORA->TURNO)}
oCol:nHeadStrAlign := AL_CENTER
oCol:nDataStrAlign := AL_CENTER
oCol:nWidth := 45
oCol:bRClickHeader := { |nRow,nCol| Alert( oBrw:nColOffSet - 1 + oBrw:MouseColPos( nCol ) ) }

oCol:= oBrw:AddCol()
oCol:cHeader := "UNIDAD"
oCol:bClrHeader := { || {CLR_RED,RGB(176,196,222 ) } }
oCol:bStrData := { || BITACORA->UNIDAD}
oCol:nHeadStrAlign := AL_CENTER
oCol:nDataStrAlign := AL_CENTER
oCol:nWidth := 55
oCol:bRClickHeader := { |nRow,nCol| Alert( oBrw:nColOffSet - 1 + oBrw:MouseColPos( nCol ) ) }



oCol:= oBrw:AddCol()
oCol:cHeader := "FECHA"
oCol:bClrHeader := { || { CLR_RED,RGB(176,196,222 ) } }
oCol:bStrData := { || DToC(BITACORA->FECHA)}
oCol:nHeadStrAlign := AL_CENTER
oCol:nDataStrAlign := AL_LEFT
oCol:nWidth := 65
oCol:bRClickHeader := { |nRow,nCol| Alert( oBrw:nColOffSet - 1 + oBrw:MouseColPos( nCol ) ) }

oCol:= oBrw:AddCol()
oCol:cHeader := "DATOS SERVICIOS"
oCol:bClrHeader := { || { CLR_RED,RGB(176,196,222 ) } }
oCol:bStrData := { || ALLTRIM(BITACORA->DATOS1)}
oCol:nHeadStrAlign := AL_CENTER
oCol:nDataStrAlign := AL_LEFT
oCol:nWidth := 400
oCol:nEditType := EDIT_GET_BUTTON
oCol:bEditBlock := {|| Memo02()}
oCol:bRClickHeader := { |nRow,nCol| Alert( oBrw:nColOffSet - 1 + oBrw:MouseColPos( nCol ) ) }
oCol:bOnPostedit := {|| tone(10,10) }

oCol:= oBrw:AddCol()
oCol:cHeader := "DATOS"
oCol:bClrHeader := { || { CLR_RED,RGB(176,196,222 ) } }
oCol:bStrData := { || "< SOLICITANTE >"}
oCol:nHeadStrAlign := AL_CENTER
oCol:nDataStrAlign := AL_CENTER
oCol:nWidth := 125
oCol:nEditType := EDIT_GET_BUTTON
oCol:bEditBlock := {|| (Memo01() )}
oCol:bRClickHeader := { |nRow,nCol| Alert( oBrw:nColOffSet - 1 + oBrw:MouseColPos( nCol ) ) }
oCol:bOnPostedit := {|| tone(10,10) }

oCol:= oBrw:AddCol()
oCol:cHeader := "REPORTE"
oCol:bClrHeader := { || { CLR_RED,RGB(176,196,222 ) } }
oCol:bStrData := { || "< TURNO >"}
oCol:nHeadStrAlign := AL_CENTER
oCol:nDataStrAlign := AL_CENTER
oCol:nWidth := 91
oCol:bRClickHeader := { |nRow,nCol| Alert( oBrw:nColOffSet - 1 + oBrw:MouseColPos( nCol ) ) }
oCol:nEditType := EDIT_GET_BUTTON
oCol:bEditBlock := {|| Memo03()}
oCol:bOnPostedit := {|| tone(10,10) }

oCol:= oBrw:AddCol()
oCol:cHeader := "FOLIO PARTE + HOSPITAL"
oCol:bClrHeader := { || { CLR_RED,RGB(176,196,222 ) } }
oCol:bStrData := { || ALLTRIM(BITACORA->FOLIO1)+" <-> "+ALLTRIM(BITACORA->FOLIO2)}
oCol:nHeadStrAlign := AL_CENTER
oCol:nDataStrAlign := AL_CENTER
oCol:nWidth := 200
oCol:bRClickHeader := { |nRow,nCol| Alert( oBrw:nColOffSet - 1 + oBrw:MouseColPos( nCol ) ) }


oCol:= oBrw:AddCol()
oCol:cHeader := "TIPO"
oCol:bClrHeader := { || { CLR_RED,RGB(176,196,222 ) } }
oCol:bStrData := { || BITACORA->TIPO}
oCol:nHeadStrAlign := AL_CENTER
oCol:nDataStrAlign := AL_CENTER
oCol:nWidth := 80
oCol:bRClickHeader := { |nRow,nCol| Alert( oBrw:nColOffSet - 1 + oBrw:MouseColPos( nCol ) ) }





oBrw:SetRDD()
oBrw:Refresh( .t. )
oBrw:CreateFromResource( 4 )


REDEFINE BTNBMP oBtnBmp ID 0 OF oDlx file "ima\ico1.ico" ;
ACTION WinExec( "Calc" ) ;
Tooltip "Claves SOS" ;
NOBORDER
oBtnBmp:SetColor( RGB(245,255,250 ),RGB(0,128,128 ) )


REDEFINE BTNBMP oBtnBmp ID 1 OF oDlx file "ima\ico1.ico" ;
ACTION WinExec( "Calc" ) ;
Tooltip "Claves ERUM" ;
NOBORDER
oBtnBmp:SetColor( RGB(245,255,250 ),RGB(0,0,128 ) )


REDEFINE BTNBMP oBtnBmp ID 2 OF oDlx file "ima\ico1.ico" ;
ACTION WinExec( "Calc" ) ;
Tooltip "Claves ROJA" ;
NOBORDER
oBtnBmp:SetColor( RGB(245,255,250 ),RGB(128,0,0 ) )


REDEFINE BTNBMP oBtnBmp ID 3 OF oDlx file "ima\ico1.ico" ;
ACTION WinExec( "Calc" ) ;
Tooltip "Claves PFC" ;
NOBORDER
oBtnBmp:SetColor( RGB(128,128,128 ),RGB(255,255,0 ) )



REDEFINE BUTTON oBtnBmp ID 20 OF oDlx ;
ACTION (oDlx :End())
oBtnBmp:cTooltip:= "SALIR"


REDEFINE BUTTON oBtnBmp ID 9 OF oDlx ;
ACTION altas(pErsosS)
oBtnBmp:cTooltip:= "Regitrar datos de servicio"


REDEFINE BUTTON oBtnBmp ID 10 OF oDlx ;
ACTION (Sndplaysound("select.wav"),modguarda(oBrw))
oBtnBmp:cTooltip:= "Modificar registro no cerrado"


REDEFINE BUTTON oBtnBmp ID 17 OF oDlx ;
ACTION VerMapa2()
oBtnBmp:cTooltip := "Mapa del D,F. se requiere Internet"

oBtnBmp:lTransparent=.T.

ACTIVATE DIALOG oDlx CENTERED ON INIT((oActiveX:SetProp( "wmode", "transparent" ), ;
oActiveX:SetProp( "bgcolor", "C9DAFF" ), ;
oActiveX:SetProp( "menu", "false" ), ;
oActiveX:Do( "LoadMovie", 0, cPath+"relogio.swf" ) ),(oActiveXX:SetProp( "wmode", "transparent" ), ;
oActiveXX:SetProp( "bgcolor", "C9DAFF" ), ;
oActiveXX:SetProp( "menu", "false" ), ;
oActiveXX:Do( "LoadMovie", 0, cPath+"mundo.swf" ) ), oDlx:MOVE(50,250))





RETURN NIL

[AIDA]

Hola

Ya use tu ejemplo y si funciona pero no puedo poner colores ni botones para abrir cuadros de campos memo ni nada de lo que podia con el TxBrowse como yo lo tenia


Pero te agradesco mucho tu ayuda

Saludos

Aida

[AIDA]

Yupiiiiiiiii!!!!

Ya encontre un ejemplo de un señor de Thailandia y queda con el ejemplo que me dieron ya toy contentita

http://fivetechsoft.com/forums/viewtopi ... ne+xbrowse

saluditos a todos y que tengan un buen puente y fin de semana


Aida

[jfafive]

Hola Aida,

Tengun una preguntita a ver si me puedes ayudar. Tengo un folder que al pulsar sobre su pestaña, te lleva a un dialogo.

Hasta aqui, todo bién.
Pero dentro del dialogo, tengo otro folder y no se como llamarlo desde codigo.

Te muestro un ejemplo:

Code: Select all  Expand view

   REDEFINE FOLDER oTab ID ID_TAB3 OF oDlg ;
     PROMPTS "Equipos MF",;
             "Impresoras",;
             "Plotter",;
             "Informatica",;
             "Varios";
     DIALOGS "FORMULARIO_BK2",;
             "FORMULARIO_BK2",;
             "FORMULARIO_BK2",;
             "FORMULARIO_BK2",;
             "FORMULARIO_BK2" ADJUST


Al pulsar sobre Equipos MF, abre el dialogo FORMULARIO_BK2.
Y dentro de ese dialogo, hay gets, combos, checkbox y un folder.
Este folder no lo puedo declarar OF oDlg, puesto que esta integrado en el dialogo FORMULARIO_BK2, de modo que no se que debo poner a continuación del OF ....

No sé si me he explicado bien, en cualquier caso, agradezco tu ayuda.

Saludos.

[Antonio Linares]

Javier,

> no se que debo poner a continuación del OF ....

Prueba con ... OF oTab:aDialogs[ 1 ]

[jfafive]

Code: Select all  Expand view


function fGenPresuEsteco()


   DEFINE DIALOG oDlg RESOURCE "FOLDER_BK"

   // Este folder esta definido en el recurso FOLDER_BK del fichero .RC
   REDEFINE FOLDER oTab ID ID_TAB3 OF oDlg ;
     PROMPTS "Equipos MF",;
             "Impresoras",;
             "Plotter",;
             "Informatica",;
             "Varios";
     DIALOGS "FORMULARIO_BK1",;
             "FORMULARIO_BK2",;
             "FORMULARIO_BK3",;
             "FORMULARIO_BK4",;
             "FORMULARIO_BK5" ADJUST

   // Muestro un GET del dialogo al que hace referencia el primer folder.
   REDEFINE GET oCC VAR nCC ID ID_CC OF oTab:aDialogs[1] ;
       PICTURE "999999";

   // Este otro folder también está definido en el recurso FOLDER_BK.
   // Pero al ejecutar me dice que no encuentra CONTACTOS_DLG
   // (Que es un XBROWSE definido tambien en el fichero .RC).
   // Y es que CONTACTOS_DLG no forma parte de FOLDER_BK,
   // simplemente es otro dialogo independiente.
   REDEFINE FOLDER oTab2 ID ID_TAB4 OF // ¿oTab:aDialogs[1]? ;
     PROMPTS "CONTACTOS",;
             "USA",;
             "LECTURAS"
     DIALOGS "CONTACTOS_DLG",;
             "USA_DLG",;
             "LECTURAS_DLG" ADJUST

   ACTIVATE DIALOG oDlg CENTERED

return nil


[AIDA]

Creo que lo que dijo Antonio puede ser la respuesta

OF oTab:aDialogs[ 1 ]


Saluditos

Aida

[jfafive]

Ya lo he intentado.
Pero al ejecutarlo, me da el siguiente error:

Code: Select all  Expand view

Application
===========
   Path and name: C:\FWH\bin\DBF\g.exe (32 bits)
   Size: 1,513,984 bytes
   Time from start: 0 hours 0 mins 0 secs
   Error occurred at: 08-05-08, 23:49:16
   Error description: Error FiveWin/3  Cannot create Dialog Box:
                      Resource: CONTACTOS_DLG


Lo unico que quiero hacer es un FOLDER que llama a un dialogo que a su vez tiene otro FOLDER que llama a otros dialogos.
Si pudieseis pasarme algun ejemplo, con eso me serviria para desarrollarlo.

[AIDA]

Huy dejame ver que encuentro y si encuentro algo te lo mando y si se me prende el foquito te cuento


Saluditos


Aida