FiveTech Software tech support forums

... the font run ok sample : oVmenu:oFonttitle:= oFontsample if I not set the font on object ...the class call a function if ::oFontTitle == nil      hFont := CreaFCapt()      lDestroyFont := .t.   else      hFont := ::oFontTitle:hFont   endif   hOldFont   := SelectObject(  hDC, hFont ...

... use further a public variable to hold the font!? This is the log after 1 call to a dialog: 08.01.2016 21:28:49: EXCESS RELEASE OF FONT Segoe UI[ hFont : 0] ( nCount : 0 ) <-TFONT:END(284) <-TCONTROL:DESTROY(2132) <-TGET:DESTROY(0) <-TWINDOW:HANDLEEVENT(0) <-TCONTROL:HANDLEEVENT(1733) ...

... in menus * Fix FivEdit bug: path for files .obj generate * New: TScintila new data nMnuStyle * Enhancement: Font object can now be created from hFont. Eg: oFont := TFont():New( hFont ) * Enhancement: Usage of TransBmp() simplified. It is not necessary to call SetBkColor(), SetTextColor() etc ...

... como 0 BMP 0 BRUSH 0 BMP 0 BMP 0 BMP 0 BMP 0 BMP 0 BMP 0 BMP 0 BMP 0 FONT 0 BRUSH Y el fichero RESOURCE.TXT 15/11/2015 16:30:14: DeleteObject( ::hFont ) failed from TFont:End() -1173743625 0 .T. 15/11/2015 17:44:17: DeleteObject( ::hFont ) failed from TFont:End() -1693837186 0 .T. Saludos

... a ExtDrawIcon() En concreto: ::aCoors[ nAt ] = ExtDrawIcon( hDC, ::aCoors[ nAt, 1 ], ::aCoors[ nAt, 2 ], ; ::aIcons[ nAt ], ::aPrompts[ nAt ], hFont, ; ::nClrText, ::nClrPane, lFocused, .t., ::lEdit ) Yo probaría a cambiar el color de ::nClrPane Prueba asi: oIconGroup:bGotFocus := { || ::nClrPane ...

... I think the problem is GETFONTHEIGHT, that is defined in fivewin with a parameter as HFont and defined in bpaint.c with 2 parameters: an HDC and an HFont. Locally I renamed the bpaint version as GETFONTHEIGHT2 and replaced all calls. ...

... ) No aparece nada, lo que creo que esta bien. Pero en Miapp.log me sale 09/03/2015 12:02:27: EXCESS RELEASE OF FONT MS SANS SERIF[ hFont : 0] ( nCount : 0 ) <-TFONT:END(246) <-MAIN(322) ------------------------------------------------------------ 09/03/2015 12:02:27: EXCESS ...

... hBrocha Local hPen1 Local hPen2 DEFAULT bFestivos := {|| ARRAY(0) } aFESTIVOS:=EVAL(bFestivos) // Se dibujan los dias. SelectObject( hDC, oFont:hFont) FOR A = 1 TO 42 // Se crea brocha para pintar el fondo del recuadro... hBrocha := CreateSolidBrush ( aClrDias[ A][ 2] ) // se carga la brocha, ...

Hola Cristóbal, Probé efectivamente ::SetFont( oFont ) sin éxito. Sigue diciendo 23/02/2015 14:51:26: EXCESS RELEASE OF FONT Ms Sans Serif[ hFont : 0] ( nCount : 0 ) <-TFONT:END(246) <-MSGDATE(176) <-MAIN(47) ------------------------------------------------------------ Pongo un ejemplo ...

... nAnchoCol, oFontMes, oFont, aColorTitulo,; cMesPalabra, cAno, aDiaSemana) LOCAL aPuntos[4] LOCAL A // Formato letra SelectObject(hDC, oFont:hFont) //Se selecciona el tipo de letra. SetTextColor( hDC, aColorTitulo[5] ) SetBkColor( hDC, aColorTitulo[2] ) // Se dibujan los titulos de los dias. ...

Is this function Ok for cloning Font? Correct. But we should know that we are not creating a totally new object with totally new :hFont. This function actually returns the same object with its internal counter :nCount incremented. Actually, the internal method :Modify() achieves the same ...

En un log del programa aparece esto : 19-01-2015 17:06:08: EXCESS RELEASE OF FONT Verdana[ hFont : 0] ( nCount : 0 ) <-TFONT:END(246) <-TCONTROL:DESTROY(2298) <-TGET:DESTROY(766) <-TWINDOW:HANDLEEVENT(0) <-TCONTROL:HANDLEEVENT(1733) <-TGET:HANDLEEVENT(575) ...

... secs    Error occurred at: 12/05/14, 10:08:25   Error description: Error BASE/1004  Class: 'NIL' has no exported method: HFONT   Args:     [   1] = U   Stack Calls===========   Called from:  => HFONT( 0 )  ...

... hDC ) local nColor local nLeft := 10 local cTexto := "En un lugar de la mancha de cuyo nombre no quiero acordarme" local oFont local hFont local nLen := len( cTexto ) local cLetra, n DEFINE FONT oFont NAME "Segoe UI Light" SIZE 0, -18 hFont := SelectObject( hDC, oFont:hFont ...

Antonio, Enrico, Please look for hOldFont in Class TBtnBmp where it is assigned and change it this way: hOldFont = SelectObject( ::hDC, ::oFont:hFont ) That solves it :-) I found two occurrences: hOldFont = SelectObject( ::hDC, If( ::lBarBtn, If( ::oWnd:oFont != nil, ::oWnd:oFont:hFont, ...