Farben für XbpQuickBrowse() ? [erledigt]

Grafische Primitive, XbaseParts und Darstellungsfragen allgemein.

Moderator: Moderatoren

Antworten
Benutzeravatar
AUGE_OHR
Marvin
Marvin
Beiträge: 12903
Registriert: Do, 16. Mär 2006 7:55
Wohnort: Hamburg
Hat sich bedankt: 19 Mal
Danksagung erhalten: 44 Mal

Farben für XbpQuickBrowse() ? [erledigt]

Beitrag von AUGE_OHR »

moin,

Ich frage mich gerade wie ich die Farben mit "was" und "wo" in XbpQuickBrowse() verändern kann :-k

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 :?:
Zuletzt geändert von AUGE_OHR am Fr, 22. Mär 2019 2:25, insgesamt 1-mal geändert.
gruss by OHR
Jimmy
flanelli
Rekursionen-Architekt
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() ?

Beitrag 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
Ahoile aus dem Süden
Benutzeravatar
AUGE_OHR
Marvin
Marvin
Beiträge: 12903
Registriert: Do, 16. Mär 2006 7:55
Wohnort: Hamburg
Hat sich bedankt: 19 Mal
Danksagung erhalten: 44 Mal

Re: Farben für XbpQuickBrowse() ?

Beitrag 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
QB_Color.JPG (172.05 KiB) 2965 mal betrachtet
gruss by OHR
Jimmy
Antworten