en FW existe un boton con un list?
- goosfancito
- Posts: 1392
- Joined: Fri Oct 07, 2005 7:08 pm
en FW existe un boton con un list?
Hola.
Existe en fW un boton que en la parte derecha tenga una flecha que al tocar despliegue una lista de, por ejemplo, items?
gracias.
Existe en fW un boton que en la parte derecha tenga una flecha que al tocar despliegue una lista de, por ejemplo, items?
gracias.
Un aporte chico hace grandes cambios.
Apoyemos al proyecto "Hogar pimpinela"
Bajate la aplicación (gratuita) y encuentra en ella toda la info de como podes colaborar.
GRACIAS!
https://play.google.com/store/apps/deta ... .acomprar
Apoyemos al proyecto "Hogar pimpinela"
Bajate la aplicación (gratuita) y encuentra en ella toda la info de como podes colaborar.
GRACIAS!
https://play.google.com/store/apps/deta ... .acomprar
Re: en FW existe un boton con un list?
Puedes usar el GET con ACTION. En la funcion que llame el action puedes tener un browse que muestre los items y los elija.
Code: Select all
#include "FiveWin.ch"
#include "xbrowse.ch"
function main()
LOCAL oDlg, oGet, oBot, cDato := SPACE(30)
DEFINE DIALOG oDlg TITLE "Boton con ACTION" FROM 05,15 TO 25,90
oDlg:lHelpIcon := .f.
@ 07, 05 SAY "Completar dato:" OF oDlg PIXEL SIZE 60,20 RIGHT
@ 05, 70 GET oGet VAR cDato OF oDlg PIXEL SIZE 60,20 CUEBANNER "Escriba el Dato";
ACTION (oGet:cText := Buscar()) BITMAP "C:\fwh16\bitmaps\16x16\darrow.bmp"
@ 50, 70 BUTTON oBot PROMPT "&Ok" OF oDlg SIZE 30,10 ACTION oDlg:End() PIXEL
ACTIVATE DIALOG oDlg CENTER
RETURN nil
STATIC FUNCTION Buscar()
LOCAL aItems := {"Opcion 1","Opcion 2","Opcion 3"}, oDlg, oBrw, oBot
DEFINE DIALOG oDlg TITLE "Buscar " FROM 09,15 TO 28,60
oDlg:lHelpIcon := .f.
@ 01,01 XBROWSE oBrw ARRAY aItems SIZE 100,140 OF oDlg PIXEL ;
COLUMNS 1;
HEADERS "Opciones"
oBrw:CreateFromCode()
@10,150 BUTTON oBot PROMPT "&Ok" OF oDlg SIZE 30,10 ACTION oDlg:End() PIXEL
ACTIVATE DIALOG oDlg CENTER
RETURN aItems[oBrw:nRowSel]
- joseluisysturiz
- Posts: 2024
- Joined: Fri Jan 06, 2006 9:28 pm
- Location: Guatire - Caracas - Venezuela
- Contact:
Re: en FW existe un boton con un list?
Porque no usar el combobox/dbcombo.? ...saludos...goosfancito wrote:Hola.
Existe en fW un boton que en la parte derecha tenga una flecha que al tocar despliegue una lista de, por ejemplo, items?
gracias.
Last edited by joseluisysturiz on Sat Sep 03, 2016 8:40 pm, edited 1 time in total.
Dios no está muerto...
Gracias a mi Dios ante todo!
Gracias a mi Dios ante todo!
- goosfancito
- Posts: 1392
- Joined: Fri Oct 07, 2005 7:08 pm
Re: en FW existe un boton con un list?
hola. Si podría, pero quiero ver si puedo utilizarlo de otra forma,
por eso me gustaría poder tener un boton que este como partido en dos.
Como este boton, que justamente es lo que quiero hacer, cuando presiono la flecha que aparezca una lista. un menu.
https://drive.google.com/file/d/0B7Y1b0 ... sp=sharing
gracias.
por eso me gustaría poder tener un boton que este como partido en dos.
Como este boton, que justamente es lo que quiero hacer, cuando presiono la flecha que aparezca una lista. un menu.
https://drive.google.com/file/d/0B7Y1b0 ... sp=sharing
gracias.
Un aporte chico hace grandes cambios.
Apoyemos al proyecto "Hogar pimpinela"
Bajate la aplicación (gratuita) y encuentra en ella toda la info de como podes colaborar.
GRACIAS!
https://play.google.com/store/apps/deta ... .acomprar
Apoyemos al proyecto "Hogar pimpinela"
Bajate la aplicación (gratuita) y encuentra en ella toda la info de como podes colaborar.
GRACIAS!
https://play.google.com/store/apps/deta ... .acomprar
- joseluisysturiz
- Posts: 2024
- Joined: Fri Jan 06, 2006 9:28 pm
- Location: Guatire - Caracas - Venezuela
- Contact:
Re: en FW existe un boton con un list?
Creo la mejor opcion es la q te da CMSOFT, sino colocas un boton normal pequeño 16x16 al lado del GET, pero creo es innecesario a menos que quieras tener independencia de las acciones de ambos recursos, saludos...goosfancito wrote:hola. Si podría, pero quiero ver si puedo utilizarlo de otra forma,
por eso me gustaría poder tener un boton que este como partido en dos.
Como este boton, que justamente es lo que quiero hacer, cuando presiono la flecha que aparezca una lista. un menu.
https://drive.google.com/file/d/0B7Y1b0 ... sp=sharing
gracias.
Last edited by joseluisysturiz on Sun Sep 04, 2016 1:52 am, edited 1 time in total.
Dios no está muerto...
Gracias a mi Dios ante todo!
Gracias a mi Dios ante todo!
- goosfancito
- Posts: 1392
- Joined: Fri Oct 07, 2005 7:08 pm
Re: en FW existe un boton con un list?
no lo coloco porque quiero ver si puedo hacerlo con un button.
gracias.
gracias.
Un aporte chico hace grandes cambios.
Apoyemos al proyecto "Hogar pimpinela"
Bajate la aplicación (gratuita) y encuentra en ella toda la info de como podes colaborar.
GRACIAS!
https://play.google.com/store/apps/deta ... .acomprar
Apoyemos al proyecto "Hogar pimpinela"
Bajate la aplicación (gratuita) y encuentra en ella toda la info de como podes colaborar.
GRACIAS!
https://play.google.com/store/apps/deta ... .acomprar
- joseluisysturiz
- Posts: 2024
- Joined: Fri Jan 06, 2006 9:28 pm
- Location: Guatire - Caracas - Venezuela
- Contact:
Re: en FW existe un boton con un list?
No se si en los samples de la TRibbon vi algo como lo que quieres, un boton con un despliegue, saludos...
Dios no está muerto...
Gracias a mi Dios ante todo!
Gracias a mi Dios ante todo!
- Antonio Linares
- Site Admin
- Posts: 37481
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Contact:
Re: en FW existe un boton con un list?
Gustavo,
Puedes usar la función PopupBrowse() de FWH, pero sólo está disponible a partir de la versión 15.11
Puedes usar la función PopupBrowse() de FWH, pero sólo está disponible a partir de la versión 15.11
Code: Select all
@ 4, 4 GET oGetClient VAR oRec:Client OF oDlg ;
ACTION ( cClient := Clients->( PopupBrowse( oWndClients:oClient:oRs, oGetClient ) ),;
If( cClient != nil, oRec:Client := cClient,) )
- goosfancito
- Posts: 1392
- Joined: Fri Oct 07, 2005 7:08 pm
Re: en FW existe un boton con un list?
a ok.
voy a tratar en algun tiempo que tenga de modificar la clase tbutton para que pueda hacer lo que necesito.
gracias.
voy a tratar en algun tiempo que tenga de modificar la clase tbutton para que pueda hacer lo que necesito.
gracias.
Un aporte chico hace grandes cambios.
Apoyemos al proyecto "Hogar pimpinela"
Bajate la aplicación (gratuita) y encuentra en ella toda la info de como podes colaborar.
GRACIAS!
https://play.google.com/store/apps/deta ... .acomprar
Apoyemos al proyecto "Hogar pimpinela"
Bajate la aplicación (gratuita) y encuentra en ella toda la info de como podes colaborar.
GRACIAS!
https://play.google.com/store/apps/deta ... .acomprar
Re: en FW existe un boton con un list?
Buenas:
Lo que buscas es exactamente esto:
Lo que buscas es exactamente esto:
Code: Select all
....
redefine buttonbmp obtn[1] bitmap 'nuevo' prompt CRLF+CRLF+CRLF+'Nuevo' TEXTbottom id 101 of odlg1 action menubaY(obtn[1],sectorC) ; obtn[1]:ctooltip:= 'Nueva factura'
.....
funct menubaY( obot1, sectorC )
Local oMenu, aRect
aRect := GetClientRect( obot1:hWnd )
menu omenu1 popup 2007
menuitem '&Nueva factura' action (iif(sectorC='servicio',newfactu(.t.,sectorC,'Facturas'),newfactura(.t.,,,'factura','Facturas',.t.,sectorC)),gesfactu->(OrdSetFocus('factuf')),gesfactu->(DbSetOrder(oTabs:noption)),lisfa:refresh(),lisfa:SetFocus())
menuitem '&Duplicar '+iif(versionOPC() .or. versionMUL(),'','(SOLO para versión ELITE)') action dupliF() when iif(versionOPC() .or. versionMUL(),.t.,.f.)
separator
menuitem 'Cancelar' action omenu1:end()
endmenu
ACTIVATE POPUP omenu1 AT aRect[ 3 ] + 1, aRect[ 2 ] OF oBot1
return
Re: en FW existe un boton con un list?
Amigos, modo simples:
Saludos, Euclides
Code: Select all
DEFINE DIALOG oDlg...
...
ACTIVATE DIALOG oDlg ON INIT DlgSetup(oDlg)
...
Function DlgSetup(oDlg)
local oBar, oMnu, oBB
DEFINE BUTTONBAR oBar SIZE 35, 35 OF oDlg
oBar:bRClicked:=oBar:bLClicked:={|| nil }
...
MENU oMnu POPUP
MENUITEM "Pesquisa 1" ACTION DoPesq1()
SEPARATOR
MENUITEM "Pesquisa 2" ACTION DoPesq2()
ENDMENU
*
DEFINE BUTTON oBB OF oBar RESOURCE "FIND" MENU oMnu NOBORDER ;
TOOLTIP "Pesquisa" ACTION oBB:oPopup:Activate( oBB:nBottom, oBB:nLeft, oBar, .f. )
...