FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Una Matriz de Botones (SOLUCIONADO)
VitalJavier
Posts: 257
Joined: Mon Jun 10, 2013 06:40 PM
Una Matriz de Botones (SOLUCIONADO)
Posted: Wed Mar 23, 2016 04:11 PM
Que tal buen dia
Alguien me podría echar la mano con esto

Estoy haciendo una matriz de botones en un TFolderex
Pongo como hago

Code (fw): Select all Collapse
FUNCTION build_pages( oFolder )
    LOCAL oDialog
    FOR J := 1 TO LEN( oFolder:aPrompts )       
        DEFINE DIALOG oDialog OF oFolder STYLE NOR( WS_VISIBLE, WS_DLGFRAME, WS_CHILD) TRANSPARENT
            FOR I := 1 TO LEN(oBtn)
                IF oBtn[I,4] = J
                    @aColB[I,1],aColB[I,2] BTNBMP oBtn[I,1] PROMPT oBtn[I,2] SIZE 48,35 OF odialog PIXEL UPDATE CENTER ACTION .......
                        oBtn[I,1]:l2007 := .T.
                        oBtn[I,1]:lBorder := .F.
                        oBtn[I,1]:lTransparent := .T.
                ENDIF
           NEXT         
            oFolder:aDialogs[ J ] := oDialog
    NEXT     
RETURN oFolder


El gran problema que tengo es en el "ACTION"
Ya estuve buscando como hacerle y no doy

Cada Pestaña del TFolderex tiene un nombre, y cada botón tiene una cadena
Tengo una tabla que quiero filtrar, por el nombre de la pestaña del TFolderex y
por el nombre del botton

si alguien ya paso por esto y me puede echar una mano ???

Gracias.
cuatecatl82
Posts: 625
Joined: Wed Mar 14, 2007 06:49 PM
Re: Una Matriz de Botones
Posted: Wed Mar 23, 2016 07:02 PM
Saludos ojala te pueda servir, no he revisado la clase BTNBMP pero es casi seguro que tenga el parametro bAction

Seria algo así

Code (fw): Select all Collapse
oBtn[I,1]:bAction := {|| Msginfo("Item "+str(I) ) }


Ojala funcione..

Saludos.
Soluciones y Diseño de Software
Damos Soluciones...

I.S.C. Victor Daniel Cuatecatl Leon
Director y Diseñador de Proyectos

http://www.soldisoft.unlugar.com
http://www.sisa.unlugar.com
danyleon82@hotmail.com
www.facebook.com/victordaniel.cuatecatlleon
gmart1
Posts: 84
Joined: Wed Oct 24, 2007 12:48 PM
Re: Una Matriz de Botones
Posted: Wed Mar 23, 2016 07:38 PM
Hola, creo que el problema está en cuando se ejecuta bAction el valor de la variable I es LEN (oBtn)+1.
Para solucionarlo puedes probar asi :
Code (fw): Select all Collapse
oBtn[I,1]:bAction := bEjecutaBoton ( I, J )

....

function bEjecutaBoton ( I, J )

