|
176
|
How can I select an item using on its full part, not only on its icon or caption
PROCEDURE OnClick(oExplorerBar)
DevOut( Transform(oExplorerBar:ItemFromPoint(-1,-1),"") )
RETURN
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
LOCAL oGroup
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oExplorerBar:Click := {|| OnClick(oExplorerBar)} /*Occurs when the user presses and then releases the left mouse button over the control.*/
oExplorerBar:HighlightItemType := 19/*exFull+exUnion*/
oGroup := oExplorerBar:Groups():Add("Group 1")
oGroup:AddItem("Item <b>1</b>"):CaptionFormat := 1/*exHTML*/
oGroup:AddItem("Item <b>2</b>"):CaptionFormat := 1/*exHTML*/
oGroup:Expanded := .T.
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
175
|
How can I change the group's color
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
LOCAL oGroups
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oExplorerBar:SetProperty("BackColorGroup",AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. ))
oExplorerBar:SetProperty("BackColorGroup2",oExplorerBar:BackColorGroup())
oExplorerBar:GroupAppearance := 0/*exNone*/
oGroups := oExplorerBar:Groups()
oGroups:Add("Group 1")
oGroups:Add("Group 2")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
174
|
How can remove the group's appearance
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
LOCAL oGroups
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oExplorerBar:SetProperty("BackColorGroup",oExplorerBar:BackColor())
oExplorerBar:SetProperty("BackColorGroup2",oExplorerBar:BackColor())
oExplorerBar:GroupAppearance := 1/*exSingle*/
oGroups := oExplorerBar:Groups()
oGroups:Add("Group 1")
oGroups:Add("Group 2")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
173
|
How can I align the group/item
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
LOCAL oGroup
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oExplorerBar:BeginUpdate()
oGroup := oExplorerBar:Groups():Add("Group 1")
oGroup:Alignment := 0/*exLeft*/
oGroup:AddItem("Item 1"):Alignment := 0/*exLeft*/
oGroup:Expanded := .T.
oExplorerBar:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
172
|
Just seen the BackgroundExt property. Not sure what I can do with that
PROCEDURE OnAddGroup(oExplorerBar,Group)
RETURN
PROCEDURE OnAddItem(oExplorerBar,Item)
RETURN
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
LOCAL oAppearance
LOCAL oGroup,oGroup1,oGroup2
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oExplorerBar:AddGroup := {|Group| OnAddGroup(oExplorerBar,Group)} /*Occurs when a new group is added to collection.*/
oExplorerBar:AddItem := {|Item| OnAddItem(oExplorerBar,Item)} /*Occurs when a new item is added to a group.*/
oExplorerBar:BeginUpdate()
oExplorerBar:Appearance := 0/*exNone*/
oAppearance := oExplorerBar:VisualAppearance()
oAppearance:Add(1,"c:\exontrol\images\normal.ebn")
oAppearance:Add(2,"CP:1 48 12 -24 0")
oAppearance:Add(3,"c:\exontrol\images\pushed.ebn")
oExplorerBar:SetProperty("HTMLPicture","uk","c:\exontrol\images\zipdisk.gif")
oExplorerBar:SetProperty("HTMLPicture","brazil","c:\exontrol\images\auction.gif")
oExplorerBar:SetProperty("HTMLPicture","sweden","c:\exontrol\images\colorize.gif")
oExplorerBar:SetProperty("BackColorGroup",0x2000000)
oExplorerBar:SetProperty("BackColorGroup2",oExplorerBar:BackColorGroup())
oExplorerBar:GroupHeight := 40
oGroup := oExplorerBar:Groups():Add("<b><font ;18><fgcolor FFFFFF><sha 0;;0>United Kingdom")
oGroup:SetProperty("BackgroundExtValue",2/*exIndexExt2*/,4/*exTextExt*/,"<img>uk:44</img>")
oGroup:AddItem("London Eye")
oGroup:AddItem("Tower of London")
oGroup:AddItem("Buckingham Palace")
oGroup:AddItem("River Thames")
oGroup:AddItem("Stonehenge")
oGroup1 := oExplorerBar:Groups():Add("<b><font ;18><fgcolor FFFFFF><sha 0;;0>Brazil")
oGroup1:SetProperty("BackgroundExtValue",2/*exIndexExt2*/,4/*exTextExt*/,"<img>brazil:44</img>")
oGroup1:AddItem("Cristo Redentor")
oGroup1:AddItem("Copacabana")
oGroup1:AddItem("Ipanema, Rio de Janeiro")
oGroup1:AddItem("Iguazu Falls")
oGroup1:AddItem("Sugarloaf Mountain")
oGroup1:Expanded := .T.
oGroup2 := oExplorerBar:Groups():Add("<b><font ;18><fgcolor FFFFFF><sha 0;;0>Sweden")
oGroup2:SetProperty("BackgroundExtValue",2/*exIndexExt2*/,4/*exTextExt*/,"<img>sweden:44</img>")
oGroup2:AddItem("Gamla stan")
oGroup2:AddItem("Vasa Museum")
oGroup2:AddItem("Stockholm Palace")
oGroup2:AddItem("Skansen")
oGroup2:AddItem("Djurgården")
oExplorerBar:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
171
|
Can I specify a different colors for groups using your EBN files
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oExplorerBar:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
oExplorerBar:SetProperty("BackColorGroup",0x1000000)
oExplorerBar:Groups():Add("Group 1")
oExplorerBar:Groups():Add("Group 2"):SetProperty("BackColor",0x100aabb)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
170
|
Can I change the color of the control's border (EBN files)
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oExplorerBar:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
oExplorerBar:Appearance := 27966412/*0x1aabbc8+exDrop*/
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
169
|
How can I make the items visible automatically, or how can I ensure an item is visible or it is shown in the control's client area
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
LOCAL oGroup
LOCAL oGroups
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oExplorerBar:BeginUpdate()
oExplorerBar:GroupHeight := 48
oGroups := oExplorerBar:Groups()
oGroups:Add("Group 1")
oGroups:Add("Group 2")
oGroups:Add("Group 3")
oGroups:Add("Group 4")
oGroups:Add("Group 5")
oGroups:Add("Group 6")
oGroups:Add("Group 7")
oGroups:Add("Group 8")
oGroups:Add("Group 9")
oGroups:Add("Group 10")
oGroups:Add("Group 11")
oGroup := oGroups:Add("Group 12")
oGroup:AddItem(Transform(0,""))
oGroup:AddItem(Transform(1,""))
oGroup:AddItem(Transform(2,""))
oExplorerBar:EnsureVisible(11,2)
oExplorerBar:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
168
|
How can I scroll to the end of the groups
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
LOCAL oGroups
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oExplorerBar:BeginUpdate()
oExplorerBar:GroupHeight := 48
oGroups := oExplorerBar:Groups()
oGroups:Add("Group 1")
oGroups:Add("Group 2")
oGroups:Add("Group 3")
oGroups:Add("Group 4")
oGroups:Add("Group 5")
oGroups:Add("Group 6")
oGroups:Add("Group 7")
oGroups:Add("Group 8")
oGroups:Add("Group 9")
oGroups:Add("Group 10")
oGroups:Add("Group 11")
oGroups:Add("Group 12")
oExplorerBar:EnsureVisible(11)
oExplorerBar:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
167
|
How can I display an item by multiple lines
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
LOCAL oGroup
LOCAL oItem
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oGroup := oExplorerBar:Groups():Add("Group 1")
oGroup:AddItem("SingleLine")
oItem := oGroup:AddItem("This is bit of text that should break the lines, and so <b>multiple</b> lines are displayed")
oItem:Alignment := 0/*exLeft*/
oItem:CaptionFormat := 1/*exHTML*/
oItem:SingleLine := .F.
oGroup:AddItem("Item 3")
oGroup:Expanded := .T.
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
166
|
How can I indent an item
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
LOCAL oGroup
LOCAL oItem,oItem1,oItem2,oItem3,oItem4
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oGroup := oExplorerBar:Groups():Add("Group 1")
oGroup:AddItem("Item 1"):Alignment := 0/*exLeft*/
oItem := oGroup:AddItem("Sub Item <b>1</b>")
oItem:CaptionFormat := 1/*exHTML*/
oItem:Alignment := 0/*exLeft*/
oItem:Indent := 12
oItem1 := oGroup:AddItem("Sub Item <b>2</b>")
oItem1:CaptionFormat := 1/*exHTML*/
oItem1:Alignment := 0/*exLeft*/
oItem1:Indent := 12
oItem2 := oGroup:AddItem("Sub Item <b>3</b>")
oItem2:CaptionFormat := 1/*exHTML*/
oItem2:Alignment := 0/*exLeft*/
oItem2:Indent := 12
oItem3 := oGroup:AddItem("Sub Sub Item <b>3</b>")
oItem3:CaptionFormat := 1/*exHTML*/
oItem3:Alignment := 0/*exLeft*/
oItem3:Indent := 24
oItem4 := oGroup:AddItem("Item 2")
oItem4:Alignment := 0/*exLeft*/
oGroup:Expanded := .T.
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
165
|
How can I use HTML format to display my item
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
LOCAL oGroup
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oGroup := oExplorerBar:Groups():Add("Group 1")
oGroup:AddItem("Item 1")
oGroup:AddItem("<font Tahoma;11>T</font>his is an HTML <b>item</b> assigned to a <fgcolor=FF0000>group</fgcolor>"):CaptionFormat := 1/*exHTML*/
oGroup:AddItem("Item 3")
oGroup:Expanded := .T.
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
164
|
How can I assign a tooltip to an item
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
LOCAL oGroup
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oGroup := oExplorerBar:Groups():Add("Group 1")
oGroup:AddItem("Item 1")
oGroup:AddItem("ToolTip"):ToolTip := "This is bit of text that should appear when the cursor hovers the <b>item</b>."
oGroup:AddItem("Item 3")
oGroup:Expanded := .T.
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
163
|
How can I show or hide an item
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
LOCAL oGroup
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oGroup := oExplorerBar:Groups():Add("Group 1")
oGroup:AddItem("Item 1")
oGroup:AddItem("Item 2"):Visible := .F.
oGroup:AddItem("Item 3")
oGroup:Expanded := .T.
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
162
|
How can I align an icon for an item
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
LOCAL oGroup
LOCAL oItem,oItem1
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oExplorerBar:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oGroup := oExplorerBar:Groups():Add("Group 1")
oItem := oGroup:AddItem("Item 1")
oItem:Image := 1
oItem:ImageAlignment := 0/*exLeft*/
oItem1 := oGroup:AddItem("Item 2")
oItem1:Image := 2
oItem1:ImageAlignment := 2/*exRight*/
oGroup:Expanded := .T.
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
161
|
How can I stop highlighting an item
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
LOCAL oGroup
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oGroup := oExplorerBar:Groups():Add("Group 1")
oGroup:AddItem("Item 1")
oGroup:AddItem("Item 2 - no "):AllowHighLight := .F.
oGroup:AddItem("Item 3")
oGroup:Expanded := .T.
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
160
|
How can I change the item's background color
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
LOCAL oGroup
LOCAL oItem
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oGroup := oExplorerBar:Groups():Add("Group 1")
oGroup:AddItem("Item 1")
oItem := oGroup:AddItem("Item 2")
oItem:SetProperty("BackColor",AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. ))
oItem:SetProperty("BackColor2",AutomationTranslateColor( GraMakeRGBColor ( { 255,255,255 } ) , .F. ))
oGroup:AddItem("Item 3")
oGroup:Expanded := .T.
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
159
|
How can I change the item's background color
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
LOCAL oGroup
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oGroup := oExplorerBar:Groups():Add("Group 1")
oGroup:AddItem("Item 1")
oGroup:AddItem("<bgcolor=FF0000>Item</bgcolor> 2"):CaptionFormat := 1/*exHTML*/
oGroup:AddItem("Item 3")
oGroup:Expanded := .T.
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
158
|
How can I change the item's foreground color
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
LOCAL oGroup
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oGroup := oExplorerBar:Groups():Add("Group 1")
oGroup:AddItem("Item 1")
oGroup:AddItem("Item 2"):SetProperty("ForeColor",AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. ))
oGroup:AddItem("Item 3")
oGroup:Expanded := .T.
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
157
|
How can I change the visual appearance of the item using your EBN files
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
LOCAL oGroup
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oExplorerBar:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
oGroup := oExplorerBar:Groups():Add("Group 1")
oGroup:AddItem("Item 1")
oGroup:AddItem("Item 2"):SetProperty("BackColor",0x1000000)
oGroup:AddItem("Item 3")
oGroup:Expanded := .T.
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
156
|
How can I change the item's background color
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
LOCAL oGroup
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oGroup := oExplorerBar:Groups():Add("Group 1")
oGroup:AddItem("Item 1")
oGroup:AddItem("Item 2"):SetProperty("BackColor",AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. ))
oGroup:AddItem("Item 3")
oGroup:Expanded := .T.
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
155
|
How can I get the group of the item
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
LOCAL oGroup
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oGroup := oExplorerBar:Groups():Add("Group 1")
oGroup:AddItem("Item 1")
oGroup:AddItem("Item 2"):Group():Bold := .T.
oGroup:AddItem("Item 3")
oGroup:Expanded := .T.
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
154
|
How can I get the index of the item
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
LOCAL oGroup
LOCAL oItem,oItem1,oItem2
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oGroup := oExplorerBar:Groups():Add("Group 1")
oItem := oGroup:AddItem("Item 1")
oItem:Caption := Transform(oItem:Index(),"")
oItem1 := oGroup:AddItem("Item 2")
oItem1:Caption := Transform(oItem1:Index(),"")
oItem2 := oGroup:AddItem("Item 3")
oItem2:Caption := Transform(oItem2:Index(),"")
oGroup:Expanded := .T.
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
153
|
How can I draw underlined an item
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
LOCAL oGroup
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oGroup := oExplorerBar:Groups():Add("Group 1")
oGroup:AddItem("Item 1")
oGroup:AddItem("<u>Item</u> 2"):CaptionFormat := 1/*exHTML*/
oGroup:AddItem("Item 3")
oGroup:Expanded := .T.
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
152
|
How can I draw underlined an item
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
LOCAL oGroup
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oGroup := oExplorerBar:Groups():Add("Group 1")
oGroup:AddItem("Item 1")
oGroup:AddItem("Item 2"):Underline := .T.
oGroup:AddItem("Item 3")
oGroup:Expanded := .T.
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
151
|
How can I draw as strikeout an item
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
LOCAL oGroup
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oGroup := oExplorerBar:Groups():Add("Group 1")
oGroup:AddItem("Item 1")
oGroup:AddItem("<s>Item</s> 2"):CaptionFormat := 1/*exHTML*/
oGroup:AddItem("Item 3")
oGroup:Expanded := .T.
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
150
|
How can I draw as strikeout an item
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
LOCAL oGroup
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oGroup := oExplorerBar:Groups():Add("Group 1")
oGroup:AddItem("Item 1")
oGroup:AddItem("Item 2"):StrikeOut := .T.
oGroup:AddItem("Item 3")
oGroup:Expanded := .T.
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
149
|
How can I draw as italic an item
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
LOCAL oGroup
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oGroup := oExplorerBar:Groups():Add("Group 1")
oGroup:AddItem("Item 1")
oGroup:AddItem("<i>Item</i> 2"):CaptionFormat := 1/*exHTML*/
oGroup:AddItem("Item 3")
oGroup:Expanded := .T.
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
148
|
How can I draw as italic an item
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
LOCAL oGroup
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oGroup := oExplorerBar:Groups():Add("Group 1")
oGroup:AddItem("Item 1")
oGroup:AddItem("Item 2"):Italic := .T.
oGroup:AddItem("Item 3")
oGroup:Expanded := .T.
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
147
|
How can I add a anchor or a hyperlink
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
LOCAL oGroup
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oExplorerBar:HighlightItemType := 0/*exNoHighlight*/
oExplorerBar:HandCursor := .F.
oGroup := oExplorerBar:Groups():Add("Group 1")
oGroup:AddItem("Link <a1><b>1</b></a>"):CaptionFormat := 1/*exHTML*/
oGroup:AddItem("Link <a2><b>2</b></a>"):CaptionFormat := 1/*exHTML*/
oGroup:Expanded := .T.
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
146
|
How do I bold an item
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
LOCAL oGroup
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oGroup := oExplorerBar:Groups():Add("Group 1")
oGroup:AddItem("Item 1")
oGroup:AddItem("<b>Item</a> 2"):CaptionFormat := 1/*exHTML*/
oGroup:AddItem("Item 3")
oGroup:Expanded := .T.
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
145
|
How do I bold an item
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
LOCAL oGroup
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oGroup := oExplorerBar:Groups():Add("Group 1")
oGroup:AddItem("Item 1")
oGroup:AddItem("Item 2"):Bold := .T.
oGroup:AddItem("Item 3")
oGroup:Expanded := .T.
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
144
|
How can I align an item
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
LOCAL oGroup
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oExplorerBar:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oGroup := oExplorerBar:Groups():Add("Group 1")
oGroup:ItemHeight := 28
oGroup:AddItem("Left",1):Alignment := 0/*exLeft*/
oGroup:AddItem("Center",2):Alignment := 1/*exCenter*/
oGroup:AddItem("Right",3):Alignment := 2/*exRight*/
oGroup:AddItem("Middle",1):Alignment := 4/*exMiddle*/
oGroup:Expanded := .T.
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
143
|
How can I assign some extra data to an item
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
LOCAL oGroup
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oGroup := oExplorerBar:Groups():Add("Group 1")
oGroup:AddItem("Item 1"):UserData := "your data"
oGroup:AddItem("Item 2")
oGroup:AddItem("Item 3")
oGroup:Expanded := .T.
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
142
|
How can I assign or display an icon for an item
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
LOCAL oGroup
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oExplorerBar:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oGroup := oExplorerBar:Groups():Add("Group 1")
oGroup:AddItem("Item <img>1</img> text <img>2</img>"):CaptionFormat := 1/*exHTML*/
oGroup:AddItem("Item 2"):Image := 2
oGroup:AddItem("Item 3"):Image := 3
oGroup:Expanded := .T.
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
141
|
How can I assign or display an icon for an item
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
LOCAL oGroup
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oExplorerBar:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oGroup := oExplorerBar:Groups():Add("Group 1")
oGroup:AddItem("Item 1"):Image := 1
oGroup:AddItem("Item 2"):Image := 2
oGroup:AddItem("Item 3"):Image := 3
oGroup:Expanded := .T.
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
140
|
How can I assign or display an icon for an item
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
LOCAL oGroup
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oExplorerBar:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oGroup := oExplorerBar:Groups():Add("Group 1")
oGroup:AddItem("Item 1",1)
oGroup:AddItem("Item 2",2)
oGroup:AddItem("Item 3",3)
oGroup:Expanded := .T.
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
139
|
How can I change the item's position
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
LOCAL oGroup
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oGroup := oExplorerBar:Groups():Add("Group 1")
oGroup:AddItem("Item 1")
oGroup:AddItem("Item 2")
oGroup:AddItem("Item 3"):Position := 0
oGroup:Expanded := .T.
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
138
|
How can I change the item's caption
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
LOCAL oGroup
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oGroup := oExplorerBar:Groups():Add("Group 1")
oGroup:AddItem("Item 1")
oGroup:AddItem("Item 2"):Caption := "new caption"
oGroup:AddItem("Item 3")
oGroup:Expanded := .T.
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
137
|
How do I add new items
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oExplorerBar:Groups():Add("Group 1"):AddItem("Item 1"):Bold := .T.
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
136
|
How do I assign a group to a set in the shortcut bar
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oExplorerBar:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oExplorerBar:ShowShortcutBar := .T.
oExplorerBar:Groups():Add("Group 1"):Shortcut := "Set <img>1</img>"
oExplorerBar:Groups():Add("Group 2"):Shortcut := "Set <img>1</img>"
oExplorerBar:Groups():Add("Group 3"):Shortcut := "Set <img>2</img>"
oExplorerBar:Groups():Add("Group 4"):Shortcut := "Set <img>2</img>"
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
135
|
How can I show or hide the expanding or collapsing button
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
LOCAL oGroup
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oExplorerBar:Groups():Add("Group 1"):AddItem("Item 1")
oGroup := oExplorerBar:Groups():Add("Group 2, expanding/collapsing button is missing ")
oGroup:AddItem("Item 1")
oGroup:AddItem("Item 2")
oGroup:Expanded := .T.
oGroup:AllowExpand := .F.
oExplorerBar:Groups():Add("Group 3"):AddItem("Item 1")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
134
|
How can I avoid expanding or collapsing a group
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
LOCAL oGroup
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oExplorerBar:Groups():Add("Group 1"):AddItem("Item 1")
oGroup := oExplorerBar:Groups():Add("Group 2")
oGroup:AddItem("Item 1")
oGroup:AddItem("Item 2")
oGroup:Expanded := .T.
oGroup:AllowExpand := .F.
oExplorerBar:Groups():Add("Group 3"):AddItem("Item 1")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
133
|
How can I assign a tooltip to a group
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oExplorerBar:ToolTipDelay := 1
oExplorerBar:Groups():Add("ToolTip"):ToolTip := "This is a bit of text that's shown when the cursor hovers the <b>group</b>."
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
132
|
How can I display HTML text in the group's caption
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oExplorerBar:GroupHeight := 44
oExplorerBar:SetProperty("HTMLPicture","pic1","c:\exontrol\images\zipdisk.gif")
oExplorerBar:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oExplorerBar:Groups():Add("<img>pic1</img> <s>HTML</s> <img>1</img> <b>format</b>"):CaptionFormat := 1/*exHTML*/
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
131
|
How can I disable scrolling the group's list when it is expanded or collapsed
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
LOCAL oGroup
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oExplorerBar:Groups():Add("Group 1")
oGroup := oExplorerBar:Groups():Add("Group 2")
oGroup:AddItem("Item 1")
oGroup:AddItem("Item 2")
oGroup:Expanded := .T.
oGroup:AllowScroll := .F.
oExplorerBar:Groups():Add("Group 3")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
130
|
How can I change the group's background color ( gradient )
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
LOCAL oGroup
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oExplorerBar:Groups():Add("Group 1")
oGroup := oExplorerBar:Groups():Add("Group 2")
oGroup:SetProperty("BackColor",AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. ))
oGroup:SetProperty("BackColor2",AutomationTranslateColor( GraMakeRGBColor ( { 255,255,255 } ) , .F. ))
oExplorerBar:Groups():Add("Group 3")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
129
|
How can I access the bounding rectangle of the group's area
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
LOCAL oGroup
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oExplorerBar:Groups():Add("Group 1")
oGroup := oExplorerBar:Groups():Add("Group 2")
oGroup:AddItem("Item 1")
oGroup:AddItem("Item 2")
oGroup:AddItem(Transform(oGroup:Top(),""))
oGroup:AddItem(Transform(oGroup:Left(),""))
oGroup:AddItem(Transform(oGroup:Width(),""))
oGroup:Expanded := .T.
oExplorerBar:Groups():Add("Group 3")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
128
|
How can I expand or collapse a group
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
LOCAL oGroup
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oExplorerBar:Groups():Add("Group 1")
oGroup := oExplorerBar:Groups():Add("Group 2")
oGroup:AddItem("Item 1")
oGroup:AddItem("Item 2")
oGroup:Expanded := .T.
oExplorerBar:Groups():Add("Group 3")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
127
|
How can I specify the height of the items
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
LOCAL oGroup
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oExplorerBar:Groups():Add("Group 1")
oGroup := oExplorerBar:Groups():Add("Group 2")
oGroup:AddItem("Item 1")
oGroup:AddItem("Item 2")
oGroup:ItemHeight := 13
oGroup:Expanded := .T.
oExplorerBar:Groups():Add("Group 3")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
126
|
How do I put a picture on the group's background
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
LOCAL oGroup
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oExplorerBar:Groups():Add("Group 1")
oGroup := oExplorerBar:Groups():Add("Group 2")
oGroup:AddItem("Item 1")
oGroup:AddItem("Item 2")
oGroup:Picture := oExplorerBar:ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oGroup:PictureDisplay := 2/*UpperRight*/
oGroup:Expanded := .T.
oExplorerBar:Groups():Add("Group 3")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
125
|
How do I put a picture on the group's background
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
LOCAL oGroup
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oExplorerBar:Groups():Add("Group 1")
oGroup := oExplorerBar:Groups():Add("Group 2")
oGroup:AddItem("Item 1")
oGroup:AddItem("Item 2")
oGroup:Picture := oExplorerBar:ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oGroup:Expanded := .T.
oExplorerBar:Groups():Add("Group 3")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
124
|
How can I change the foreground color for items
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
LOCAL oGroup
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oExplorerBar:Groups():Add("Group 1")
oGroup := oExplorerBar:Groups():Add("Group 2")
oGroup:AddItem("Item 1")
oGroup:AddItem("Item 2")
oGroup:SetProperty("ForeColorList",AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. ))
oGroup:Expanded := .T.
oExplorerBar:Groups():Add("Group 3")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
123
|
How can I change the background color for the items
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
LOCAL oGroup
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oExplorerBar:Groups():Add("Group 1")
oGroup := oExplorerBar:Groups():Add("Group 2")
oGroup:AddItem("Item 1")
oGroup:AddItem("Item 2")
oGroup:SetProperty("BackColorList",AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. ))
oGroup:Expanded := .T.
oExplorerBar:Groups():Add("Group 3")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
122
|
How can I change the group's foreground color
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oExplorerBar:Groups():Add("Group 1")
oExplorerBar:Groups():Add("<fgcolor=FF0000>Group</fgcolor> 2"):CaptionFormat := 1/*exHTML*/
oExplorerBar:Groups():Add("Group 3")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
121
|
How can I change the group's foreground color
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oExplorerBar:Groups():Add("Group 1")
oExplorerBar:Groups():Add("Group 2"):SetProperty("ForeColor",AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. ))
oExplorerBar:Groups():Add("Group 3")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
120
|
How can I change the group's background color
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oExplorerBar:Groups():Add("Group 1")
oExplorerBar:Groups():Add("<bgcolor=FF0000>Group</bgcolor> 2"):CaptionFormat := 1/*exHTML*/
oExplorerBar:Groups():Add("Group 3")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
119
|
How can I change the visual appearance of the group, using EBN files
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oExplorerBar:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
oExplorerBar:GroupAppearance := 1/*exSingle*/
oExplorerBar:Groups():Add("Group 1")
oExplorerBar:Groups():Add("Group 2"):SetProperty("BackColor",0x1000000)
oExplorerBar:Groups():Add("Group 3")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
118
|
How can I change the group's background color
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oExplorerBar:Groups():Add("Group 1")
oExplorerBar:Groups():Add("Group 2"):SetProperty("BackColor",AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. ))
oExplorerBar:Groups():Add("Group 3")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
117
|
How do I get the index of the group
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
LOCAL oGroup,oGroup1,oGroup2
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oGroup := oExplorerBar:Groups():Add("Group 1")
oGroup:Caption := Transform(oGroup:Index(),"")
oGroup1 := oExplorerBar:Groups():Add("Group 2")
oGroup1:Caption := Transform(oGroup1:Index(),"")
oGroup2 := oExplorerBar:Groups():Add("Group 3")
oGroup2:Caption := Transform(oGroup2:Index(),"")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
116
|
How can I underline the group's name
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oExplorerBar:Groups():Add("<u>Group</u> 1"):CaptionFormat := 1/*exHTML*/
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
115
|
How can I underline the group's name
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oExplorerBar:Groups():Add("Group 1")
oExplorerBar:Groups():Add("Group 2"):Underline := .T.
oExplorerBar:Groups():Add("Group 3")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
114
|
How can I show the group's name as strikeout
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oExplorerBar:Groups():Add("<s>Group</s> 1"):CaptionFormat := 1/*exHTML*/
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
113
|
How can I show the group's name as strikeout
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oExplorerBar:Groups():Add("Group 1")
oExplorerBar:Groups():Add("Group 2"):StrikeOut := .T.
oExplorerBar:Groups():Add("Group 3")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
112
|
How can I draw as italic the group's name
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oExplorerBar:Groups():Add("<i>Group</i> 1"):CaptionFormat := 1/*exHTML*/
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
111
|
How do I draw italic the group's name
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oExplorerBar:Groups():Add("Group 1")
oExplorerBar:Groups():Add("Group 2"):Italic := .T.
oExplorerBar:Groups():Add("Group 3")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
110
|
How do I bold the group's name
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oExplorerBar:Groups():Add("<b>Group</b> 1"):CaptionFormat := 1/*exHTML*/
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
109
|
How do I bold the group's name
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oExplorerBar:Groups():Add("Group 1")
oExplorerBar:Groups():Add("Group 2"):Bold := .T.
oExplorerBar:Groups():Add("Group 3")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
108
|
How can I align the icon in the group's caption
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
LOCAL oGroup
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oExplorerBar:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oGroup := oExplorerBar:Groups():Add("Group 1")
oGroup:Image := 1
oGroup:ImageAlignment := 2/*exRight*/
oGroup:Alignment := 2/*exRight*/
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
107
|
How can I align the group's name
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oExplorerBar:Groups():Add("Group 1"):Alignment := 2/*exRight*/
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
106
|
How can I align the group's name
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oExplorerBar:Groups():Add("Group 1"):Alignment := 0/*exLeft*/
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
105
|
How can I assign some extra data to a group
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oExplorerBar:Groups():Add("Group 1"):UserData := "your data"
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
104
|
How can I display an icon in the group's caption
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oExplorerBar:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oExplorerBar:Groups():Add("Group <img>1</img> text <img>2</img>"):CaptionFormat := 1/*exHTML*/
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
103
|
How can I display an icon in the group's caption
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oExplorerBar:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oExplorerBar:Groups():Add("Group 1"):Image := 1
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
102
|
How can I access an item by its position
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
LOCAL oGroup
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oGroup := oExplorerBar:Groups():Add("Group 1")
oGroup:AddItem("Item 1")
oGroup:AddItem("Item 2")
oGroup:AddItem("Item 3"):Position := 0
oGroup:ItemByPos(1):Bold := .T.
oGroup:Expanded := .T.
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
101
|
How can I change the position of a group
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExplorerBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExplorerBar := XbpActiveXControl():new( oForm:drawingArea )
oExplorerBar:CLSID := "Exontrol.ExplorerBar.1" /*{3B1C55AF-6DC2-4146-811D-60DA6199DC72}*/
oExplorerBar:create(,, {10,60},{610,370} )
oExplorerBar:Groups():Add("Group 1")
oExplorerBar:Groups():Add("Group 2")
oExplorerBar:Groups():Add("Group 3"):Position := 0
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|