From e7650e739e84b47ce6384767e39115adb5d3211a Mon Sep 17 00:00:00 2001
From: whiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Thu, 19 Apr 2007 15:30:51 +0000
Subject: Fixed a Bug in PageBreak generation for Text Added support for /n Tag
 in Texts

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@117 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Menu/UMenuText.pas | 38 ++++++++++++++++++++++++++++++++++++--
 1 file changed, 36 insertions(+), 2 deletions(-)

(limited to 'Game')

diff --git a/Game/Code/Menu/UMenuText.pas b/Game/Code/Menu/UMenuText.pas
index 4b8ea391..55f84bf8 100644
--- a/Game/Code/Menu/UMenuText.pas
+++ b/Game/Code/Menu/UMenuText.pas
@@ -61,6 +61,7 @@ var
 begin
   TextString := Value;
 
+  //Create Page Breaks if width is given
   if (W > 0) then
   begin
     //Set Font Propertys
@@ -76,7 +77,7 @@ begin
     I := Pos (' ', Value);
     While (I <> 0) do
     begin
-      if (glTextWidth(PChar(Copy (Value,LastBreak + 1,I))) > W) AND (LastPos <> 1) then
+      if (glTextWidth(PChar(Copy (Value,LastBreak + 1,I - LastBreak))) > W) AND (LastPos <> 1) then
       begin
         //new Break
         SetLength (TextTiles, L+1);
@@ -105,6 +106,39 @@ begin
       SetLength (TextTiles, L+1);
       TextTiles[L] := Copy (Value, LastBreak + 1, Length(Value) - LastBreak);
 
+  end
+  else
+  begin
+    SetLength (TextTiles, 1);
+    TextTiles[0] := Value;
+  end;
+
+  I := 0;
+  // /n Hack
+  While (I <= High(TextTiles)) do
+  begin
+    LastPos := Pos ('/n', TextTiles[I]);
+    if (LastPos = 0) then //No /n Tags -> Search in next Tile
+      Inc(I)
+    else //Found /n Tag -> Create a Break
+    begin
+      //Add a new Tile and move all Tiles behind actual Tile to the right
+      L := Length(TextTiles);
+      SetLength(TextTiles, L+1);
+      For L := L-1 downto I + 1 do
+      begin
+        TextTiles[L+1] := TextTiles[L];
+      end;
+
+      //Write Text to new Tile
+      TextTiles[I+1] := Trim(Copy(TextTiles[I], LastPos + 2, Length(TextTiles[I]) - LastPos - 1));
+      //Delete Text that now is in new Tile from cur. Tile
+      Delete(TextTiles[I], LastPos, Length(TextTiles[I]) - LastPos + 1);
+      TextTiles[I] := Trim (TextTiles[I]);
+      
+      //Goto next Tile because cur. Tile can not have another /n Tag
+      Inc(I) 
+    end;
   end;
 
   //Set Cursor Visible
@@ -148,7 +182,7 @@ begin
       end;
     end;
 
-    if (W <= 0) then //No Width set Draw as one Long String
+    if (False) then //No Width set Draw as one Long String
     begin
       if not (SelectBool AND SelectBlink) then
         Text2 := Text
-- 
cgit v1.2.3