FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Aplicaci贸n se "congela"
AngelSalom
Posts: 728
Joined: Fri Oct 07, 2005 07:38 AM
Aplicaci贸n se "congela"
Posted: Wed Jul 06, 2016 08:45 AM
Buenos d铆as amigos, en mi aplicaci贸n de Gesti贸n me encuentro que en algunos clientes y desde hace un par de meses, varias a veces al d铆a el software se "congela" literalmente sin ni siquiera mostrar el contenido de los di谩logos. El sistema operativo sigue funcionando sin problemas, pero hay que finalizar la tarea de mi aplicaci贸n y volver a iniciarla. Son usuarios que est谩n todo el d铆a con la aplicaci贸n y la molestia es evidente.

驴Alguien ha tenido alguna experiencia similar?
Lo cierto es que no se por d贸nde empezar a comprobar.

Muestra de un cuelgue :



Como se puede observar no se muestra si quiera el men煤 superior ...

Gracias,
Angel Salom
Visionwin Software - https://www.visionwin.com
------------------------------------------------------------
fwh 19.05 - harbour 3.2 - bcc 7.4
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Aplicaci贸n se "congela"
Posted: Wed Jul 06, 2016 09:04 AM
Es la t铆pica situaci贸n de consume excesivo de recursos GDI (brushes, fonts, bitmaps, etc.)

Esto sucede porque estas usando elementos GDI que no se liberan adecuadamente

Usa estas funciones en tu aplicaci贸n para comprobar el consumo de recursos:
http://wiki.fivetechsoft.com/doku.php?id=fivewin_function_checkres
regards, saludos

Antonio Linares
www.fivetechsoft.com
AngelSalom
Posts: 728
Joined: Fri Oct 07, 2005 07:38 AM
Re: Aplicaci贸n se "congela"
Posted: Wed Jul 06, 2016 09:21 AM

Gracias Antonio, estuve probando esta funci贸n pero incluso "forzando" a dejarme alg煤n recurso (un FONT, por ejemplo) en checkres.txt no se me registra nada. Previamente incluyo el SetResDebug (.T.) , 驴puede ser por mi versi贸n de fwh 12.04 ?

Angel Salom
Visionwin Software - https://www.visionwin.com
------------------------------------------------------------
fwh 19.05 - harbour 3.2 - bcc 7.4
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Aplicaci贸n se "congela"
Posted: Wed Jul 06, 2016 09:55 AM

Cuando la aplicaci贸n se cuelgue, en el administrador de tareas puedes ver que consumo esta teniendo.

Revisa los valores que se muestran (ahi aparecen los handles GDI) y copia la imagen aqui

Estar铆a bien probar con la versi贸n m谩s reciente de FWH y ver si tambien ocurre

regards, saludos

Antonio Linares
www.fivetechsoft.com
hmpaquito
Posts: 1515
Joined: Thu Oct 30, 2008 02:37 PM
Re: Aplicaci贸n se "congela"
Posted: Wed Jul 06, 2016 10:16 AM

Hola 脕ngel,

Alguna vez he visto esas pantallas pero en fase de desarrollo... no recuerdo ahora mismo como se producian...
Me han pasado errores raros, que no s茅 si est谩n relacionados, como que el self (::) en la clase TGet tome como tipo Numeric (raro donde lo haya).

De entrada te diria que:
1) Revisaras los timers que tengas... puede ser que alguno se active y entre en un bucle infinito y la pantalla de "cuelgue" porque el bucle de eventos no atienda al pintado de los recursos...
2) Comprueba la cantidad de memoria que tienen tus usuarios y cuanta tienen disponible.
3) Intenta delimitar si el problema se produce tambien al poco de empezar a trabajar o s贸lo cuando ya llevan tiempo.

De todas formas dale al hilo y a ver si vamos afinando los motivos.

Saludos

