From 93f69ff9a0c9b05dfbbdcf6f7d737a68fc4d3bd1 Mon Sep 17 00:00:00 2001 From: tobigun Date: Sun, 6 Apr 2008 12:18:01 +0000 Subject: - removed (linux incompatible) PngImage. In addition it was rather outdated (from 2003, newest version is from 2006) - introduced UImage-unit for JPG/PNG/BMP image saving - the png part uses the libpng12-0.dll (part of SDL_Image) so - the jpg part uses either Delphi's Jpeg unit or FPC's base/pasjpeg unit -> so no additional libs are needed. git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1007 b956fd51-792f-4845-bead-9b4dfca2ff2c --- Game/Code/Screens/UScreenScore.pas | 14 +++++++++++++- Game/Code/Screens/UScreenTop5.pas | 2 +- 2 files changed, 14 insertions(+), 2 deletions(-) (limited to 'Game/Code/Screens') diff --git a/Game/Code/Screens/UScreenScore.pas b/Game/Code/Screens/UScreenScore.pas index 3ce60b2b..9a13681b 100644 --- a/Game/Code/Screens/UScreenScore.pas +++ b/Game/Code/Screens/UScreenScore.pas @@ -175,7 +175,7 @@ begin end; SDLK_SYSREQ: begin - Display.PrintScreen; + Display.SaveScreenShot; end; end; end; @@ -619,6 +619,7 @@ begin end; // end todo + {{$IFDEF TRANSLATE} case (Player[PlayerNumber-1].ScoreTotalI) of 0..2000: begin @@ -656,6 +657,17 @@ begin Rating := 6; end; end; + {{$ELSE}{ + case (Player[PlayerNumber-1].ScoreTotalI) of + 0..2000: Text[TextScore[fu]].Text := 'Tone Deaf'; + 2010..4000: Text[TextScore[fu]].Text := 'Amateur'; + 4010..6000: Text[TextScore[fu]].Text := 'Rising Star'; + 6010..8000: Text[TextScore[fu]].Text := 'Lead Singer'; + 8010..9000: Text[TextScore[fu]].Text := 'Hit Artist'; + 9010..9800: Text[TextScore[fu]].Text := 'Superstar'; + 9810..10000: Text[TextScore[fu]].Text := 'Ultrastar'; + end; + {$ENDIF} // Bounce the rating picture in PosX := aPlayerScoreScreenRatings[PlayerNumber].RatePic_X + (aPlayerScoreScreenRatings[PlayerNumber].RatePic_Width / 2); diff --git a/Game/Code/Screens/UScreenTop5.pas b/Game/Code/Screens/UScreenTop5.pas index 4b3356dc..2a673880 100644 --- a/Game/Code/Screens/UScreenTop5.pas +++ b/Game/Code/Screens/UScreenTop5.pas @@ -59,7 +59,7 @@ begin end; SDLK_SYSREQ: begin - Display.PrintScreen; + Display.SaveScreenShot; end; end; end; -- cgit v1.2.3