return { |I,J| Msginfo ("Boton " + str (I) + " Folder " + str(J) }


Espero te sirva.
VitalJavier
Posts: 257
Joined: Mon Jun 10, 2013 06:40 PM
Re: Una Matriz de Botones
Posted: Thu Mar 24, 2016 03:45 PM

Gracias por responder

ya probe la solución que me están poniendo, pero el detalle es cuando
le doy "click" al botón

function bEjecutaBoton ( I, J )
return { |I,J| Msginfo ("Boton " + str (I) + " Folder " + str(J) }

Esto funciona con forme voy creando los botones, pero después
de ya tener la matriz, y le doy click se pierde.

Alguna idea ??

Saludos.

Willi Quintana
Posts: 1054
Joined: Sun Oct 09, 2005 10:41 PM
Re: Una Matriz de Botones
Posted: Fri Mar 25, 2016 03:57 AM
HOla, esto funciona...
Code (fw): Select all Collapse
FOR nContP := 1 TO 24
           REDEFINE BTNBMP aItems[nContP] ;
                    RESOURCE "NULL" TOP 2007; 
                    ACTION ( MsgInfo(::nId ) )  ;         // muestra el ID de cada botón, a partir de allí ya realizas acciones para  cada boton
                    ID 150 + nContP OF oDlg 
          SysRefresh()
NEXT nContP
noe aburto
Posts: 418
Joined: Wed Nov 26, 2008 06:33 PM
Re: Una Matriz de Botones
Posted: Fri Mar 25, 2016 07:14 PM
Saludos

Tuve que hacer algo asi y me funciono, que te expongo en tu ejemplo:

[code}
FUNCTION build_pages( oFolder )
LOCAL oDialog
FOR J := 1 TO LEN( oFolder:aPrompts )
DEFINE DIALOG oDialog OF oFolder STYLE NOR( WS_VISIBLE, WS_DLGFRAME, WS_CHILD) TRANSPARENT
FOR I := 1 TO LEN(oBtn)
IF oBtn[I,4] = J
DO CASE
CASE I = 1
@aColB[1,1],aColB[1,2] BTNBMP oBtn[1,1] PROMPT oBtn[1,2] SIZE 48,35 OF odialog PIXEL UPDATE CENTER ACTION .......
CASE I = 2
@aColB[2,1],aColB[2,2] BTNBMP oBtn[2,1] PROMPT oBtn[2,2] SIZE 48,35 OF odialog PIXEL UPDATE CENTER ACTION .......
CASE I = 3
@aColB[1,1],aColB[1,2] BTNBMP oBtn[1,1] PROMPT oBtn[1,2] SIZE 48,35 OF odialog PIXEL UPDATE CENTER ACTION .......
CASE
....
ENDCASE
oBtn[I,1]:l2007 := .T.
oBtn[I,1]:lBorder := .F.
oBtn[I,1]:lTransparent := .T.
ENDIF
NEXT
oFolder:aDialogs[ J ] := oDialog
NEXT
RETURN oFolder
[/code]

Y para no tener que cambiar el codigo, puse opciones dentro de CASE de 1 a 30, maximos de botones segun. tal parace que colo con valores fijos te funciona.
Noé Aburto Sánchez
Tec. Prog. de Sistemas. -Morelia, Mich. México.
fwh 20.06, Harbour 3.2.0, bcc 7.4
TsBrowse 9.0, TsButton 7.0, xEdit 6.1
naburtos@gmail.com, noeaburto67@hotmail.com
Silvio.Falconi
Posts: 7318
Joined: Thu Oct 18, 2012 07:17 PM
Re: Una Matriz de Botones
Posted: Sun Mar 27, 2016 05:30 PM

How I can insert a menupopup on button ?

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
VitalJavier
Posts: 257
Joined: Mon Jun 10, 2013 06:40 PM
Re: Una Matriz de Botones (SOLUCIONADO)
Posted: Sun Mar 27, 2016 05:38 PM
Gracias Amigos por contestar, les agradezco.

Willi, probe tu respuesta y salió a la perfección
Lo hice asi :
Code (fw): Select all Collapse
ACTION SHOT_BUTTON(::nId)   //Esto en es del botton 

FUNCTION SHOT_BUTTON(_Id)
    nBusBtn := ASCAN(oBtn,{|aVal| aVal[5]=_Id})
    IF nBusBtn > 0
        cPrimera := oBtn[nBusBtn,3]
        cSegunda := oBtn[nBusBtn,6]
        SELECT ARTICULOS
        OrdSetFocus("NOMBRE")   
        cCad := "!Empty(ARTICULOS->ARTICULO) AND ARTICULOS->ESTATUS <> 'B' AND '"+cPrimera+"'$ARTICULOS->NOMBRE AND SUBSTR(ARTICULOS->CODIGO,1,4)='2000' AND '"+AllTrim(cSegunda)+"'$ARTICULOS->NOMBRE"
        IF !ADSSetAOF(cCad)
            ?"No se realizo el filtro...",cCad
        ENDIF               
        DbGoTop()       
        oBrow:GoTop()
        oBrow:Refresh()     
    ENDIF
RETURN .T.


[img]http://s2.subirimagenes.com/imagen/previo/thump_9549622imagen1.png" alt="" loading="lazy">
[/img]

Antes ya había creado el arreglo, y me di cuento que el ID comienza con el "104" y así lo hice.



Gracias por su tiempo.
Willi Quintana
Posts: 1054
Joined: Sun Oct 09, 2005 10:41 PM
Re: Silvio Una Matriz de Botones (SOLUCIONADO)
Posted: Mon Mar 28, 2016 03:44 AM
Para servir sr.
Y para el MENU POP en cada botón:

En ACTION añades lo siguiente:
Code (fw): Select all Collapse
ACTION (<acciones>, MenuMesa(oMesa[::nId-150], ::nId) )
...
..
Function MenuMesa(oObj, nId)
nOption := 0
nTopR   := oObj:nBottom         //nTop           // posicion del control que hizo la llamada
nLeftR  := oObj:nRight         //nLeft

MENU oMenu POPUP 2007
  MENUITEM "Opcion 1" ;
     RESOURCE "CALENDARIO1" ACTION nOption := 1
  MENUITEM "Opcion 2" ;
     RESOURCE "CALENDARIO1" ACTION nOption := 2
  MENUITEM "Opcion 3" ;
     RESOURCE "CALENDARIO1" ACTION nOption := 3
  MENUITEM "Opcion 4" ;
     RESOURCE "CALENDARIO1" ACTION nOption := 4
ENDMENU
ACTIVATE POPUP oMenu AT nTopR , nLeftR + 10 OF oObj

? nOption, nId

Return(Nil)


O en tu caso

Code (fw): Select all Collapse
FUNCTION SHOT_BUTTON(_Id)
    MenuMesa(oMesa[nId], nId)
    nBusBtn := ASCAN(oBtn,{|aVal| aVal[5]=_Id})
    IF nBusBtn > 0
        cPrimera := oBtn[nBusBtn,3]
        cSegunda := oBtn[nBusBtn,6]
        SELECT ARTICULOS
        OrdSetFocus("NOMBRE")   
        cCad := "!Empty(ARTICULOS->ARTICULO) AND ARTICULOS->ESTATUS <> 'B' AND '"+cPrimera+"'$ARTICULOS->NOMBRE AND SUBSTR(ARTICULOS->CODIGO,1,4)='2000' AND '"+AllTrim(cSegunda)+"'$ARTICULOS->NOMBRE"
        IF !ADSSetAOF(cCad)
            ?"No se realizo el filtro...",cCad
        ENDIF               
        DbGoTop()       
        oBrow:GoTop()
        oBrow:Refresh()     
    ENDIF
RETURN .T.


Salu2

Continue the discussion

Static archive · New replies & topics via GitHub Discussions