PC Toledo

Código: Selecionar todos

   SELECT Usuarios
   Usuarios->( OrdSetFocus('I01') )
   Usuarios->( DbGoTop() )

   @ 005,005 BROWSE oBrowse DATABASE OF oDlg ;
            SIZE 590,300  ;
            FONT oFontBrw ;
            AUTOEDIT ;
            STYLE WS_TABSTOP + WS_VSCROLL + WS_HSCROLL ;
            ON KEYDOWN   {|o,Key| Browse_Key(o,Key,aBtn[1]) } ;
            ON CLICK     {|o,Key| Browse_Click(o,Key) } //;
            //ON GETFOCUS  {|| BrwGetFocus(oBrowse) } ;
            //ON LOSTFOCUS {|| BrwLostFocus(oBrowse) }
            
   ADD COLUMN {|| Identi  } TO oBrowse HEADER 'Identificação' EDITABLE
   ADD COLUMN {|| Nome    } TO oBrowse HEADER 'Nome'   LENGTH 30 EDITABLE
   ADD COLUMN {|| Logado  } TO oBrowse HEADER 'Logado' EDITABLE

   oBrowse:Alias := "Usuarios"
   oBrowse:lEsc := .T.
   oBrowse:httColor  := cRgb('WHITE')
   oBrowse:htbColor  := cRgb('BRIGHTBLUE')
// oBrowse:refreshLine()
// oBrowse:bColorSel := cRgb('YELLOW') //cRgb('BRIGHTBLUE')
//oBrowse:tColorSel := cRgb('WHITE')
   oBrowse:SetFocus()
   oBrowse:Refresh()

Código: Selecionar todos

FOR nI := 1 TO Len(oBrw_BOL:aColumns)
   oBrw_BOL:aColumns[nI]:bColorBlock := IF(ALIAS()->AGENDA="FOR",   {x_BLUE,  x_WHITE, x_GREEN, x_CYAN} ,;
                                        IF(ALIAS()->AGENDA="CLI",   {x_RED,  x_WHITE, x_GREEN, x_CYAN} , {x_BLACK, x_WHITE , x_GREEN, x_CYAN } ) ) }
NEXT