Sign in Join

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Mailing lists / lazarus-es / 2010-11

rxtimeedit: tratando de arreglarlo

9 messages · 3 people · –

Reply by email Subscribe to this list Your subscription

Read-only archive. Use j and k to move between messages.

Paola Bruccoleri

Hola a todos..
apelo a los conocimientos de Uds, porque yo no se d�nde puede estar el error con ese componente.. o sea, veo los fuentes pero a pesar de hacer pruebas, no logro el cometido.

el heaptrc me muestra algo as�:

Call trace for block $07D6D2D0 size 124
$0040BD46 TOBJECT__NEWINSTANCE, line 345 of
C:/fpcsvn/rtl/inc/objpas.inc
$0047462F TSHAREDCUSTOMBITMAP__CREATE, line 20 of ./include/sharedcustombitmap.inc
$00475366 TRASTERIMAGE__CREATE, line 283 of ./include/rasterimage.inc $00476CE1 TCUSTOMBITMAP__CREATE, line 50 of ./include/custombitmap.inc $0071C39D TRXSPINBUTTON__CREATE, line 265 of rxspin.pas $0071FFD3 TCUSTOMRXTIMEEDIT__CREATE, line 283 of rxtimeedit.pas $0045A115 TREADER__READCOMPONENT, line 875 of
C:/fpcsvn/rtl/objpas/classes/reader.inc
$0045A6D5 TREADER__READDATA, line 976 of
C:/fpcsvn/rtl/objpas/classes/reader.inc
Call trace for block $07D7B020 size 64
$0040BD46 TOBJECT__NEWINSTANCE, line 345 of
C:/fpcsvn/rtl/inc/objpas.inc
$00476C8F TCUSTOMBITMAP__CREATE, line 49 of ./include/custombitmap.inc $0071C39D TRXSPINBUTTON__CREATE, line 265 of rxspin.pas $0071FFD3 TCUSTOMRXTIMEEDIT__CREATE, line 283 of rxtimeedit.pas $0045A115 TREADER__READCOMPONENT, line 875 of
C:/fpcsvn/rtl/objpas/classes/reader.inc
$0045A6D5 TREADER__READDATA, line 976 of
C:/fpcsvn/rtl/objpas/classes/reader.inc
$00454817 TCOMPONENT__READSTATE, line 317 of
C:/fpcsvn/rtl/objpas/classes/compon.inc
$004FD5F3 TCONTROL__READSTATE, line 3151 of ./include/control.inc

creo que el problema est� en rxspinbutton, ya que tb es parte de ese control.
Aparentemente esos bitmap no se liberan, pero en el Destroy si est�n liberados (tienen Free)

Si a alguien se le ocurre algo, avise!!
muchas gracias
chauuuuuuuuuu

Reply by email

Ismael L. Donis García
to Paola Bruccoleri

Que versi�n del rx est�s usando? Revisa a ver si la han actualizado.

Saludos
=========
|| ISMAEL ||
=========

