explorerBar and Vistamenu together ?

[Silvio.Falconi]

it is possible a main window ( with Menu,buttonbar ) with explorerBar at left and vistamenu at right ?

test

Code: Select all

 function Main()

   local oWnd, oExBar, oPanel1, oPanel2, oPanel3, oPanel4
   local bClick := { | o | MsgInfo( o:GetText() ) }
      
   DEFINE WINDOW oWnd TITLE "FWH Class TExplorerBar" MDI


   oWnd:SetSize( 350, 600 )

   oExBar = TExplorerBar():New()

   oPanel1 = oExBar:AddPanel( "One", "..\bitmaps\32x32\people.bmp" )
   oPanel1:lSpecial = .T.
   oPanel1:AddLink( "First item", bClick, "..\bitmaps\16x16\additem.bmp" )
   oPanel1:AddLink( "Second item", bClick, "..\bitmaps\16x16\copy.bmp" )
      
   oPanel2 = oExBar:AddPanel( "Two", "..\bitmaps\32x32\case.bmp" )
   oPanel2:AddLink( "First item", bClick, "..\bitmaps\16x16\adddbf.bmp" )
   oPanel2:AddLink( "Second item", bClick, "..\bitmaps\16x16\delete0.bmp" )
   oPanel2:AddLink( "Third item", bClick, "..\bitmaps\16x16\envelope.bmp" )
   oPanel2:AddLink( "Fourth item", bClick, "..\bitmaps\16x16\copy.bmp" )

   oPanel3 = oExBar:AddPanel( "Three", "..\bitmaps\32x32\graphics.bmp" )
   oPanel3:AddLink( "First item", bClick, "..\bitmaps\16x16\adddbf.bmp" )
   oPanel3:AddLink( "Second item", bClick, "..\bitmaps\16x16\delete0.bmp" )
   oPanel3:AddLink( "Third item", bClick, "..\bitmaps\16x16\envelope.bmp" )
   
   oPanel4 = oExBar:AddPanel( "Four" )
   oPanel4:AddLink( "First item", bClick, "..\bitmaps\16x16\additem.bmp" )
   oPanel4:AddLink( "Second item", bClick, "..\bitmaps\16x16\copy.bmp" )



   oVMenu := TVistaMenu():New( 0,oExBar:nWidth-50, 100, 100, oWnd )
    oVMenu:nColumns := 1
    oVMenu:nType := 2

    oItem := oVMenu:AddItem( "Sistema y mantenimiento ", ".\..\bitmaps\pngs\image1.png" )
             oItem:AddItem( "Empezar a trabajar con windows",,;
                            { || MsgInfo( "Sistema y mantenimiento" ) } )
             oItem:AddItem( "Hacer una copia de seguridad del equipo" )
             oItem:AddItem( "Item 1 Item 1" )
             oItem:AddItem( "ItemItem2 ItemItem2" )
             oItem:AddItem( "ItemItemItem3 ItemItemItem3" )



         oWnd:oRight := oVMenu



  oWnd:oLeft = oExBar

   ACTIVATE WINDOW oWnd

return nil


 

[Ariel]

Silvio,

VistaMenu NO funciona con MDI

Salu2, Ariel.

[Silvio.Falconi]

and window normal ?

[joseluisysturiz]

En windows trabaja sin problema, en MDI no lo he probado, mira sample vistamn1.prg, saludos...

[Silvio.Falconi]

SORRY joseluisysturiz and Ariel

WHY YOU NOT READ THE QUESTION BEFORE TO ANSWER ?

I asked a test with explorerBar and Vistamenu together into a Main Window ....

[Daniel Garcia-Gil]

Silvio

they only tried to help you, please be more low with your actitud, Every day, more people simply do not read your questions.

whats is the problem with your code? for me look fine may be you have a internal logic problem...

[ukoenig]

Silvio,

It is just a quick test :

Code: Select all

#include "FiveWin.ch"
#include "ribbon.ch"
#include "xbrowse.ch"

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

function Main()

   local oWnd, oExBar, oPanel1, oPanel2, oPanel3, oPanel4
   local bClick := { | o | MsgInfo( o:GetText() ) }
   local uVar, oBrw, oVMenu
   local aArray := { {"one",time(),DATE()},;
                  {"two",time(),DATE()},;
                  {"three",time(),DATE()},;
                  {"four",time(),DATE()},;
                  {"five",time(),DATE()} }
      
   DEFINE WINDOW oWnd TITLE "FWH Class TExplorerBar" MDI
   
