Si se pueden cambiar los colores
Code: Select all
For i:= 1 to len(aGet)
...
aGet[i]:Disable()
aGet[i]:SetColor( CLR_BLACK, nRgb(255,255,128) )
...
next
Code: Select all
For i:= 1 to len(aGet)
...
aGet[i]:Disable()
aGet[i]:SetColor( CLR_BLACK, nRgb(255,255,128) )
...
next
Code: Select all
For i:= 1 to len(aGet)
...
if aGet[i]:ClassName()=='TGET'
aGet[i]:lReadOnly := .T.
endif
...
next