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
Farben für XbpQuickBrowse() ? [erledigt]
Moderator: Moderatoren
-
- Rekursionen-Architekt
- Beiträge: 151
- Registriert: Di, 11. Mai 2010 16:27
- Hat sich bedankt: 3 Mal
- Danksagung erhalten: 9 Mal
Re: Farben für XbpQuickBrowse() ?
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
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
Ahoile aus dem Süden
- AUGE_OHR
- Marvin
- Beiträge: 12907
- Registriert: Do, 16. Mär 2006 7:55
- Wohnort: Hamburg
- Hat sich bedankt: 19 Mal
- Danksagung erhalten: 45 Mal
Re: Farben für XbpQuickBrowse() ?
hi
Du bringst mich da auf einen Gedanken ...
so funktioniert es.
JA, Danke mit o:SetCellColor() kann ich eine Cell einfärben.flanelli hat geschrieben: ↑Do, 21. Mär 2019 14:39Code: Alles auswählen
::dataArea:SetCellColor( nRow, j, NIL, GRA_CLR_YELLOW , lRedraw )
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)
gruss by OHR
Jimmy
Jimmy