Earlier message 51 lines
----- Original Message ----- From: "Paola Bruccoleri" <pbruccoleri en adinet.com.uy> To: "Lista Lazarus" <lazarus-es en lists.lazarus.freepascal.org> Sent: Saturday, November 06, 2010 3:55 PM Subject: [Lazarus-es] rxtimeedit: tratando de arreglarlo Hola a todos.. apelo a los conocimientos de Uds, porque yo no se d�nde puede estar el error con ese componente.. o sea, veo los fuentes pero a pesar de hacer pruebas, no logro el cometido. el heaptrc me muestra algo as�: Call trace for block $07D6D2D0 size 124 $0040BD46 TOBJECT__NEWINSTANCE, line 345 of C:/fpcsvn/rtl/inc/objpas.inc $0047462F TSHAREDCUSTOMBITMAP__CREATE, line 20 of ./include/sharedcustombitmap.inc $00475366 TRASTERIMAGE__CREATE, line 283 of ./include/rasterimage.inc $00476CE1 TCUSTOMBITMAP__CREATE, line 50 of ./include/custombitmap.inc $0071C39D TRXSPINBUTTON__CREATE, line 265 of rxspin.pas $0071FFD3 TCUSTOMRXTIMEEDIT__CREATE, line 283 of rxtimeedit.pas $0045A115 TREADER__READCOMPONENT, line 875 of C:/fpcsvn/rtl/objpas/classes/reader.inc $0045A6D5 TREADER__READDATA, line 976 of C:/fpcsvn/rtl/objpas/classes/reader.inc Call trace for block $07D7B020 size 64 $0040BD46 TOBJECT__NEWINSTANCE, line 345 of C:/fpcsvn/rtl/inc/objpas.inc $00476C8F TCUSTOMBITMAP__CREATE, line 49 of ./include/custombitmap.inc $0071C39D TRXSPINBUTTON__CREATE, line 265 of rxspin.pas $0071FFD3 TCUSTOMRXTIMEEDIT__CREATE, line 283 of rxtimeedit.pas $0045A115 TREADER__READCOMPONENT, line 875 of C:/fpcsvn/rtl/objpas/classes/reader.inc $0045A6D5 TREADER__READDATA, line 976 of C:/fpcsvn/rtl/objpas/classes/reader.inc $00454817 TCOMPONENT__READSTATE, line 317 of C:/fpcsvn/rtl/objpas/classes/compon.inc $004FD5F3 TCONTROL__READSTATE, line 3151 of ./include/control.inc creo que el problema est� en rxspinbutton, ya que tb es parte de ese control. Aparentemente esos bitmap no se liberan, pero en el Destroy si est�n liberados (tienen Free) Si a alguien se le ocurre algo, avise!! muchas gracias chauuuuuuuuuu

Reply by email

José Mejuto
to Paola Bruccoleri

Hello Paola,

Monday, November 8, 2010, 3:53:48 PM, you wrote:

PB> El 08/11/2010 11:46 a.m., Ismael L. Donis Garc�a escribi�:

> Que versi�n del rx est�s usando? Revisa a ver si la han actualizado.

PB> si, revis�, tengo lo �ltimo

He revisado el rxspin y lo de los bitmaps est� hecho un lio de cuidado :) Lo malo es que yo no lo tengo instalado para corregirlo, pero si te atreves te paso unos cambios para que los pruebes:

Eliminar:
264     FUpBitmap := TBitmap.Create;
265     FDownBitmap := TBitmap.Create;

Ya que las dos siguientes lineas crean el TBitmap.

Cambiar:
301 procedure TRxSpinButton.SetUpGlyph(Value: TBitmap); 302 begin
303 if Value nil then FUpBitmap.Assign(Value) 304 else
305 FUpBitmap := LoadBitmapFromLazarusResource(sSpinUpBtn); 306 end;

313     procedure TRxSpinButton.SetDownGlyph(Value: TBitmap);
314     begin
315     if Value  nil then FDownBitmap.Assign(Value)
316     else
317     FDownBitmap := LoadBitmapFromLazarusResource(sSpinDownBtn);
318     end;
por:
301     procedure TRxSpinButton.SetUpGlyph(Value: TBitmap);
302     begin
303     if Value  nil then FUpBitmap.Assign(Value)
304     else
        begin
          FUpBitmap.Free;
305       FUpBitmap := LoadBitmapFromLazarusResource(sSpinUpBtn);
        end;
306     end;
313     procedure TRxSpinButton.SetDownGlyph(Value: TBitmap);
314     begin
315     if Value  nil then FDownBitmap.Assign(Value)
316     else
        begin
          FDownBitmap.Free;
317       FDownBitmap := LoadBitmapFromLazarusResource(sSpinDownBtn);
        end;
318     end;
-----------

As� creo que deber�a de funcionar.

Best regards, Jos�

Reply by email

Paola Bruccoleri
to José Mejuto

