FiveTech Software tech support forums

... diferentes en roundbox y say cTitulo[11] := "Ruben & Dario" oPrn:RoundBox( 1, 7.8, 1.8 , 13, 0.1,0.1, fPen1,CLR_WHITE, {cTitulo[11], oFont5, CLR_BLACK} ,"CM" ) ==> No muestra el carácter & y no lo imprime oPrn:Say( 3, 7.8 , cTitulo[11] , oFonts, 5, nil, nil, 1, "CM" ...

... Dario Fernandez ctitulo9 := "Gancedo && Asociados S.R.L." oPrn:RoundBox( 1, 7.8, 1.8 , 13, 0.5,0.5, oPen1,CLR_WHITE, {cTitulo9, oFont5, CLR_BLACK} ,"CM" ) Probado con varios tipos de letra. imagenes https://postimg.cc/gallery/n7yZqFx

... FONT oFont3 NAME "WingDings" SIZE 0,-25 CHARSET 2 DEFINE FONT oFont4 NAME "WingDings 2" SIZE 0,-25 CHARSET 2 DEFINE FONT oFont5 NAME "WingDings 3" SIZE 0,-25 CHARSET 2 http://www.pflegeplus.com/IMAGES/Symbol4.jpg how to force BtnBmp to use "Segoe ...

... REDEFINE BTNBMP oBtn12 ID 915 OF oDlg1 2007 ; FILENAME c_path + "\Bitmaps\Preview.bmp" ; LEFT ; PROMPT " &Preview" ; FONT oFont5 ; ACTION FULL_SIZE() // Button calls Preview-window .. .. ACTIVATE DIALOG oDlg1 NOWAIT .. .. RETURN NIL // -- PREVIEW - WINDOW called from a ...

... oPrint Define Font oFont1 Name "Arial" Size 0,12 Of oPrint Define Font oFont2 Name "Arial" Size 0,14 Of oPrint Define Font oFont5 Name "Arial" Size 0,14 Of oPrint Define Font oFont3 Name "Arial" Size 0,12 Of oPrint Bold UnderLine Define Font oFont4 Name ...

... oPrint Define Font oFont1 Name "Arial" Size 0,12 Of oPrint Define Font oFont2 Name "Arial" Size 0,14 Of oPrint Define Font oFont5 Name "Arial" Size 0,14 Of oPrint Define Font oFont3 Name "Arial" Size 0,12 Of oPrint Bold UnderLine Define Font oFont4 Name ...

... no me funciona para imprimir 2 copias de un recibo. static function ImprimeCredito(nSaldo1, cClientes) local oFont1, oFont2, oFont3, oFont4, oFont5, oFont6, oFont7, oFont8, oFont9 local aDatos, oPrn, nRenglon := 0, aImportes, cTexto PRINT oPrn NAME "Impresión de Recibo de Ventas" ...

@ 17.1,65 SAY oSayON var SayON OF oDlg COLOR CLR_RED,GetSysColor(15) Font oFont5 SIZE 65,25
oSayON:setText("TEST")

como cambiar/trocar para color BLUE ?

ANTONIO: LE MANDO MI CODIGO FTE PARA QUE LO REVISE. SI ES TAN AMABLE GRACIAS : JOSE Function avi601() LOCAL oFont5 local oBtm5 local oBtm6 local oBmp6, oBmp, oBtnbmp LOCAL oIcon3 local oBarra local oDlg2 CNOMBRE:=space(30) CCVECAN:=CIMPORTE:=0 FUERA:=.T. FUERA2:=.T. FUERA3:=.T. ...

... [i] por el valor que va tomando, es decir, para que hiciese lo mismo que este trozo de codigo. oFont1:End() oFont2:End() oFont3:End() oFont4:End() oFont5:End() oFont6:End() Gracias por adelantado! Hola amigo prueba con esto: AEval( oFont,{|o| o:End()} ) o de otra manera asi: FOR X=1 TO 8 oFont[X]:End() ...

AEval( { oFont1, oFont2, oFont3, oFont4, oFont5, oFont6 }, { | o | o:End() } )

... [i] por el valor que va tomando, es decir, para que hiciese lo mismo que este trozo de codigo. oFont1:End() oFont2:End() oFont3:End() oFont4:End() oFont5:End() oFont6:End() Gracias por adelantado!

... Activate Dialog oDlgDeta Centered Sele e Return Static Function Imprime() Local oPrint, oFont1, oFont2, cTipo, oFont3, oFont4, oPen, oFont5 Local nFila, nColumna, nVertical, nHorizontal Print oPrint From User Preview Define Font oFont1 Name "Arial" Size 0,14 Of oPrint Define Font ...

... Activate Dialog oDlgDeta Centered Sele e Return Static Function Imprime() Local oPrint, oFont1, oFont2, cTipo, oFont3, oFont4, oPen, oFont5 Local nFila, nColumna, nVertical, nHorizontal Print oPrint From User Preview Define Font oFont1 Name "Arial" Size 0,14 Of oPrint Define Font ...

... cImpresora:=PRINTERSETUP() REPORT oReport ; TITLE oemtoansi("Listado de Proveedores ")+cTexto,; "" CENTERED ; FONT oFont1,; oFont2,; oFont3,oFont4,oFont5,oFont6,oFont7,oFont8,oFont9,oFont10 ; PEN oPen1,; oPen2 ; HEADER " ",; "Fecha: "+dtoc(date()),; "Hora: "+LEFT(time(),5),"","","","" ; RIGHT ; ...