Como se pone txbrowse en un folder (ya resuelto gracias)
Posted:
Tue Apr 29, 2008 7:14 pm
by 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
Posted:
Tue Apr 29, 2008 8:24 pm
by 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
Hola
Posted:
Tue Apr 29, 2008 8:45 pm
by 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
HOLA
Posted:
Wed Apr 30, 2008 7:03 pm
by 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
Folder a Dialogo y de Dialogo a Folder
Posted:
Thu May 08, 2008 11:32 am
by 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.
Posted:
Thu May 08, 2008 12:36 pm
by Antonio Linares
Javier,
> no se que debo poner a continuación del OF ....
Prueba con ... OF oTab:aDialogs[ 1 ]
hola
Posted:
Thu May 08, 2008 5:28 pm
by AIDA
Creo que lo que dijo Antonio puede ser la respuesta
OF oTab:aDialogs[ 1 ]
Saluditos
Aida
Posted:
Thu May 08, 2008 9:56 pm
by 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.
Hola
Posted:
Thu May 08, 2008 11:00 pm
by AIDA
Huy dejame ver que encuentro y si encuentro algo te lo mando y si se me prende el foquito
te cuento
Saluditos
Aida