FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Como se pone txbrowse en un folder (ya resuelto gracias)
AIDA
Posts: 880
Joined: Fri Jan 12, 2007 08:35 PM
Como se pone txbrowse en un folder (ya resuelto gracias)
Posted: Tue Apr 29, 2008 07:14 PM

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 :oops: estar de preguntona pero si no nunca terminare.

Espero ya no molestar mas

Gracias por todo :D

Aida :wink:

Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ
jfafive
Posts: 396
Joined: Tue Mar 18, 2008 09:41 PM
Como se pone txbrowse en un folder (ya resuelto gracias)
Posted: Tue Apr 29, 2008 08:24 PM
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 Collapse
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
Javier,

FWH 8.04 2008
AIDA
Posts: 880
Joined: Fri Jan 12, 2007 08:35 PM
Hola
Posted: Tue Apr 29, 2008 08:45 PM

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&#058;SetProp( "wmode", "transparent" ), ;
                      oActiveX&#058;SetProp( "bgcolor", "C9DAFF" ), ;
                      oActiveX&#058;SetProp( "menu", "false" ), ;
                      oActiveX&#058;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

Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ
AIDA
Posts: 880
Joined: Fri Jan 12, 2007 08:35 PM
HOLA
Posted: Wed Apr 30, 2008 07:03 PM

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 :cry:

Pero te agradesco mucho tu ayuda :)

Saludos

Aida

Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ
AIDA
Posts: 880
Joined: Fri Jan 12, 2007 08:35 PM
YUPIIIIIIIIII!!!!
Posted: Wed Apr 30, 2008 08:20 PM

Yupiiiiiiiii!!!! :D

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

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

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

Aida :wink:

Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ
jfafive
Posts: 396
Joined: Tue Mar 18, 2008 09:41 PM
Folder a Dialogo y de Dialogo a Folder
Posted: Thu May 08, 2008 11:32 AM
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 Collapse
   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.
Javier,

FWH 8.04 2008
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Como se pone txbrowse en un folder (ya resuelto gracias)
Posted: Thu May 08, 2008 12:36 PM

Javier,

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

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

regards, saludos

Antonio Linares
www.fivetechsoft.com
jfafive
Posts: 396
Joined: Tue Mar 18, 2008 09:41 PM
Como se pone txbrowse en un folder (ya resuelto gracias)
Posted: Thu May 08, 2008 02:50 PM
Code: Select all Collapse
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
Javier,

FWH 8.04 2008
AIDA
Posts: 880
Joined: Fri Jan 12, 2007 08:35 PM
hola
Posted: Thu May 08, 2008 05:28 PM

Creo que lo que dijo Antonio puede ser la respuesta

OF oTab:aDialogs[ 1 ]

Saluditos

Aida

Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ
jfafive
Posts: 396
Joined: Tue Mar 18, 2008 09:41 PM
Como se pone txbrowse en un folder (ya resuelto gracias)
Posted: Thu May 08, 2008 09:56 PM
Ya lo he intentado.
Pero al ejecutarlo, me da el siguiente error:

Code: Select all Collapse
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.
:-)
Javier,

FWH 8.04 2008
AIDA
Posts: 880
Joined: Fri Jan 12, 2007 08:35 PM
Hola
Posted: Thu May 08, 2008 11:00 PM

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

Saluditos :D

Aida

Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ

Continue the discussion

Static archive · New replies & topics via GitHub Discussions