FiveTech Software tech support forums

... 6.2, Build 9200 Time from start: 0 hours 0 mins 4 secs Error occurred at: 09/05/24, 22:53:41 Error description: Error BASE/1005 Message not found: TFONT:_NASCENT Args: [ 1] = O TFONT Stack Calls =========== Called from: ../../../tobject.prg => __ERRRT_SBASE( 0 ) Called from: ../../../tobject.prg ...

... ENDIF DEFINE DIALOG oDlg FROM aDim[ 1 ], aDim[ 2 ] TO aDim[ 3 ], aDim[ 4 ] ; STYLE nOR( WS_VISIBLE, WS_POPUP ) PIXEL IF oBrw:oFont != nil oFont := TFont():New( oBrw:oFont:cFaceName, oBrw:oFont:nWidth,; oBrw:oFont:nHeight, .F., oBrw:oFont:lBold ) Endif @0,0 GET oGet VAR uVar ; SIZE aDim[ 4 ] - aDim[ ...

... "Orders"  MOSTLEFT round ;      action ( Folder_Orders(oWnd) )  Thank you for the answer, the problem is: oRBar:SetFont( TFont():New( cFont, 0, - ( nFontSize - 3 ) ) ) oRBar:nHeightFld := 25 After changing the font size of the tabs, their size does not increase by itself, ...

... 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  RUN

     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) ...