Menues despleglables

Menues despleglables

Postby Compuin » Fri Sep 08, 2017 2:26 pm

Hola foro

Se puede tener un menu despleglable asi ?

Image

Que clase tiene Fivewin que sea similar en estructura?
FWH 20.12
Hbmk2 32/64 Bits (Build 19.29.30133)
Microsoft Visual C 32 Bits
MySql 8.0.24 32/64 Bits
VS Code
Compuin
 
Posts: 1213
Joined: Tue Dec 28, 2010 1:29 pm
Location: Quebec, Canada

Re: Menues despleglables

Postby cnavarro » Sun Sep 10, 2017 4:46 pm

Es un poco complicado llegar a hacerlo con menus
Yo te recomiendo que utilices un xBrowse
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
cnavarro
 
Posts: 6498
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Menues despleglables

Postby Compuin » Sun Sep 10, 2017 4:50 pm

Gracias,

Y tendra un ejemplo de como hacerlo con xBrowse?
FWH 20.12
Hbmk2 32/64 Bits (Build 19.29.30133)
Microsoft Visual C 32 Bits
MySql 8.0.24 32/64 Bits
VS Code
Compuin
 
Posts: 1213
Joined: Tue Dec 28, 2010 1:29 pm
Location: Quebec, Canada

Re: Menues despleglables

Postby cnavarro » Sun Sep 10, 2017 4:53 pm

Aqui tienes algo sobre ello

http://wiki.fivetechsoft.com/doku.php?id=windui14_guide

Pero, voy a ver si encuentro algún ejemplo más
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
cnavarro
 
Posts: 6498
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Menues despleglables

Postby cnavarro » Sun Sep 10, 2017 5:01 pm

Esto puede servirte

Code: Select all  Expand view


Function XBrImgMnu()

   local oBrw
   local aText := { ;
         "Add Calendar", ;
         "Delete Calendar", ;
         "Clear Calendar", ;
         "Edit Calendar", ;
         "Refresh Calendar", ;
         "Setup Calendar", ;
         "Info Calendar", ;
         "Refresh List Calendar", ;
         "Exit Calendar" }
   local aData := { ;
         "c:\fivewin\bitmaps\32x32\................bmp", ;
         "c:\fivewin\bitmaps\32x32\................bmp", ;
         "c:\fivewin\bitmaps\32x32\................bmp", ;
         "c:\fivewin\bitmaps\32x32\................bmp", ;
         "c:\fivewin\bitmaps\32x32\................bmp", ;
         "c:\fivewin\bitmaps\32x32\................bmp", ;
         "c:\fivewin\bitmaps\32x32\................bmp", ;
         "c:\fivewin\bitmaps\32x32\................bmp", ;
         "c:\fivewin\bitmaps\32x32\................bmp"  }
   //"\fwh\bitmaps\addons32.bmp",

    // OJO CON LAS COORDENADAS

   @ oSay1:nBottom, 1 XBROWSE oBrw OF oPnel1 ;
      DATASOURCE aData COLUMNS 1, 1 NOBORDER PIXEL
   
   WITH OBJECT oBrw
      :SetColor( , oPnel1:nClrPane )
      :l2007            := .F.
      :lHeader          := .F.
      :lFooter          := .F.
      :lHScroll         := .F.

      :nBottom          := oSay2:nTop - 1      // OJO AQUI TENDRAS QUE DEFINIR EL ALTO

      :nMarqueeStyle    := MARQSTYLE_HIGHLROW  //MARQSTYLE_HIGHLCELL //
      :bClrStd          := { || { CLR_BLACK, oPnel1:nClrPane } }
      :bClrSelFocus     := { || { CLR_WHITE, METRO_OLIVE } }
      :bClrSel          := { || { CLR_BLACK, CLR_HGRAY } }
      :lRecordSelector  := .F.
      :lHScroll         := .F.
      :lVScroll         := .F.
      //:SetFont( oFnt )
      //:nColDividerStyle := LINESTYLE_NOLINES
      //:nRowDividerStyle := LINESTYLE_LIGHTGRAY
      :bLDblClick       := {| x, y, nF, nCol | XBrw1Elige( oBrw:nArrayAt, oBrw, x, y, nF, nCol ) }
      :bKeyChar         := :bLDblClick
      WITH OBJECT :aCols[ 1 ]
         :cDataType     := 'F'
         :nWidth        := 45
         :nDataBmpAlign := AL_CENTER //LEFT
         //:aImgRect      := "circle"
         :lAllowSizing   := .F.
      END
      WITH OBJECT :aCols[ 2 ]
         :bEditValue   := { || aText[ oBrw:nArrayAt ] }
         :oDataFont    := oFnt
         :nWidth       := nLeftPos - oBrw:aCols[ 1 ]:nWidth - 2
         :nCellheight  := 31
      END
      :nRowHeight      := 31
      //:lHoverSelect    := .t.
      :CreateFromCode()
   END