El 08/11/2010 01:26 p.m., Jos� Mejuto escribi�:

Show quoted text 51 lines
Hello Paola, He revisado el rxspin y lo de los bitmaps est� hecho un lio de cuidado :) Lo malo es que yo no lo tengo instalado para corregirlo, pero si te atreves te paso unos cambios para que los pruebes: Eliminar: 264 FUpBitmap := TBitmap.Create; 265 FDownBitmap := TBitmap.Create; Ya que las dos siguientes lineas crean el TBitmap. Cambiar: 301 procedure TRxSpinButton.SetUpGlyph(Value: TBitmap); 302 begin 303 if Value nil then FUpBitmap.Assign(Value) 304 else 305 FUpBitmap := LoadBitmapFromLazarusResource(sSpinUpBtn); 306 end; 313 procedure TRxSpinButton.SetDownGlyph(Value: TBitmap); 314 begin 315 if Value nil then FDownBitmap.Assign(Value) 316 else 317 FDownBitmap := LoadBitmapFromLazarusResource(sSpinDownBtn); 318 end; por: 301 procedure TRxSpinButton.SetUpGlyph(Value: TBitmap); 302 begin 303 if Value nil then FUpBitmap.Assign(Value) 304 else begin FUpBitmap.Free; 305 FUpBitmap := LoadBitmapFromLazarusResource(sSpinUpBtn); end; 306 end; 313 procedure TRxSpinButton.SetDownGlyph(Value: TBitmap); 314 begin 315 if Value nil then FDownBitmap.Assign(Value) 316 else begin FDownBitmap.Free; 317 FDownBitmap := LoadBitmapFromLazarusResource(sSpinDownBtn); end; 318 end; ----------- As� creo que deber�a de funcionar.

Hola Jos�..
ha funcionado de maravillas!! por lo menos, no queda "mugre" en memoria al entrar y salir del formulario!!
no sab�a que el loadbitmapfromlazarusresource tb creaba el objeto!!

ahora har� algunas otras pruebas, ingresando valores, etc, a ver si sigue todo ok..
mil gracias!!!
chauuuuuuuuuu

Reply by email

Paola Bruccoleri
to José Mejuto: PB> El 08/11/2010 11:46 a.m., Ismael L. Donis Garc�a escribi�: PB> si, revis�,…

El 08/11/2010 01:26 p.m., Jos� Mejuto escribi�:

He revisado el rxspin y lo de los bitmaps est� hecho un lio de cuidado :) Lo malo es que yo no lo tengo instalado para corregirlo, pero si te atreves te paso unos cambios para que los pruebes:

mmmmmmmm.... malas noticias!!... he seguido probando.. y KBOOMMMMM! (seg�n tu dicho!)

si ingreso los datos en el timeedit con el teclado, no pasa nada... el relajete se arma cuando se me ocurre usar los botoncitos del spin... se me queda grabando el log indefinidamente!!!... a pesar de que salgo del programa correctamente (no lo ejecuto desde el ide), queda el programa en memoria tirando datos al .log!!!..

si lo dejo como estaba, por lo menos no me queda generando ese log indefinido; o sea, tal como al ppio, solo deja sin liberar 4 objetos por timeedit

chauuuuuuu

Reply by email

José Mejuto
to Paola Bruccoleri: El 08/11/2010 01:26 p.m., Jos� Mejuto escribi�: Hola Jos�.. ha funcionado de…

Hello Paola,

Monday, November 8, 2010, 10:06:08 PM, you wrote:

PB> ha funcionado de maravillas!! por lo menos, no queda "mugre" en memoria PB> al entrar y salir del formulario!!
PB> no sab�a que el loadbitmapfromlazarusresource tb creaba el objeto!!

