Page 1 of 1
explorerBar and Vistamenu together ?
Posted: Sat Feb 09, 2013 9:55 pm
by 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
Re: explorerBar and Vistamenu together ?
Posted: Sun Feb 10, 2013 2:39 am
by Ariel
Silvio,
VistaMenu NO funciona con MDI
Salu2, Ariel.
Re: explorerBar and Vistamenu together ?
Posted: Sun Feb 10, 2013 5:54 pm
by Silvio.Falconi
and window normal ?
Re: explorerBar and Vistamenu together ?
Posted: Sun Feb 10, 2013 8:21 pm
by joseluisysturiz
En windows trabaja sin problema, en MDI no lo he probado, mira sample vistamn1.prg, saludos...
Re: explorerBar and Vistamenu together ?
Posted: Sun Feb 10, 2013 9:02 pm
by 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 ....
Re: explorerBar and Vistamenu together ?
Posted: Sun Feb 10, 2013 10:26 pm
by 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...
Re: explorerBar and Vistamenu together ?
Posted: Sun Feb 10, 2013 11:49 pm
by 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
Re: explorerBar and Vistamenu together ?
Posted: Mon Feb 11, 2013 8:22 am
by 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
Re: explorerBar and Vistamenu together ? R I S O L V E
Posted: Mon Feb 11, 2013 8:54 am
by 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
Re: explorerBar and Vistamenu together ?
Posted: Mon Feb 11, 2013 11:04 am
by 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.
Re: explorerBar and Vistamenu together ?
Posted: Mon Feb 11, 2013 11:49 am
by 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.
Re: explorerBar and Vistamenu together ?
Posted: Mon Feb 11, 2013 1:56 pm
by Antonio Linares
+1
Re: explorerBar and Vistamenu together ?
Posted: Mon Feb 11, 2013 3:18 pm
by joseluisysturiz
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.
Re: explorerBar and Vistamenu together ?
Posted: Mon Feb 11, 2013 6:06 pm
by 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!!!!!