FiveTech Software tech support forums

... es que el comportamiento de xBrowse es raro. No puedo ir recorriendolo con la flecha, ya que el xBrowse se saltea algun registro mostrado. local cTexto:= "Algo a buscar" DBSelectArea(DBLISTA) (DBLISTA)->(AdsClearAOF()) (DBLISTA)->(OrdScope(0,)) (DBLISTA)->(OrdScope(1,)) (DBLISTA)->(OrdSetFocus('NOMBRE33')) ...

... de manera irregular, muestra el cuadro de dialogo pero no los SAY, para mi hay un problema con la función SysRefresh(). Function fVerExijaBoleta(cTexto) DEFINE DIALOG oDlg_ExijaBoleta TITLE ' ' SIZE 400, 100 @1,1 SAY oSay Prompt cTexto OF oDlg_ExijaBoleta SIZE 380,nAltoLetra fCambia_Font(oSay:hWnd, ...

... , "1", cInifile ) ) //--------------------------------------------------------------------------- Function MiGet4Dec( cTitDlg, cTexto, aTitGet, aGet, cBmp,lDecim) local lOK:=.F., oDlg, oBtn1, oBtn2, oBmp, oBmpF, oBrush,cBrush:=".\wall.bmp" local oTitGet1, oTitGet2, ...

... funciona muy bien con windows live mail. DEFINE MAIL oMail ; SUBJECT cxSUBJECT ; FILES cRutafileA , cRutafileA , cRutafileB , cRutafileB ; TEXT cTexto ; TO cEmail, cEmail ACTIVATE MAIL oMail MUY importante: NO USES CRLF en el texto de Subject. Checa los parametros del TO, estan repetidos, asi ...

... tmail y lo resolvi de la siguiente manera: DEFINE MAIL oMail ; SUBJECT cxSUBJECT ; FILES cRutafileA , cRutafileA , cRutafileB , cRutafileB ; TEXT cTexto ; TO cEmail, cEmail ACTIVATE MAIL oMail MUY importante: NO USES CRLF en el texto de Subject. Lo probe con windows Live Mail, sobre windows vista ...

oPrn:GetTextWidth(cTexto,oFuente) me da el ancho en pixeles de un texto con una fuente en la impresora.

Ahora, como podre saber lo mismo pero de un texto colocado en una ventana?

oWnd:GetTextWidth(cTexto,oFuente) me da un error.

I think, that will work with any FWH-version : ACTIVATE DIALOG oDlgTeste CENTER NOWAIT ; ON INIT ( oDlgTeste:cTitle := "New Text", ; cTexto := "Another text...", oTexto:SETTEXT( cTexto ) ) You can force a Dialog-position ( ON INIT ) with : oDlgTeste:Move( nTop, nLeft, DlgWidth, ...

Te paso las herramientas para que lo puedas hacer. MEMOLINE(cTexto,[nLongitudDeCadaLinea],[nNoDeLinea],[nTamañoDelTab],[<lWrap>]) = Regresa el contenido de la linea nNoDeLinea dentro de cTexto tomando en cuenta que cada linea es de nLongitud oPrn:GetTextWidth(cTexto,oFuente) ...

Con:

oPrn:GetTextWidth(cTexto,oFuente) = Ancho (En Puntos/Pixeles) Del cTexto Usando oFuente En La Impresora Definida
oPrn:GetTextHeigth(cTexto,oFuente) = Alto (En Puntos/Pixeles) Del cTexto Usando oFuente En La Impresora Definida


Espero te sirva

... para grabarlo IF lGraba IF FItems->(Rlock()) ......... ......... FItems->NOTAS :=mNotas ENDIF ENDIF // Para Imprimirlo/Mostrarlo IF !EMPTY(cTexto) // en cTexto tengo el campo MEMO nLines := MlCount(cTexto,50) // armo segmentos de 50 caracteres FOR nFor := 1 TO nLines // en nLines queda ...

... CierraInformeGerencial() AS LONG PASCAL FROM "Bematech_FI_CierraInformeGerencial" LIB hFiscalDl2 DLL32 FUNCTION InformeGerencial(ctexto AS LPSTR) AS LONG PASCAL FROM "Bematech_FI_InformeGerencial" LIB hFiscalDl2 primero declare todas las funciones de esta forma usando ...

... completas en cada linea, teniendo la linea (por ej.), un ancho de 12 caracteres: (es decir, busco un código como el de un editor de texto) cTexto:= "ESTE ES EL ENCABEZADO QUE ESTOY BUSCANDO" ESTE ES EL //lin 1 de tit ENCABEZADO // " 2 QUE ESTOY // " 3 BUSCANDO // " ...

Pedro, Normalmente se usa AnsiToOem( cTexto ) para adaptar texto escrito desde MsDos en Windows. El problema es que Windows Mobile no lo soporta. Asi que tienes que usar una función como la descrita aqui: http://forums.fivetechsupport.com/viewtopic.php?p=83831#p83831 ...

Un fichero XML lo puedes tratar como un fichero plano y abrirlo con Fopen. Ej.: cTexto=memoread( "FICHERO.XML" ) // nHandle:=FOpen("FICHERO.XML", FO_READWRITE + FO_SHARED) // IF FERROR() !=0 TONE(500,2) MsgInfo("Error de apertura del fichero ...

... := "ñ" EndCase ENDCASE endif Return ( { cChar, lSi } ) static function Acro( lInicio, cTextEnv ) // //Local oLine := oGet:oLine Local cTexto := "", n3, cT2, lVacio //oGet:GetTextLine( oLine ) Local nLen := Len( cText ), n := 1, nI := 1, cChar := "", n1, n2, cTx ...