FiveTech Software tech support forums

... "ARIAL" SIZE 0,-10 BOLD OF oPRN DEFINE FONT oFont3 NAME "ARIAL" SIZE 0,-12 BOLD OF ... ... IF oReport:lCreated //Lineas Fonts Bold o No oReport:oTitle:aFont[1] := {|| 3 } oReport:oTitle:aFont[2] := {|| 3 } //oFont3 oReport:oTitle:aFont[3] := {|| 2 } oReport:oTitle:aFont[4] := {|| 2 } //oFont2 ...

... diferente por cada linea de los title, head y foot oReport:oHeader:aFont[1]:={||2} //linea 1 oReport:oHeader:aFont[2]:={||1} //linea 2 oReport:oTitle:aFont[3]:=:={||1} //linea 3 oReport:oFooter:aFont[1]:={||2} //linea 1 <4.necesito que despues de mostrar todos los datos de la DBF, colocar ...

Yo mismo me respondo (nadie cambia fonts en ejecucion??) Salu2 REDEFINE SAY oTitle VAR cTitle FONT oFont ID 101 OF oDlg ..... REDEFINE BUTTON oCam ; ACTION CambiarFont(oTitle) .... FUNCTION CambiarFont(oObjSay) local aTFont, oFont aTFont := {} aTFont := CHOOSEFONT() ...

This is the vtitle CH file. #xcommand @ <nTop>, <nLeft> VTITLE [ <oTitle> ] ; [ SIZE <nWidth>, <nHeight> ] ; [ <dlg:OF,DIALOG> <oDlg> ] ; [ CAPTION <cText> ] ; [ ACTION <uAction,...> ] ; [ FONT <oFont> ...

This is the vtitle CH file. #xcommand @ <nTop>, <nLeft> VTITLE [ <oTitle> ] ; [ SIZE <nWidth>, <nHeight> ] ; [ <dlg:OF,DIALOG> <oDlg> ] ; [ CAPTION <cText> ] ; [ ACTION <uAction,...> ] ; [ FONT <oFont> ...

... := oRs:BookMark oRs:MoveFirst() REPORT oReport ; CAPTION ..... ................... END REPORT oReport:bWhile := { || nLinea <= nHasta } oReport:oTitle:aFont[1] := {|| 3 } oReport:oHeader:aFont[1] := {|| 2 } oReport:oDevice:SetPortrait() oReport:oDevice:lPrvModal := .T. // preview modal IF oReport:lCreated ...

... COLUMN TITLE "Nombre" DATA oRs:Fields("nombre"):value COLUMN TITLE "Refª" DATA oRs:Fields("control"):value END REPORT oReport:oTitle:aFont[1] := {|| 3 } oReport:oHeader:aFont[1] := {|| 2 } oReport:oDevice:SetPortrait() oReport:oDevice:lPrvModal := .T. // preview modal ACTIVATE ...

Depues del ENDREPORT y antes del ACTIVATE REPORT haz: oRep:oTitle:aPad[2] := RPT_RIGHT Con esto la segunda linea del reporte quedara pegada a la derecha. Si tu reporte tiene 3 lineas, y quieres una a la izqueirda, otra a la derecha y otra centrada haces: ...

... "RIGHT", Nil ),,,, oRpt ) ) EndIf Next END REPORT oRpt:bSkip := { || oRpt:Cargo := ::rptSKIP( ) } oRpt:Cargo := 1 oRpt:cellview() oRpt:otitle:aFont[1] := {|| 2 } orpt:ntitleupline:=1 orpt:ntitlednline:=1 orpt:ntotalline:=1 IF len(::aselected)>0 While AScan( ::aSelected, ; If( ::NDATATYPE==DATATYPE_ARRAY,::nArrayAt,eval(::bKeyno)))==0 ...

... FONT 2 LEFT END REPORT oReport:bSkip := {|| nField++} oReport:CellView() ACTIVATE REPORT oReport WHILE nField <= len(aDatos); ON INIT oReport:oTitle:aFont[1] := { || 3 }; oPen1:End() oPen2:End() oFon1:End() oFon2:End() oFon3:End() oQueryRep:Gotop() RETURN oQueryRep //------------------------------------------------------------------ ...