Farbe aktive Zeile in Listbox/XbpBrowse [Erledigt]
Verfasst: Do, 10. Jul 2014 9:00
Wie kann ich die Farbe auslesen? Setzen ist kein Problem, aber auslesen?
Jan
Jan
Das deutschsprachige Forum für Entwickler in der Xbase-Welt, ein Angebot des Deutschsprachige Xbase-Entwickler e. V.
https://xbaseforum.de/
Code: Alles auswählen
XbpColumn:DataArea:GetCellColour(<nLinePos>,@nFgCol,@nBgCol)
Jan hat geschrieben:Sondern dachte das es irgendeine Systemvariable gibt, in der das steht.
Code: Alles auswählen
XBPSYSCLR_HILITEBACKGROUND, XBPSYSCLR_HILITEFOREGROUND
Hallo Jan,Jan hat geschrieben:Wie kann ich die Farbe auslesen? Setzen ist kein Problem, aber auslesen?
Jan
o:Colorblock oder was meinst du ?UliTs hat geschrieben:wie kann ich die Farbe der aktiven Zeile (zur Laufzeit) ändern?
Code: Alles auswählen
oBrowse:useVisualStyle := .F.
oBrowse:hScrollObject:useVisualStyle := .T.
oBrowse:vScrollobject:useVisualStyle := .T.
oBrowse:create()
Code: Alles auswählen
oSpalte := XBPColumn():new(oDlg, , , , {{XBP_PP_COL_DA_HILITE_BGCLR , MEMVAR->gnDatenfeldBG }, ;
{XBP_PP_COL_DA_HILITE_FGCLR , MEMVAR->gnFeldUeberschriften }, ;
{XBP_PP_COL_DA_CELLWIDTH , nSpaltenBreite }, ;
{XBP_PP_COL_DA_ROWWIDTH , nSpaltenBreite }, ;
{XBP_PP_COL_HA_CAPTION , cHeader }, ;
{XBP_PP_COL_HA_FGCLR , MEMVAR->gnBrowseHeaderFG }, ;
{XBP_PP_COL_HA_BGCLR , MEMVAR->gnBrowseHeaderBG }, ;
{XBP_PP_COL_HA_FRAMELAYOUT , XBPFRAME_NONE }})
ENDIF
// Reihen farbig differenziert nach Geschlecht
IF lGeschlecht = .T.
oSpalte:colorBlock := {|x| IIf(genealog->geschlecht = "M", ;
{MEMVAR->gcFarbeMann, GraMakeRGBColor({250,254,255})}, ;
IIf(genealog->geschlecht = "W", ;
{MEMVAR->gcFarbeFrau, GraMakeRGBColor({250,254,255})}, ;
{GRA_CLR_DARKGREEN, GraMakeRGBColor({250,254,255})}))}
ELSE
oSpalte:colorBlock := {|x| {MEMVAR->gcFarbeMann, GraMakeRGBColor({250,254,255})}}
ENDIF