FiveTech Software tech support forums

... creo que depende del controlador. Cuando hemos impreso contratos laborales, nos gustaría que se pudieran colocar algunas palabras en negrilla, como por ejemplo el nombre y la cedula de la persona. No se si esto se pueda solucionar con los textos enriquecidos. De momento estos son ...

Ups...!!!
En la primera opcion tienen que omitir oReport:cGrandTotal =

Bueno, después de intentar algun tiempo... (horas) lo hice de dos maneras. La primera sin modificar la Classe, y la segunda modificandola. Lo dejo aquí por si a alguien le es útil. 1a)oReport:bEnd:={|| oReport:Say(1, "TOTAL " + cTitulo ,2 ,PAD_LEFT , oReport:nRow + oReport:nSt...

Hola amigos.
Puede alguno de ustedes decirme como poner en negrilla la leyenda del cGrandTotal de Treport?
Gracias de antemano.

En una impresora:
¿Cómo se puede hacer para imprimir la letra en blanco y el bondo en negro?. Es decir, hacer como si fuera el negativo.
Para imprimir normálmente nos deja elegir si queremos, Negrilla (bold), itálica, subrayado, tachado, pero no veo como elegir/cambiar el color de la letra y su fondo.

Otto, I am reviewing similar questions in StackOverflow: http://stackoverflow.com/search?q=paint+rich+text Its not easy as Windows does not provide a way to do it. I think that a possible solution would be to let a RichEdit control paint it and then copying its image as a bitmap. Thinking ab...

Dear Antonio,

I think this would be a great extension to EasyReport.

I tried to modify the paint method of Flatbutton class to use RichText.
This would offer great graphical opportunities.
But I have no idea how painting speed would be.

Best regards,
Otto

Dear Otto,

The problem is in this line:

oRTF:Print()

We need to create a TRichEdit() object there and keep it hidden and then destroy it.

And function RePrint() used from Class TRichEdit needs to be modified.

Do you also have the same need as Leandro ?

Dear Antonio,
can you please help to Change this pseudocode

if isrtf( cText )
oRTF:print
else
TextOut( ::oPrn:hDCOut, nRow, nCol, cText )
endif

in valid FW code.
Thanks in advance
Otto

The problem we face there is that Windows TextOut() is used to paint the text and that function does not support such formatting. Yesterday I thought about painting twice, first in bold then again in no bold, but the bold parts should be turned into spaces and that will not properly fit in the exact...

Otto,

I did it manually using the EasyReport designer

Dear Antonio,
but how do you get nRow, nCol for this new Item?
Best regards,
Otto

Leandro,

hay una solución muy simple:

crea otro item con el texto que quieres poner en negrita, usando un font bold, y sobreponlo encima del texto que quieres resaltar

Dear Antonio,
I think it is METHOD Say( nRow, nCol, cText, oFont, nWidth, nClrText, nBkMode, nPad ) CLASS VRD.
Best regards,
Otto

Leandro,

Si localizásemos en que método se imprime ese texto, podriamos usar unas marcas en el texto para indicar negrita.