Estoy pasando los últimos programas que me quedaban a 32 bits, se me quedaron por aquí porque usan la clase TWord y no sabia como hacerlo, encontré la versión para harbour en el foro y después de batallar ya los tengo en marcha.
La dificultad con la que me encuentro es que cuando pongo el texto en un cuadro usando say éste siempre aparece recuadrado, esto no pasaba en 16 bits, allá siempre me funcionó bien.
¿Alguien sabe como solucionar este problema?
He estado investigando y no encuentro donde se le puede dar la instrucción de que no recuadre el texto.
Aprovechando el post os dejo una modificación que he hecho en la clase para poder añadir tabulaciones con distintas alineaciones.
Únicamente debéis sustituir el código original por el siguiente:
Code: Select all
METHOD addtabulador(npos, nalig, ocuadrotext) CLASS TWord
local otabstop, oParagraphFormat,a
/*
Alineación (nalig)
0-Izquierda
1-Centro
2-Derecha
3-Decimal
4-Barra
*/
DEFAULT ocuadrotext := ::oTexto
if ::lsetcm
npos := nnpos*28.35
endif
oParagraphFormat := oCuadroText:Get( 'ParagraphFormat')
otabstop := oParagraphFormat:Get( 'TabStops')
oTabstop:Invoke('Add',npos,nalig)
release oParagraphFormat, otabstop
RETURN nil
Recuerdos,
Andrés G.