Ver un Get a Campo MEMO con When .F.

[lubin]

Buenas tardes con todos

En este caso tengo en recursos un GET de un campo MEMO de unas 60 lineas, Logicamente al ser tantas lineas cuando se va editan van avanzado las lineas hacia arriba o abajo ocultandose las anteriores... Todo normal....

Este es el GET que manejo (lo del eval lo uso para poner el cursor al inicio del memo)

REDEFINE GET odesaux_c2 VAR xdesaux_c2 MEMO ID 925 OF oDlg WHEN Z_EDIT .and. eval({ |oget| oget:SetSel(0,0),.t. },odesaux_c2)

sI observan uso una Variable Z_EDIT = .T. cuando quiero que editen y
uso Z_EDIT = .F. para Blorquear su edicion...

AQUI EL PROBLEMA : cuando esta bloqueado el campo (Z_EDIT = .F.) ... el campo se ve plomo claro (normal) pero SOLO PUEDO VER LAS LINEAS QUE ME PERMITE VER LA VENTANA DEL GET... que son 8 o 9 lineas... Y SI QUIERO VER LAS OTRAS LINEAS OCULTAS NO PUEDO MOVERME...

Alguna manera de :
a) Poder ver las otras lineas del GET como ocurre cuando estamos editando
b) Puedo cambier el color del GET (plomo claro) a color azul cuando esta Deshabilitado ??

Gracias
Lubin

[acuellar]

Lubin

Poner MULTILINE

Code: Select all  Expand view

REDEFINE GET odesaux_c2 VAR xdesaux_c2 MEMO ID 925 OF oDlg WHEN Z_EDIT .and. eval({ |oget| oget:SetSel(0,0),.t. },odesaux_c2) MULTILINE

 

Saludos,

Adhemar

[lubin]

Hola Adhemar

Te comento que agrege el comando MULTILINE, pero no permite mover lineas abajo para ver el resto de lineas... el objeto del GET queda plomo (deshabilitado) pero congelado, inclusive active el check de recurso para el Scroll vertical pero tambien se congela.

Alguna idea ??

A proposito.,, hay forma de cambiear el color desabilitado del Get de plomo claro a Azul ???

Uso Harbour + FWH/FWHX 8.03 March/2008ç

Graciass.
lubin

[joseluisysturiz]

En tu recurso le hicistes el cambio de la propiedad a multiline a SI.? normalmente eso se nos olvida, tambien en la definicion puedes probar colocando MEMO, saludos...

[acuellar]

Lubin
Tendrías que hacer dos GET uno con READONLY

Code: Select all  Expand view

iF Z_EDIT
  REDEFINE GET odesaux_c2 VAR xdesaux_c2 MEMO ID 925 OF oDlg WHEN  eval({ |oget| oget:SetSel(0,0),.t. },odesaux_c2)
Else
  REDEFINE GET odesaux_c2 VAR xdesaux_c2 MEMO ID 925 OF oDlg WHEN  eval({ |oget| oget:SetSel(0,0),.t. },odesaux_c2) READONLY
Endif
 

Saludos,

Adhemar

[lubin]

Hola Adhemar

Efectivamente el ponerlo con READONLY (USANDO 2 GETS) si permite navegar atravez del GET de arriba a abajo mostrando las lineas ocultas

Ahora se me aparece un pequeño problema intersante ....

En el Dialogo donde esta este GET tengo un CHECKBOX que le daba valor al Z_EDIT (habilitaba o deshabilitaba el GET) ,,,, bueno si entro al DIALOGO con el check en Falso (Z_EDIT) falso, el Get Deshabilitado y todo se mueve OKI...

Pero si entro al Dialogo con el check en verdad (Z_EDIT=.t.), el get esta habilidado me permite escribir todo lo que quiero, pero si en ese momento le Quito el Check... no me bloquea el GET (logico , el dialogo se activo con el otro GET ... )

En otras palabras,,, el READONLY no se puede manejar en tiempo de ejecucion como se hace con el WHEN ... ??? o si ??, pero el WHEN congela el browse del texto.... bendito MEMO..

Gracias

Lubin

[lubin]

Gracias por la respuesta Jose Luis

He verificado y actualmente uso la clausula MEMO, y en mi recusrtos esta activa la opcion de Multiple Line,,, pero nada

habra que seguir buscandole el hilo...

Gracias
Lubin

[acuellar]

Lubin

Tenés que refrescar el dialogo

Code: Select all  Expand view

oDlg:Refresh()
 

Saludos,

Adhemar

[FranciscoA]

Lubin,
Aqui te dejo un ejemplo que hace lo que tú quieres. (espero)

Code: Select all  Expand view

local cMiGet:=SPACE(30),oMiGet,oMiCkBx,lMiCkBx:=.t.,bEditar

bEditar:={|| if(lMiCkBx, oMiGet:lReadOnly:=.f., oMiGet:lReadOnly:=.t.), oMiGet:Refresh() }

@1, 12 CHECKBOX oMiCkBx  VAR lMiCkBx OF oDlg PROMPT "Editar" ;
       ON CHANGE Eval(bEditar)

@3, 12 GET oMiGet VAR cMiGet OF oDlg SIZE 200,60 MULTILINE
 

Saludos.

[lubin]

Buen dia Francisco

Realmente Fivewin tiene suss cosasss...
lo probare y les comento.

muchas gracias
Lubin