Ownerdrawing hab ich noch nie gemacht und möchte eigentlich nur im XbpBrowse farbige Zeilen und einen transparenten Zeilencursor, so wie bei VisualStyle (die ich wg. Colorblock ja abschalten muss): Der Code sieht aktuell so aus:
Code: Alles auswählen
oBrowse := XbpBrowse():new( oParent,, aPos, aSize,;
{{XBP_PP_HILITE_FGCLR, XBPSYSCLR_HILITEFOREGROUND}, {XBP_PP_HILITE_BGCLR, XBPSYSCLR_INACTIVETITLETEXTBGND},;
{XBP_PP_BGCLR, XBPSYSCLR_WINDOW}, {XBP_PP_FGCLR, XBPSYSCLR_WINDOWTEXT},;
{XBP_PP_COL_HA_FRAMELAYOUT, XBPFRAME_RAISED+XBPFRAME_BOX+XBPFRAME_THICK}, {XBP_PP_COL_DA_FRAMELAYOUT, XBPFRAME_BOX+XBPFRAME_RAISED},;
{XBP_PP_COL_DA_CELLFRAMELAYOUT, XBPFRAME_BOX+XBPFRAME_RAISED}, {XBP_PP_COL_DA_HILITEFRAMELAYOUT, XBPFRAME_BOX}}, .F. )
oBrowse:cursorMode := XBPBRW_CURSOR_ROW // Zeilencursor
oBrowse:clipSiblings := .t.
oBrowse:useVisualStyle := .f. // sonst kein Colorblock...
oBrowse:hScrollObject:useVisualStyle := .T.
oBrowse:vScrollObject:useVisualStyle := .T.
oBrowse:create()
Die abgerundeten Ecken des Zeilencursors wie bei VS wären auch nicht schlecht.
Was mache ich falsch?