Return nil

//----------------------------------------------------------------------------//

Function XBrw1Elige( nPos, oBrw, x, y, nF, nCol )

   Do Case
      Case nPos = 1

      Case nPos = 2

      Case nPos = 3

      Case nPos = 4

      .../...
   EndCase

Return nil
 


Dime cómo te funciona
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
cnavarro
 
Posts: 6498
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Menues despleglables

Postby Compuin » Sun Sep 10, 2017 5:13 pm

Muchas gracias Cristobal
FWH 20.12
Hbmk2 32/64 Bits (Build 19.29.30133)
Microsoft Visual C 32 Bits
MySql 8.0.24 32/64 Bits
VS Code
Compuin
 
Posts: 1213
Joined: Tue Dec 28, 2010 1:29 pm
Location: Quebec, Canada

Re: Menues despleglables

Postby Marcelo Roggeri » Fri Nov 03, 2017 2:57 pm

Cristobal me gustaria hacer un menu similar a esa imagen puedes ayudarme por favor?
He visto el codigo que pusiste pero no logro sacar el error en esta linea @ oSay1:nBottom,
Saludos
Marcelo
FWH - Harbour - BCC7 - PellesC
User avatar
Marcelo Roggeri
 
Posts: 325
Joined: Sat Jul 22, 2006 9:04 pm
Location: Venado Tuerto - Santa Fe -Argentina

Re: Menues despleglables

Postby cnavarro » Fri Nov 03, 2017 3:09 pm

Marcelo Roggeri wrote:Cristobal me gustaria hacer un menu similar a esa imagen puedes ayudarme por favor?
He visto el codigo que pusiste pero no logro sacar el error en esta linea @ oSay1:nBottom,
Saludos
Marcelo


Pon unas coordenadas de inicio fijas del pintado del xbrowse sustituyendo esa referencia
Hay otra referencia a oSay2 que ya aviso que hay que sustituir
Cualquier cosa, por aqui estaré
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
cnavarro
 
Posts: 6498
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Menues despleglables

Postby Maurizio » Mon Nov 06, 2017 8:58 am

Hello Cristobal
when I try wndui14.prg

I have this error
Called from: => NWIDTH( 0 )
Called from: .\source\internal\UIWINDOW.PRG => TWINDOWSUI:PNELPPAL( 602 )
Called from: wndui14.prg => MAIN( 115 )

Regards Maurizio
User avatar
Maurizio
 
Posts: 796
Joined: Mon Oct 10, 2005 1:29 pm

Re: Menues despleglables

Postby cnavarro » Mon Nov 06, 2017 1:56 pm

Hello Maurizio
You run sample in Windows 10 ?
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
cnavarro
 
Posts: 6498
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Menues despleglables

Postby Maurizio » Tue Nov 07, 2017 7:40 am

Windows 8
Maurizio
User avatar
Maurizio
 
Posts: 796
Joined: Mon Oct 10, 2005 1:29 pm

Re: Menues despleglables

Postby cnavarro » Tue Nov 07, 2017 9:00 am

Maurizio, is a bug fixed when OS not Windows 10
Please, add at end of sample

Code: Select all  Expand view


Function IsWindows10()
Return .T.

 


and try
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
cnavarro
 
Posts: 6498
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Menues despleglables

Postby Maurizio » Tue Nov 07, 2017 9:43 am

Thanks , it works
Maurizio
User avatar
Maurizio
 
Posts: 796
Joined: Mon Oct 10, 2005 1:29 pm

Re: Menues despleglables

Postby cnavarro » Tue Nov 07, 2017 12:42 pm

Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
cnavarro
 
Posts: 6498
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Menues despleglables

Postby MarioG » Tue Nov 14, 2017 2:22 pm

Buen dia
Probaste TtakPanel de Andrés Reyes?
Resistencia - "Ciudad de las Esculturas"
Chaco - Argentina
User avatar
MarioG
 
Posts: 1380
Joined: Fri Oct 14, 2005 1:28 pm
Location: Resistencia - Chaco - AR


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 10 guests