FiveTech Support Forums

........ 
........

// The browser shows the Row-selection

// Define alternating row colors 
aClrCol := { { ROW_TEXT, ROW_COL1 }, { ROW_TEXT, ROW_COL2 } } 
oLbx0:bClrStd := { || aClrCol[ oLbx0:KeyNo % 2 + 1 ] } 

oLbx0:CreateFromResource( 110 )

// --------------- Button for COLUMN - Display ( RED ) --------------

REDEFINE BUTTONBMP oBtn11  ID 20 OF oDlg ;
ACTION ( oLbx0:aCols[2]:bClrStd := { || { CLR_WHITE, 128 } }, ;
oLbx0:Refresh() ) ; 
BITMAP "Magic" PROMPT " Col-Select" TEXTRIGHT
oBtn11:cToolTip =  { "Changing browser" + CRLF + ;
                       "Column-Color","Column-Color", 1, CLR_BLACK, 14089979 } 

// ------- Button for changing back to ROW-Display -----------------------

// you cannot call the Row- display again for repainting, 
// that doesn't work and the red Column is still visible 
// ( the Rows are not repainted ).
// To show only the Row-colors again, you have to use 
// the < alternating ROW colors > and repaint the red Column No. 2. 
// That works perfect.

REDEFINE BUTTONBMP oBtn10  ID 10 OF oDlg ;
ACTION ( aClrCol := { { ROW_TEXT, ROW_COL1 }, ;
{ ROW_TEXT, ROW_COL2 } }, ; 
oLbx0:aCols[2]:bClrStd := { || aClrCol[ oLbx0:KeyNo % 2 + 1 ] }, ;
oLbx0:Refresh() ) ; 
BITMAP "Magic" PROMPT " Row-Select" TEXTRIGHT
oBtn10:cToolTip =  { "Changing Browser" + CRLF + ;
                          "Row-Colors","Row-Color", 1, CLR_BLACK, 14089979 }