AngelSalom
Posts: 728
Joined: Fri Oct 07, 2005 07:38 AM
Re: Aplicaci贸n se "congela"
Posted: Wed Jul 06, 2016 10:25 AM

Gracias Antonio y hmPaquito. Ahora mismo mi prioridad est谩 en intentar hacer funcionar CheckRes() en mi aplicaci贸n ya que no logro que haga nada. Estoy probando alg煤n ejemplo de la carpeta samples (por ejemplo bug.prg) y s铆 que muestra los recursos colgados. Estoy probando en cualquiera de mis dos aplicaciones (gesti贸n y contabilidad) forzando dejar colgado alg煤n objeto FONT pero no lo refleja en checkres.txt ... , incluso creando un peque帽o m贸dulo y llam谩ndolo desde la aplicaci贸n tampoco refleja el detalle . Me queda comprobar las librer铆as que incluyo por si alguna pudiera interferir en el funcionamiento de checkres.

Comprobando el consumo por el administrador de tareas resulta evidente que, aunque muy poco, el consumo de memoria va creciendo a medida que se trabaja. En usuarios que hacen un uso intensivo de la aplicaci贸n pienso que acabar谩 saturando.

Angel Salom
Visionwin Software - https://www.visionwin.com
------------------------------------------------------------
fwh 19.05 - harbour 3.2 - bcc 7.4
hmpaquito
Posts: 1515
Joined: Thu Oct 30, 2008 02:37 PM
Re: Aplicaci贸n se "congela"
Posted: Wed Jul 06, 2016 10:28 AM

Y

4) El antivirus, que de repente todo empiece a ir mal, puede ser cosa del antivirus, cada vez m谩s invasivos. A ver si algun usuario con m谩s experiencia y al que le haya aparecido el error puede trabajar siquiera cuatro horas con el antivirus desconectado y a ver qu茅 pasa.

hmpaquito
Posts: 1515
Joined: Thu Oct 30, 2008 02:37 PM
Re: Aplicaci贸n se "congela"
Posted: Wed Jul 06, 2016 10:32 AM
脕ngel,

Comprueba PRIMERO en el admor. de tareas que los recursos GDI son disparatados. S贸lo as铆 yo me meteria a comprobar el checkres. 驴 C贸mo comprobar que son disparatados ? Pues comparalo con otra aplicacion que si vaya bien.

Hasta donde yo recuerdo Windows se agostar谩 de recursos cuando llegue a 10.000, que son los que permite que tenga una aplicacion.

Salu2
AngelSalom
Posts: 728
Joined: Fri Oct 07, 2005 07:38 AM
Re: Aplicaci贸n se "congela"
Posted: Wed Jul 06, 2016 11:05 AM

驴C贸mo veo el uso de GDI en Windows 10?

Angel Salom
Visionwin Software - https://www.visionwin.com
------------------------------------------------------------
fwh 19.05 - harbour 3.2 - bcc 7.4
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Aplicaci贸n se "congela"
Posted: Wed Jul 06, 2016 11:27 AM

Angel, no te crea ning煤n fichero hb_out.log?
Has cambiado 煤ltimamente algo en la aplicaci贸n?
Est谩s usando alguna librer铆a de terceros?

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Aplicaci贸n se "congela"
Posted: Wed Jul 06, 2016 12:45 PM
Angel,

Aqui tienes explicado como ver el consumo de objetos GDI:

http://www.tenforums.com/general-support/3077-memory-leak-icons-preview-disapear-ghost-ram-usage.html
regards, saludos

Antonio Linares
www.fivetechsoft.com
AngelSalom
Posts: 728
Joined: Fri Oct 07, 2005 07:38 AM
Re: Aplicaci贸n se "congela"
Posted: Wed Jul 06, 2016 12:49 PM
Bueno, consegu铆 hacer funcionar el Checkres(). Cosa curiosa, tengo una l铆nea de c贸digo:

Code (fw): Select all Collapse
Set Default To (cDirTrabajo)


