|
164
|
How can I select an item using on its full part, not only on its icon or caption
PROCEDURE OnClick(oListBar)
DevOut( Transform(oListBar:ItemFromPoint(-1,-1),"") )
RETURN
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGroup
LOCAL oListBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oListBar := XbpActiveXControl():new( oForm:drawingArea )
oListBar:CLSID := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
oListBar:create(,, {10,60},{610,370} )
oListBar:Click := {|| OnClick(oListBar)} /*Occurs when the user presses and then releases the left mouse button over the control.*/
oListBar:HighlightItemType := 19/*exFull+exUnion*/
oGroup := oListBar:Groups():Add("Group 1")
oGroup:AddItem("Item <b>1</b>"):CaptionFormat := 1/*exHTML*/
oGroup:AddItem("Item <b>2</b>"):CaptionFormat := 1/*exHTML*/
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
163
|
Does your control support subscript or superscript, in HTML captions
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGroup
LOCAL oListBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oListBar := XbpActiveXControl():new( oForm:drawingArea )
oListBar:CLSID := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
oListBar:create(,, {10,60},{610,370} )
oGroup := oListBar:Groups():Add("Group")
oGroup:AddItem("Item <b><off 4><font ;6>1"):CaptionFormat := 1/*exHTML*/
oGroup:AddItem("Item <b><off 4><font ;6>2"):CaptionFormat := 1/*exHTML*/
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
162
|
How do I get notified once the user selects or activates a group
PROCEDURE OnSelectGroup(oListBar,OldGroup,NewGroup)
DevOut( "Current " )
DevOut( Transform(NewGroup,"") )
DevOut( "Previously " )
DevOut( Transform(OldGroup,"") )
RETURN
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGroup,oGroup1,oGroup2
LOCAL oListBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oListBar := XbpActiveXControl():new( oForm:drawingArea )
oListBar:CLSID := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
oListBar:create(,, {10,60},{610,370} )
oListBar:SelectGroup := {|OldGroup,NewGroup| OnSelectGroup(oListBar,OldGroup,NewGroup)} /*Occurs when a group is selected.*/
oGroup := oListBar:Groups():Add("Group 1")
oGroup:AddItem("Item 1")
oGroup:AddItem("Item 2")
oGroup1 := oListBar:Groups():Add("Group 2")
oGroup1:AddItem("Item 1")
oGroup1:AddItem("Item 2")
oGroup2 := oListBar:Groups():Add("Group 3")
oGroup2:AddItem("Item 1")
oGroup2:AddItem("Item 2")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
161
|
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 oListBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oListBar := XbpActiveXControl():new( oForm:drawingArea )
oListBar:CLSID := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
oListBar:create(,, {10,60},{610,370} )
oListBar:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
oListBar:SetProperty("BackColorGroup",0x1000000)
oListBar:Groups():Add("Group 1")
oListBar:Groups():Add("Group 2"):SetProperty("BackColor",0x100aabb)
oListBar:SelectGroup := 1
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
160
|
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 oListBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oListBar := XbpActiveXControl():new( oForm:drawingArea )
oListBar:CLSID := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
oListBar:create(,, {10,60},{610,370} )
oListBar:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
oListBar:Appearance := 27966412/*0x1aabbc8+exDrop*/
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
159
|
How do I specify the width of the item
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGroup
LOCAL oListBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oListBar := XbpActiveXControl():new( oForm:drawingArea )
oListBar:CLSID := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
oListBar:create(,, {10,60},{610,370} )
oListBar:HighlightItemType := 0/*exNoHighlight*/
oGroup := oListBar:Groups():Add("Group 1")
oGroup:ItemWidth := 32
oGroup:AddItem(Transform(0,""))
oGroup:AddItem(Transform(1,""))
oGroup:AddItem(Transform(2,""))
oGroup:AddItem(Transform(3,""))
oGroup:AddItem(Transform(4,""))
oGroup:AddItem(Transform(5,""))
oGroup:AddItem(Transform(6,""))
oGroup:AddItem(Transform(7,""))
oGroup:AddItem(Transform(8,""))
oGroup:AddItem(Transform(9,""))
oListBar:Groups():Add("Group 2")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
158
|
How do I change the visual appearance of the item from the cursor, using EBN files
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oAppearance
LOCAL oGroup
LOCAL oListBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oListBar := XbpActiveXControl():new( oForm:drawingArea )
oListBar:CLSID := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
oListBar:create(,, {10,60},{610,370} )
oAppearance := oListBar:VisualAppearance()
oAppearance:Add(1,"c:\exontrol\images\normal.ebn")
oAppearance:Add(22,"c:\exontrol\images\pushed.ebn")
oAppearance:Add(2,"CP:22 0 8 0 -8")
oListBar:SetProperty("Background",4/*exSelectItem*/,0x1000000)
oListBar:SetProperty("Background",5/*exHightlightItem*/,0x2000000)
oGroup := oListBar:Groups():Add("Group 1")
oGroup:AddItem("Item 1")
oGroup:AddItem("Item 2")
oGroup:SelectItem := 1
oListBar:Groups():Add("Group 2")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
157
|
How do I change the visual appearance of the selected item, using EBN files
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGroup
LOCAL oListBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oListBar := XbpActiveXControl():new( oForm:drawingArea )
oListBar:CLSID := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
oListBar:create(,, {10,60},{610,370} )
oListBar:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
oListBar:SetProperty("Background",4/*exSelectItem*/,0x1000000)
oGroup := oListBar:Groups():Add("Group 1")
oGroup:AddItem("Item 1")
oGroup:AddItem("Item 2")
oGroup:SelectItem := 1
oListBar:Groups():Add("Group 2")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
156
|
How do I select an item
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGroup
LOCAL oListBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oListBar := XbpActiveXControl():new( oForm:drawingArea )
oListBar:CLSID := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
oListBar:create(,, {10,60},{610,370} )
oListBar:SelectItemType := 2/*exSelectPop*/
oGroup := oListBar:Groups():Add("Group 1")
oGroup:AddItem("Item 1")
oGroup:AddItem("Item 2")
oGroup:SelectItem := 1
oListBar:Groups():Add("Group 2")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
155
|
How do I specify how a selected item shows
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGroup
LOCAL oListBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oListBar := XbpActiveXControl():new( oForm:drawingArea )
oListBar:CLSID := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
oListBar:create(,, {10,60},{610,370} )
oListBar:SelectItemType := 2/*exSelectPop*/
oGroup := oListBar:Groups():Add("Group 1")
oGroup:AddItem("Item 1")
oGroup:AddItem("Item 2")
oListBar:Groups():Add("Group 2")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
154
|
How do I select or activate a group
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGroup
LOCAL oListBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oListBar := XbpActiveXControl():new( oForm:drawingArea )
oListBar:CLSID := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
oListBar:create(,, {10,60},{610,370} )
oListBar:Groups():Add("Group 1")
oGroup := oListBar:Groups():Add("Group 2")
oGroup:AddItem("Item 1")
oGroup:AddItem("Item 2")
oListBar:Groups():Add("Group 3")
oListBar:SelectGroup := 1
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
153
|
Is there any option to display groups from left to right
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGroup
LOCAL oListBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oListBar := XbpActiveXControl():new( oForm:drawingArea )
oListBar:CLSID := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
oListBar:create(,, {10,60},{610,370} )
oListBar:Orientation := 1/*exHorizontal*/
oListBar:Groups():Add("Group 1")
oGroup := oListBar:Groups():Add("Group 2")
oGroup:AddItem("Item 1")
oGroup:AddItem("Item 2")
oListBar:Groups():Add("Group 3")
oListBar:SelectGroup := 1
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
152
|
How do I change the foreground color of the selected group
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGroup
LOCAL oListBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oListBar := XbpActiveXControl():new( oForm:drawingArea )
oListBar:CLSID := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
oListBar:create(,, {10,60},{610,370} )
oListBar:MarkSelectGroup := .T.
oListBar:SetProperty("SelBackColorGroup",oListBar:BackColorGroup())
oListBar:SetProperty("SelForeColorGroup",AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. ))
oListBar:Groups():Add("Group 1")
oGroup := oListBar:Groups():Add("Group 2")
oGroup:AddItem("Item 1")
oGroup:AddItem("Item 2")
oListBar:Groups():Add("Group 3")
oListBar:SelectGroup := 1
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
151
|
How do I highlight the selected group
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGroup
LOCAL oListBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oListBar := XbpActiveXControl():new( oForm:drawingArea )
oListBar:CLSID := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
oListBar:create(,, {10,60},{610,370} )
oListBar:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
oListBar:MarkSelectGroup := .T.
oListBar:SetProperty("SelBackColorGroup",0x1000000)
oListBar:SetProperty("SelForeColorGroup",AutomationTranslateColor( GraMakeRGBColor ( { 0,0,0 } ) , .F. ))
oListBar:Groups():Add("Group 1")
oGroup := oListBar:Groups():Add("Group 2")
oGroup:AddItem("Item 1")
oGroup:AddItem("Item 2")
oListBar:Groups():Add("Group 3")
oListBar:SelectGroup := 1
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
150
|
How do I change the visual appearance of the selected group, using your EBN files
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGroup
LOCAL oListBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oListBar := XbpActiveXControl():new( oForm:drawingArea )
oListBar:CLSID := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
oListBar:create(,, {10,60},{610,370} )
oListBar:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
oListBar:MarkSelectGroup := .T.
oListBar:SetProperty("SelBackColorGroup",0x1000000)
oListBar:SetProperty("SelForeColorGroup",AutomationTranslateColor( GraMakeRGBColor ( { 0,0,0 } ) , .F. ))
oListBar:Groups():Add("Group 1")
oGroup := oListBar:Groups():Add("Group 2")
oGroup:AddItem("Item 1")
oGroup:AddItem("Item 2")
oListBar:Groups():Add("Group 3")
oListBar:SelectGroup := 1
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
149
|
How do I specify the background color for selected group
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGroup
LOCAL oListBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oListBar := XbpActiveXControl():new( oForm:drawingArea )
oListBar:CLSID := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
oListBar:create(,, {10,60},{610,370} )
oListBar:MarkSelectGroup := .T.
oListBar:SetProperty("SelBackColorGroup",AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. ))
oListBar:Groups():Add("Group 1")
oGroup := oListBar:Groups():Add("Group 2")
oGroup:AddItem("Item 1")
oGroup:AddItem("Item 2")
oListBar:Groups():Add("Group 3")
oListBar:SelectGroup := 1
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
148
|
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 oGroup
LOCAL oItem,oItem1,oItem2,oItem3,oItem4
LOCAL oListBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oListBar := XbpActiveXControl():new( oForm:drawingArea )
oListBar:CLSID := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
oListBar:create(,, {10,60},{610,370} )
oGroup := oListBar: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*/
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
147
|
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 oGroup
LOCAL oListBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oListBar := XbpActiveXControl():new( oForm:drawingArea )
oListBar:CLSID := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
oListBar:create(,, {10,60},{610,370} )
oGroup := oListBar: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")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
146
|
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 oGroup
LOCAL oListBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oListBar := XbpActiveXControl():new( oForm:drawingArea )
oListBar:CLSID := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
oListBar:create(,, {10,60},{610,370} )
oGroup := oListBar: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")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
145
|
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 oGroup
LOCAL oListBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oListBar := XbpActiveXControl():new( oForm:drawingArea )
oListBar:CLSID := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
oListBar:create(,, {10,60},{610,370} )
oGroup := oListBar:Groups():Add("Group 1")
oGroup:AddItem("Item 1")
oGroup:AddItem("Item 2"):Visible := .F.
oGroup:AddItem("Item 3")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
144
|
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 oGroup
LOCAL oItem
LOCAL oListBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oListBar := XbpActiveXControl():new( oForm:drawingArea )
oListBar:CLSID := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
oListBar:create(,, {10,60},{610,370} )
oGroup := oListBar: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")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
143
|
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 oGroup
LOCAL oListBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oListBar := XbpActiveXControl():new( oForm:drawingArea )
oListBar:CLSID := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
oListBar:create(,, {10,60},{610,370} )
oGroup := oListBar:Groups():Add("Group 1")
oGroup:AddItem("Item 1")
oGroup:AddItem("<bgcolor=FF0000>Item</bgcolor> 2"):CaptionFormat := 1/*exHTML*/
oGroup:AddItem("Item 3")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
142
|
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 oGroup
LOCAL oListBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oListBar := XbpActiveXControl():new( oForm:drawingArea )
oListBar:CLSID := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
oListBar:create(,, {10,60},{610,370} )
oGroup := oListBar:Groups():Add("Group 1")
oGroup:AddItem("Item 1")
oGroup:AddItem("Item 2"):SetProperty("ForeColor",AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. ))
oGroup:AddItem("Item 3")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
141
|
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 oGroup
LOCAL oListBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oListBar := XbpActiveXControl():new( oForm:drawingArea )
oListBar:CLSID := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
oListBar:create(,, {10,60},{610,370} )
oListBar:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
oGroup := oListBar:Groups():Add("Group 1")
oGroup:AddItem("Item 1")
oGroup:AddItem("Item 2"):SetProperty("BackColor",0x1000000)
oGroup:AddItem("Item 3")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
140
|
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 oGroup
LOCAL oListBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oListBar := XbpActiveXControl():new( oForm:drawingArea )
oListBar:CLSID := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
oListBar:create(,, {10,60},{610,370} )
oGroup := oListBar:Groups():Add("Group 1")
oGroup:AddItem("Item 1")
oGroup:AddItem("Item 2"):SetProperty("BackColor",AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. ))
oGroup:AddItem("Item 3")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
139
|
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 oGroup
LOCAL oListBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oListBar := XbpActiveXControl():new( oForm:drawingArea )
oListBar:CLSID := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
oListBar:create(,, {10,60},{610,370} )
oGroup := oListBar:Groups():Add("Group 1")
oGroup:AddItem("Item 1")
oGroup:AddItem("Item 2"):Group():Bold := .T.
oGroup:AddItem("Item 3")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
138
|
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 oGroup
LOCAL oItem,oItem1,oItem2
LOCAL oListBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oListBar := XbpActiveXControl():new( oForm:drawingArea )
oListBar:CLSID := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
oListBar:create(,, {10,60},{610,370} )
oGroup := oListBar: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(),"")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
137
|
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 oGroup
LOCAL oListBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oListBar := XbpActiveXControl():new( oForm:drawingArea )
oListBar:CLSID := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
oListBar:create(,, {10,60},{610,370} )
oGroup := oListBar:Groups():Add("Group 1")
oGroup:AddItem("Item 1")
oGroup:AddItem("<u>Item</u> 2"):CaptionFormat := 1/*exHTML*/
oGroup:AddItem("Item 3")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
136
|
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 oGroup
LOCAL oListBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oListBar := XbpActiveXControl():new( oForm:drawingArea )
oListBar:CLSID := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
oListBar:create(,, {10,60},{610,370} )
oGroup := oListBar:Groups():Add("Group 1")
oGroup:AddItem("Item 1")
oGroup:AddItem("Item 2"):Underline := .T.
oGroup:AddItem("Item 3")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
135
|
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 oGroup
LOCAL oListBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oListBar := XbpActiveXControl():new( oForm:drawingArea )
oListBar:CLSID := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
oListBar:create(,, {10,60},{610,370} )
oGroup := oListBar:Groups():Add("Group 1")
oGroup:AddItem("Item 1")
oGroup:AddItem("<s>Item</s> 2"):CaptionFormat := 1/*exHTML*/
oGroup:AddItem("Item 3")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
134
|
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 oGroup
LOCAL oListBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oListBar := XbpActiveXControl():new( oForm:drawingArea )
oListBar:CLSID := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
oListBar:create(,, {10,60},{610,370} )
oGroup := oListBar:Groups():Add("Group 1")
oGroup:AddItem("Item 1")
oGroup:AddItem("Item 2"):StrikeOut := .T.
oGroup:AddItem("Item 3")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
133
|
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 oGroup
LOCAL oListBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oListBar := XbpActiveXControl():new( oForm:drawingArea )
oListBar:CLSID := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
oListBar:create(,, {10,60},{610,370} )
oGroup := oListBar:Groups():Add("Group 1")
oGroup:AddItem("Item 1")
oGroup:AddItem("<i>Item</i> 2"):CaptionFormat := 1/*exHTML*/
oGroup:AddItem("Item 3")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
132
|
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 oGroup
LOCAL oListBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oListBar := XbpActiveXControl():new( oForm:drawingArea )
oListBar:CLSID := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
oListBar:create(,, {10,60},{610,370} )
oGroup := oListBar:Groups():Add("Group 1")
oGroup:AddItem("Item 1")
oGroup:AddItem("Item 2"):Italic := .T.
oGroup:AddItem("Item 3")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
131
|
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 oGroup
LOCAL oListBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oListBar := XbpActiveXControl():new( oForm:drawingArea )
oListBar:CLSID := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
oListBar:create(,, {10,60},{610,370} )
oListBar:HighlightItemType := 0/*exNoHighlight*/
oGroup := oListBar: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*/
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
130
|
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 oGroup
LOCAL oListBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oListBar := XbpActiveXControl():new( oForm:drawingArea )
oListBar:CLSID := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
oListBar:create(,, {10,60},{610,370} )
oGroup := oListBar:Groups():Add("Group 1")
oGroup:AddItem("Item 1")
oGroup:AddItem("<b>Item</a> 2"):CaptionFormat := 1/*exHTML*/
oGroup:AddItem("Item 3")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
129
|
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 oGroup
LOCAL oListBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oListBar := XbpActiveXControl():new( oForm:drawingArea )
oListBar:CLSID := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
oListBar:create(,, {10,60},{610,370} )
oGroup := oListBar:Groups():Add("Group 1")
oGroup:AddItem("Item 1")
oGroup:AddItem("Item 2"):Bold := .T.
oGroup:AddItem("Item 3")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
128
|
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 oGroup
LOCAL oListBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oListBar := XbpActiveXControl():new( oForm:drawingArea )
oListBar:CLSID := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
oListBar:create(,, {10,60},{610,370} )
oListBar:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oGroup := oListBar: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*/
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
127
|
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 oGroup
LOCAL oListBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oListBar := XbpActiveXControl():new( oForm:drawingArea )
oListBar:CLSID := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
oListBar:create(,, {10,60},{610,370} )
oGroup := oListBar:Groups():Add("Group 1")
oGroup:AddItem("Item 1"):UserData := "your data"
oGroup:AddItem("Item 2")
oGroup:AddItem("Item 3")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
126
|
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 oGroup
LOCAL oListBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oListBar := XbpActiveXControl():new( oForm:drawingArea )
oListBar:CLSID := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
oListBar:create(,, {10,60},{610,370} )
oListBar:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oGroup := oListBar: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
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
125
|
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 oGroup
LOCAL oListBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oListBar := XbpActiveXControl():new( oForm:drawingArea )
oListBar:CLSID := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
oListBar:create(,, {10,60},{610,370} )
oListBar:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oGroup := oListBar:Groups():Add("Group 1")
oGroup:AddItem("Item 1"):Image := 1
oGroup:AddItem("Item 2"):Image := 2
oGroup:AddItem("Item 3"):Image := 3
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
124
|
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 oGroup
LOCAL oListBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oListBar := XbpActiveXControl():new( oForm:drawingArea )
oListBar:CLSID := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
oListBar:create(,, {10,60},{610,370} )
oListBar:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oGroup := oListBar:Groups():Add("Group 1")
oGroup:AddItem("Item 1",1)
oGroup:AddItem("Item 2",2)
oGroup:AddItem("Item 3",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 item's position
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGroup
LOCAL oListBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oListBar := XbpActiveXControl():new( oForm:drawingArea )
oListBar:CLSID := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
oListBar:create(,, {10,60},{610,370} )
oGroup := oListBar:Groups():Add("Group 1")
oGroup:AddItem("Item 1")
oGroup:AddItem("Item 2")
oGroup:AddItem("Item 3"):Position := 0
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 item's caption
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGroup
LOCAL oListBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oListBar := XbpActiveXControl():new( oForm:drawingArea )
oListBar:CLSID := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
oListBar:create(,, {10,60},{610,370} )
oGroup := oListBar:Groups():Add("Group 1")
oGroup:AddItem("Item 1")
oGroup:AddItem("Item 2"):Caption := "new caption"
oGroup:AddItem("Item 3")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
121
|
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 oListBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oListBar := XbpActiveXControl():new( oForm:drawingArea )
oListBar:CLSID := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
oListBar:create(,, {10,60},{610,370} )
oListBar: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
|
|
120
|
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 oListBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oListBar := XbpActiveXControl():new( oForm:drawingArea )
oListBar:CLSID := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
oListBar:create(,, {10,60},{610,370} )
oListBar:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oListBar:ShowShortcutBar := .T.
oListBar:Groups():Add("Group 1"):Shortcut := "Set <img>1</img>"
oListBar:Groups():Add("Group 2"):Shortcut := "Set <img>1</img>"
oListBar:Groups():Add("Group 3"):Shortcut := "Set <img>2</img>"
oListBar: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
|
|
119
|
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 oListBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oListBar := XbpActiveXControl():new( oForm:drawingArea )
oListBar:CLSID := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
oListBar:create(,, {10,60},{610,370} )
oListBar:ToolTipDelay := 1
oListBar: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
|
|
118
|
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 oListBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oListBar := XbpActiveXControl():new( oForm:drawingArea )
oListBar:CLSID := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
oListBar:create(,, {10,60},{610,370} )
oListBar:GroupHeight := 44
oListBar:SetProperty("HTMLPicture","pic1","c:\exontrol\images\zipdisk.gif")
oListBar:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oListBar: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
|
|
117
|
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 oGroup
LOCAL oListBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oListBar := XbpActiveXControl():new( oForm:drawingArea )
oListBar:CLSID := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
oListBar:create(,, {10,60},{610,370} )
oListBar:Groups():Add("Group 1")
oGroup := oListBar:Groups():Add("Group 2")
oGroup:SetProperty("BackColor",AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. ))
oGroup:SetProperty("BackColor2",AutomationTranslateColor( GraMakeRGBColor ( { 255,255,255 } ) , .F. ))
oListBar:Groups():Add("Group 3")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
116
|
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 oGroup
LOCAL oListBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oListBar := XbpActiveXControl():new( oForm:drawingArea )
oListBar:CLSID := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
oListBar:create(,, {10,60},{610,370} )
oListBar:Groups():Add("Group 1")
oGroup := oListBar:Groups():Add("Group 2")
oGroup:AddItem("Item 1")
oGroup:AddItem("Item 2")
oGroup:ItemHeight := 13
oListBar:Groups():Add("Group 3")
oListBar:SelectGroup := 1
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
115
|
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 oGroup
LOCAL oListBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oListBar := XbpActiveXControl():new( oForm:drawingArea )
oListBar:CLSID := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
oListBar:create(,, {10,60},{610,370} )
oListBar:Groups():Add("Group 1")
oGroup := oListBar:Groups():Add("Group 2")
oGroup:AddItem("Item 1")
oGroup:AddItem("Item 2")
oGroup:Picture := oListBar:ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oGroup:PictureDisplay := 2/*UpperRight*/
oListBar:Groups():Add("Group 3")
oListBar:SelectGroup := 1
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
114
|
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 oGroup
LOCAL oListBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oListBar := XbpActiveXControl():new( oForm:drawingArea )
oListBar:CLSID := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
oListBar:create(,, {10,60},{610,370} )
oListBar:Groups():Add("Group 1")
oGroup := oListBar:Groups():Add("Group 2")
oGroup:AddItem("Item 1")
oGroup:AddItem("Item 2")
oGroup:Picture := oListBar:ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oListBar:Groups():Add("Group 3")
oListBar:SelectGroup := 1
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
113
|
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 oGroup
LOCAL oListBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oListBar := XbpActiveXControl():new( oForm:drawingArea )
oListBar:CLSID := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
oListBar:create(,, {10,60},{610,370} )
oListBar:Groups():Add("Group 1")
oGroup := oListBar:Groups():Add("Group 2")
oGroup:AddItem("Item 1")
oGroup:AddItem("Item 2")
oGroup:SetProperty("ForeColorList",AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. ))
oListBar:Groups():Add("Group 3")
oListBar:SelectGroup := 1
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
112
|
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 oGroup
LOCAL oListBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oListBar := XbpActiveXControl():new( oForm:drawingArea )
oListBar:CLSID := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
oListBar:create(,, {10,60},{610,370} )
oListBar:Groups():Add("Group 1")
oGroup := oListBar:Groups():Add("Group 2")
oGroup:AddItem("Item 1")
oGroup:AddItem("Item 2")
oGroup:SetProperty("BackColorList",AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. ))
oListBar:Groups():Add("Group 3")
oListBar:SelectGroup := 1
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
111
|
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 oListBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oListBar := XbpActiveXControl():new( oForm:drawingArea )
oListBar:CLSID := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
oListBar:create(,, {10,60},{610,370} )
oListBar:Groups():Add("Group 1")
oListBar:Groups():Add("<fgcolor=FF0000>Group</fgcolor> 2"):CaptionFormat := 1/*exHTML*/
oListBar: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 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 oListBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oListBar := XbpActiveXControl():new( oForm:drawingArea )
oListBar:CLSID := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
oListBar:create(,, {10,60},{610,370} )
oListBar:Groups():Add("Group 1")
oListBar:Groups():Add("Group 2"):SetProperty("ForeColor",AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. ))
oListBar:Groups():Add("Group 3")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
109
|
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 oListBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oListBar := XbpActiveXControl():new( oForm:drawingArea )
oListBar:CLSID := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
oListBar:create(,, {10,60},{610,370} )
oListBar:Groups():Add("Group 1")
oListBar:Groups():Add("<bgcolor=FF0000>Group</bgcolor> 2"):CaptionFormat := 1/*exHTML*/
oListBar: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 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 oListBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oListBar := XbpActiveXControl():new( oForm:drawingArea )
oListBar:CLSID := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
oListBar:create(,, {10,60},{610,370} )
oListBar:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
oListBar:GroupAppearance := 1/*exSingle*/
oListBar:Groups():Add("Group 1")
oListBar:Groups():Add("Group 2"):SetProperty("BackColor",0x1000000)
oListBar:Groups():Add("Group 3")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
107
|
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 oListBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oListBar := XbpActiveXControl():new( oForm:drawingArea )
oListBar:CLSID := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
oListBar:create(,, {10,60},{610,370} )
oListBar:Groups():Add("Group 1")
oListBar:Groups():Add("Group 2"):SetProperty("BackColor",AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. ))
oListBar:Groups():Add("Group 3")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
106
|
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 oGroup,oGroup1,oGroup2
LOCAL oListBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oListBar := XbpActiveXControl():new( oForm:drawingArea )
oListBar:CLSID := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
oListBar:create(,, {10,60},{610,370} )
oGroup := oListBar:Groups():Add("Group 1")
oGroup:Caption := Transform(oGroup:Index(),"")
oGroup1 := oListBar:Groups():Add("Group 2")
oGroup1:Caption := Transform(oGroup1:Index(),"")
oGroup2 := oListBar: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
|
|
105
|
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 oListBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oListBar := XbpActiveXControl():new( oForm:drawingArea )
oListBar:CLSID := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
oListBar:create(,, {10,60},{610,370} )
oListBar: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
|
|
104
|
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 oListBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oListBar := XbpActiveXControl():new( oForm:drawingArea )
oListBar:CLSID := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
oListBar:create(,, {10,60},{610,370} )
oListBar:Groups():Add("Group 1")
oListBar:Groups():Add("Group 2"):Underline := .T.
oListBar:Groups():Add("Group 3")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
103
|
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 oListBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oListBar := XbpActiveXControl():new( oForm:drawingArea )
oListBar:CLSID := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
oListBar:create(,, {10,60},{610,370} )
oListBar: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
|
|
102
|
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 oListBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oListBar := XbpActiveXControl():new( oForm:drawingArea )
oListBar:CLSID := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
oListBar:create(,, {10,60},{610,370} )
oListBar:Groups():Add("Group 1")
oListBar:Groups():Add("Group 2"):StrikeOut := .T.
oListBar:Groups():Add("Group 3")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
101
|
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 oListBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oListBar := XbpActiveXControl():new( oForm:drawingArea )
oListBar:CLSID := "Exontrol.ListBar.1" /*{41387A8B-6293-46CE-B9D8-55F49AE0DA60}*/
oListBar:create(,, {10,60},{610,370} )
oListBar: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
|