Inoffizielles deutsches Xbase-Forum

Code: Alles auswählen

#include "Xbp.ch"
#include "Appevent.ch"
#include "GRA.ch"

#PRAGMA LIBRARY( "ASCOM10.LIB" )

PROCEDURE AppSys()
RETURN

PROCEDURE Main
LOCAL nEvent, mp1, mp2
LOCAL oApp, oXbp, drawingArea
LOCAL oStat
LOCAL oView
LOCAL lOnOff := .T.

   oApp := XbpDialog():New(AppDeskTop(), , {0,0}, {600,400}, , .F.)
   oApp:taskList     := .T.
   oApp:title        := "Demo"
*   oApp:ClipChildren := .T.
*   oApp:DrawingArea:ClipChildren := .T.
   oApp:create()

   drawingArea := oApp:drawingArea
   drawingArea:setFontCompoundName( "10.Arial" )
   drawingArea:setcolorBG(GRA_CLR_WHITE)

   oStat := XbpStatic():New( drawingArea,,{0,0},drawingArea:currentsize()  )
   oStat:Caption := "bitte warten ..."
   oStat:options := XBPSTATIC_TEXT_CENTER+XBPSTATIC_TEXT_VCENTER
   oStat:create()
   oStat:setFontCompoundName( "24.Arial" )
   oStat:setcolorFG(GRA_CLR_RED)
   oStat:setcolorBG(GRA_CLR_WHITE)

   oView := XbpListView():new( oStat,,{0,0},oStat:currentsize() )
   oView:create()
   oView:setFontCompoundName( "10.Arial" )
   oView:setcolorFG(GRA_CLR_BLACK)
   oView:setcolorBG(GRA_CLR_WHITE)
   oView:view := 3       // lvwReport

   AddHeaders(oView)

   oApp:show()
   oView:show()

   //
   // wait to "see" that all is ok
   //
   SLEEP(100*3)

   nEvent := xbe_None
   DO WHILE nEvent <> xbeP_Close
      nEvent := AppEvent( @mp1, @mp2, @oXbp,100 )
      DO CASE
         CASE nEvent = xbe_None
            IF lOnOff == .T.
               lOnOff := .F.
               oView:hide()
            ELSE
               lOnOff := .T.
               msgbox("now Error activeX ?!")
               oView:show()
            ENDIF
      OTHERWISE
         oXbp:handleEvent( nEvent, mp1, mp2 )
      ENDCASE
   ENDDO
RETURN


#define lvwColumnLeft   0
#define lvwColumnRight  1

Procedure AddHeaders(oView)
/********************************************************************

Index       An integer that uniquely identifies a member of an object collection.
Key         A unique string expression that can be used to access a member of the collection.
Text        The text to display in the column header.
Width       The initial width of the column header.
Alignment   An integer that determines the alignment of text in the column header.
Icon        The index value of the image to display in the column header.

********************************************************************/
LOCAL oHeader
   oHeader := oView:ColumnHeaders:Add(,,'Name',150,lvwColumnLeft ,)  
   oHeader := oView:ColumnHeaders:Add(,,'Size',100,lvwColumnRight,)  
   oHeader := oView:ColumnHeaders:Add(,,'Date', 56,lvwColumnLeft ,)  
   oHeader := oView:ColumnHeaders:Add(,,'Time', 56,lvwColumnLeft ,)  
   oHeader := oView:ColumnHeaders:Add(,,'A'   , 20,lvwColumnLeft ,)  
RETURN

CLASS XbpListView FROM XbpActiveXControl
   EXPORTED:
      METHOD init
      METHOD create

ENDCLASS

METHOD XbpListView:init( oParent, oOwner, aPos, aSize, aPP, lVisible )

   ::XbpActiveXControl:Init( oParent, oOwner, aPos, aSize, aPP, lVisible )

*  ::CLSID   := "{BDD1F04B-858B-11D1-B16A-00C0F0283628}"
   ::CLSID   := "MSComctlLib.ListViewCtrl.2"
   ::License := "9368265E-85FE-11d1-8BE3-0000F8754DA1"

   ::TabStop := .T.
RETURN self

METHOD XbpListView:create( oParent, oOwner, aPos, aSize, aPP, lVisible )
   ::XbpActiveXControl:Create(oParent,oOwner,aPos,aSize,aPP,lVisible )
RETURN self

*
* eof
*

Code: Alles auswählen

::ListView:setSize({0,0})
::ListView:AddAllItem(aDir)
::ListView:setSize(::currentSize())
* ::ListView:Refresh()

Code: Alles auswählen

oView:UserEvents     := .t.
oView:UseGuiThread   := .f.
oView:ReCreateHandle := .f.