FiveTech Software tech support forums

... ::oReport:SetShdColor(CLR_GRAY) ENDIF ::oReport:nTitleUpLine := RPT_SINGLELINE ::oReport:nTitleDnLine := RPT_SINGLELINE ::oReport:oTitle:aFont[2] := {|| 3 } ::oReport:oTitle:aFont[3] := {|| 2 } ::oReport:SetTxtColor(::nColoreFont1,1) ------------> not run !!!! ::oReport:SetTxtColor(::nColoreFont2,2) ...

... + CRLF + "TTC","Total" + CRLF + "Acomptes",; " ","Taux" + CRLF + "Tva"; FOOTERS ; FONT aFont ; COLORS {|| { CLR_BLUE, CLR_WHITE } } ; COLSIZES asize ; array TVISU lines AUTOSORT In order to read them from last to first WITH OBJECT oBrw:aCols["Date" ...

... un dato (especifico) que necesito que sea COLOREADO el fondo. como lo hago? porque yo intento esto: oTp:cmsay(nRow, 17.0, oRs:FIELDS(13):VALUE, aFont[3]) Pero no se como utilizar el fillrect para pintar eso./ FillRect( :hdcout, LAS COORDENADAS NO SE COMO CALCULLARLAS, oBCGris:hBrush ) Utilizo ...

... is specified, in this case fonts are not released , when no memo clause is specified fonts get released Ex : redefine get id xxx of odlg memo font afont activate dialog odlg afont:end() // has no effect in this case Thanks for your help

Richard,

We have not changed fonts management recently (I have just checked our private SVN). Maybe another change is related with the fonts.

How do you use aFont in your code ? You create it but I don't see where you use it and how, thanks

Maybe i did not explain it correctly in the sample below ACTIVATE DIALOG ODLG CENTERED AFONT:END() // this line not executed ASIZE := {} // this line OK OBRW:GetDisplayColsWidth(@ASIZE) // this line ok Another question , the font is a local variable in my case, why ...

Antonio i need to understand how fonts are released in dialogs :? ex define dialog odlg... define font afont .... redefine button id 01 action ...,odlg:end() // here activate dialog odlg afont:end() // this should release the font it is not, in order to release the font i ...

... AYUDANTE" ; DATA repli("_",26) ; CENTERED; SIZE 23 END REPORT IF oReport:lCreated //Bold para lineas 1,2 del titulo oReport:oTitle:aFont[1] := {|| 2 } oReport:oTitle:aFont[2] := {|| 2 } ENDIF ACTIVATE REPORT oReport ; ON STARTGROUP ( oReport:NewLine() ); ON ENDGROUP ( oReport:nPage:=0, ...

welcome to this forum you have to define the font first and delete the object font afterwards DEFINE FONT AFONT NAME "Tahoma" SIZE 0,-14 // this is a sample @ 200,05 GET xxx VAR yyyy OF www PIXEL SIZE 90,30 COLOR CLR_HBLUE,CLR_WHITE FONT afont You can add a font to ...

... "FileXLS.ch" #include "FiveWin.ch" #include "Report.ch" CLASS TSalPrinterXLS DATA oPrn DATA oXls DATA cFile DATA aFont DATA aFormat DATA nRow METHOD New( ) CONSTRUCTOR METHOD Save() // METHOD StartPage() // METHOD EndPage() METHOD Stabilize() METHOD Say( nCol, ...

... - "+ alltrim(asientos->descasi) FOOTER " "+asientos->conc END REPORT ACTIVATE REPORT oReport ON INIT oReport:oTitle:aFont[1] := { || 3 }; ON STARTPAGE StartPage(oReport) Necesito que en HEADER del GOUP oRptGrp, el alltrim(asientos->descasi) este en el 2° renglon, ...

... ON FILATEMO->FILAMAT ; FOOTER "" ; EJECT ENDIF oReport:nGroupLine := RPT_NOLINE // no imprime linea separadora // oReport:oHeader:aFont[3] := { || 2 } END REPORT ACTIVATE REPORT oReport ; ON STARTPAGE (LinBox(oReport,1.3,1.3,.6,.5), ; Bitmaps(oReport,.3,.3,1,1)) CLOSE FILATEMO ...

... oRep, oBrw, @oPrnFont ) } ) ... static function MySetUp( oRep, oBrw, oFont ) DEFINE FONT oFont NAME 'ARIAL NARROW' SIZE 0,-9 OF oRep:oDevice oRep:aFont[ 1 ] := oFont GROUP ON (oDPrice)->DATA_INI COLUMN DATA (oDPrice)->Voce,(oDPrice)->Fila,' '; TITLE 'Descrizione/fila','','' SIZE 20 COLUMN ...

... SIZE 40 GRID COLUMN TITLE "IMPORTE SOLICITUD" DATA AREP2[I,5] PICTURE "999,999,999.99" TOTAL GRID oReport:oHeader:afont[1]:={||3} oReport:oTITLE:afont[1] :={||4} oReport:oTITLE:afont[2] :={||4} oReport:oFOOTER:afont[1]:={||2} oReport:CELLVIEW() oReport:bWhile := ...

... TITLE "IMPORTE SOLICITUD" DATA AREP2[I,5] PICTURE "999,999,999.99" TOTAL GRID END REPORT IF oReport:lCreated oReport:oHeader:afont[1]:={||3} oReport:oTITLE:afont[1] :={||4} oReport:oTITLE:afont[2] :={||4} oReport:oFOOTER:afont[1]:={||2} oReport:CELLVIEW() ENDI oReport:bWhile ...