// oWnd:SetSize( 350, 600 )
//                            nTop,  nLeft,  nWidth,  nHeight
   oExBar = TExplorerBar():New(0,     0 ,    500,         200, oWnd )

   oPanel1 = oExBar:AddPanel( "One", "..\bitmaps\32x32\people.bmp" )
   oPanel1:lSpecial = .T.
   oPanel1:AddLink( "First item", bClick, "..\bitmaps\16x16\additem.bmp" )
   oPanel1:AddLink( "Second item", bClick, "..\bitmaps\16x16\copy.bmp" )
      
   oPanel2 = oExBar:AddPanel( "Two", "..\bitmaps\32x32\case.bmp", 200 )
   @ 40,10 say "This a say" of oPanel2 transparent pixel
   @ 60,10 radio uVar prompt "This a radio" of oPanel2 pixel size 100, 25
   @ 90, 10 COMBOBOX uVar ITEMS { "one", "two", "three" } of oPanel2 size 100, 100 pixel
   @ 120, 10 RBBTN PROMPT "Ribbon Btn" of oPanel2 pixel size 100, 25 border transparent 
   @ 160, 10 btnbmp PROMPT "BtnBmp" of oPanel2 pixel size 100, 25 border 2007
   @ 40, 120 xbrowse oBrw columns {1,2,3} array aArray of oPanel2  pixel size 180, 150
   oBrw:CreateFromCode()


oVMenu := TVistaMenu():New( 0, oWnd:nWidth , 500, 800, oWnd )
    oVMenu:nColumns := 1
    oVMenu:nType := 2

     oItem := oVMenu:AddItem( "Sistema y mantenimiento ", ".\..\bitmaps\pngs\image1.png" )
             oItem:AddItem( "Empezar a trabajar con windows",,;
                            { || MsgInfo( "Sistema y mantenimiento" ) } )
             oItem:AddItem( "Hacer una copia de seguridad del equipo" )
             oItem:AddItem( "Item 1 Item 1" )
             oItem:AddItem( "ItemItem2 ItemItem2" )
             oItem:AddItem( "ItemItemItem3 ItemItemItem3" )

    oItem := oVMenu:AddItem( "Seguridad", ".\..\bitmaps\pngs\image2.png" )
             oItem:AddItem( "Buscar actualizaciones" )
             oItem:AddItem( "Dejar pasar un programa a través de Firewall de Windows" )

    oItem := oVMenu:AddItem( "Redes e Internet", ".\..\bitmaps\pngs\image3.png" )
    oItem:lEnable := .f.
             oItem:AddItem( "Ver el estado y las tareas de red" )
             oItem:AddItem( "Configurar el uso compartido de archivos" )

    oItem := oVMenu:AddItem( "Hardware y sonido", ".\..\bitmaps\pngs\image4.png" )
             oItem:AddItem( "Reproducir un CD u otros archivos multimedia automáticamente" )
             oItem:AddItem( "Impresora" )
             oItem:AddItem( "Mouse" )

    oItem := oVMenu:AddItem( "Programas", ".\..\bitmaps\pngs\image5.png" )
             oItem:AddItem( "Desinstalar un programa" )
             oItem:AddItem( "Cambiar programas de inicio" )

    oItem := oVMenu:AddItem( "Equipo portatil", ".\..\bitmaps\pngs\image6.png" )
             oItem:AddItem( "Cambiar la configuración de la bateria" )
             oItem:AddItem( "Ajustar parametros de configuración de movilidad de uso frecuente" )

    oItem := oVMenu:AddItem( "Cuentas de usuario", ".\..\bitmaps\pngs\image7.png" )
             oItem:AddItem( "Cambiar tipo de cuenta" )

    oItem := oVMenu:AddItem( "Opciones adicionales", ".\..\bitmaps\pngs\image12.png" )

    oItem := oVMenu:AddItem( "Apariencia y personalización", ".\..\bitmaps\pngs\image8.png" )
             oItem:AddItem( "Cambiar fondo de escritorio" )
             oItem:AddItem( "Cambiar la combinación de colores" )
             oItem:AddItem( "Ajustar la resolución de pantalla" )

    oItem := oVMenu:AddItem( "Reloj, idioma y región", ".\..\bitmaps\pngs\image9.png" )
             oItem:AddItem( "Cambiar teclados u otros métodos de entrada" )
             oItem:AddItem( "Cambiar el idioma para mostrar" )

    oItem := oVMenu:AddItem( "Accesibilidad", ".\..\bitmaps\pngs\image10.png" )
             oItem:AddItem( "Permitir que Windows sugiera parametros de configuración" )
             oItem:AddItem( "Optimizar la presentación visual" )


        oWnd:oRight := oVMenu



  oWnd:oLeft = oExBar


   ACTIVATE WINDOW oWnd MAXIMIZED