Si la elimino CheckRes funciona perfectamente (de hecho si ejecuto checkres() justo antes de esa l铆nea funciona bien ... ), curioso.
Bueno, a lo que iba. Hace unos meses empec茅 a sustituir los botones (BUTTON) por Ribbon (Trbtn), y al observar el primer resultado del checkres me ha saltado la liebre. El acceso a una 煤nica ficha ha arrojado este resultado :

Code (fw): Select all Collapse
06/07/2016 14:41:54: BRUSH,269487392,(b)TRBTN(102)->TRBTN:DISPLAY(0)->TCONTROL:HANDLEEVENT(1666)->TRBTN:HANDLEEVENT(1520)->_FWH(3153)->DIALOGBOX(0)->TDIALOG:ACTIVATE(270)->ENVIODEERRORENTRANDOALPROGRAMA(184)->ENTRADA(519)->MAIN(103)
聽 聽 
06/07/2016 14:41:54: BRUSH,235932981,(b)TRBTN(102)->TRBTN:DISPLAY(0)->TCONTROL:HANDLEEVENT(1666)->TRBTN:HANDLEEVENT(1520)->_FWH(3153)->DIALOGBOX(0)->TDIALOG:ACTIVATE(270)->ASI_FICHA(362)->(b)ASIENTOS(112)->FICHEDITA(1154)->(b)EDITAFICHA(168)->(b)KEYFICHA(902)->(b)MSGRUN(36)->(b)TDIALOG(87)->TDIALOG:DISPLAY(0)->TDIALOG:HANDLEEVENT(880)->DIALOGBOXINDIRECT(0)->TDIALOG:ACTIVATE(270)->MSGRUN(42)->KEYFICHA(902)->(b)BROWSEFICHA(708)->TWINDOW:KEYDOWN(2610)->TCONTROL:KEYDOWN(1019)->TXBROWSE:KEYDOWN(2213)->TWINDOW:HANDLEEVENT(0)->TCONTROL:HANDLEEVENT(1700)->TXBROWSE:HANDLEEVENT(11666)->_FWH(3153)->WINRUN(0)->TMDIFRAME:ACTIVATE(980)->ENTRADA(536)->MAIN(103)
聽 聽 
06/07/2016 14:41:54: BRUSH,202377857,(b)TRBTN(102)->TRBTN:DISPLAY(0)->TCONTROL:HANDLEEVENT(1666)->TRBTN:HANDLEEVENT(1520)->_FWH(3153)->DIALOGBOX(0)->TDIALOG:ACTIVATE(270)->ASI_FICHA(362)->(b)ASIENTOS(112)->FICHEDITA(1154)->(b)EDITAFICHA(168)->(b)KEYFICHA(902)->(b)MSGRUN(36)->(b)TDIALOG(87)->TDIALOG:DISPLAY(0)->TDIALOG:HANDLEEVENT(880)->DIALOGBOXINDIRECT(0)->TDIALOG:ACTIVATE(270)->MSGRUN(42)->KEYFICHA(902)->(b)BROWSEFICHA(708)->TWINDOW:KEYDOWN(2610)->TCONTROL:KEYDOWN(1019)->TXBROWSE:KEYDOWN(2213)->TWINDOW:HANDLEEVENT(0)->TCONTROL:HANDLEEVENT(1700)->TXBROWSE:HANDLEEVENT(11666)->_FWH(3153)->WINRUN(0)->TMDIFRAME:ACTIVATE(980)->ENTRADA(536)->MAIN(103)
聽 聽 
06/07/2016 14:41:54: BRUSH,1913653851,(b)TRBTN(102)->TRBTN:DISPLAY(0)->TCONTROL:HANDLEEVENT(1666)->TRBTN:HANDLEEVENT(1520)->_FWH(3153)->DIALOGBOX(0)->TDIALOG:ACTIVATE(270)->ASI_FICHA(362)->(b)ASIENTOS(112)->FICHEDITA(1154)->(b)EDITAFICHA(168)->(b)KEYFICHA(902)->(b)MSGRUN(36)->(b)TDIALOG(87)->TDIALOG:DISPLAY(0)->TDIALOG:HANDLEEVENT(880)->DIALOGBOXINDIRECT(0)->TDIALOG:ACTIVATE(270)->MSGRUN(42)->KEYFICHA(902)->(b)BROWSEFICHA(708)->TWINDOW:KEYDOWN(2610)->TCONTROL:KEYDOWN(1019)->TXBROWSE:KEYDOWN(2213)->TWINDOW:HANDLEEVENT(0)->TCONTROL:HANDLEEVENT(1700)->TXBROWSE:HANDLEEVENT(11666)->_FWH(3153)->WINRUN(0)->TMDIFRAME:ACTIVATE(980)->ENTRADA(536)->MAIN(103)
聽 聽 
06/07/2016 14:41:54: BRUSH,-1139799473,(b)TRBTN(102)->TRBTN:DISPLAY(0)->TCONTROL:HANDLEEVENT(1666)->TRBTN:HANDLEEVENT(1520)->_FWH(3153)->DIALOGBOX(0)->TDIALOG:ACTIVATE(270)->ASI_FICHA(362)->(b)ASIENTOS(112)->FICHEDITA(1154)->(b)EDITAFICHA(168)->(b)KEYFICHA(902)->(b)MSGRUN(36)->(b)TDIALOG(87)->TDIALOG:DISPLAY(0)->TDIALOG:HANDLEEVENT(880)->DIALOGBOXINDIRECT(0)->TDIALOG:ACTIVATE(270)->MSGRUN(42)->KEYFICHA(902)->(b)BROWSEFICHA(708)->TWINDOW:KEYDOWN(2610)->TCONTROL:KEYDOWN(1019)->TXBROWSE:KEYDOWN(2213)->TWINDOW:HANDLEEVENT(0)->TCONTROL:HANDLEEVENT(1700)->TXBROWSE:HANDLEEVENT(11666)->_FWH(3153)->WINRUN(0)->TMDIFRAME:ACTIVATE(980)->ENTRADA(536)->MAIN(103)
聽 聽 
06/07/2016 14:41:54: BRUSH,-753923516,(b)TRBTN(102)->TRBTN:DISPLAY(0)->TCONTROL:HANDLEEVENT(1666)->TRBTN:HANDLEEVENT(1520)->_FWH(3153)->DIALOGBOX(0)->TDIALOG:ACTIVATE(270)->ASI_FICHA(362)->(b)ASIENTOS(112)->FICHEDITA(1154)->(b)EDITAFICHA(168)->(b)KEYFICHA(902)->(b)MSGRUN(36)->(b)TDIALOG(87)->TDIALOG:DISPLAY(0)->TDIALOG:HANDLEEVENT(880)->DIALOGBOXINDIRECT(0)->TDIALOG:ACTIVATE(270)->MSGRUN(42)->KEYFICHA(902)->(b)BROWSEFICHA(708)->TWINDOW:KEYDOWN(2610)->TCONTROL:KEYDOWN(1019)->TXBROWSE:KEYDOWN(2213)->TWINDOW:HANDLEEVENT(0)->TCONTROL:HANDLEEVENT(1700)->TXBROWSE:HANDLEEVENT(11666)->_FWH(3153)->WINRUN(0)->TMDIFRAME:ACTIVATE(980)->ENTRADA(536)->MAIN(103)
聽 聽 
06/07/2016 14:41:54: BRUSH,1997539906,(b)TRBTN(102)->TRBTN:DISPLAY(0)->TCONTROL:HANDLEEVENT(1666)->TRBTN:HANDLEEVENT(1520)->_FWH(3153)->DIALOGBOX(0)->TDIALOG:ACTIVATE(270)->ASI_FICHA(362)->(b)ASIENTOS(112)->FICHEDITA(1154)->(b)EDITAFICHA(168)->(b)KEYFICHA(902)->(b)MSGRUN(36)->(b)TDIALOG(87)->TDIALOG:DISPLAY(0)->TDIALOG:HANDLEEVENT(880)->DIALOGBOXINDIRECT(0)->TDIALOG:ACTIVATE(270)->MSGRUN(42)->KEYFICHA(902)->(b)BROWSEFICHA(708)->TWINDOW:KEYDOWN(2610)->TCONTROL:KEYDOWN(1019)->TXBROWSE:KEYDOWN(2213)->TWINDOW:HANDLEEVENT(0)->TCONTROL:HANDLEEVENT(1700)->TXBROWSE:HANDLEEVENT(11666)->_FWH(3153)->WINRUN(0)->TMDIFRAME:ACTIVATE(980)->ENTRADA(536)->MAIN(103)
聽 聽 
06/07/2016 14:41:54: BRUSH,1051176,(b)TRBTN(102)->TRBTN:DISPLAY(0)->TCONTROL:HANDLEEVENT(1666)->TRBTN:HANDLEEVENT(1520)->_FWH(3153)->DIALOGBOX(0)->TDIALOG:ACTIVATE(270)->ASI_FICHA(362)->(b)ASIENTOS(112)->FICHEDITA(1154)->(b)EDITAFICHA(168)->(b)KEYFICHA(902)->(b)MSGRUN(36)->(b)TDIALOG(87)->TDIALOG:DISPLAY(0)->TDIALOG:HANDLEEVENT(880)->DIALOGBOXINDIRECT(0)->TDIALOG:ACTIVATE(270)->MSGRUN(42)->KEYFICHA(902)->(b)BROWSEFICHA(708)->TWINDOW:KEYDOWN(2610)->TCONTROL:KEYDOWN(1019)->TXBROWSE:KEYDOWN(2213)->TWINDOW:HANDLEEVENT(0)->TCONTROL:HANDLEEVENT(1700)->TXBROWSE:HANDLEEVENT(11666)->_FWH(3153)->WINRUN(0)->TMDIFRAME:ACTIVATE(980)->ENTRADA(536)->MAIN(103)
聽 聽 
06/07/2016 14:41:54: BRUSH,-1827665397,(b)TRBTN(102)->TRBTN:DISPLAY(0)->TCONTROL:HANDLEEVENT(1666)->TRBTN:HANDLEEVENT(1520)->_FWH(3153)->DIALOGBOX(0)->TDIALOG:ACTIVATE(270)->ASI_FICHA(362)->(b)ASIENTOS(112)->FICHEDITA(1154)->(b)EDITAFICHA(168)->(b)KEYFICHA(902)->(b)MSGRUN(36)->(b)TDIALOG(87)->TDIALOG:DISPLAY(0)->TDIALOG:HANDLEEVENT(880)->DIALOGBOXINDIRECT(0)->TDIALOG:ACTIVATE(270)->MSGRUN(42)->KEYFICHA(902)->(b)BROWSEFICHA(708)->TWINDOW:KEYDOWN(2610)->TCONTROL:KEYDOWN(1019)->TXBROWSE:KEYDOWN(2213)->TWINDOW:HANDLEEVENT(0)->TCONTROL:HANDLEEVENT(1700)->TXBROWSE:HANDLEEVENT(11666)->_FWH(3153)->WINRUN(0)->TMDIFRAME:ACTIVATE(980)->ENTRADA(536)->MAIN(103)
聽 聽 
06/07/2016 14:41:54: BRUSH,1544555009,(b)TRBTN(102)->TRBTN:DISPLAY(0)->TCONTROL:HANDLEEVENT(1666)->TRBTN:HANDLEEVENT(1520)->_FWH(3153)->DIALOGBOX(0)->TDIALOG:ACTIVATE(270)->ASI_FICHA(362)->(b)ASIENTOS(112)->FICHEDITA(1154)->(b)EDITAFICHA(168)->(b)KEYFICHA(902)->(b)MSGRUN(36)->(b)TDIALOG(87)->TDIALOG:DISPLAY(0)->TDIALOG:HANDLEEVENT(880)->DIALOGBOXINDIRECT(0)->TDIALOG:ACTIVATE(270)->MSGRUN(42)->KEYFICHA(902)->(b)BROWSEFICHA(708)->TWINDOW:KEYDOWN(2610)->TCONTROL:KEYDOWN(1019)->TXBROWSE:KEYDOWN(2213)->TWINDOW:HANDLEEVENT(0)->TCONTROL:HANDLEEVENT(1700)->TXBROWSE:HANDLEEVENT(11666)->_FWH(3153)->WINRUN(0)->TMDIFRAME:ACTIVATE(980)->ENTRADA(536)->MAIN(103)
聽 聽 
06/07/2016 14:41:54: BRUSH,1309673983,(b)TRBTN(102)->TRBTN:DISPLAY(0)->TCONTROL:HANDLEEVENT(1666)->TRBTN:HANDLEEVENT(1520)->_FWH(3153)->DIALOGBOX(0)->TDIALOG:ACTIVATE(270)->ASI_FICHA(362)->(b)ASIENTOS(112)->FICHEDITA(1154)->(b)EDITAFICHA(168)->(b)KEYFICHA(902)->(b)MSGRUN(36)->(b)TDIALOG(87)->TDIALOG:DISPLAY(0)->TDIALOG:HANDLEEVENT(880)->DIALOGBOXINDIRECT(0)->TDIALOG:ACTIVATE(270)->MSGRUN(42)->KEYFICHA(902)->(b)BROWSEFICHA(708)->TWINDOW:KEYDOWN(2610)->TCONTROL:KEYDOWN(1019)->TXBROWSE:KEYDOWN(2213)->TWINDOW:HANDLEEVENT(0)->TCONTROL:HANDLEEVENT(1700)->TXBROWSE:HANDLEEVENT(11666)->_FWH(3153)->WINRUN(0)->TMDIFRAME:ACTIVATE(980)->ENTRADA(536)->MAIN(103)
聽 聽 
06/07/2016 14:41:54: BRUSH,-1391457814,(b)TRBTN(102)->TRBTN:DISPLAY(0)->TCONTROL:HANDLEEVENT(1666)->TRBTN:HANDLEEVENT(1520)->_FWH(3153)->DIALOGBOX(0)->TDIALOG:ACTIVATE(270)->ASI_FICHA(362)->(b)ASIENTOS(112)->FICHEDITA(1154)->(b)EDITAFICHA(168)->(b)KEYFICHA(902)->(b)MSGRUN(36)->(b)TDIALOG(87)->TDIALOG:DISPLAY(0)->TDIALOG:HANDLEEVENT(880)->DIALOGBOXINDIRECT(0)->TDIALOG:ACTIVATE(270)->MSGRUN(42)->KEYFICHA(902)->(b)BROWSEFICHA(708)->TWINDOW:KEYDOWN(2610)->TCONTROL:KEYDOWN(1019)->TXBROWSE:KEYDOWN(2213)->TWINDOW:HANDLEEVENT(0)->TCONTROL:HANDLEEVENT(1700)->TXBROWSE:HANDLEEVENT(11666)->_FWH(3153)->WINRUN(0)->TMDIFRAME:ACTIVATE(980)->ENTRADA(536)->MAIN(103)
聽 聽 
06/07/2016 14:41:54: BRUSH,-267384355,(b)TRBTN(102)->TRBTN:DISPLAY(0)->TCONTROL:HANDLEEVENT(1666)->TRBTN:HANDLEEVENT(1520)->_FWH(3153)->DIALOGBOX(0)->TDIALOG:ACTIVATE(270)->ASI_FICHA(362)->(b)ASIENTOS(112)->FICHEDITA(1154)->(b)EDITAFICHA(168)->(b)KEYFICHA(902)->(b)MSGRUN(36)->(b)TDIALOG(87)->TDIALOG:DISPLAY(0)->TDIALOG:HANDLEEVENT(880)->DIALOGBOXINDIRECT(0)->TDIALOG:ACTIVATE(270)->MSGRUN(42)->KEYFICHA(902)->(b)BROWSEFICHA(708)->TWINDOW:KEYDOWN(2610)->TCONTROL:KEYDOWN(1019)->TXBROWSE:KEYDOWN(2213)->TWINDOW:HANDLEEVENT(0)->TCONTROL:HANDLEEVENT(1700)->TXBROWSE:HANDLEEVENT(11666)->_FWH(3153)->WINRUN(0)->TMDIFRAME:ACTIVATE(980)->ENTRADA(536)->MAIN(103)
聽 聽 
06/07/2016 14:41:54: BRUSH,571476422,(b)TRBTN(102)->TRBTN:DISPLAY(0)->TCONTROL:HANDLEEVENT(1666)->TRBTN:HANDLEEVENT(1520)->_FWH(3153)->DIALOGBOX(0)->TDIALOG:ACTIVATE(270)->ASI_FICHA(362)->(b)ASIENTOS(112)->FICHEDITA(1154)->(b)EDITAFICHA(168)->(b)KEYFICHA(902)->(b)MSGRUN(36)->(b)TDIALOG(87)->TDIALOG:DISPLAY(0)->TDIALOG:HANDLEEVENT(880)->DIALOGBOXINDIRECT(0)->TDIALOG:ACTIVATE(270)->MSGRUN(42)->KEYFICHA(902)->(b)BROWSEFICHA(708)->TWINDOW:KEYDOWN(2610)->TCONTROL:KEYDOWN(1019)->TXBROWSE:KEYDOWN(2213)->TWINDOW:HANDLEEVENT(0)->TCONTROL:HANDLEEVENT(1700)->TXBROWSE:HANDLEEVENT(11666)->_FWH(3153)->WINRUN(0)->TMDIFRAME:ACTIVATE(980)->ENTRADA(536)->MAIN(103)
聽 聽 
06/07/2016 14:41:54: BRUSH,1108348180,(b)TRBTN(102)->TRBTN:DISPLAY(0)->TCONTROL:HANDLEEVENT(1666)->TRBTN:HANDLEEVENT(1520)->_FWH(3153)->DIALOGBOX(0)->TDIALOG:ACTIVATE(270)->CONTAEND(596)->(b)ENTRADA(536)->TMDIFRAME:END(262)->TMDIFRAME:SYSCOMMAND(2372)->TMDIFRAME:HANDLEEVENT(0)->_FWH(3153)->WINRUN(0)->TMDIFRAME:ACTIVATE(980)->ENTRADA(536)->MAIN(103)
聽 聽 
06/07/2016 14:41:54: ====================================================================================================


