FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Botones cuando aprieto un bot贸n
TOTOVIOTTI
Posts: 470
Joined: Fri Feb 05, 2010 11:30 AM
Botones cuando aprieto un bot贸n
Posted: Mon Oct 05, 2020 01:57 PM

Hola gente... capaz es medio fant谩stico lo que quiero hacer, lo he visto en alg煤n lado y no lo
puedo encontrar...
Yo quisiera, que al apretar un bot贸n BTNBMP, se me despliegue otra ventanita, con 4 贸 5 botones m谩s
para a帽adirle funcionalidades... o sea... pulso un bot贸n, y que se abra sobre ese bot贸n, un di谩logo con
algunos botones m谩s... ser谩 posible hacer esto?
Muchas gracias!

Roberto

Univ@c I.S.I.
Desarrolladores de Software
http://www.elcolegioencasa.ar
FranciscoA
Posts: 2170
Joined: Fri Jul 18, 2008 01:24 AM
Re: Botones cuando aprieto un bot贸n
Posted: Mon Oct 05, 2020 06:24 PM

Roberto:
No es posible usar el POPUP MENU del boton?

Francisco J. Alegr铆a P.

Chinandega, Nicaragua.



Fwxh-MySql-TMySql
TOTOVIOTTI
Posts: 470
Joined: Fri Feb 05, 2010 11:30 AM
Re: Botones cuando aprieto un bot贸n
Posted: Mon Oct 05, 2020 07:01 PM

Hola Francisco... es probable.. pero no s茅 como se hace... nunca lo us茅...
Me puedes facilitar un peque帽o ejemplo?
Muchas gracias!
Roberto

Univ@c I.S.I.
Desarrolladores de Software
http://www.elcolegioencasa.ar
FranciscoA
Posts: 2170
Joined: Fri Jul 18, 2008 01:24 AM
Re: Botones cuando aprieto un bot贸n
Posted: Mon Oct 05, 2020 08:10 PM
Roberto:
Code (fw): Select all Collapse
//------------------------------------------------------//
FUNCTION PopBoton()
LOCAL oDlg, oImpri

  DEFINE DIALOG oDlg SIZE 300,200 PIXEL TITLE "Prueba"

  @60,10 BTNBMP oImpri PROMPT "Opciones" SIZE 60,14 PIXEL OF oDlg CENTER ;
         ACTION PopOpciones(oImpri:nTop(),oImpri:nLeft(), oDlg )

  @60,80 BUTTON "Salir" SIZE 60,14 PIXEL OF oDlg ;
         ACTION oDlg:End()

  ACTIVATE DIALOG oDlg CENTERED  

RETURN NIL

//----------------------------------------------------------------------
FUNCTION PopOpciones(nRow, nCol, oDlg)
local oMenu

  MENU oMenu POPUP
     MENUITEM "Informe 1"  ACTION MsgInfo("Informe 1")
     MENUITEM "Informe 2"  ACTION MsgInfo("Informe 2")
     MENUITEM "Informe 3"  ACTION MsgInfo("Informe 3")
     MENUITEM "Informe 4"  ACTION MsgInfo("Informe 4")
     MENUITEM "Informe 5"  ACTION MsgInfo("Informe 5")
  ENDMENU

  ACTIVATE POPUP oMenu DIALOG oDlg AT nRow, nCol

return nil
Saludos
Francisco J. Alegr铆a P.

Chinandega, Nicaragua.



Fwxh-MySql-TMySql
TOTOVIOTTI
Posts: 470
Joined: Fri Feb 05, 2010 11:30 AM
Re: Botones cuando aprieto un bot贸n
Posted: Mon Oct 05, 2020 08:19 PM

Me gusta la idea!!
Gracias!!!!!

Univ@c I.S.I.
Desarrolladores de Software
http://www.elcolegioencasa.ar
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Botones cuando aprieto un bot贸n
Posted: Mon Oct 05, 2020 08:22 PM

脡s mejor, otro Men煤 de botones.

Saludos

