FiveTech Software tech support forums

Juan,

Por favor envíame los ficheros por email a alinares@fivetechsoft.com con un fichero adjunto ZIP renombrado con extensión ZOP para que gmail no lo pare, gracias

//AHORA CUARTA PARTE Static Function Letras( nVal, cText, lInicio, lTrozo ) local n := 1, nLen, cChar := "", lVacio := .t. local cPrev := "", min, may, cTc, nIni := 0, nSp := 0 local lSi := .t., aChar, cEl := "", cCadena := "" DEFAULT lInicio := .t., lTrozo :=...

//TERCERA PARTE Static Function Justify( oGet, oLine, oPrn, nMargen, nMargend, nJustif, oFontW ) local nPos, cLine := "", cChar := " ", nWidthChar := 0, aOpt := {} local xxx := 0, nVez := 0, nJust := 0, nI, lSeguir := .t., n, nFont, aText, cLinea, cIni, nIni local cTx2, cMemo := ...

//SEGUNDA PARTE if lHelp oImageList = TImageList():New() // oBmp1 = TBitmap():Define( , ".\BITMAPS\wdoc2.bmp" , oWnd ) oBmp1 = TBitmap():Define( , ".\BITMAPS\WDoc.bmp", oWnd ) oBmp2 = TBitmap():Define( , ".\BITMAPS\wFrmmask.bmp", oWnd ) oImageList:Add( oBmp1, oBmp2 ) //...

... - 2.- H0012008.MH1 (Es el texto de prueba a editar) GTF1Arial160.401100Arial219.241100Batang219.241100010PLANELLES LAZAGA, JUAN - Última historia - H0012008.MH1. - Consulta: 147 del paciente. PLANELLES LAZAGA, JUAN - Edad: 69.5 - Fecha: 22/11/2007. ANTECEDENTES PERSONALES ...

Antonio, lo tengo preparado.

Van: Leeme.Txt, WOCAYUD8.PRG, H0012008.MH1 y CFGAYUDA.001.

No se, como hacer, ¿te pongo aquí todo el texto?, es mucho, ¿o por e-mail en forma de ficheros? (dime entonces la dirección).

Espero lo que me digas.

Saludos: - Juan -

Juan,

Felices fiestas

Puedes proporcionar un PRG completo y autocontenido que podamos compilar y probar aqui directamente ? gracias

Hola Antonio, Felices Navidades. Se quiere justificar solamente en la impresora. Te envío en código que uso: metodo PRINT pasado a función para perssonalizarlo un poco, y desde ahí se llama a la funcion JUSTIFIC, en la que lo único que se hace es recorrer el texto de la línea caracter uno a uno y lo...

Juan,

Puedes poner un pequeño ejemplo que reproduzca ese efecto que comentas para revisarlo ? gracias

Tengo una aplicación en la clase CLASS TFGet y no consigo que se justifiquen bien las líneas, ¿Alguien tiene el código adecuado?. Me sería muy útil. Gracias. - Juan -

Claro está, mi revisión es la de Octubre 2008. Seguiré tu consejo, a RichEdit.
Gracias, saludos: - Juan -

Juan,

El dato bMouseWheel se implementó en FWH en Noviembre del 2008 (versión 8.11)

Si puedes usar RichEdit es mejor pues es mucho más potente

Hola Antonio: Lo he hecho y no me reconoce " bMouseWheel", así que no está ni como herencia, es que es muy antigua esa libreria. Si tienes otra solución, me la dices por favor, ya que es lo que me falta para esa edición. Y si no de todas formas he probado RTF y me parece mejor que GTF, lás...

Antonio: Muchas gracias por el código y por los consejos. Te confirmaré los resultados.
Saludos: - Juan -

Juan, Con este código, sin necesidad de modificar la Clase TFGet, puedes implementar soporte de la rueda del ratón:    oFGet:bMouseWheel = { | nKey, nDelta, nXPos, nYPos | MouseWheel( nKey, nDelta, nXPos, nYPos, oFGet ) }         ...function MouseWheel( nKey, nDelta, nXPos, nYP...