FiveTech Software tech support forums

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

... {OBRUSH, {{HBRUSH, 9437200}, {HBITMAP, 0}, {HBMPORGL, 0}, {NCOUNT, 6}, {NRGBCOLOR, 16777215}, {LSYSTEM, .T.}, {USOURCE, CLR_WHITE}}}, {OFONT, {{CFACENAME, TAHOMA}, {HFONT, 1242174205}, {HFONTOLD, 0}, {LBOLD, .F.}, {LITALIC, .F.}, {LUNDERLINE, .F.}, {LSTRIKEOUT, .F.}, {NINPHEIGHT, -20}, {NINPWIDTH, ...

... start: 0 hours 0 mins 26 secs Error occurred at: 25.07.2019, 10:06:16 Error description: Error BASE/1004 Class: 'ARRAY' has no exported method: CFACENAME Args: [ 1] = A { ... } length: 14 Stack Calls =========== Called from: => CFACENAME( 0 ) Called from: .\source\classes\FONT.PRG => FONTTOTEXT( ...

... "get" no se limpia cuando el "get" toma el foco por segunda vez y en adelante. Corregido. * TGRAPH: - New DATAs: DATA cFont // cFaceName Font Base DATA nHFont // nHeight Font DATA nPorcY INIT 4600 // For Print Image aspect DATA nPorcX INIT 4000 // For Print Image aspect - Modificado: ...

... * TGET: When using picture clause @K, get is not cleared when the get gets focus second time onwards. Fixed. * TGRAPH: - New DATAs: DATA cFont // cFaceName Font Base DATA nHFont // nHeight Font DATA nPorcY INIT 4600 // For Print Image aspect DATA nPorcX INIT 4000 // For Print Image aspect - Modified: ...

TFont():New( cFaceName, nWidth, nHeight, lFromUser, lBold,; nEscapement, nOrientation, nWeight, lItalic, lUnderline,; lStrikeOut, nCharSet, nOutPrecision, nClipPrecision,; nQuality, oDevice, nPitchFamily ) creates a font with exactly ...

WITH OBJECT oFont2: = TFont (): New () : cFaceName: = "Calibrí" : nWidth: = 0 : nHeight: = -12 END   This approach does not work. TFont():New() method should get all the parameters. Then only the New() method can create ...

... me vaya bien y me agrade mas. Por cierto oFont2 := TFont():New( "Calibrí", 0, -12,,,,,,,,,,,,,, ) WITH OBJECT oFont2 := TFont():New() :cFaceName := "Calibrí" :nWidth := 0 :nHeight := -12 END deberian de dar el mismo resultado final!!! Pues no, el segundo muestra en negrita. ...

... o falta de saber el como en lugar de DEFINE FONT oFont2 NAME 'Calibrí' SIZE 6, -13 puedo hacer WITH OBJECT oFont2 := TFont:New() :cFaceName := "Calibrí" :nSize := 12 END al compilar, me lanza el error Error description: Error BASE/1003 Variable does not exist: TFONT Supongo ...

Yes you are right. It appears that the characters are shown correctly. Can you double click on xbrowse please. I want to see the oFont:cFaceName. If it is Segoe UI, I will check my windows settings. Temporarily I have solved my problem by changing GetSysFont() in getsysin.prg Thanks for your ...

Yes you are right. It appears that the characters are shown correctly.
Can you double click on xbrowse please. I want to see the oFont:cFaceName.
If it is Segoe UI, I will check my windows settings.
Temporarily I have solved my problem by changing GetSysFont() in getsysin.prg
Thanks for your help.

... oFont:lItalic, oFont:nHeight ) que fácilmente podrías modificar para crear otra con las mismas características que la actual pero con otro cFaceName, añadiendo un parámetro más Otra posibilidad, es hacer después ( que no he probado ), para intentar seguir usando el mismo oFont oFont:hFont ...

... being used. lDestroy becomes true to know when the font has to be destroyed finally. You can check the used font doing this: MsgInfo( oWnd:oFont:cFaceName ) the same works for dialogs and controls too

Frank,

Try this:

DEFINE DIALOG oDlg RESOURCE ...

ACTIVATE DIALOG oDlg ON INIT ( MsgInfo( oDlg:oFont:cFaceName, oDlg:oFont:nSize ), oDlg:End() )