Datawindow

---

 

//Cambiar el color del fondo de todos los SLE de una ventana, al recibir el foco.
//y restablecerlo al perder el foco.
METHOD ControlFocusChange(oFocusChangeEvent) CLASS MyDatawindow
 LOCAL oControl  := oFocusChangeEvent:Window  AS OBJECT

 IF oFocusChangeEvent:GotFocus .and. IsInstanceOf(oControl,#SINGLELINEEDIT) 
  oControl:Background := Brush{Color{COLORCYAN}}
 ELSE
  oControl:Background := null_object
 ENDIF
 
 RETURN NIL