Jo茫o Santos - S茫o Paulo - Brasil - Phone: +55(11)95150-7341
TOTOVIOTTI
Posts: 470
Joined: Fri Feb 05, 2010 11:30 AM
Re: Botones cuando aprieto un bot贸n
Posted: Mon Oct 05, 2020 08:37 PM

Como dices que ser铆a Joao?
Roberto

Univ@c I.S.I.
Desarrolladores de Software
http://www.elcolegioencasa.ar
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Botones cuando aprieto un bot贸n
Posted: Mon Oct 05, 2020 10:37 PM
TOTOVIOTTI wrote:Como dices que ser铆a Joao?
Roberto


https://i.imgur.com/0hi0WT7.png

Saludos
Jo茫o Santos - S茫o Paulo - Brasil - Phone: +55(11)95150-7341
TOTOVIOTTI
Posts: 470
Joined: Fri Feb 05, 2010 11:30 AM
Re: Botones cuando aprieto un bot贸n
Posted: Tue Oct 06, 2020 11:40 AM

Ok! Muchas gracias!
Roberto

Univ@c I.S.I.
Desarrolladores de Software
http://www.elcolegioencasa.ar
JESUS MARIN
Posts: 199
Joined: Wed Jan 02, 2019 08:36 AM
Re: Botones cuando aprieto un bot贸n
Posted: Wed Oct 07, 2020 09:54 AM
Buenos dias Roberto.

Prueba esta opci贸n, a ver si te gusta.
Al pulsar click, sobre el bot贸n, se desplega un sub menu de botones, se abre una ventana POPUP, donde puedes poner lo que quieras.
Te he desarrollado algunas posibilidades, aunque creo que el l铆mite ser谩 tu necesidad o imaginaci贸n.
1) Botones verticales
2) Botones horizontales
3) Mix de tipos de botones
4) Un dialogo.
Al perder el foco, la ventana POPUP, se cierra y finaliza.

FOTOS /////////////////////////

1) BOTONES VERTICALES


2) BOTONES HORIZONTALES


3) BOTONES MIXTOS (DE DISTINTOS TIPOS)


4) DIALOGO (Puedes poner lo que quieras)

CODIGO. te copio el c贸digo del ejemplo. Ajusta los ficheros de imagen, etc....
LA VENTANA ES MDICHILD, cambialo para tu ejemplo si es necesario


Code (fw): Select all Collapse
# INCLUDE "FIVEWIN.CH"

FUNCTION BTNxBTN()

LOCAL oWnd
LOCAL oFont
LOCAL aBotones:=ARRAY(5)
LOCAL oIIButtons 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽// BARRA DE BOTONES



DEFINE FONT oFont 聽 NAME "Segoe UI Symbol" SIZE 0,-18 聽 聽 聽 聽 聽 
DEFINE WINDOW oWnd FROM 100,100 TO 600,1200 MDICHILD 聽TITLE "Botones sobre botones - PRUEBAS" COLOR CLR_BLACK, GetSysColor(15)
DEFINE BUTTONBAR 聽oIIButtons 聽OF oWnd SIZE 40,40 _3D

聽 聽 @06,010 BTNBMP aBotones[1] FILE "EXIT_W10.BMP" 聽SIZE 30,30 ACTION oWnd:End() OF oIIButtons UPDATE NOBORDER
聽 聽 @06,060 BTNBMP aBotones[2] FILE "BTNXBTN1.BMP" SIZE 30,30 ACTION SUB_BOTONES(oIIButtons,aBotones[2]) 聽OF oIIButtons UPDATE NOBORDER
聽 聽 @06,110 BTNBMP aBotones[3] FILE "BTNXBTN2.BMP" SIZE 30,30 ACTION SUB_BOTONES2(oIIButtons,aBotones[3]) OF oIIButtons UPDATE NOBORDER
聽 聽 @06,160 BTNBMP aBotones[4] FILE "BTNXBTN3.BMP" SIZE 30,30 ACTION SUB_BOTONES3(oIIButtons,aBotones[4]) OF oIIButtons UPDATE NOBORDER
聽 聽 @06,210 BTNBMP aBotones[5] FILE "BTNXBTN4.BMP" SIZE 30,30 ACTION SUB_BOTONES4(oIIButtons,aBotones[5]) OF oIIButtons UPDATE NOBORDER
聽 聽
ACTIVATE WINDOW oWnd MAXIMIZED

