SetCbxColorFocus( nClrFocus )

[karinha]

Code: Select all  Expand view

   SetCbxColorFocus( nClrFocus )
 

Algun ejemplo?

[cnavarro]

Try

Code: Select all  Expand view

   local nOldColor

   .../...

   @ 10, 10 COMBOBOX oCbx VAR cItem ITEMS { "Testing", "this", "ComboBox" }  SIZE 200, 460 OF oDlg PIXEL HEIGHTGET 18 UPDATE//;
   nOldColor   := SetCbxColorFocus( CLR_YELLOW )

   .../...
 

[karinha]

Thanks master. Perfecto!

Code: Select all  Expand view

// adhemar.prg

#include "FiveWin.ch"  

function Main()

   LOCAL oDlg, oCbx, cDia
   LOCAL nOldColor

   DEFINE DIALOG oDlg

   @ 1, 3 COMBOBOX oCbx VAR cDia OF oDlg SIZE 100, 300 UPDATE                ;
      ITEMS { "Lunes", "Martes", "Miércoles", "Jueves", "Viernes", "Sábado", ;
              "Domingo" }                                                    ;
      STYLE CBS_DROPDOWN ON CHANGE QueDia( cDia )

   nOldColor   := SetCbxColorFocus( CLR_YELLOW )

   oCbx:oGet:bKeyChar = { | nKey | If( nKey == VK_RETURN,;
                                     ( cDia := oCbx:oGet:GetText(), Eval( oCbx:bChange() ) ),),;
                                       oCbx:GetKeyChar( nKey ) }

   ACTIVATE DIALOG oDlg CENTERED

return nil

function QueDia(cDia)

   MsgAlert("Hoy día es: "+cDia)

Return nil
 



[cnavarro]