[Lazarus-es] rxtimeedit: tratando de arreglarlo

[Ismael L. Donis García]

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 ||
=========
----- 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é


_______________________________________________
Lazarus-es mailing list
Lazarus-es en lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es