FiveTech Software tech support forums

... General", "No Conformidades Anteriores", "Resultados", "Cierre" ; // BITMAPS "new", "open1", "Presupu"; DIALOGS "solapa1", "solapa2w", "Solapa5w", "Solapa3w", "Solapa4w" ...

... "&Encabezado", "&Información General", "Resultados", "Cierre" ; // BITMAPS "new", "open1", "Presupu"; DIALOGS "solapa1", "solapa2", "Solapa3", "Solapa4" // round 10 transparent ...

... rectas. Saludos Ruben 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

... use only fivewin code. So I'm try to print this: cTitulo33:="Gancedo & Asociados S.R.L." oPrn:RoundBox( 1, 7.8, 2 , 13.8, 0.1,0.1, oPen1,CLR_WHITE, {cTitulo33, oFont, CLR_BLACK} ,"CM" ) Don't print the character & , I tryed with other font but, don't. There are more... ...

Un poco mas claro... cTitulo33:="Gancedo & Asociados S.R.L." oPrn:RoundBox( 1, 7.8, 2 , 13.8, 0.1,0.1, oPen1,CLR_WHITE, {cTitulo33, FFNT5, CLR_BLACK} ,"CM" ) No imprime el caracter & Estoy tratando de dejar codigo de terceros, utilizaba tUtilPrn de Rafa ...

Saludos

Al generar un PDF
no respeta la definición de PEN
cualquier valor que ponga, siempre sale muy gruesa la linea

DEFINE PEN oPEN1 WIDTH .5 OF oPRN
oPrn := FWPdf():New( cARCHPDF )
oPRN:LINE( Row* 10,CCOL*5 C,Row*10,CCOL*55,oPEN1)

Buenas tardes foro.!!
Necesito imprimir un titulo de un listado dentro de un box. la pregunta es si se puede a ese box ponerle un fondo de color y si se pueden redondear los bordes.
oPrn:Box( prow, pcol, prow*2.3, pcol*77, open1 )
asi defino el box.

Gracias.

... mi codigo lo tengo todo con oPrn:CmSay( 1.0, 6.8 ,"Informe N° " + Alltrim(Str(NumNumero)),oFont1) oPrn:CmBox( 0.7, 6.5, 1.8, 14, oPen1 ) Y aun aparece recortado el PDF al tamaño de la etiqueta programada en la impresora

... oReport #define BLANCO 1 #define ROJO 2 #define AMARILLO 3 #define AZUL 4 #define VERDE 5 LOCAL NOME := SPACE(25) LOCAL oFont1, oFont2, oFont3, oPen1, oPen2, cTit cTit := ALLTRIM(NEWPAR->EMPRESA1) DEFINE FONT oFont1 NAME "ARIAL" SIZE 0,-10 DEFINE FONT oFont2 NAME "ARIAL" ...

Try

DEFINE PEN oPen1 WIDTH nPixel COLOR CLR_HBLUE OF oPrn

DEFINE PEN oPen1 WIDTH nPixel COLOR CLR_HBLUE

... development of graphic functionality. Thanks for understanding and we highly appreciate your cooperation. I make a pen with "DEFINE PEN oPen1 WIDTH max(1,(max(oPrn:nHorzRes(),oPrn:nVertRes())/1800))" Instead please use DEFINE PEN oPen WIDTH nWidth OF oPrn  // FWH1909  ...

... as Right and Right was treated as Bottom. But a other thing is the pen in oPrint:box() and oPrint:roundbox(). I make a pen with "DEFINE PEN oPen1 WIDTH max(1,(max(oPrn:nHorzRes(),oPrn:nVertRes())/1800))" with exact pixels. In the METHOD ParamPen(..) you use   case cType == "O" ...

STRANGE..... this morning I add DEFINE PEN ::oPen1 WIDTH 1 COLOR CLR_HGRAY DEFINE PEN ::oPen2 WIDTH 1 COLOR CLR_BLACK and REPORT ::oReport ; TITLE "ELENCO TARIFFE LISTINO ALTA STAGIONE" ; FONT ::oFont ; PEN ::oPen1,; ::oPen2 ; HEADER ...

... ) LOCAL oGraphics3 := Graphics():New( oWnd:hDC ) LOCAL oGraphics4 := Graphics():New( oWnd:hDC ) LOCAL aRect := GETCLIENTRECT( oWnd:hWnd ), oPen1, oPen2 oGraphics1:DrawImage( oImage1, aRect[1] + 150 , aRect[2] + 250 , 200, 200 ) oGraphics1:destroy() oPen1 := Pen():New( 255 , 255, 0 , 0 , ...