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 )
.../...// 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
