Ultrastar-DX now compiles in linux

(using lazarus)

Bass etc is commented out..
but it compiles, and im working through the runtime errors.

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

1 files changed, 339 insertions, 329 deletions

diff --git a/Game/Code/Menu/UMenuText.pas b/Game/Code/Menu/UMenuText.pas
index cba237b8..d1c8b7b1 100644
--- a/Game/Code/Menu/UMenuText.pas
+++ b/Game/Code/Menu/UMenuText.pas
@@ -1,329 +1,339 @@
-unit UMenuText;

-

-interface

-

-{$IFDEF FPC}

-  {$MODE Delphi}

-{$ENDIF}

-

-uses TextGL, UTexture, OpenGL12, SysUtils;

-

-type

-  TText = class

-    private

-      SelectBool:   boolean;

-      TextString:   String;

-      TextTiles:    Array of String;

-

-      STicks:       Cardinal;

-      SelectBlink:  Boolean;

-    public

-      X:      real;

-      Y:      real;

-      MoveX:  real;       //Some Modifier for X - Position that don't Affect the Real Y

-      MoveY:  real;       //Some Modifier for Y - Position that don't Affect the Real Y

-      W:      real;       // if text is wider than W then it is breaked

-//      H:      real;

-      Size:   real;

-      ColR:   real;

-      ColG:   real;

-      ColB:   real;

-      Alpha:  real;

-      Int:    real;

-      Style:  integer;

-      Visible:  boolean;

-      Align:    integer; // 0 = left, 1 = center, 2 = right

-

-      procedure SetSelect(Value: Boolean);

-      property Selected: Boolean read SelectBool write SetSelect;

-

-      procedure SetText(Value: String);

-      property  Text: String read TextString write SetText;

-

-      procedure DeleteLastL; //Procedure to Delete Last Letter

-

-      procedure Draw;

-      constructor Create; overload;

-      constructor Create(X, Y: real; Tekst: string); overload;

-      constructor Create(ParX, ParY, ParW: real; ParStyle: integer; ParSize, ParColR, ParColG, ParColB: real; ParAlign: integer; ParTekst: string); overload;

-  end;

-

-implementation

-uses UGraphic, StrUtils, Windows;

-

-procedure TText.SetSelect(Value: Boolean);

-begin

-  SelectBool := Value;

-  

-  //Set Cursor Visible

-  SelectBlink := True;

-  STicks := GettickCount div 550;

-end;

-

-procedure TText.SetText(Value: String);

-var

-  NextPos: Cardinal;    //NextPos of a Space etc.

-  LastPos: Cardinal;    //LastPos "

-  LastBreak: Cardinal;  //Last Break

-  isBreak: Boolean;     //True if the Break is not Caused because the Text is out of the area

-  FirstWord: Word;      //Is First Word after Break?

-  Len:       Word;      //Length of the Tiles Array

-  Function Smallest(const A, B: Cardinal):Cardinal;

-  begin

-    if (A < B) then

-      Result := A

-    else

-      Result := B;

-  end;

-

-  Function GetNextPos: Boolean;

-  var

-    T1, T2, T3: Cardinal;

-  begin

-    LastPos := NextPos;

-

-    //Next Space (If Width is given)

-    if (W > 0) then

-      T1 := PosEx(' ', Value, LastPos + 1)

-    else T1 := Length(Value);

-

-    {//Next -

-    T2 := PosEx('-', Value, LastPos + 1);}

-

-    //Next Break

-    T3 := PosEx('\n', Value, LastPos + 1);

-

-    if T1 = 0 then

-      T1 := Length(Value);

-    {if T2 = 0 then

-      T2 := Length(Value); }

-    if T3 = 0 then

-      T3 := Length(Value);

-

-    //Get Nearest Pos

-    NextPos := Smallest(T1, T3{Smallest(T2, T3)});

-

-    if (LastPos = Length(Value)) then

-      NextPos := 0;

-

-    isBreak := (NextPos = T3) AND (NextPos <> Length(Value));

-    Result := (NextPos <> 0);

-  end;