RETURN(NIL)

/////////////////////////////////////////////////////////////////////////////////////////////

STATIC FUNCTION SUB_BOTONES(oBarra,oBoton)


LOCAL oWnd
LOCAL nFila:=oBoton:nTop+80
LOCAL nColumna:=oBoton:nLeft
LOCAL oBt1, oBt2, oBt3


DEFINE WINDOW oWnd OF oBarra STYLE WS_POPUP FROM nFila, nColumna TO nFila+122, nColumna+42 PIXEL COLOR CLR_BLACK, RGB(159,177,181)

@01,1 BTNBMP oBt1 FILE "PRINT_W10.BMP" SIZE 40,40 ACTION MSGALERT("NO DESARROLLADO 1") OF oWnd UPDATE NOBORDER
@41,1 BTNBMP oBt2 FILE "FIND_W10.BMP" SIZE 40,40 ACTION MSGALERT("NO DESARROLLADO 2 ") OF oWnd UPDATE NOBORDER
@81,1 BTNBMP oBt3 FILE "OK_W10.BMP" SIZE 40,40 ACTION MSGALERT("NO DESARROLLADO 3 ") OF oWnd UPDATE NOBORDER

ACTIVATE WINDOW oWnd

oWnd:bLostFocus := { || oWnd:End() 聽}

return(nil)

//////////////////////////////////////////////////////////////////////////////////

STATIC FUNCTION SUB_BOTONES2(oBarra,oBoton)


LOCAL oWnd
LOCAL nFila:=oBoton:nTop+80
LOCAL nColumna:=oBoton:nLeft
LOCAL oBt1, oBt2, oBt3


DEFINE WINDOW oWnd OF oBarra STYLE WS_POPUP FROM nFila, nColumna TO nFila+42, nColumna+122 PIXEL COLOR CLR_BLACK, RGB(159,177,181)

@01,1 BTNBMP oBt1 FILE "PRINT_W10.BMP" SIZE 40,40 ACTION MSGALERT("NO DESARROLLADO 1") OF oWnd UPDATE NOBORDER
@01,41 BTNBMP oBt2 FILE "FIND_W10.BMP" SIZE 40,40 ACTION MSGALERT("NO DESARROLLADO 2 ") OF oWnd UPDATE NOBORDER
@01,81 BTNBMP oBt3 FILE "OK_W10.BMP" SIZE 40,40 ACTION MSGALERT("NO DESARROLLADO 3 ") OF oWnd UPDATE NOBORDER


ACTIVATE WINDOW oWnd

oWnd:bLostFocus := { || oWnd:End() 聽}

return(nil)

////////////////////////////////////////////////////////////////////////////////

STATIC FUNCTION SUB_BOTONES3(oBarra,oBoton)


LOCAL oWnd
LOCAL nFila:=oBoton:nTop+80
LOCAL nColumna:=oBoton:nLeft
LOCAL oBt1, oBt2, oBt3, oBt4, oBt5, oBt6


DEFINE WINDOW oWnd OF oBarra STYLE WS_POPUP FROM nFila, nColumna TO nFila+200, nColumna+150 PIXEL COLOR CLR_BLACK, RGB(159,177,181)

@01,31 BTNBMP oBt1 FILE "PRINT_W10.BMP" SIZE 40,40 ACTION MSGALERT("NO DESARROLLADO 1") OF oWnd UPDATE NOBORDER
@01,71 BTNBMP oBt2 FILE "FIND_W10.BMP" SIZE 40,40 ACTION MSGALERT("NO DESARROLLADO 2 ") OF oWnd UPDATE NOBORDER
@01,111 BTNBMP oBt3 FILE "OK_W10.BMP" SIZE 40,40 ACTION MSGALERT("NO DESARROLLADO 3 ") OF oWnd UPDATE NOBORDER