He ajustado la clase para la correcta eliminaci贸n del Brush (supongo que en las 煤ltimas versiones de fw este bug ya estar谩 solucionado) y controlar茅 el rendimiento.
Gracias por las pistas, ir茅 informando.
Angel Salom
Visionwin Software - https://www.visionwin.com
------------------------------------------------------------
fwh 19.05 - harbour 3.2 - bcc 7.4
Silvio.Falconi
Posts: 7317
Joined: Thu Oct 18, 2012 07:17 PM
Re: Aplicaci贸n se "congela"
Posted: Fri Jul 08, 2016 07:42 AM

When I init with Windows seven I have allways this problems
Now I made allways dialog with sources @x,y and try to insert on res only the bitmaps and try to use only 16x16 bmps to have much memory
I not Know why i have that error I not founded a solution and then I use the sources by hand....

the sample test run ok then when i create a big application there is allways error of memory and lose of resources

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Aplicaci贸n se "congela"
Posted: Fri Jul 08, 2016 07:37 PM

Angel,

> He ajustado la clase para la correcta eliminaci贸n del Brush (supongo que en las 煤ltimas versiones de fw este bug ya estar谩 solucionado)

C贸mo lo has corregido ?

Puedes mostrar un ejemplo de como usas los botones TRBtn ?

