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.
Board index FiveWin para Harbour/xHarbour 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.
#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]
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.
Porque no usar el combobox/dbcombo.? ...saludos...
Dios no está muerto...
Gracias a mi Dios ante todo!
Gracias a mi Dios ante todo!
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.
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.
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...
Dios no está muerto...
Gracias a mi Dios ante todo!
Gracias a mi Dios ante todo!
no lo coloco porque quiero ver si puedo hacerlo con un button.
gracias.
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!
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
@ 4, 4 GET oGetClient VAR oRec:Client OF oDlg ;
ACTION ( cClient := Clients->( PopupBrowse( oWndClients:oClient:oRs, oGetClient ) ),;
If( cClient != nil, oRec:Client := cClient,) )a ok.
voy a tratar en algun tiempo que tenga de modificar la clase tbutton para que pueda hacer lo que necesito.
gracias.
Buenas:
Lo que buscas es exactamente esto:
Lo que buscas es exactamente esto:
....
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
Amigos, modo simples:
Saludos, Euclides
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. )
...Saludos, Euclides