FiveTech Software tech support forums

... DBFNTX DataBases in use ================ Classes in use: =============== 1 ERROR 2 HASHENTRY 3 HBCLASS 4 HBOBJECT 5 TWINDOW 6 TDIALOG 7 TBRUSH 8 TFONT 9 TREG32 10 TRECT 11 TINTERNET 12 TSTRUCT Memory Analysis =============== 717 Static variables Dynamic memory consume: Actual Value: 0 bytes Highest ...

... 9, nLeft := 9, nBottom := 27, nRight := 71.5, ; cTitle := "RichEdit5" * DEFINE FONT oFont NAME "Arial" SIZE 0, - 14 oFont := TFont():New( 'Arial', 0, -15 , .f.,.f., 0*10,,,,,,,,,, ) DEFINE DIALOG oDlg FROM nTop, nLeft TO nBottom, nRight ; TITLE cTitle FONT oFont oDlg:lTruePixel ...

... by the browse object oRep:aFont[ 1 ] is Tahoma size 0,-8 oRep:aFont[ 2 ] is Tahoma size 0,-8 bold I need to have another font I made oFontCopy := TFont():New("TAHOMA",0,-108,.F.,,180,,,,,,,,,,oRep:oDevice) //to print a text nscapment aadd(oRep:aFont, oFontCopy) then oRep:bStartPage := ...

Dear Hakan, Please modify Class TFont line 243 this way: ::cFaceName = aInfo[ 4 ] and try it again many thanks I deleted the line I added and the error after making the change you mentioned Application===========   Path and name: C:\PrgW\Icra\IcraW.exe ...

Dear Hakan,

Please modify Class TFont line 243 this way:

::cFaceName = aInfo[ 4 ]

and try it again

many thanks

Hi Antonio,

I think some additions have started to be made to the TFont class, but I think some data variables have not been written. When I added the following line to TFont.prg, the problem disappeared.

Code: Select all  Expand view

     DATA   cName, nAscent, nDescent, nInternalLeading, nExternalLeading
 

... RecNo RecCount BOF EOF 1 1 .F. .F. Indexes in use TagName Relations in use Classes in use: =============== 1 ERROR 2 HBCLASS 3 HBOBJECT 4 TFONT 5 WIN_OLEAUTO 6 TOLEAUTO 7 TWINDOW 8 TDIALOG 9 TBRUSH 10 TCONTROL 11 TICON 12 TMULTIGET 13 TBUTTON 14 TRECT 15 TSAY 16 TGET 17 GET 18 TCLIPGET ...

... RecNo RecCount BOF EOF 1 1 .F. .F. Indexes in use TagName Relations in use Classes in use: =============== 1 ERROR 2 HBCLASS 3 HBOBJECT 4 TFONT 5 WIN_OLEAUTO 6 TOLEAUTO 7 TWINDOW 8 TDIALOG 9 TBRUSH 10 TCONTROL 11 TICON 12 TMULTIGET 13 TBUTTON 14 TRECT 15 TSAY 16 TGET 17 GET 18 TCLIPGET ...

Dear Uwe,

static hFonts := {=>}

hFont[ "SAY" ] = TFONT() :NEW( "Segoe UI", 0, -12 , .F., .T. )
hFont[ "GET" ] = TFONT() :NEW( "Segoe UI", 0, -12 , .F., .T. )
...

... FONT hFont[ "SAY" ]

Public Array FONTARR [ 01 ] := TFONT() :NEW( "Segoe UI", 0, -12 , .F., .T. ) // Say Font FONTARR [ 02 ] := TFONT() :NEW( "Segoe UI", 0, -12 , .F., .T. ) // Get Font FONTARR [ 03 ] := TFONT() :NEW( "Segoe UI", ...

... TXBROWSE Local 2: U Local 3: U Local 4: U Local 5: U (b)LABARRA Param 1: O Class: TMDIFRAME Local 1: O Class: TDIALOG Local 2: U Local 3: O Class: TFONT TBTNBMP:CLICK Param 1: O Class: TBTNBMP TBTNBMP:LBUTTONUP TCONTROL:HANDLEEVENT Param 1: N 26 Param 2: N 27 Param 3: N 0 Local 1: L .T. Local 2: ...

... 21:03:46: MAIN( 624 ) "Start" = "Start" 14.05.2023 21:04:29: EXCESS RELEASE OF FONT TAHOMA[ hFont : 0] ( nCount : 0 ) <-TFONT:END(303) <-TCONTROL:DESTROY(2318) <-TBTNBMP:DESTROY(1111) <-TWINDOW:HANDLEEVENT(0) <-TCONTROL:HANDLEEVENT(1857) <-TBTNBMP:HANDLEEVENT(2135) ...

... 21:03:46: MAIN( 624 ) "Start" = "Start" 14.05.2023 21:04:29: EXCESS RELEASE OF FONT TAHOMA[ hFont : 0] ( nCount : 0 ) <-TFONT:END(303) <-TCONTROL:DESTROY(2318) <-TBTNBMP:DESTROY(1111) <-TWINDOW:HANDLEEVENT(0) <-TCONTROL:HANDLEEVENT(1857) <-TBTNBMP:HANDLEEVENT(2135) ...

... 4: U Local 5: U Local 6: L .T. Local 7: U Local 8: U Local 9: U Local 10: L .F. Local 11: U Local 12: U Local 13: U Local 14: U Local 15: O Class: TFONT Local 16: O Class: TFONT Local 17: U Local 18: U Local 19: N 1020.00 Local 20: N 384.00 Local 21: U Local 22: U Local 23: U Local 24: U Local ...

Many thanks Mr. Rao, this works fine now. But i still have an issue when using either PRINT oPrn NAME "Testprint PREVIEW" or PRINT oPrn NAME "Testprint" PREVIEW FILE cPdfFile I want to print a jpg logo amongst text and the vertical position of this logo is different in those two ...