Menues despleglables

[Compuin]

Hola foro

Se puede tener un menu despleglable asi ?



Que clase tiene Fivewin que sea similar en estructura?

[cnavarro]

Es un poco complicado llegar a hacerlo con menus
Yo te recomiendo que utilices un xBrowse

[Compuin]

Gracias,

Y tendra un ejemplo de como hacerlo con xBrowse?

[cnavarro]

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

[cnavarro]

Esto puede servirte

Code: Select all  Expand view  RUN

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

[Compuin]

Muchas gracias Cristobal

[Marcelo Roggeri]

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

[cnavarro]

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é

[Maurizio]

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

[cnavarro]

Hello Maurizio
You run sample in Windows 10 ?

[Maurizio]

Windows 8
Maurizio

[cnavarro]

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

Code: Select all  Expand view  RUN

Function IsWindows10()
Return .T.

 

and try

[Maurizio]

Thanks , it works
Maurizio

[cnavarro]

Other style MENUS

viewtopic.php?f=16&t=34689#p207032

[MarioG]

Buen dia
Probaste TtakPanel de Andrés Reyes?