Hallo Herbert,
nun - ich nutze dsXBrowse mit AddColumnA und dsXColumn - und bei mir geht das wunderbar!
Code: Alles auswählen
::optionen := dsXBrowse():new( ::drawingArea, , {24,72}, {626,480} )
::optionen:clipSiblings := .T.
::optionen:type := XBPSTATIC_TYPE_GROUPBOX
::optionen:EnableSearch := .F.
::optionen:EnableEdit := .T.
::optionen:DirectEdit := .F.
::optionen:ColSep := .T.
::optionen:CursorMode := XBPBRW_CURSOR_ROW
::optionen:RowSep := .F.
::optionen:QuickEdit := .T.
::optionen:HScroll( .F. )
::optionen:EnableRowBreak := .F.
::optionen:SetSelectMode( SELECT_NONE )
::optionen:EnableColMove := .F.
::optionen:FootHeight := 1
::optionen:EnableFocusFrame( .f. )
::optionen:EnableColResize := .F.
::optionen:EnableAppend := .F.
::optionen:hitTopBlock := {|| SetStatusMessage("Erster Sonderraum...", GRA_CLR_RED, 200, .T. ), AnimiereCharacter( "Alert" ), CharacterDenke( "Dies ist der erste Eintrag!" ) }
::optionen:hitBottomBlock := {|| SetStatusMessage("Letzter Sonderraum...", GRA_CLR_RED, 200, .T. ), AnimiereCharacter( "Alert" ), CharacterDenke( "Dies ist der letzte Eintrag!" ) }
ocolumn := dsXColumn():new(XBPCOL_TYPE_TEXT,1,"Tag" )
ocolumn:enableEdit := .f.
ocolumn:ColSep := .t.
ocolumn:alignment := XBPALIGN_HCENTER
::optionen:AddColumnA( oColumn )
ocolumn := dsXColumn():new(XBPCOL_TYPE_TEXT,2,"Varietät" )
ocolumn:enableEdit := .f.
ocolumn:ColSep := .t.
ocolumn:alignment := XBPALIGN_LEFT
::optionen:AddColumnA( oColumn )
ocolumn := dsXColumn():new(XBPCOL_TYPE_TEXT,3,"Enr." )
ocolumn:enableEdit := .f.
ocolumn:ColSep := .t.
ocolumn:alignment := XBPALIGN_RIGHT
::optionen:AddColumnA( oColumn )
ocolumn := dsXColumn():new(XBPCOL_TYPE_TEXT,4,"Hunde" )
ocolumn:enableEdit := .f.
ocolumn:ColSep := .t.
ocolumn:alignment := XBPALIGN_RIGHT
::optionen:AddColumnA( oColumn )
ocolumn := dsXColumn():new(,5,alltrim( str( g&dateiname->sonderg1 ) ) + " m²" )
ocolumn:enableEdit := .f.
ocolumn:CellEditType( CELL_CHECKBOX )
ocolumn:ColSep := .t.
ocolumn:alignment := XBPALIGN_HCENTER
::optionen:AddColumnA( oColumn )
text1 := iif( ( g&dateiname->sonder2 > 0 ), alltrim( str( g&dateiname->sonderg2 ) ) + " m²", " " )
ocolumn := dsXColumn():new(,6,text1 )
ocolumn:enableEdit := .f.
ocolumn:CellEditType( CELL_CHECKBOX )
ocolumn:ColSep := .t.
ocolumn:alignment := XBPALIGN_HCENTER
::optionen:AddColumnA( oColumn )
ocolumn := dsXColumn():new(,7,alltrim( str( g&dateiname->sonderg1 ) ) + " m²" )
ocolumn:enableEdit := .t.
ocolumn:CellEditType( CELL_CHECKBOX )
ocolumn:ColSep := .t.
ocolumn:colorBlock := {|| { NIL, GRA_CLR_GREEN, NIL, GRA_CLR_GREEN } }
ocolumn:alignment := XBPALIGN_HCENTER
::optionen:AddColumnA( oColumn )
ocolumn := dsXColumn():new(,8,text1 )
ocolumn:enableEdit := ( text1 <> " " )
ocolumn:CellEditType( CELL_CHECKBOX )
ocolumn:ColSep := .t.
ocolumn:colorBlock := {|| iif( ( text1 <> " "), { NIL, GRA_CLR_GREEN, NIL, GRA_CLR_GREEN }, ) }
ocolumn:alignment := XBPALIGN_HCENTER
::optionen:AddColumnA( oColumn )
::optionen:Connect( ::aus )
aadd( ::editControls, ::optionen )
Viele Grüße,
Martin