449 end;

   449 end;

   450 

   450 

   451 procedure DrawScreenWidget(widget: POnScreenWidget);

   451 procedure DrawScreenWidget(widget: POnScreenWidget);

   452 var alpha: byte = $FF;

   452 var alpha: byte = $FF;

   453 begin

   453 begin

   454 with widget^ do

   455 with widget^ do

   455     begin

   456     begin

   456     if (fadeAnimStart <> 0) then

   457     if (fadeAnimStart <> 0) then

   457         begin

   458         begin

   458         if RealTicks > (fadeAnimStart + FADE_ANIM_TIME) then

   459         if RealTicks > (fadeAnimStart + FADE_ANIM_TIME) then

   483         Tint($FF, $FF, $FF, alpha);

   484         Tint($FF, $FF, $FF, alpha);

   484         DrawTexture(x, y, spritesData[sprite].Texture, buttonScale);

   485         DrawTexture(x, y, spritesData[sprite].Texture, buttonScale);

   485         Tint($FF, $FF, $FF, $FF);

   486         Tint($FF, $FF, $FF, $FF);

   486         end;

   487         end;

   487     end;

   488     end;

   488 end;

   490 end;

   489 

   491 

   490 procedure Tint(r, g, b, a: Byte); inline;

   492 procedure Tint(r, g, b, a: Byte); inline;

   491 const 

   493 const 

   492     lastTint: Longword = 0;

   494     lastTint: Longword = 0;