// - Whenever a Combo Box control is modified
// Call the UpperMask procedure
UpperMask()
// --UpperMask procedure
// Capitalize the 1st letter for an editable Combo Box control
PROCEDURE UpperMask()
Value = MySelf
IF Length(Value) > 1 THEN
CursorPosition = MySelf..Cursor
MySelf = Upper(Value[[1]]) + ...
Lower(Value[[2 TO Length(Value)]])
MySelf..Cursor = CursorPosition
END
Observaciones
Manejando el actual control
- MySelf siempre es reemplazado por el actual control. Por ejemplo:
- Recuperando el valor del actual control:
Modificando el valor del actual control:
- Usando un Property (..Título por ejemplo):
MySelf..Caption = "Name of customers"
ControlCaption = MySelf..Caption
- Pasar un parámetro:
- Se produce un error de WLanguage si no hay un control actual.
Usarme a mí mismo en un Procedure
- MySelf puede utilizarse en un procedimiento local o en un procedimiento global sólo si el procedimiento se llama en un Process associated con un control. En este caso, MySelf se refiere al actual control.
- MySelf se utiliza para hacer un Procedure "genérico": el nombre del control no se especifica. Este Procedure puede ser llamado por varios controles.
Funciones de WLanguage y control actual
Para especificar el control actual en las funciones WLanguage que aceptan un nombre control en el parámetro, usa:
- una cadena vacía,
- Yo mismo directamente.