topic-25621

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

explorerBar and Vistamenu together ?
Posted: Sat Feb 09, 2013 09:55 PM

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

test

 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

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

Ariel

Posts: 389

Joined: Wed Nov 29, 2006 01:51 PM

Re: explorerBar and Vistamenu together ?
Posted: Sun Feb 10, 2013 02:39 AM

Silvio,

VistaMenu NO funciona con MDI

Salu2, Ariel.

Silvio.Falconi

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Re: explorerBar and Vistamenu together ?
Posted: Sun Feb 10, 2013 05:54 PM

and window normal ?

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

joseluisysturiz

Posts: 2064

Joined: Fri Jan 06, 2006 09:28 PM

Re: explorerBar and Vistamenu together ?
Posted: Sun Feb 10, 2013 08:21 PM

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

Dios no está muerto...

Gracias a mi Dios ante todo!

Silvio.Falconi

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Re: explorerBar and Vistamenu together ?
Posted: Sun Feb 10, 2013 09:02 PM

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 ....

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

Daniel Garcia-Gil

Posts: 2365

Joined: Wed Nov 02, 2005 11:46 PM

Re: explorerBar and Vistamenu together ?
Posted: Sun Feb 10, 2013 10:26 PM

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...

our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9

ukoenig

Posts: 4043

Joined: Wed Dec 19, 2007 06:40 PM

Re: explorerBar and Vistamenu together ?
Posted: Sun Feb 10, 2013 11:49 PM

Silvio,

It is just a quick test :

Code (fw): Select all Collapse

#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

Since 1995 ( the first release of FW 1.9 )

i work with FW.

If you have any questions about special functions, maybe i can help.

Silvio.Falconi

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Re: explorerBar and Vistamenu together ?
Posted: Mon Feb 11, 2013 08:22 AM

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

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

Silvio.Falconi

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Re: explorerBar and Vistamenu together ? R I S O L V E
Posted: Mon Feb 11, 2013 08:54 AM

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 (fw): Select all Collapse

 
    #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:=oWnd:nWidth-300,;
                oVmenu:=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

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

Ariel

Posts: 389

Joined: Wed Nov 29, 2006 01:51 PM

Re: explorerBar and Vistamenu together ?
Posted: Mon Feb 11, 2013 11:04 AM

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

Posts: 310

Joined: Sun Jan 08, 2006 10:09 PM

Re: explorerBar and Vistamenu together ?
Posted: Mon Feb 11, 2013 11:49 AM

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.

@braços :?)
fivolution@hotmail.com
http://www.5VOLUTION.com.br

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: explorerBar and Vistamenu together ?
Posted: Mon Feb 11, 2013 01:56 PM

+1

regards, saludos

Antonio Linares
www.fivetechsoft.com

joseluisysturiz

Posts: 2064

Joined: Fri Jan 06, 2006 09:28 PM

Re: explorerBar and Vistamenu together ?
Posted: Mon Feb 11, 2013 03:18 PM

Silvio.Falconi wrote: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.

Dios no está muerto...

Gracias a mi Dios ante todo!

Silvio.Falconi

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Re: explorerBar and Vistamenu together ?
Posted: Mon Feb 11, 2013 06:06 PM

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!!!!!

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

FiveTech Support Forums

Continue the discussion