regards, saludos

Antonio Linares
www.fivetechsoft.com
AngelSalom
Posts: 728
Joined: Fri Oct 07, 2005 07:38 AM
Re: Aplicaci贸n se "congela"
Posted: Sun Jul 10, 2016 03:51 PM
Con este simple ejemplo extra铆do de testrbtn.prg :

Code (fw): Select all Collapse
#include "FiveWin.ch"
#include "Ribbon.ch"

function Main()

聽 聽local oDlg, oPopup, oBtn
聽 聽
聽 聽SetResDebug (.T.)

聽 聽DEFINE DIALOG oDlg RESOURCE "Test"

聽 聽REDEFINE RBBTN oBtn ID 100 OF oDlg ACTION MsgInfo( "click" ) ;
聽 聽 聽 PROMPT "Class TRBtn" BITMAP "..\bitmaps\16x16\fivetech.bmp" LEFT

聽 聽ACTIVATE DIALOG oDlg CENTERED
聽 聽
聽 聽CheckRes()

return nil


Fichero Rc:

Code (fw): Select all Collapse
#include <windows.h>

#ifdef __FLAT__
聽 聽1 24 "WinXP/WindowsXP.Manifest"
#endif

#ifdef __64__
聽 聽1 24 "WinXP/WindowsXP.Manifest64"
#endif 

