Seite 1 von 1
Farben für XbpQuickBrowse() ? [erledigt]
Verfasst: Do, 21. Mär 2019 5:23
von AUGE_OHR
moin,
Ich frage mich gerade wie ich die Farben mit "was" und "wo" in XbpQuickBrowse() verändern kann
Ich habe zunächst an XBP_PP_COL_* gedacht wie bei XbpBrowse() aber das bringts nichts als Presentation Parameter bei o:New(,,,,aPP)
also dann mit den XBP_PP_* (Allgemeine Presentation Parameter) aber auch da keine Änderung im XbpQuickBrowse()
auch gibt es nichts für den Header (Footer gibt es ja nicht) wie bei XbpBrowse() ... also wie kommt man da ran
Re: Farben für XbpQuickBrowse() ?
Verfasst: Do, 21. Mär 2019 14:39
von flanelli
Probiere es doch mal auf diesem weg
INLINE METHOD DrawRow( nRow, nCol, aValues, nCols, lRedraw )
LOCAL aValue, j
aValue := ::dataLink:GetRowData( nRow )
for j := 1 to ::ColCount
::dataArea:SetCellColor( nRow, j, NIL, GRA_CLR_YELLOW , lRedraw )
** oder auch abhängig vom Zellenwert
*if ValType(aValues[12]) != "U"
* if aValue[2][12]<>0
* ::dataArea:SetCellColor( nRow, 12, GRA_CLR_WHITE, GRA_CLR_RED, lRedraw )
* endif
*endif
next
Re: Farben für XbpQuickBrowse() ?
Verfasst: Fr, 22. Mär 2019 2:24
von AUGE_OHR
hi
flanelli hat geschrieben: ↑Do, 21. Mär 2019 14:39
Code: Alles auswählen
::dataArea:SetCellColor( nRow, j, NIL, GRA_CLR_YELLOW , lRedraw )
JA, Danke mit o:SetCellColor() kann ich eine Cell einfärben.
Du bringst mich da auf einen Gedanken ...
Code: Alles auswählen
LOCAL cFont := LTRIM( STR( SP_nFontSize() ) ) + "." + TRIM( SP_cFontName() )
LOCAL aFarben := { ;
{ XBP_PP_BGCLR , SP_nColor1() } ,;
{ XBP_PP_FGCLR , SP_nColor2() } ,;
{ XBP_PP_HILITE_BGCLR , SP_nColor11() } ,;
{ XBP_PP_HILITE_FGCLR , SP_nColor12() } ,;
{ XBP_PP_COMPOUNDNAME , cFont } }
// die Farben wirken nicht als PP ?!
oQB := XBPQUICKBROWSE() :new( oDlg:DrawingArea,, {0,0}, aSize,aFarben, .F. )
oQB:dataLink := DacPagedDataStore() :new( aInfo, aColumns )
oQB:cursorMode := XBPBRW_CURSOR_ROW
// MUSS
oQB:useVisualStyle := .F.
oQB:create()
// und hier setzt man die Farben
oQB:dataArea:setPresParam(aFarben)
oQB:heading:setPresParam(aFarben)
so funktioniert es.
- QB_Color.JPG (172.05 KiB) 3048 mal betrachtet