I'm not sure that I want to re-do it so that you must close one browse to open a different one.
/*
Purpose : Simulate a SDI interface using MDI
App :
Author : James Bott, jbott@compuserve.com
Company : Intellitech, gointellitech.com
Date : 09/28/10 12:50:51
Language: Fivewin Harbour/xHarbour
Notes :
*/
#include "Fivewin.ch"
function main()
local oWnd
define window oWnd mdi title "Simulate SDI with MDI"
activate window oWnd on init Init()
return nil
function Init()
local oBar, oBar2, oWnd, oWnd2
define buttonbar oBar of wndMain()
define button of oBar action oWnd:setfocus()
define button of oBar action oWnd2:setfocus()
oBar:goLeft()
define window oWnd mdichild ;
nominimize nosysmenu;
color CLR_BLACK,CLR_BLUE ;
of wndMain()
activate window oWnd maximized
define window oWnd2 mdichild ;
nominimize nosysmenu;
color CLR_BLACK,CLR_RED ;
of wndMain()
define buttonbar oBar2 of oWnd2 3d
activate window oWnd2 maximized
return nil
/*
Purpose : Test ExplorerBar with MDI
Author : James Bott, jbott@compuserve.com
Company : Intellitech, gointellitech.com
Date : 09/28/10 13:53:39
Language: Fivewin Harbour/xHarbour
Notes :
*/
#include "fivewin.ch"
#include "color.ch"
static oWnd1, oWnd2
function main()
local oWnd, oBar
define window oWnd title "Test Explorerbar with MDI Windows" MDI
define buttonbar oBar of oWnd 3d
oWnd:oLeft:= buildExbar(oWnd)
activate window oWnd on init Init()
return nil
//---------------------------------------------------------------------------//
Function Init()
local oBar, oBar2
define window oWnd1 mdichild ;
nominimize nosysmenu;
color CLR_BLACK,CLR_BLUE ;
of wndMain()
activate window oWnd1 maximized
define window oWnd2 mdichild ;
nominimize nosysmenu;
color CLR_BLACK,CLR_RED ;
of wndMain()
define buttonbar oBar2 of oWnd2 3d
activate window oWnd2 maximized
return nil
//---------------------------------------------------------------------------//
function buildExbar( oWnd )
local oExBar, oPanel1
oExBar = TExplorerBar():New(0,0,150,400,oWnd)
oPanel1 = oExBar:AddPanel( "One", "c:\fwh\bitmaps\32x32\people.bmp" )
oPanel1:lSpecial = .T.
oPanel1:AddLink( "Providers", {|| oWnd1:setfocus()}, "c:\fwh\bitmaps\16x16\additem.bmp" )
oPanel1:AddLink( "Patients", {|| oWnd2:setFocus()}, "c:\fwh\bitmaps\16x16\copy.bmp" )
return oExBar
//----------------------------------------------------------------------------//
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: Google [Bot] and 42 guests