return nil
 

Best Regards
Uwe

[Silvio.Falconi]

1.when you press to maximized I see a space gray on the middle of the window
2. when I size the window I see the vistamenu go bach the explorerbar

the same errors I have on my test!!!!


I add also a splitter

@ 0, oExBar:nwidth+2 SPLITTER oSplit ;
VERTICAL _3DLOOK ;
PREVIOUS CONTROLS oExBar ;
HINDS CONTROLSoVMenu;
SIZE 4, oWnd:nHeight PIXEL ;
OF oWnd
SetParent( oSplit:hWnd, oWnd:hWnd )

ACTIVATE WINDOW oWnd MAXIMIZED

return nil

[Silvio.Falconi]

R I S O L V E D


ONLY WHEN i RESIZE HE WINDOW ONLY THE eXPLORER IS RIGHT WHILE THE OVMENU RUN BAD

Code: Select all

 
    #include "FiveWin.ch"
    #include "ribbon.ch"
    #include "xbrowse.ch"
    #include "Splitter.ch"


    Static oWnd,oVMenu,oExBar

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

    function Main()

       local oPanel1, oPanel2, oPanel3, oPanel4,oSplit
       local bClick := { | o | MsgInfo( o:GetText() ) }
       local uVar, oBrw
       local aArray := { {"one",time(),DATE()},;
                      {"two",time(),DATE()},;
                      {"three",time(),DATE()},;
                      {"four",time(),DATE()},;
                      {"five",time(),DATE()} }

       DEFINE WINDOW oWnd TITLE "FWH Class TExplorerBar" MDI


       oExBar = TExplorerBar():New(0,     0 ,    300,         200, oWnd )

       oPanel1 = oExBar:AddPanel( "One", "..\bitmaps\32x32\people.bmp" )
       oPanel1:lSpecial = .T.
       oPanel1:AddLink( "First item", bClick, "..\bitmaps\16x16\additem.bmp" )
       oPanel1:AddLink( "Second item", bClick, "..\bitmaps\16x16\copy.bmp" )

       oPanel2 = oExBar:AddPanel( "Two", "..\bitmaps\32x32\case.bmp", 200 )
       @ 40,10 say "This a say" of oPanel2 transparent pixel
       @ 60,10 radio uVar prompt "This a radio" of oPanel2 pixel size 100, 25
       @ 90, 10 COMBOBOX uVar ITEMS { "one", "two", "three" } of oPanel2 size 100, 100 pixel
       @ 120, 10 RBBTN PROMPT "Ribbon Btn" of oPanel2 pixel size 100, 25 border transparent
       @ 160, 10 btnbmp PROMPT "BtnBmp" of oPanel2 pixel size 100, 25 border 2007
       @ 40, 120 xbrowse oBrw columns {1,2,3} array aArray of oPanel2  pixel size 180, 150
       oBrw:CreateFromCode()


      oWnd:oLeft = oExBar






      ACTIVATE WINDOW oWnd MAXIMIZED;
      ON INIT (BuildVista( oWnd,oExBar))
    /*  ON RESIZE( oVmenu:nWidth:=oWnd:nWidth-300,;
                oVmenu:nHeight:=oWnd:nHeight,;
                oVmenu:refresh())
                                  */
      return nil



