[Lazarus-es] rxtimeedit: tratando de arreglarlo

Paola Bruccoleri pbruccoleri en adinet.com.uy
Lun Nov 8 22:06:08 CET 2010


El 08/11/2010 01:26 p.m., José Mejuto escribió:
> 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





More information about the Lazarus-es mailing list