|
49
|
Large icons
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExFolderView
LOCAL f
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
oExFolderView:CLSID := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
oExFolderView:create(,, {10,60},{610,370} )
oExFolderView:SmallIcons := .F.
f := CreateObject("StdFont")
f:Size := 16
oExFolderView:Font := f
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
48
|
Small icons
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExFolderView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
oExFolderView:CLSID := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
oExFolderView:create(,, {10,60},{610,370} )
oExFolderView:SmallIcons := .T.
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
47
|
Folder icons are very close together vertically. Can you change the icon or increase the separation
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExFolderView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
oExFolderView:CLSID := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
oExFolderView:create(,, {10,60},{610,370} )
oExFolderView:ItemHeight := 24
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
46
|
Is it possible to re-call the ExploreFromHere without re-selecting/expanding any previously item
PROCEDURE OnClick(oExFolderView)
oExFolderView:ExploreFromHere := "|reset"
RETURN
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExFolderView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
oExFolderView:CLSID := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
oExFolderView:create(,, {10,60},{610,370} )
oExFolderView:Click := {|| OnClick(oExFolderView)} /*Occurs when the user presses and then releases the left mouse button over the control.*/
oExFolderView:ExploreFromHere := "c:\"
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
45
|
How can I expand a folder
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExFolderView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
oExFolderView:CLSID := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
oExFolderView:create(,, {10,60},{610,370} )
oExFolderView:ShellFolder("C:\"):Expanded := .T.
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
44
|
How do I get the subfolders of specified folder
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExFolderView
LOCAL var_ShellFolders
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
oExFolderView:CLSID := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
oExFolderView:create(,, {10,60},{610,370} )
var_ShellFolders := oExFolderView:ShellFolder("C:\"):Folders()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
43
|
How do I check a folder
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExFolderView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
oExFolderView:CLSID := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
oExFolderView:create(,, {10,60},{610,370} )
oExFolderView:HasCheckBoxes := .T.
oExFolderView:ShellFolder("C:\"):Check := .T.
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
42
|
How do I get the name of folder, as it is displayed in the control
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExFolderView
LOCAL var_DisplayName
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
oExFolderView:CLSID := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
oExFolderView:create(,, {10,60},{610,370} )
var_DisplayName := oExFolderView:FirstVisibleFolder:DisplayName()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
41
|
How can I specify the folders being displayed in the control
PROCEDURE OnIncludeFolder(oExFolderView,Folder,Include)
Include := .F.
RETURN
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExFolderView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
oExFolderView:CLSID := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
oExFolderView:create(,, {10,60},{610,370} )
oExFolderView:IncludeFolder := {|Folder,Include| OnIncludeFolder(oExFolderView,Folder,Include)} /*Occurs when the user includes folders to the control.*/
oExFolderView:IncludeFolder := .T.
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
40
|
How can I include the files and folders in the control
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExFolderView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
oExFolderView:CLSID := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
oExFolderView:create(,, {10,60},{610,370} )
oExFolderView:IncludeAttributeMask := 2147483703
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
39
|
How can I change the control's font
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExFolderView
LOCAL f
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
oExFolderView:CLSID := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
oExFolderView:create(,, {10,60},{610,370} )
f := CreateObject("StdFont")
f:Name := "Verdana"
f:Size := 12
oExFolderView:Font := f
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
38
|
Can I add a rename to the control's context menu
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExFolderView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
oExFolderView:CLSID := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
oExFolderView:create(,, {10,60},{610,370} )
oExFolderView:CanRename := .T.
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
37
|
How can I change the shape of the cursor
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExFolderView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
oExFolderView:CLSID := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
oExFolderView:create(,, {10,60},{610,370} )
oExFolderView:MousePointer := 2
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
36
|
How can I get height of the horizontal scroll bar
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExFolderView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
oExFolderView:CLSID := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
oExFolderView:create(,, {10,60},{610,370} )
DevOut( Transform(oExFolderView:HorizontalHeight(),"") )
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
35
|
How can I get width of the vertical scroll bar
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExFolderView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
oExFolderView:CLSID := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
oExFolderView:create(,, {10,60},{610,370} )
DevOut( Transform(oExFolderView:VerticalWidth(),"") )
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
34
|
How can I remove the control's scroll bars
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExFolderView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
oExFolderView:CLSID := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
oExFolderView:create(,, {10,60},{610,370} )
DevOut( Transform(oExFolderView:Scrollbars(),"") )
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
33
|
How can I get the horizontal scroll range
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExFolderView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
oExFolderView:CLSID := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
oExFolderView:create(,, {10,60},{610,370} )
DevOut( Transform(oExFolderView:HorizontalOversize(),"") )
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
32
|
How can I get the horizontal scroll position
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExFolderView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
oExFolderView:CLSID := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
oExFolderView:create(,, {10,60},{610,370} )
DevOut( Transform(oExFolderView:HorizontalOffset(),"") )
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
31
|
How can I get the vertical scroll range
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExFolderView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
oExFolderView:CLSID := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
oExFolderView:create(,, {10,60},{610,370} )
DevOut( Transform(oExFolderView:VerticalOversize(),"") )
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
30
|
How can I get the vertical scroll position
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExFolderView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
oExFolderView:CLSID := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
oExFolderView:create(,, {10,60},{610,370} )
DevOut( Transform(oExFolderView:VerticalOffset(),"") )
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
29
|
Can I assign partial check boxes to folders, so the sub folders get checked when the user checks the parent folder
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExFolderView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
oExFolderView:CLSID := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
oExFolderView:create(,, {10,60},{610,370} )
oExFolderView:HasCheckBoxes := .T.
oExFolderView:PartialCheck := .T.
oExFolderView:FirstVisibleFolder():Check := .T.
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
28
|
How can I drop files to control
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExFolderView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
oExFolderView:CLSID := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
oExFolderView:create(,, {10,60},{610,370} )
oExFolderView:AllowDropFiles := .T.
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
27
|
Can I explore only a folder, so the user can't see the parent folder
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExFolderView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
oExFolderView:CLSID := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
oExFolderView:create(,, {10,60},{610,370} )
oExFolderView:ExploreFromHere := "c:\"
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
26
|
How can I hide the icons
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExFolderView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
oExFolderView:CLSID := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
oExFolderView:create(,, {10,60},{610,370} )
oExFolderView:IconsVisible := .F.
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
25
|
How can I disable or enable the entire control
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExFolderView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
oExFolderView:CLSID := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
oExFolderView:create(,, {10,60},{610,370} )
oExFolderView:Enabled := .F.
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
24
|
How can I expand a folder
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExFolderView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
oExFolderView:CLSID := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
oExFolderView:create(,, {10,60},{610,370} )
oExFolderView:EnsureVisible(oExFolderView:SpecialFolderPath(11/*StartMenu*/))
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
23
|
How can I ensure that a specified folder fits the contrl's client area
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExFolderView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
oExFolderView:CLSID := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
oExFolderView:create(,, {10,60},{610,370} )
oExFolderView:EnsureVisible(oExFolderView:SpecialFolderPath(11/*StartMenu*/))
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
22
|
How do I refresh the control
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExFolderView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
oExFolderView:CLSID := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
oExFolderView:create(,, {10,60},{610,370} )
oExFolderView:Refresh()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
21
|
Is there any function or property to get the first visible folder
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExFolderView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
oExFolderView:CLSID := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
oExFolderView:create(,, {10,60},{610,370} )
oExFolderView:HasCheckBoxes := .T.
oExFolderView:FirstVisibleFolder():Check := .T.
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
20
|
How do I find a special folder, like My Computer
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExFolderView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
oExFolderView:CLSID := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
oExFolderView:create(,, {10,60},{610,370} )
oExFolderView:SelectedFolder := "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}"
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
19
|
How do I find a special folder, like My Computer
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExFolderView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
oExFolderView:CLSID := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
oExFolderView:create(,, {10,60},{610,370} )
oExFolderView:SelectedFolder := oExFolderView:SpecialFolderPath(17/*MyComputer*/)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
18
|
How do I select and expand a folder
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExFolderView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
oExFolderView:CLSID := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
oExFolderView:create(,, {10,60},{610,370} )
oExFolderView:SelectedFolder := oExFolderView:SpecialFolderPath(2/*Programs*/)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
17
|
How do I select and expand a folder
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExFolderView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
oExFolderView:CLSID := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
oExFolderView:create(,, {10,60},{610,370} )
oExFolderView:SelectedFolder := "c:\"
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
16
|
How do I select a folder
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExFolderView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
oExFolderView:CLSID := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
oExFolderView:create(,, {10,60},{610,370} )
oExFolderView:SelectedFolder := "c:\"
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
15
|
How do I get the checked folders or files
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExFolderView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
oExFolderView:CLSID := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
oExFolderView:create(,, {10,60},{610,370} )
oExFolderView:HasCheckBoxes := .T.
oExFolderView:FirstVisibleFolder():Check := .T.
DevOut( Transform(oExFolderView:FoldersCheck:Count(),"") )
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
14
|
How can I display the hidden folders
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExFolderView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
oExFolderView:CLSID := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
oExFolderView:create(,, {10,60},{610,370} )
oExFolderView:HiddenFolders := .T.
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
13
|
How can I get the folder or the file from the point
PROCEDURE OnMouseMove(oExFolderView,Button,Shift,X,Y)
DevOut( Transform(oExFolderView:FolderFromPoint(-1,-1),"") )
RETURN
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExFolderView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
oExFolderView:CLSID := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
oExFolderView:create(,, {10,60},{610,370} )
oExFolderView:MouseMove := {|Button,Shift,X,Y| OnMouseMove(oExFolderView,Button,Shift,X,Y)} /*Fired when the user move the mouse over the ExFolderView control.*/
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
12
|
How can I refresh the control as soon as the user renames a folder in Windows Explorer
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExFolderView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
oExFolderView:CLSID := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
oExFolderView:create(,, {10,60},{610,370} )
oExFolderView:AutoUpdate := .T.
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
11
|
How do I enable or disable the control's context menu
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExFolderView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
oExFolderView:CLSID := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
oExFolderView:create(,, {10,60},{610,370} )
oExFolderView:EnableShellMenu := .F.
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
10
|
How do I hide the overlay icons
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExFolderView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
oExFolderView:CLSID := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
oExFolderView:create(,, {10,60},{610,370} )
oExFolderView:OverlayIcons := .F.
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
9
|
How do I display the overlay icons
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExFolderView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
oExFolderView:CLSID := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
oExFolderView:create(,, {10,60},{610,370} )
oExFolderView:OverlayIcons := .T.
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
8
|
How do I display the share name for folders and files
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExFolderView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
oExFolderView:CLSID := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
oExFolderView:create(,, {10,60},{610,370} )
oExFolderView:DisplayShareName := .T.
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
7
|
How do I assign a checkbox for each folder/file in the control
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExFolderView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
oExFolderView:CLSID := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
oExFolderView:create(,, {10,60},{610,370} )
oExFolderView:HasCheckBoxes := .T.
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
6
|
How do I remove the lines that link the root items
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExFolderView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
oExFolderView:CLSID := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
oExFolderView:create(,, {10,60},{610,370} )
oExFolderView:HasLinesAtRoot := .F.
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
5
|
How do I remove the buttons to expand or collapse the folders
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExFolderView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
oExFolderView:CLSID := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
oExFolderView:create(,, {10,60},{610,370} )
oExFolderView:HasButtons := .F.
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
4
|
How do I remove the lines between items
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExFolderView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
oExFolderView:CLSID := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
oExFolderView:create(,, {10,60},{610,370} )
oExFolderView:HasLines := .F.
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
3
|
How do I remove the control's border
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExFolderView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
oExFolderView:CLSID := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
oExFolderView:create(,, {10,60},{610,370} )
oExFolderView:Appearance := 0/*Flat*/
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
2
|
How do I change the control's foreground color
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExFolderView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
oExFolderView:CLSID := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
oExFolderView:create(,, {10,60},{610,370} )
oExFolderView:SetProperty("ForeColor",AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. ))
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
1
|
How do I change the control's background color
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oExFolderView
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oExFolderView := XbpActiveXControl():new( oForm:drawingArea )
oExFolderView:CLSID := "Exontrol.FolderView.1" /*{10670A99-FCCC-415C-8127-176332842618}*/
oExFolderView:create(,, {10,60},{610,370} )
oExFolderView:SetProperty("BackColor",AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. ))
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|