How to put dc_findbrowse in zebra style

[pedroah]

Dear Board

Please tell me how can I can show the DC_Findbrowse in zebra style.

Thanks in Advanced

[rdonnay]

try this:

Code: Select all

aBrowPres := DC_BrowPres()

     #define BRW_ZEBRA_TAGGED_BGCOLOR     GRA_CLR_YELLOW
     #define BRW_ZEBRA_TAGGED_FGCOLOR     GRA_CLR_RED
     #define BRW_ZEBRA_TAGGEDHILITE_BGCOLOR     GRA_CLR_DARKGREEN
     #define BRW_ZEBRA_TAGGEDHILITE_FGCOLOR     GRA_CLR_WHITE
     Aadd(aBrowPres,{XBP_PP_COL_ZEBRA_EVENROW_BGCLR  , GRA_CLR_YELLOW     })    // Zebra even row BG color
     Aadd(aBrowPres,{XBP_PP_COL_ZEBRA_EVENROW_FGCLR  , GRA_CLR_BLACK      })    // Zebra even row FG color
     Aadd(aBrowPres,{XBP_PP_COL_ZEBRA_ODDROW_BGCLR   , GRA_CLR_WHITE      })    // Zebra odd row BG color
     Aadd(aBrowPres,{XBP_PP_COL_ZEBRA_ODDROW_FGCLR   , GRA_CLR_BLACK      })    // Zebra odd row FG color
     Aadd(aBrowPres,{XBP_PP_COL_ZEBRA_ENABLED        , 1                  })    // Enable standard zebra colour
     Aadd(aBrowPres,{XBP_PP_COL_ZEBRA_TAGGED_FGCLR ,BRW_ZEBRA_TAGGED_FGCOLOR})    // Zebra tagged row FG color
     Aadd(aBrowPres,{XBP_PP_COL_ZEBRA_TAGGED_BGCLR ,BRW_ZEBRA_TAGGED_BGCOLOR})    // Zebra tagged row FG color
     Aadd(aBrowPres,{XBP_PP_COL_ZEBRA_TAGGEDHILITE_FGCLR ,BRW_ZEBRA_TAGGEDHILITE_FGCOLOR})    // Zebra selected tagged row FG color
     Aadd(aBrowPres,{XBP_PP_COL_ZEBRA_TAGGEDHILITE_BGCLR ,BRW_ZEBRA_TAGGEDHILITE_BGCOLOR})    // Zebra selected tagged row FG color

@ nRow, nCol DCFINDBROWSE .. PRESENTATION aBrowPres

[pedroah]

Dear Roger

Works great

thank you very much