FiveTech Software tech support forums

... lIngZer  //**************************************************************** 11/13/2024 21:02:19: e:\ZERUS\zeruswin.exe -- FONT,319425528,TWINDOW:GETFONT(3174)->TWINDOW:NEW(984)->PRINCIPAL_METRO(7276)->PRINCIPAL(1355)->ZERUSMAIN(4533)->MAIN(17) 11/13/2024 21:02:19: e:\ZERUS\zeruswin.exe ...

... => TFONT:MSGNOTFOUND( 0 ) Called from: ../../../tobject.prg => TFONT:_NASCENT( 0 ) Called from: .\source\classes\WINDOW.PRG => TDIALOG:GETFONT( 3096 ) Called from: .\source\classes\DIALOG.PRG => TDIALOG:INITIATE( 860 ) Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( ...

I am attempting to convert many old Clipper 87 printouts to Mod_Harbour. The original programmer utilized the IBM line / box characters found at around chr(179) through chr(218). I cannot figure out how to utilize the Courier New Regular" TTF font in Haru Pdf and produce those characters. Howev...

Hi, Those fonts are not released: -- FONT,-1710615546,TWINDOW:GETFONT(2995)->TWINDOW:NEW(960)->MAIN(657) -- BRUSH,152049635,TRPANEL:REGISTER(779)->TRPANEL:NEW(50)->TRIBBONBAR:NEW(314)->MAIN(664) -- FONT,-1811279512,TRICHEDIT:REDEFINE(403)->ALTASCLIENTE(1527)->->TXBROWSE:LDBLCLICK(5071)->TWINDOW:HANDLEEVENT(0)->TCONTROL:HANDLEEVENT(1801)->TXBROWSE:HANDLEEVENT(11221)->_FWH(3559)->DIALOGBOXINDIRECT(0)->TDIALOG:ACTIVATE(304)->VERCLIENTES(2036)->(b)MAIN(685)->TRBTN:CLICK(717)->TRBTN:LBUTTONUP(917)->TCONTROL:HANDLEEVENT(1791)->TRBTN:HANDLEEVENT(1575)->_FWH(3559)->WINRUN(0)->TWINDOW:ACTIVATE(1097)->MAIN(761) ...

Con Harbour, tienes que enlazar las librerias hbhpdf.lib y libhpdf.lib #include "FiveWin.ch" #include "harupdf.ch" Function Main() Local oPdf,Page,oImage,oFont,Font1,Font2,Font3 oPdf:=HPDF_New() HPDF_SetCompressionMode( oPdf, HPDF_COMP_ALL ) **HPDF_SetPassword( oPdf, 'jaime', 'al...

... launch my program, and then exit , and I get: CheckRes.Txt file... 09/09/17 11:23:08: C:\Datafile\tmsbcc\tmsbcc.exe -- FONT,1846159188,TMDIFRAME:GETFONT(3122)->TMDICLIENT:GETFONT(3099)->TMDICLIENT:NEW(147)->TMDIFRAME:NEW(178)->MAIN(106) 09/09/17 11:23:08: C:\Datafile\tmsbcc\tmsbcc.exe ...

Hello everyone; Using GetFont() and SelFont() you give the user access to change xbrowse's font. Is there a way to save an xbrowse selected font and then restore back to that font next time it opens? I've tried oBrw:savestate() but it ...

When a dialog is created from resource and no font is assigned, the GetFont() method tries to created a font object based on the font-metrics of the font contained in the resource. Theoretically the created font object should be identical to the font defined ...

TXBrowse when created, calls ::GetFont() method for the purpose of assigning itself the same font as the containing window. Calling GetFont() is the standard method for this. GetFont() method is in TWindow class. If the container window ...

Hola Carlos, lo primero gracias por responder. Bueno, al final creo que lo he podido solucionar, buscando por la web he encontrado una fuente de letra que soporta CP850, y funciona bien, por lo menos lo que he ido probando hasta ahora. La fuente se llama aSwItMono850.ttf, con WinAnsiEncoding, y se g...

Hola,

Cuando haces el GetFont() para seleccionar la fuente, que encoding indicas? De todas maneras, creo que el chrset que tiene los caracteres de cajas no esta soportado.

Mira acá
http://libharu.sourceforge.net/fonts.ht ... encodings_

... ) ); } what is changed ? I 'm thinking...is there something of modify on CreateFontIndirect function ? Or also I can resolve with hFont := ::GetFont() // windows class

... 2015.12.17 18:58:41: W:\Project\WinCurtainErp\241\XXX\Exe32\WinCurtainErp.exe -- FONT,1107957030,TMDIFRAME:GETFONT(3122)->TMDICLIENT:GETFONT(3099)->TMDICLIENT:NEW(147)->TMDIFRAME:NEW(178)->TWINCURTAINERP:NEW(537)->MAIN(349) 2015.12.17 18:58:41: ...

Buscando recursos y funetes sin destruir , checkres me devuelve esto :

13-03-2015 17:12:46: FONT,-1442181153,TMDIFRAME:GETFONT(2868)->TMDICLIENT:GETFONT(2845)->TMDICLIENT:NEW(146)->TMDIFRAME:NEW(171)->MAIN(306)

al salir de de mdiclient no se libera la fuente automaticamante ?
Saludos.

Antonio en la version 14.04 la clase btnflat dice esto

if ! Empty( oWnd:hWnd )
::Create()
::SetColor( XEval( ::nClrText ), ::nClrPane )
if ::oFont == nil
::SetFont( ::oFont )
else
::GetFont()
endif

Gracias, la estoy modificando.