-  procedure AddBreak(const From, bTo: Cardinal);

-  begin

-    if (isBreak) OR (bTo - From >= 1) then

-    begin

-      Inc(Len);

-      SetLength (TextTiles, Len);

-      TextTiles[Len-1] := Trim(Copy(Value, From, bTo - From));

-

-      if isBreak then

-        LastBreak := bTo + 2

-      else

-        LastBreak := bTo + 1;

-      FirstWord := 0;

-    end;

-  end;

-begin

-  //Set TExtstring

-  TextString := Value;

-

-  //Set Cursor Visible

-  SelectBlink := True;

-  STicks := GettickCount div 550;

-

-  //Exit if there is no Need to Create Tiles

-  If (W <= 0) and (Pos('\n', Value) = 0) then

-  begin

-    SetLength (TextTiles, 1);

-    TextTiles[0] := Value;

-    Exit;

-  end;

-

-  //Create Tiles

-  //Reset Text Array

-  SetLength (TextTiles, 0);

-  Len := 0;

-

-  //Reset Counter Vars

-  LastPos := 1;

-  NextPos := 1;

-  LastBreak := 1;

-  FirstWord := 1;

-

-

-  if (W > 0) then

-  begin

-    //Set Font Propertys

-    SetFontStyle(Style);

-    SetFontSize(Size);

-  end;

-

-  //go Through Text

-  While (GetNextPos) do

-  begin

-      //Break in Text

-      if isBreak then

-      begin

-        //Look for Break before the Break

-        if (glTextWidth(PChar(Copy(Value, LastBreak, NextPos - LastBreak + 1))) > W) AND (NextPos-LastPos > 1) then

-        begin

-          isBreak := False;

-          //Not the First word after Break, so we don't have to break within a word

-          if (FirstWord > 1) then

-          begin

-            //Add Break before actual Position, because there the  Text fits the Area

-            AddBreak(LastBreak, LastPos);

-          end

-          else //First Word after Break Break within the Word

-          begin

-            //ToDo

-            //AddBreak(LastBreak, LastBreak + 155);

-          end;

-        end;

-

-        isBreak := True;

-        //Add Break from Text

-        AddBreak(LastBreak, NextPos);

-      end

-      //Text comes out of the Text Area -> CreateBreak

-      else if (glTextWidth(PChar(Copy(Value, LastBreak, NextPos - LastBreak + 1))) > W) then

-      begin

-        //Not the First word after Break, so we don't have to break within a word

-        if (FirstWord > 1) then

-        begin

-          //Add Break before actual Position, because there the  Text fits the Area

-          AddBreak(LastBreak, LastPos);

-        end

-        else //First Word after Break -> Break within the Word

-        begin

-          //ToDo

-          //AddBreak(LastBreak, LastBreak + 155);

-        end;

-      end;

-    //end;

-    Inc(FirstWord)

-  end;

-  //Add Ending

-  AddBreak(LastBreak, Length(Value)+1);

-end;

-

-Procedure TText.DeleteLastL;

-var

-  S: String;

-  L: Integer;

-begin

-  S := TextString;

-  L := Length(S);

-  if (L > 0) then

-    SetLength(S, L-1);

-

-  SetText(S);

-end;

-

-procedure TText.Draw;

-var

-  X2, Y2:     real;

-  Text2:  string;

-  I:      Integer;

-begin

-  if Visible then begin

-    SetFontStyle(Style);

-    SetFontSize(Size);

-    SetFontItalic(False);

-    glColor4f(ColR*Int, ColG*Int, ColB*Int, Alpha);

-

-    //If Selected Set Blink...

-    if SelectBool then

-    begin

-      I := Gettickcount div 550;

-      if I <> STicks then

-      begin //Change Visability

-        STicks := I;

-        SelectBlink := Not SelectBlink;

-      end;

-    end;

-

