here are some undocumented methods i have tested.
- Code: Select all Expand view RUN
#include "fivewin.ch"
PROCEDURE Main()
LOCAL oWnd, oBar, oPanel
LOCAL bClick := {|o| MsgInfo( o:GetText() ) }
LOCAL oFont1, oBar1, oBtn1, oBtn2
//DEFINE FONT oFont1 NAME "Arial" SIZE 0,-20 BOLD
DEFINE FONT oFont1 NAME "Arial" SIZE 0,-13 BOLD
aRect3 := GetSysmetrics( 1 ) // Screen-Höhe
aRect4 := GetSysmetrics( 0 ) // Screen-Breite
IF MsgYesNo( "Explorer-Menü mit MDI-Fenster erzeugen ?", "Treffen Sie eine Auswahl" )
DEFINE WINDOW oWnd ;
FROM 0, 0 TO aRect3, aRect4 PIXEL;
TITLE "Explorer-Bar mit MDI-Fenster" ;
MDI
ELSE
DEFINE WINDOW oWnd ;
FROM 0, 0 TO aRect3, aRect4 PIXEL;
TITLE "Explorer-Bar"
ENDIF
DEFINE BUTTONBAR oBar1 3DLOOK OF oWnd BUTTONSIZE 70,80 2007 RIGHT
DEFINE BUTTON oBtn1 OF oBar1 ACTION ( oBar:Collapse() ) ;
RESOURCE "info_5" PROMPT "Help for" + CRLF + "Visual Tools"
DEFINE BUTTON oBtn2 OF oBar1 ACTION ( oBar:Expand() ) ;
RESOURCE "info_5" PROMPT "Help for" + CRLF + "Visual Tools"
oBar := TExplorerBar():New()
oPanel1 := oBar:AddPanel("1. Menü" )
oPanel1:lSpecial := .T. // aktive Kopfleiste
oPanel1:SetFont ( oFont1 )
oPanel1:AddLink("1. Auswahl", bClick,"presentation")
oPanel1:AddLink("2. Auswahl", bClick,"welt")
oPanel1:AddLink("3. Auswahl", bClick,"drucker")
oPanel1:AddLink("4. Auswahl", bClick,"copycd")
oPanel2 := oBar:AddPanel("2. Menü" )
oPanel2:lSpecial := .T.
oPanel2:SetFont ( oFont1 )
oPanel2:AddLink("1. Auswahl", bClick,"eingfolder")
oPanel2:AddLink("2. Auswahl", bClick,"Bildschirm")
oPanel2:AddLink("3. Auswahl", bClick,"Service")
oPanel2:Disable()
//oPanel:Collapse()
//oPanel:Hide()
oPanel3 := oBar:AddPanel("3. Menü" )
oPanel3:SetFont ( oFont1 )
oPanel3:AddLink("1. Auswahl", bClick,"folderimg")
oPanel3:AddLink("2. Auswahl", bClick,"folder")
oPanel3:AddLink("3. Auswahl", bClick,"computer")
oPanel4 := oBar:AddPanel("4. Menü" )
oPanel4:SetFont ( oFont1 )
oPanel4:AddLink( "Ende", { || Ende() },"public" )
oPanel5 := oBar:AddPanel("Toggle 2. Menü" )
oPanel5:SetFont ( oFont1 )
oPanel5:AddLink("2. Menü < DISABLE >", ;
{ || ( oPanel2:Disable(), ;
oBar:Refresh() ) } ,"folderimg")
oPanel5:AddLink("2. Menü < ENABLE >", ;
{ || ( oPanel2:Enable(), ;
oBar:Refresh() ) },"folder")
oPanel5:AddLink("2. Menü < HIDE >", ;
{ || ( oPanel2:Collapse(), ;
oPanel2:Hide(), ;
oBar:Refresh() ) }, "computer")
oPanel5:AddLink("2. Menü < SHOW >", ;
{ || ( oPanel2:Expand(), ;
oPanel2:Show(), ;
oBar:Refresh() ) },"folderimg")
oPanel6 := oBar:AddPanel("Informationen" )
oPanel6:SetFont ( oFont1 )
oPanel6:cHtmlText := "<b>TExplorerBar()</b><br>" +;
"<br size=5>" +;
"Explorer-Bar-Klasse<br>"+;
"im Windows XP-Style<br>" +;
"<br>" +;
"<b>Autor</b><br>" +;
"<br size=5>" +;
"Uwe König<br>"+;
"E-Mail : www.esckoenig@aol.com"
/*
<!-- cHtmlText --!>
Support :
<b></b>
<i></i>
<u></u>
<br>
Font "tahoma" 0,-11
*/
ACTIVATE WINDOW oWnd
RETURN NIL
// --------------------------
FUNCTION ENDE()
IF MsgYesNo( "Das Programm beenden ?", "ACHTUNG" )
QUIT
ENDIF
RETURN( NIL )
Regards
Uwe
