#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
