hedgewars/uRenderUtils.pas
branchwebgl
changeset 9986 72f2bc996934
parent 9127 e350500c4edb
--- a/hedgewars/uRenderUtils.pas	Thu Jan 09 19:10:12 2014 +0100
+++ b/hedgewars/uRenderUtils.pas	Sun Jan 19 23:57:52 2014 +0400
@@ -302,7 +302,9 @@
 var textWidth, textHeight, x, y, w, h, i, j, pos, prevpos, line, numLines, edgeWidth, edgeHeight, cornerWidth, cornerHeight: LongInt;
     finalSurface, tmpsurf, rotatedEdge: PSDL_Surface;
     rect: TSDL_Rect;
-    //chars: set of char = [#9,' ',';',':','?','!',','];
+    {$IFNDEF PAS2C}
+    chars: set of char = [#9,' ',';',':','?','!',','];
+    {$ENDIF}
     substr: shortstring;
     edge, corner, tail: TSPrite;
 begin
@@ -346,7 +348,9 @@
         begin
         w:= 0;
         i:= round(Sqrt(length(s)) * 2);
-       // s:= WrapText(s, #1, chars, i);
+        {$IFNDEF PAS2C}
+        s:= WrapText(s, #1, chars, i);
+        {$ENDIF}
         pos:= 1; prevpos:= 0; line:= 0;
     // Find the longest line for the purposes of centring the text.  Font dependant.
         while pos <= length(s) do