-    {if (False) then //No Width set Draw as one Long String

-    begin

-      if not (SelectBool AND SelectBlink) then

-        Text2 := Text

-      else

-        Text2 := Text + '|';

-

-      case Align of

-        0: X2 := X;

-        1: X2 := X - glTextWidth(pchar(Text2))/2;

-        2: X2 := X - glTextWidth(pchar(Text2));

-      end;

-

-      SetFontPos(X2, Y);

-      glPrint(PChar(Text2));

-      SetFontStyle(0); // reset to default

-    end

-    else

-    begin}

-    //Now Use allways:

-    //Draw Text as Many Strings

-      Y2 := Y + MoveY;

-      for I := 0 to high(TextTiles) do

-      begin

-        if (not (SelectBool AND SelectBlink)) OR (I <> high(TextTiles)) then

-          Text2 := TextTiles[I]

-        else

-          Text2 := TextTiles[I] + '|';

-

-        case Align of

-          0: X2 := X + MoveX;

-          1: X2 := X + MoveX - glTextWidth(pchar(Text2))/2;

-          2: X2 := X + MoveX - glTextWidth(pchar(Text2));

-        end;

-

-        SetFontPos(X2, Y2);

-        glPrint(PChar(Text2));

-

-        {if Size >= 10 then

-          Y2 := Y2 + Size * 2.8

-        else}

-        if (Style = 1) then

-          Y2 := Y2 + Size * 2.8

-        else

-          Y2 := Y2 + Size * 2.15;

-      end;

-      SetFontStyle(0); // reset to default

-

-    //end;

-  end;

-end;

-

-constructor TText.Create;

-begin

-  Create(0, 0, '');

-end;

-

-constructor TText.Create(X, Y: real; Tekst: string);

-begin

-  Create(X, Y, 0, 0, 10, 0, 0, 0, 0, Tekst);

-end;

-

-constructor TText.Create(ParX, ParY, ParW: real; ParStyle: integer; ParSize, ParColR, ParColG, ParColB: real; ParAlign: integer; ParTekst: string);

-begin

-  inherited Create;

-  Alpha := 1;

-  X := ParX;

-  Y := ParY;

-  W := ParW;

-  Style := ParStyle;

-  Size := ParSize;

-  Text := ParTekst;

-  ColR := ParColR;

-  ColG := ParColG;

-  ColB := ParColB;

-  Int := 1;

-  Align := ParAlign;

-  SelectBool := false;

-  Visible := true;

-end;

-

-

-end.

