457 

   457 

   458     glPopMatrix

   458     glPopMatrix

   459 end;

   459 end;

   460 

   460 

   461 procedure DrawScreenWidget(widget: POnScreenWidget);

   461 procedure DrawScreenWidget(widget: POnScreenWidget);

   462 var alpha: byte = $FF;

   463 var alpha: byte = $FF;

   463 begin

   464 begin

   465 with widget^ do

   465 with widget^ do

   466     begin

   466     begin

   467     if (fadeAnimStart <> 0) then

   467     if (fadeAnimStart <> 0) then

   468         begin

   468         begin

   469         if RealTicks > (fadeAnimStart + FADE_ANIM_TIME) then

   469         if RealTicks > (fadeAnimStart + FADE_ANIM_TIME) then

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

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

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

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

   499         Tint($FF, $FF, $FF, $FF);

   499         Tint($FF, $FF, $FF, $FF);

   500         end;

   500         end;

   501     end;

   501     end;

   502 {$ENDIF}

   505 {$ENDIF}

   503 end;

   506 end;

   504 

   507 

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

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

   506 var nc, tw: Longword;

   509 var nc, tw: Longword;