Test DIALOG 17, 36, 185, 147 
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "Test" FONT 8, "MS Sans Serif" 
{ 聽
聽 聽CONTROL "Test", 100, "TRBTN", WS_CHILD | WS_VISIBLE, 10, 15, 80, 20
聽 聽DEFPUSHBUTTON "OK", 1, 67, 128, 50, 14 
}


En mi version FWH 12.04 ya obtengo en checkres.txt

Code (fw): Select all Collapse
07/10/16 17:42:31: BRUSH,-703592644,(b)TRBTN(102)->TRBTN:DISPLAY(0)->TCONTROL:HANDLEEVENT(1666)->TRBTN:HANDLEEVENT(1520)->_FWH(3153)->DIALOGBOX(0)->TDIALOG:ACTIVATE(270)->MAIN(15)
聽 聽 
07/10/16 17:42:31: ====================================================================================================


Los cambios en el m茅todo Destroy de la clase Trbtn.prg son muy simples y, pienso que en nuevas versiones estar谩 corregido ya que deber铆a "cantar" bastante en el uso de recursos de otros usuarios.

Code (fw): Select all Collapse
METHOD Destroy() CLASS TRBtn

聽 聽DeleteObject( ::hArrow )
聽 聽
聽 聽if ::oWnd:IsKindOf( "TRBGROUP" )
聽 聽 聽 if ::hBack != ::oWnd:hBack
聽 聽 聽 聽 聽DeleteObject( ::hBack )
聽 聽 聽 endif
聽 聽// Para eliminar el brush si el bot贸n no est谩 en un TRBGROUP - Ajuste Angel - Sigev
聽 聽else
聽 聽 聽DeleteObject( ::hBack)
聽 聽endif
聽 聽
聽 聽DeleteObject( ::hRgn )

聽 聽::FreeBitmaps()
聽 聽if ::oPopup != nil
聽 聽 聽 ::oPopup:End()
聽 聽endif
聽 聽
聽 聽Super:Destroy()

return 0
Angel Salom
Visionwin Software - https://www.visionwin.com
------------------------------------------------------------
fwh 19.05 - harbour 3.2 - bcc 7.4
Static archive 路 New replies & topics via GitHub Discussions