+unit UMenuText;
+
+interface
+
+{$IFDEF FPC}
+  {$MODE Delphi}
+{$ENDIF}
+
+uses TextGL,
+     UTexture,
+     OpenGL12,
+     SysUtils;
+
+type
+  TText = class
+    private
+      SelectBool:   boolean;
+      TextString:   String;
+      TextTiles:    Array of String;
+
+      STicks:       Cardinal;
+      SelectBlink:  Boolean;
+    public
+      X:      real;
+      Y:      real;
+      MoveX:  real;       //Some Modifier for X - Position that don't Affect the Real Y
+      MoveY:  real;       //Some Modifier for Y - Position that don't Affect the Real Y
+      W:      real;       // if text is wider than W then it is breaked
+//      H:      real;
+      Size:   real;
+      ColR:   real;
+      ColG:   real;
+      ColB:   real;
+      Alpha:  real;
+      Int:    real;
+      Style:  integer;
+      Visible:  boolean;
+      Align:    integer; // 0 = left, 1 = center, 2 = right
+
+      procedure SetSelect(Value: Boolean);
+      property Selected: Boolean read SelectBool write SetSelect;
+
+      procedure SetText(Value: String);
+      property  Text: String read TextString write SetText;
+
+      procedure DeleteLastL; //Procedure to Delete Last Letter
+
+      procedure Draw;
+      constructor Create; overload;
+      constructor Create(X, Y: real; Tekst: string); overload;
+      constructor Create(ParX, ParY, ParW: real; ParStyle: integer; ParSize, ParColR, ParColG, ParColB: real; ParAlign: integer; ParTekst: string); overload;
+  end;
+
+implementation
+
+uses UGraphic,
+     {$IFDEF win32}
+     windows,
+     {$ELSE}
+     lclintf,
+     {$ENDIF}
+     StrUtils;
+
+procedure TText.SetSelect(Value: Boolean);
+begin
+  SelectBool := Value;
+  
+  //Set Cursor Visible
+  SelectBlink := True;
+  STicks := GettickCount div 550;
+end;
+
+procedure TText.SetText(Value: String);
+var
+  NextPos: Cardinal;    //NextPos of a Space etc.
+  LastPos: Cardinal;    //LastPos "
+  LastBreak: Cardinal;  //Last Break
+  isBreak: Boolean;     //True if the Break is not Caused because the Text is out of the area
+  FirstWord: Word;      //Is First Word after Break?
+  Len:       Word;      //Length of the Tiles Array
+  Function Smallest(const A, B: Cardinal):Cardinal;
+  begin
+    if (A < B) then
+      Result := A
+    else
+      Result := B;
+  end;
+
+  Function GetNextPos: Boolean;
+  var
+    T1, T2, T3: Cardinal;
+  begin
+    LastPos := NextPos;
+
+    //Next Space (If Width is given)
+    if (W > 0) then
+      T1 := PosEx(' ', Value, LastPos + 1)
+    else T1 := Length(Value);
+
+    {//Next -
+    T2 := PosEx('-', Value, LastPos + 1);}
+
+    //Next Break
+    T3 := PosEx('\n', Value, LastPos + 1);
+
+    if T1 = 0 then
+      T1 := Length(Value);
+    {if T2 = 0 then
+      T2 := Length(Value); }
+    if T3 = 0 then
+      T3 := Length(Value);
+
+    //Get Nearest Pos
+    NextPos := Smallest(T1, T3{Smallest(T2, T3)});
+
+    if (LastPos = Length(Value)) then
+      NextPos := 0;
+
+    isBreak := (NextPos = T3) AND (NextPos <> Length(Value));
+    Result := (NextPos <> 0);
+  end;
+  procedure AddBreak(const From, bTo: Cardinal);
+  begin
+    if (isBreak) OR (bTo - From >= 1) then
+    begin
+      Inc(Len);
+      SetLength (TextTiles, Len);
+      TextTiles[Len-1] := Trim(Copy(Value, From, bTo - From));
+
+      if isBreak then
+        LastBreak := bTo + 2
+      else
+        LastBreak := bTo + 1;
+      FirstWord := 0;
+    end;
+  end;
+begin
+  //Set TExtstring
+  TextString := Value;
+
+  //Set Cursor Visible
+  SelectBlink := True;
+  STicks := GettickCount div 550;
+
+  //Exit if there is no Need to Create Tiles
+  If (W <= 0) and (Pos('\n', Value) = 0) then
+  begin
+    SetLength (TextTiles, 1);
+    TextTiles[0] := Value;
+    Exit;
+  end;
+
+  //Create Tiles
+  //Reset Text Array
+  SetLength (TextTiles, 0);
+  Len := 0;
+
+  //Reset Counter Vars
+  LastPos := 1;
+  NextPos := 1;
+  LastBreak := 1;
+  FirstWord := 1;
+
+
+  if (W > 0) then
+  begin
+    //Set Font Propertys
+    SetFontStyle(Style);
+    SetFontSize(Size);
+  end;
+
+  //go Through Text
+  While (GetNextPos) do
+  begin
+      //Break in Text
+      if isBreak then
+      begin
+        //Look for Break before the Break
+        if (glTextWidth(PChar(Copy(Value, LastBreak, NextPos - LastBreak + 1))) > W) AND (NextPos-LastPos > 1) then
+        begin
+          isBreak := False;
+          //Not the First word after Break, so we don't have to break within a word
+          if (FirstWord > 1) then
+          begin
+            //Add Break before actual Position, because there the  Text fits the Area
+            AddBreak(LastBreak, LastPos);
+          end
+          else //First Word after Break Break within the Word
+          begin
+            //ToDo
+            //AddBreak(LastBreak, LastBreak + 155);
+          end;
+        end;
+
+        isBreak := True;
+        //Add Break from Text
+        AddBreak(LastBreak, NextPos);
+      end
+      //Text comes out of the Text Area -> CreateBreak
+      else if (glTextWidth(PChar(Copy(Value, LastBreak, NextPos - LastBreak + 1))) > W) then
+      begin
+        //Not the First word after Break, so we don't have to break within a word
+        if (FirstWord > 1) then
+        begin
+          //Add Break before actual Position, because there the  Text fits the Area
+          AddBreak(LastBreak, LastPos);
+        end
+        else //First Word after Break -> Break within the Word
+        begin
+          //ToDo
+          //AddBreak(LastBreak, LastBreak + 155);
+        end;
+      end;
+    //end;
+    Inc(FirstWord)
+  end;
+  //Add Ending
+  AddBreak(LastBreak, Length(Value)+1);
+end;
+
+Procedure TText.DeleteLastL;
+var
+  S: String;
+  L: Integer;
+begin
+  S := TextString;
+  L := Length(S);
+  if (L > 0) then
+    SetLength(S, L-1);
+
+  SetText(S);
+end;
+
+procedure TText.Draw;
+var
+  X2, Y2:     real;
+  Text2:  string;
+  I:      Integer;
+begin
+  if Visible then begin
+    SetFontStyle(Style);
+    SetFontSize(Size);
+    SetFontItalic(False);
+    glColor4f(ColR*Int, ColG*Int, ColB*Int, Alpha);
+
+    //If Selected Set Blink...
+    if SelectBool then
+    begin
+      I := Gettickcount div 550;
+      if I <> STicks then
+      begin //Change Visability
+        STicks := I;
+        SelectBlink := Not SelectBlink;
+      end;
+    end;
+
+    {if (False) then //No Width set Draw as one Long String
+    begin
+      if not (SelectBool AND SelectBlink) then
+        Text2 := Text
+      else
+        Text2 := Text + '|';
+
+      case Align of
+        0: X2 := X;
+        1: X2 := X - glTextWidth(pchar(Text2))/2;
+        2: X2 := X - glTextWidth(pchar(Text2));
+      end;
+
+      SetFontPos(X2, Y);
+      glPrint(PChar(Text2));
+      SetFontStyle(0); // reset to default
+    end
+    else
+    begin}
+    //Now Use allways:
+    //Draw Text as Many Strings
+      Y2 := Y + MoveY;
+      for I := 0 to high(TextTiles) do
+      begin
+        if (not (SelectBool AND SelectBlink)) OR (I <> high(TextTiles)) then
+          Text2 := TextTiles[I]
+        else
+          Text2 := TextTiles[I] + '|';
+
+        case Align of
+          0: X2 := X + MoveX;
+          1: X2 := X + MoveX - glTextWidth(pchar(Text2))/2;
+          2: X2 := X + MoveX - glTextWidth(pchar(Text2));
+        end;
+
+        SetFontPos(X2, Y2);
+        glPrint(PChar(Text2));
+
+        {if Size >= 10 then
+          Y2 := Y2 + Size * 2.8
+        else}
+        if (Style = 1) then
+          Y2 := Y2 + Size * 2.8
+        else
+          Y2 := Y2 + Size * 2.15;
+      end;
+      SetFontStyle(0); // reset to default
+
+    //end;
+  end;
+end;
+
+constructor TText.Create;
+begin
+  Create(0, 0, '');
+end;
+
+constructor TText.Create(X, Y: real; Tekst: string);
+begin
+  Create(X, Y, 0, 0, 10, 0, 0, 0, 0, Tekst);
+end;
+
+constructor TText.Create(ParX, ParY, ParW: real; ParStyle: integer; ParSize, ParColR, ParColG, ParColB: real; ParAlign: integer; ParTekst: string);
+begin
+  inherited Create;
+  Alpha := 1;
+  X := ParX;
+  Y := ParY;
+  W := ParW;
+  Style := ParStyle;
+  Size := ParSize;
+  Text := ParTekst;
+  ColR := ParColR;
+  ColG := ParColG;
+  ColB := ParColB;
+  Int := 1;
+  Align := ParAlign;
+  SelectBool := false;
+  Visible := true;
+end;
+
+
+end.