explorerBar and Vistamenu together ?
Posted: Sat Feb 09, 2013 9:55 pm
it is possible a main window ( with Menu,buttonbar ) with explorerBar at left and vistamenu at right ?
test
test
- Code: Select all Expand view
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