denjo303 hat geschrieben:Aber kann man jede zeile im vorhinein schon einfärben?
also das man schon sieht welche markiert sind und nicht erst beim drüber scrollen
du hast o:Color
block() für jede
Columne und o:Color
Rect() der dir einen
Bereich einfärbt.
der o:Color
block() müsste, wie der Name schon sagt, ein
Codeblock enthalten der darüber entscheidet welche Farbe er für eine
Cell nehmen soll.
Code: Alles auswählen
AADD( aDBF, { { || ABZU->ABZUDATE }, 5, "Date" , "", "", "" } )
AADD( aDBF, { { || ABZU->ABZUMODUS }, 4, "Modus" , "IF(ABZU->ABZUMODUS='AUS',{7,1},{5,1})", "", "" } )
AADD( aDBF, { { || ABZU->ABZUVK }, 5, "Vk" , "IF(ABZU->ABZUVK>0,{7,1},{1,0})", "", "" } )
...
oCol := XBPCOLUMN() :new( oBrowse,,,, aPP3 )
IF VALTYPE( aDBF[ i, 1 ] ) == "C" // hier datalink
oCol:dataLink := &( "{||" + aDBF[ i, 1 ] + "}" )
ELSE
oCol:dataLink := aDBF[ i, 1 ]
ENDIF
IF EMPTY( aDBF[ i, 4 ] ) // colorblock
ELSE
// hier Colorblock
IF VALTYPE( aDBF[ i, 4 ] ) == "C"
oCol:colorBlock := &( "{||" + aDBF[ i, 4 ] + "}" )
ELSEIF VALTYPE( aDBF[ i, 4 ] ) == "B"
oCol:colorBlock := aDBF[ i, 4 ]
ENDIF
ENDIF
der o:Color
Rect() ist nun der "hilite Cursor" welcher sich über alle Columne erstreckt.