Antonio,
Below is the test code for the above screenshot.
Regards,
James
Code: Select all | Expand
/*
Purpose: Showing three objects in a window that resize automatically
Author : James Bott
Date : 8/14/2010
*/
#include "fivewin.ch"
#include "color.ch"
// Set width and height here.
#define EXPLORERBAR_WIDTH 150
#define EXPLORERBAR_HEIGHT 400
Function Main()
local oWnd, oBar, oBrw, oExplBar, oScrollbar
use C:\FWH\samples\customer
define window oWnd title "Test"
define buttonbar oBar of oWnd
@ 0,50 Listbox oBrw fields of oWnd
oWnd:oTop:= oBar
oWnd:oLeft:= buildExbar( oWnd )
oWnd:oClient:= oBrw
activate window oWnd
return nil
Function BuildExbar( oWnd )
local oExBar, oPanel1, oPanel2, oPanel3, oPanel4, bClick
// test only
bClick:={|| msgInfo( "clicked") }
oExBar = TExplorerBar():New(0,0,EXPLORERBAR_WIDTH,EXPLORERBAR_HEIGHT,oWnd)
oPanel1 = oExBar:AddPanel( "One", "c:\fwh\bitmaps\32x32\people.bmp" )
oPanel1:lSpecial = .T.
oPanel1:AddLink( "First item", bClick, "c:\fwh\bitmaps\16x16\additem.bmp" )
oPanel1:AddLink( "Second item", bClick, "c:\fwh\bitmaps\16x16\copy.bmp" )
oPanel2 = oExBar:AddPanel( "Two", "c:\fwh\bitmaps\32x32\case.bmp" )
oPanel2:AddLink( "First item", bClick, "c:\fwh\bitmaps\16x16\adddbf.bmp" )
oPanel2:AddLink( "Second item", bClick, "c:\fwh\bitmaps\16x16\delete0.bmp" )
oPanel2:AddLink( "Third item", bClick, "c:\fwh\bitmaps\16x16\envelope.bmp" )
oPanel2:AddLink( "Fourth item", bClick, "c:\fwh\bitmaps\16x16\copy.bmp" )
oPanel3 = oExBar:AddPanel( "Three", "c:\fwh\bitmaps\32x32\graphics.bmp" )
oPanel3:AddLink( "First item", bClick, "c:\fwh\bitmaps\16x16\adddbf.bmp" )
oPanel3:AddLink( "Second item", bClick, "c:\fwh\bitmaps\16x16\delete0.bmp" )
oPanel3:AddLink( "Third item", bClick, "c:\fwh\bitmaps\16x16\envelope.bmp" )
oPanel4 = oExBar:AddPanel( "Four", "c:\fwh\bitmaps\32x32\graphics.bmp" )
oPanel4:AddLink( "First item", bClick, "c:\fwh\bitmaps\16x16\additem.bmp" )
oPanel4:AddLink( "Second item", bClick, "c:\fwh\bitmaps\16x16\copy.bmp" )
oPanel4:AddLink( "Third item", bClick, "c:\fwh\bitmaps\16x16\adddbf.bmp" )
oPanel4:AddLink( "Fourth item", bClick, "c:\fwh\bitmaps\16x16\delete0.bmp" )
oPanel4:AddLink( "Fifth item", bClick, "c:\fwh\bitmaps\16x16\envelope.bmp" )
return oExBar
//----------------------------------------------------------------------------//