fix mogs compile error :)

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@456 b956fd51-792f-4845-bead-9b4dfca2ff2c

1 files changed, 3 insertions, 3 deletions

diff --git a/Game/Code/Classes/TextGL.pas b/Game/Code/Classes/TextGL.pas
index 3f5d52b8..9b125812 100644
--- a/Game/Code/Classes/TextGL.pas
+++ b/Game/Code/Classes/TextGL.pas
@@ -392,9 +392,9 @@ function RenderText(font: PTTF_Font; Text:PAnsiChar; Color: Cardinal): PSDL_Surf
 var

   clr : TSDL_color;

 begin

-  clr.r  := (((Color and $ff0000) shr 16) / 255);

-  clr.g  := ((Color and $ff00) shr 8)/255;

-  clr.b  := ( Color and $ff)/255;

+  clr.r  := ((Color and $ff0000) shr 16  ) div 255;

+  clr.g  := ((Color and $ff00  ) shr 8   ) div 255;

+  clr.b  := ( Color and $ff    ) div 255 ;

 

   result := TTF_RenderText_Blended( font, text, cLr);

 end;