FBrowse / XBPCOL_TYPE_FILEMINIICON / Ownerdraw

[AUGE_OHR]

hi,

Im Beispiel FBrowse werden doch Icon´s in der 1st Spalte dargestellt ... woher kommen die ?

Wenn ich das FBrowse auf Owner Draw "umbaue" ist meine 1st. Spalte leider "leer" und ich habe
auch irgendwie das Gefühl das da etwas "fehlt"

Code: Alles auswählen

METHOD XCMForm:myCell(oPS, aInfo, oSelf)
LOCAL nRow    := aInfo[ XBP_DRAWINFO_ITEM   ] // Number of the row that contains the cell
LOCAL nAction := aInfo[ XBP_DRAWINFO_ACTION ] // Action or operation that caused xbeP_CustomDrawCell event
LOCAL nState  := aInfo[ XBP_DRAWINFO_STATE  ] // Current state of the cell
LOCAL aRect   := aInfo[ XBP_DRAWINFO_RECT   ] // Bounding rectangle for the drawing operation
LOCAL oArea   := aInfo[ XBP_DRAWINFO_AREA   ] // Column area (header, footer etc.) that contains the cell
LOCAL oCol    := aInfo[ XBP_DRAWINFO_COLUMN ] // XbpColumn object that contains the cell
LOCAL aAttr    := ARRAY( GRA_AS_COUNT )   // Verschiedene Attribute setzen
...
   aItem := oCol:getRow(nRow)
   nType := oCol:type

   DO CASE
      CASE nType = XBPCOL_TYPE_TEXT         // *)  Die Spalte zeigt Text und Ziffern an
...
      CASE nType = XBPCOL_TYPE_FILEMINIICON //  Die Spalte zeigt kleine Datei-Icons an

          xCaption := xCell := oCol:DataArea:GetCell( nRow )

          IF xCell == NIL .OR. xCell != xCaption ;
                          .OR. oCol:Type == XBPCOL_TYPE_FILEICON ;
                          .OR. oCol:Type == XBPCOL_TYPE_FILEMINIICON

             xRet := oCol:DataArea:SetCell( nRow, xCaption, oCol:type, FALSE )
*             oCol:DataArea:InvalidateRect()
          ENDIF