[Lazarus-es] rxtimeedit: tratando de arreglarlo

[José Mejuto]

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é