Es que el nombre correcto ser�a algo como
"CreateBitmapFromLazarusResource" :-(

Best regards, Jos�

Reply by email

José Mejuto
to Paola Bruccoleri: El 08/11/2010 01:26 p.m., Jos� Mejuto escribi�: mmmmmmmm.... malas noticias!!... he…

Hello Paola,

Monday, November 8, 2010, 10:55:58 PM, you wrote:

PB> El 08/11/2010 01:26 p.m., Jos� Mejuto escribi�:

> > He revisado el rxspin y lo de los bitmaps est� hecho un lio de cuidado > :) Lo malo es que yo no lo tengo instalado para corregirlo, pero si te > atreves te paso unos cambios para que los pruebes:

PB> mmmmmmmm.... malas noticias!!... he seguido probando.. y KBOOMMMMM! PB> (seg�n tu dicho!)
PB> si ingreso los datos en el timeedit con el teclado, no pasa nada... el PB> relajete se arma cuando se me ocurre usar los botoncitos del spin... PB> se me queda grabando el log indefinidamente!!!... a pesar de que salgo PB> del programa correctamente (no lo ejecuto desde el ide), queda el PB> programa en memoria tirando datos al .log!!!.. PB> si lo dejo como estaba, por lo menos no me queda generando ese log PB> indefinido; o sea, tal como al ppio, solo deja sin liberar 4 objetos por PB> timeedit

Bueno, creo que tendr� que instalar las RX :-D A ver si averiguo que sucede :-?

Best regards, Jos�

Reply by email

Ismael L. Donis García
to José Mejuto: PB> El 08/11/2010 11:46 a.m., Ismael L. Donis Garc�a escribi�: PB> si, revis�,…

Jos� reporta los arreglos para que arreglen los fuentes y as� tener uno que estar arreglando cada vez que descargue una actualizaci�n.

Saludos cordiales
=========
|| ISMAEL ||
=========

Earlier message 70 lines
----- Original Message ----- From: "Jos� Mejuto" <joshyfun en gmail.com> To: "Spanish version of Lazarus List" <lazarus-es en lists.lazarus.freepascal.org> Sent: Monday, November 08, 2010 10:26 AM Subject: Re: [Lazarus-es] rxtimeedit: tratando de arreglarlo Hello Paola, Monday, November 8, 2010, 3:53:48 PM, you wrote: PB> El 08/11/2010 11:46 a.m., Ismael L. Donis Garc�a escribi�: >> Que versi�n del rx est�s usando? Revisa a ver si la han actualizado. PB> si, revis�, tengo lo �ltimo He revisado el rxspin y lo de los bitmaps est� hecho un lio de cuidado :) Lo malo es que yo no lo tengo instalado para corregirlo, pero si te atreves te paso unos cambios para que los pruebes: Eliminar: 264 FUpBitmap := TBitmap.Create; 265 FDownBitmap := TBitmap.Create; Ya que las dos siguientes lineas crean el TBitmap. Cambiar: 301 procedure TRxSpinButton.SetUpGlyph(Value: TBitmap); 302 begin 303 if Value nil then FUpBitmap.Assign(Value) 304 else 305 FUpBitmap := LoadBitmapFromLazarusResource(sSpinUpBtn); 306 end; 313 procedure TRxSpinButton.SetDownGlyph(Value: TBitmap); 314 begin 315 if Value nil then FDownBitmap.Assign(Value) 316 else 317 FDownBitmap := LoadBitmapFromLazarusResource(sSpinDownBtn); 318 end; por: 301 procedure TRxSpinButton.SetUpGlyph(Value: TBitmap); 302 begin 303 if Value nil then FUpBitmap.Assign(Value) 304 else begin FUpBitmap.Free; 305 FUpBitmap := LoadBitmapFromLazarusResource(sSpinUpBtn); end; 306 end; 313 procedure TRxSpinButton.SetDownGlyph(Value: TBitmap); 314 begin 315 if Value nil then FDownBitmap.Assign(Value) 316 else begin FDownBitmap.Free; 317 FDownBitmap := LoadBitmapFromLazarusResource(sSpinDownBtn); end; 318 end; ----------- As� creo que deber�a de funcionar. -- Best regards, Jos�

Reply by email