@50,5 BTNBMP oBt4 FILE "CANCEL_W10.BMP" SIZE 140,40 ACTION MSGALERT("NO DESARROLLADO 4 ") OF oWnd UPDATE NOBORDER PROMPT " 聽 聽 聽 聽 聽 聽 聽 Cancelar" LEFT
@95,5 BTNBMP oBt5 FILE "ok_W10.BMP" 聽 聽 SIZE 140,40 ACTION MSGALERT("NO DESARROLLADO 5 ") OF oWnd UPDATE NOBORDER PROMPT " 聽 聽 聽 聽 聽 聽 聽 聽 Validar" LEFT

@160,5 BUTTON oBt6 PROMPT "Mas informaci贸n" SIZE 140,30 ACTION MSGALERT("MAS INFORMACION NO DISPONIBLE") OF oWnd PIXEL

ACTIVATE WINDOW oWnd

oWnd:bLostFocus := { || oWnd:End() 聽}

return(nil)


/////////////////////////////////////////////////////////////////////////////////

STATIC FUNCTION SUB_BOTONES4(oBarra,oBoton)


LOCAL oWnd
LOCAL nFila:=oBoton:nTop+80
LOCAL nColumna:=oBoton:nLeft
LOCAL oBt1
LOCAL oFont
LOCAL oGet1, cVar1:=SPACE(30)
LOCAL oCheck, lCheck:=.t.




DEFINE FONT oFont 聽 NAME "Segoe UI Symbol" SIZE 0,-20
DEFINE WINDOW oWnd OF oBarra STYLE WS_POPUP FROM nFila, nColumna TO nFila+300, nColumna+300 PIXEL COLOR CLR_BLACK, RGB(159,177,181)


@10,10 SAY "Busqueda avanzada" OF oWnd PIXEL SIZE 280,30 COLOR CLR_BLACK, CLR_GRAY FONT oFont CENTER

@90,20 SAY "Cliente" OF oWnd PIXEL SIZE 50,22
@85,65 GET oGet1 VAR cVar1 OF oWnd PIXEL SIZE 200,22

@125,65 CHECKBOX oCheck VAR lCheck PROMPT "Busqueda alternativa" OF oWnd PIXEL SIZE 200,22



@260,200 BUTTON oBt1 PROMPT "Aceptar" SIZE 90,30 ACTION MSGALERT("REALIZAMOS BUSQUEDA DE : "+ALLTRIM(cVar1)+" Y/O CERRAMOS EL DIALOGO DE BUSQUEDA") OF oWnd PIXEL

ACTIVATE WINDOW oWnd

oWnd:bLostFocus := { || oWnd:End() 聽}

return(nil)
Jes煤s Mar铆n
deumare@gmail.com
TOTOVIOTTI
Posts: 470
Joined: Fri Feb 05, 2010 11:30 AM
Re: Botones cuando aprieto un bot贸n
Posted: Wed Oct 07, 2020 11:37 AM

Muyyyyyyyyyyyy bueno!!!!
Muchas muchas gracias!!!

Roberto

Univ@c I.S.I.
Desarrolladores de Software
http://www.elcolegioencasa.ar
JESUS MARIN
Posts: 199
Joined: Wed Jan 02, 2019 08:36 AM
Re: Botones cuando aprieto un bot贸n
Posted: Fri Oct 09, 2020 07:28 AM
Alguna idea mas.

(con un dise帽o mas fresco y actual)

A帽adiendo menus popup, anidados. Te servir谩 si tienes muchas opciones.




Esta segunda foto hecha con el tel茅fono (porque al pulsar ALT+PRINT SCREEN, se me cierra el menu POPUP)

Jes煤s Mar铆n
deumare@gmail.com
horacio
Posts: 1364
Joined: Wed Jun 21, 2006 12:39 AM
Re: Botones cuando aprieto un bot贸n
Posted: Sat Oct 10, 2020 01:29 PM

Muy bueno Jesus, Felicitaciones.

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions