Dificultades con la clase TWord

Post Reply
User avatar
Andrés G.
Posts: 33
Joined: Fri Jun 29, 2007 7:38 am
Location: Tarragona, Catalunya

Dificultades con la clase TWord

Post by Andrés G. »

Hola a todos,

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
 
Espero vuestras respuestas no sin antes dar las gracias por anticipado.

Recuerdos,

Andrés G.
User avatar
Andrés G.
Posts: 33
Joined: Fri Jun 29, 2007 7:38 am
Location: Tarragona, Catalunya

Re: Dificultades con la clase TWord

Post by Andrés G. »

Hola de nuevo,

Como decimos en España, el que la sigue la consigue.

Modificando el método TextBox de la Clase Tword he conseguido decicir si se pinta o no la linea en los cuadros.

Recuerdos,

Andrés
Post Reply