FiveTech Software tech support forums

William, gracias por la respuesta. Lo hice como dijiste pero no funcionó.    vDet:=SPACE(50)   ...   ...   ...   REDEFINE GET  oDet  VAR  vDet  MEMO  ID 112  OF oDlg;      FONT oFont2  Se pued...

jrestojeda,

Puedes definir la variable en 50 espacios y funciona.

por otro lado, puedes limitar el tamaño en el recurso.

Hola a todos. Tengo un problema con un campo Memo. Mi idea es limitar la edición a 50 caracteres por línea pero no se como se hace. Estoy redefiniendo el GET de la siguiente forma:    REDEFINE GET  oDet  VAR  vDet  MEMO  ID 112  OF oDlg;      FONT oFont2  Alguna sugerencia??? Desde ya muchas gracias...

... el usuario hace clic en el texto, el texto desaparece y el usuario puede escribir. No se puede establecer un banner en un control de edición multilínea o en un control de edición rico. El soporte de temas debe estar activado en la aplicación. Es un requisito de la API de Windows. * Corrección: ...

... se encuentran deshabilitados uso la clausula lDisColors del get. He intentando implementar este comportamiento en otros controles como son el Get Multilínea pero no lo consigo Lo que he hecho es redefinir el metodo Paint() y agregarle el código del get pero no hace lo que debería. Seguramente ...

... #define CR Chr( 13 ) // FUNCTION uMultLineBtn_Test() local oDlg, oBtn local cCaption := 'Botones con...' + CR + ; 'caption multilínea.-' + CR + ; 'Para conseguirlo basta con emitir la sencilla sentencia...' + CR + ; 'oBtn:nStyle := ' + CR + ; 'nOr( oBtn:nStyle, 8192 )' DEFINE ...

Antonio Buenos saludo cordial Con este código hago una búsqueda de texto a un campo memo de una DBF que presento en un Get multilínea y lo hace muy bien el cursor se sitúa exactamente antes del carácter o frase que esta en la variable cContenido,lo que ocurre es que el texto encontrado ...

Andrés,

Cuando se crea el GET multilínea existe la limitación que comentais, pero una vez creado se le puede enviar ese mensaje para que no esté limitado:

@ 10,10 GET oGet VAR NC SIZE 230,60 PIXEL MULTILINE OF FINESTRA2
...
ACTIVATE DIALOG oDlg ON INIT oGet:LimitText()

... En FWPPC, el ejemplo samples\TestFldW.prg muestra como usar un "browse" en un folder, cargado desde recursos. * Mejora: Soporte para "pestañas" multilínea en la clase TFolder si el estilo TCS_MULTILINE es usado en recursos. * Mejora: Añadido DEFAULT oWnd := GetWndDefault() en el método Redefine ...

Construcción Octubre 2006 =================== * Mejora: En FWH, el método GoBottom() de la clase TMGet ahora desliza el control get multilínea, así que el texto más abajo queda visible. * Mejora: Pequeñas correcciones en el método Paint() de la clase TGet. * Corrección: La función TVSETITEMTEXT() ...

... #define CR Chr( 13 ) // FUNCTION uMultLineBtn_Test() local oDlg, oBtn local cCaption := 'Botones con...' + CR + ; 'caption multilínea.-' + CR + ; 'Para conseguirlo basta con emitir la sencilla sentencia...' + CR + ; 'oBtn:nStyle := ' + CR + ; 'nOr( oBtn:nStyle, 8192 )' DEFINE ...

Manuel, Para hacerlos multilínea hay que llamar a esta función despues de la llamada a CreateTooltip() en source\classes\window.prg: #define TTM_SETMAXTIPWIDTH 1048 SendMessage( hWnd, TTM_SETMAXTIPWIDTH, 0, 80 ) 80 es variable e indica ...

Manuel,

FWH usa los tooltips nativos de Windows. Habrá que investigar como hacerlos multilínea.

Para que aparezcan tipo balloon tienes que descomentar este último parámetro en source\classes\window.prg:

hWnd = CreateToolTip( Self:hWnd, cToolTip ) // , .t. ) for ballon tooltips !

Mario,

Entonces podrías usar un GET multilínea ó un RichEdit si quieres que el texto tenga distintos colores y fonts.

Jose Luis,

Si acordamos que se use el color blanco (de la ventana) para el fondo de los GETs READONLY, entonces usamos ese mismo color para los Multilínea, si ?