topic-30339

Posts: 555

Joined: Wed Jul 31, 2013 01:14 PM

Es correcto ? ChekRes o soy yo?
Posted: Mon Mar 09, 2015 03:07 PM

Hola amigos:
Si uso
FErase( "chekres.txt" )
CheckRes()
WinExec( "notepad checkres.txt" )
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 RELEASE OF FONT MS SANS SERIF[ hFont : 0] ( nCount : 0 )
<-TFONT:END(246) <-MAIN(323)
------------------------------------------------------------
09/03/2015 12:02:27: EXCESS RELEASE OF FONT MS SANS SERIF[ hFont : 0] ( nCount : 0 )
<-TFONT:END(246) <-MAIN(324)
------------------------------------------------------------
09/03/2015 12:02:27: EXCESS RELEASE OF FONT HELVETICA[ hFont : 0] ( nCount : 0 )
<-TFONT:END(246) <-MAIN(325)
------------------------------------------------------------

Si saco los oFont-la que sea:End()

me aparece en el chekres().

Que hago mal, o esta todo bien?

Muchas gracias.

Saludos

Ruben Dario Fernandez

Dario Fernandez

FWH 2501, Harbour, MVS2022 Community, MySql & MariaDB, Dbf/Cdx VSCode.

Maldonado - Uruguay

karinha

Posts: 8523

Joined: Tue Dec 20, 2005 07:36 PM

Re: Es correcto ? ChekRes o soy yo?
Posted: Mon Mar 09, 2015 03:40 PM

Code (fw): Select all Collapse

#include "FiveWin.ch"
#include "FGet.ch"

Static oWnd, oBrowse

FUNCTION Main()

     Local oFont, oBar
     Local cFileName := "CheckRes.txt"

     SetResDebug( .t. )

     USE MAPDEMO NEW SHARED READONLY

     DEFINE FONT oFont NAME /* "tahoma" */ GetSysFont() SIZE 0, -12

     DEFINE WINDOW oWnd FROM 0, 0 TO 24, 78   ;
          TITLE "FiveMap DEMO"

     oWnd:SetFont( oFont )

     DEFINE BUTTONBAR oBar _3D SIZE 33, 33 OF oWnd

     DEFINE BUTTON RESOURCE "EXIT" OF oBar ACTION oWnd:End() ;
          TOOLTIP "Exit" NOBORDER

     @ 0, 0 LISTBOX oBrowse               ;
          FIELDS Strzero(Mapdemo->Level,2) ,;
                 Mapdemo->Prg            ,;
                 Mapdemo->Descrip        ,;
                 ""                       ;
          HEADERS "Level"                ,;
                  "Source File"          ,;
                  "Description"          ,;
                  ""                      ;
          FIELDSIZES 45,110,700,1         ;
          OF oWnd

     WndCenter( oWnd:hWnd )

     oWnd:oClient := oBrowse

     ACTIVATE WINDOW oWnd

     CLOSE ALL

     oFont:End()

     CheckRes()

     WinExec( "notepad" + " " + cFileName )

RETURN (NIL)

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

D.Fernandez

Posts: 555

Joined: Wed Jul 31, 2013 01:14 PM

Re: Es correcto ? ChekRes o soy yo?
Posted: Mon Mar 09, 2015 04:30 PM

Hola Joao, asi lo uso, pero me dan resultados diferentes y
queria saber si estaba bien?

Saludos y gracias.

Ruben Dario Fernandez.

Dario Fernandez

FWH 2501, Harbour, MVS2022 Community, MySql & MariaDB, Dbf/Cdx VSCode.

Maldonado - Uruguay

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Re: Es correcto ? ChekRes o soy yo?
Posted: Mon Mar 09, 2015 08:40 PM

Ruben,

Lo que te dice es que se ha intentado destruir un font más veces de las necesarias.

Es decir, no pierdes recursos, pero se esta haciendo una llamada extra a oFont:End()

regards, saludos

Antonio Linares
www.fivetechsoft.com

D.Fernandez

Posts: 555

Joined: Wed Jul 31, 2013 01:14 PM

Re: Es correcto ? ChekRes o soy yo?
Posted: Tue Mar 10, 2015 12:17 PM

Gracias Antonio.

Saludos

Ruben Dario Fernandez

Dario Fernandez

FWH 2501, Harbour, MVS2022 Community, MySql & MariaDB, Dbf/Cdx VSCode.

Maldonado - Uruguay

FiveTech Support Forums

Continue the discussion