Function BuildVista()



        oVMenu := TVistaMenu():New( 0, oExBar:nwidth+4 , oWnd:nWidth-300, oWnd:nHeight, oWnd )
        oVMenu:nColumns := 1
        oVMenu:nType := 2

         oItem := oVMenu:AddItem( "Sistema y mantenimiento ", ".\..\bitmaps\pngs\image1.png" )
                 oItem:AddItem( "Empezar a trabajar con windows",,;
                                { || MsgInfo( "Sistema y mantenimiento" ) } )
                 oItem:AddItem( "Hacer una copia de seguridad del equipo" )
                 oItem:AddItem( "Item 1 Item 1" )
                 oItem:AddItem( "ItemItem2 ItemItem2" )
                 oItem:AddItem( "ItemItemItem3 ItemItemItem3" )

        oItem := oVMenu:AddItem( "Seguridad", ".\..\bitmaps\pngs\image2.png" )
                 oItem:AddItem( "Buscar actualizaciones" )
                 oItem:AddItem( "Dejar pasar un programa a través de Firewall de Windows" )

        oItem := oVMenu:AddItem( "Redes e Internet", ".\..\bitmaps\pngs\image3.png" )
        oItem:lEnable := .f.
                 oItem:AddItem( "Ver el estado y las tareas de red" )
                 oItem:AddItem( "Configurar el uso compartido de archivos" )

        oItem := oVMenu:AddItem( "Hardware y sonido", ".\..\bitmaps\pngs\image4.png" )
                 oItem:AddItem( "Reproducir un CD u otros archivos multimedia automáticamente" )
                 oItem:AddItem( "Impresora" )
                 oItem:AddItem( "Mouse" )

        oItem := oVMenu:AddItem( "Programas", ".\..\bitmaps\pngs\image5.png" )
                 oItem:AddItem( "Desinstalar un programa" )
                 oItem:AddItem( "Cambiar programas de inicio" )

        oItem := oVMenu:AddItem( "Equipo portatil", ".\..\bitmaps\pngs\image6.png" )
                 oItem:AddItem( "Cambiar la configuración de la bateria" )
                 oItem:AddItem( "Ajustar parametros de configuración de movilidad de uso frecuente" )

        oItem := oVMenu:AddItem( "Cuentas de usuario", ".\..\bitmaps\pngs\image7.png" )
                 oItem:AddItem( "Cambiar tipo de cuenta" )

        oItem := oVMenu:AddItem( "Opciones adicionales", ".\..\bitmaps\pngs\image12.png" )

        oItem := oVMenu:AddItem( "Apariencia y personalización", ".\..\bitmaps\pngs\image8.png" )
                 oItem:AddItem( "Cambiar fondo de escritorio" )
                 oItem:AddItem( "Cambiar la combinación de colores" )
                 oItem:AddItem( "Ajustar la resolución de pantalla" )

        oItem := oVMenu:AddItem( "Reloj, idioma y región", ".\..\bitmaps\pngs\image9.png" )
                 oItem:AddItem( "Cambiar teclados u otros métodos de entrada" )
                 oItem:AddItem( "Cambiar el idioma para mostrar" )

        oItem := oVMenu:AddItem( "Accesibilidad", ".\..\bitmaps\pngs\image10.png" )
                 oItem:AddItem( "Permitir que Windows sugiera parametros de configuración" )
                 oItem:AddItem( "Optimizar la presentación visual" )


           oWnd:oRight := oVMenu



        @ 0, oExBar:nwidth+2 SPLITTER oSplit ;
      VERTICAL _3DLOOK ;
      PREVIOUS CONTROLS oExBar ;
      HINDS CONTROLS oVMenu;
      SIZE 4, oWnd:nHeight  PIXEL ;
      OF oWnd
      SetParent( oSplit:hWnd, oWnd:hWnd )


     return nil



   

[Ariel]

Silvio.

The truth that with attitudes like yours the desires extract of answering you, is incredible that on trying to help yourself you ill-treat the persons with your answers, it is not that we do not read the messages, simply we answer you what we know, which we do not know do not answer it, I hope that you change your terrible attitude.

Regards.

[Rochinha]

Silvio.

The truth that with attitudes like yours the desires extract of answering you, is incredible that on trying to help yourself you ill-treat the persons with your answers, it is not that we do not read the messages, simply we answer you what we know, which we do not know do not answer it, I hope that you change your terrible attitude.

Regards.

I Agree. Politeness is worldwide.

[Antonio Linares]

+1

[joseluisysturiz]

SORRY joseluisysturiz and Ariel

WHY YOU NOT READ THE QUESTION BEFORE TO ANSWER ?

I asked a test with explorerBar and Vistamenu together into a Main Window ....

Silvio, the next question type, "which have no knowledge answer below mine, thanks." I do not speak English, so I use google translator, but they will understand the message. Case Closed.

[Silvio.Falconi]

Dear Antonio,
Dear Daniel,
Dear Ariel

Sorry,

I asked if was possible have a windows with explorerBar and Vista menu together in a window main

Ariel answered me first " VistaMenu NO funciona con MDI"
JosèLuis answered me "in windows trabaja sin problema, en MDI no lo he probado, mira sample vistamn1.prg, saludos""

But I asked only if it was possible a window with ExplorerBAr and Vistamenu and Not only Vistamenu control in a Window...

Perhaps I have a logic problem as sad Daniel or I could be also terrible attitudes

Eh Eh Eh .... it is sure !!!!

The Truly .....Someone does not read well my questions, and not knowing how to respond tries to answer my questions with other arguments, without realizing that the subject was indeed another

and then this someone says I have terrible attitudes, perhaps also a personal foul

I humbly ask you to forgive me if I have angered some of you but it was not my intentions!!!!!