FiveTech Software tech support forums

... hacemos el llamado al área de impresión dentro del prg,¿existe otra sintaxis para poder llamar el método SayMemoJust? y que nos imprima el texto justificado. PRINTAREA 1 OF oVRD ;ITEMIDS    { 176,177 } ;ITEMVALUES {  vArt,cTxto}   De antemano gracias

Gracias Joao!
Lo voy a probar!!
Gracias!

/* Entrada = Texto a ser justificado Tamanho em que o texto será justificado Fonte utilizada Indicador se o tamanho foi passado em pixels Sai­da = Texto espaçado/justificado */ METHOD JustifyText( cText, nLen, oFont, lPixel ) ...

... variable, en este caso, es: "FiveTech Software tech support forums" Y necesito distribuirlo en toda la línea para que quede centrado y justificado a ambos lados.... habrá posibilidad que se pueda realizar esto? (En otras palabras, que el texto que quiera enviar, ocupe todo el renglón....) ...

Antonio, la verdad es que no sé si estaría justificado un índice temporal para una cuestión menor como ésta. Lo que quizá sí que podría implementarse es OrdkeyCount() y si se abre el fichero de datos con un índice asociado que esté creado con ...

/* Entrada = Texto a ser justificado Tamanho em que o texto será justificado Fonte utilizada Indicador se o tamanho foi passado em pixels Saída = Texto espaçado/justificado */ METHOD JustifyText( cText, nLen, oFont, lPixel ) ...

Karinha
gracias pero de lo que hablo, es de justificar el texto a ambos lados, para que
quede alineado a ambos márgenes, esto es para poner el texto a la derecha, o izquierda o centrado,
yo necesito que esté JUSTIFICADO porque se trata de formularios oficiales que deben
presentar este formato.
Roberto

... IF nPad=1 cText:=Substr(cText,2,Len(cText)) ELSE cText:=Substr(cText,1,Len(cText)-1) ENDIF ENDDO IF nPad=PAD_BOTH .AND. " "$cText // Justificado a ambos lados nP:=1 DO WHILE ::GetTextWidth( cText, oFont ) < vec[2] //nWidth FOR nI=nP TO Len(cText) nP++ cC:=SubStr(cText,nI,1) IF ...

... Una vez arreglada, sería poner en la barra un botón titulado Alinear, cuando se pincha el botón un menú con las opciones Izquierda, Derecha y Justificado. ¿Qué os parece?. Muchas gracias. Lucas , realmente la alineación existe pero de una manera un tanto extraña .... . Se usa la multiseleción ...

Hola,

Pues sí, muy buena idea.

Efectivamente, la multiselección no funciona.

Una vez arreglada, sería poner en la barra un botón titulado Alinear, cuando se pincha el botón un menú con las opciones Izquierda, Derecha y Justificado.

¿Qué os parece?. Muchas gracias.

Esta era la imagen:

puedes poner un ejemplo con todo y .exe ?
la imagen ya no aparece,

saludos..

UPS... la antepenúltima líneas era:

Code: Select all  Expand view

AADD(aLins,{cRengl,nTok,lFin})

Independientemente, he modificado FormatText() para corregir algunos desajustes: FUNCTION FormatText(hDc,cFrase,hFnt,nAnch,nCuantos)   LOCAL cTrozo,cRengl,lFin   LOCAL nChar := Int(nAnch/GetTextWidth(hDc,"B",hFnt))-5   LOCAL aLins := {}   LOCAL nCrlf := 0 ...

A mi me funciona así: PRINT oPrn NAME "FICHA DE PARAMETRO" // PREVIEW*DEFINE FONT oFont[1] NAME "Arial" SIZE 0,-12  OF oPrnDEFINE FONT oFont[2] NAME "Arial" SIZE 0,-14  OF oPrn*oPrn:SetPage(9)oPrn:SetPortrait()*PAGE...... // CABECERAS, TI...