Efecto en GET deshabilitado

[Alfredo Arteaga]

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.

[Alfredo Arteaga]

Será que no se entendió la consulta o no hay trucos al respecto?

[Guest]

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

[Alfredo Arteaga]

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.

[fgondi]

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.

[Guest]

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.

[miguel]

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

[fgondi]

Hola Miguel,

Si los tienes en un array prueba a realizar los siguiente

Code: Select all  Expand view  RUN

For i:= 1 to len(aGet)
...
if aGet[i]:ClassName()=='TGET'
   aGet[i]:lReadOnly := .T.
endif
...
next


[miarcod]

gracias, 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

[fgondi]

Hola

Si se pueden cambiar los colores

Code: Select all  Expand view  RUN

For i:= 1 to len(aGet)
...
aGet[i]:Disable()
aGet[i]:SetColor( CLR_BLACK, nRgb(255,255,128) )
...
next

Yo cambio los colores para que los desabilitados se vean en negro con un fondo amarillo.

[miarcod]

Gracias 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

[fgondi]

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