Finalmente he llevado mis aplicaciones a 32 bits con FWH y Harbour, en cuanto se superen las pruebas finales se las muestro y si les agrada algo pos nomas me dicen y listo.
Bueno resulta que en 16 bits los GET deshabilitados podían verse normales si se les indicaba la característica multilínea. En 32 existe algún truco?
Solo dos detalles que no pude superar:
SetDate(dDate) - decrementa un día en la fecha indicada
lRmDir() - no me funcionó.
Gracias.
Será que no se entendió la consulta o no hay trucos al respecto? 
Hola alfredo, si me deschongo mucho me paras un alto va?
ok. para la primer pregunta yo le diria ddate := date() o en su defecto un calendario bonito...
para la segunda, existen funciones para crear directorios en fwh, pero lo que yo uso para crear directorios es la siguiente...
lMkDir( cRutaLogica+"BACKUP" )
asi de esa forma y si me ha dado resultados...
Gracias por la respuesta, me refería principalmente al efecto en los GETs, las otras dos situaciones ya fueron resueltas.
Uso SetDate() para facilitarle algunas labores o procesos a los usuarios permitiéndoles cambiar la fecha, pero resulta que cuando la restablesco decrementa un día, bueno fue suficiente con incrementarlo antes de restablecerla. Esta situación se presentó en alguna ocasión con FiveWin hice los comentarios y entonces fue corregida pero hoy la vuelvo a encontrar en FWH.
Sobre lRmDir() o lLFNRmDir(), ninguna de estas dos funciona tuve que agregar a sugerencia de Willy (saludos) la DLL32 y listo, aquí la dejo por si a alguien le interesa.
DLL32 FUNCTION RemoveDir(cPathName AS LPSTR) AS BOOL PASCAL ;
FROM "RemoveDirectoryA" LIB "Kernel32.Dll"
Esperaré lo del control GET se que ahora no se trata del pintado pero talvez alguién ya logro el efecto, posiblemente cambiando de editor de recursos.
Saludos.
Hola alfredo,
No se si tu pregunta sobre get se refiere exactamente a esto, pero yo uso
oGet:lReadOnly := .T.
Sin tener que desabilitar el get. De esta forma el get esta habilitado, perminte movimiento hacia arriba y hacia abajo, en el caso de un multilinea, y no se puede escribir nada en él, es sólo de lectura.
Gracias Fgondi, en mi poca experiencia en FWH (32 bits) empiezo a ver que toma los controles naturales del API Windows (soy algo menso un año de retrazo) ya te avisaré entonces.
Yo me encuentro en el mismo punto, pero el problema que tengo es que al recorrer los controles de un array, no todos los controles tienen la propiedad lReadOnly.
Si se pudiera modificar algo para lograr este comportamiento lo agradecería mucho
Un saludo
For i:= 1 to len(aGet)
...
if aGet[i]:ClassName()=='TGET'
aGet[i]:lReadOnly := .T.
endif
...
nextgracias, pero ReadOnly solo lo puedo usar con los Gets, y el caso es que yo en el array de controles puedo tener CheckBox, combobox, y botones.
Antes, yo desahabilitaba los controles sin preocuparme de que tipo de control era el que estaba desactivando
Si pudiera controlar el color con el que se muestran los objetos desactivados creo que podría solucionar el problema.
Es posible cambiar durante la ejecución el color de los objetos desactivados.
Gracias
For i:= 1 to len(aGet)
...
aGet[i]:Disable()
aGet[i]:SetColor( CLR_BLACK, nRgb(255,255,128) )
...
nextGracias por la respuesta, pero no consigo hacer que un get deshabilitado tenga otro color de fondo, el color se activa cuando sel get vuelve a habilitarse
Un saludo
Intentar poner algo del código para probarlo,
Yo juego mucho con los colores en los gets y no tengo ningun problema.
Por ejemplo desabilito, habilito según el bChange de un checkbox, el valid de Get...