Fixed some range-check errors. Explicitly disable range-checks {$R-} should not be necessary for the MacOSX build anymore.

Note: Texture-numbers (e.g. texnum) are unsigned (GLuint) so do not init them to -1. Use 0 instead.


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

2 files changed, 2155 insertions, 2155 deletions

diff --git a/Game/Code/Menu/UMenu.pas b/Game/Code/Menu/UMenu.pas
index 5be44859..04a63b0a 100644
--- a/Game/Code/Menu/UMenu.pas
+++ b/Game/Code/Menu/UMenu.pas
@@ -1,1585 +1,1585 @@
-unit UMenu;
-
-interface
-
-{$IFDEF FPC}
-  {$MODE Delphi}
-{$ENDIF}
-
-{$I switches.inc}
-
-uses OpenGL12, SysUtils, UTexture, UMenuStatic, UMenuText, UMenuButton, UMenuSelect, UMenuSelectSlide,
-  UMenuInteract, UThemes, UMenuButtonCollection, Math, UMusic;
-
-type
-{  Int16 = SmallInt;}
-
-  PMenu = ^TMenu;
-  TMenu = class
-    protected
-      ButtonPos:      Integer;
-
-      Interactions:   array of TInteract;
-      SelInteraction: integer;
-      Button:         array of TButton;
-      Selects:        array of TSelect;
-      SelectsS:       array of TSelectSlide;
-      ButtonCollection: array of TButtonCollection;
-      BackImg:        TTexture;
-      BackW:          integer;
-      BackH:          integer;
-
-      fFileName : string;
-    public
-      Text:       array of TText;
-      Static:     array of TStatic;
-      mX:         integer; // mouse X
-      mY:         integer; // mouse Y
-
-      Fade:       integer; // fade type
-      ShowFinish: boolean; // true if there is no fade
-
-
-      destructor Destroy; override;
-      constructor Create; overload; virtual;
-      //constructor Create(Back: string); overload; virtual; // Back is a JPG resource name for background
-      //constructor Create(Back: string; W, H: integer); overload; virtual; // W and H are the number of overlaps
-
-      // interaction
-      function WideCharUpperCase(wchar: WideChar) : WideString;
-      procedure AddInteraction(Typ, Num: integer);
-      procedure SetInteraction(Num: integer);
-      property Interaction: integer read SelInteraction write SetInteraction;
-
-      //Procedure Load BG, Texts, Statics and Button Collections from ThemeBasic
-      procedure LoadFromTheme(const ThemeBasic: TThemeBasic);
-
-      procedure PrepareButtonCollections(const Collections: AThemeButtonCollection);
-      procedure AddButtonCollection(const ThemeCollection: TThemeButtonCollection; Const Num: Byte);
-
-      // background
-      procedure AddBackground(Name: string);
-
-      // static
-      function AddStatic(ThemeStatic: TThemeStatic): integer; overload;
-      function AddStatic(X, Y, W, H: real; const Name: string): integer; overload;
-      function AddStatic(X, Y, W, H: real; const Name: string; Typ: TTextureType): integer; overload;
-      function AddStatic(X, Y, W, H: real; ColR, ColG, ColB: real; const Name: string; Typ: TTextureType): integer; overload;
-      function AddStatic(X, Y, W, H, Z: real; ColR, ColG, ColB: real; const Name: string; Typ: TTextureType): integer; overload;
-      function AddStatic(X, Y, W, H: real; ColR, ColG, ColB: real; const Name: string; Typ: TTextureType; Color: integer): integer; overload;
-      function AddStatic(X, Y, W, H, Z: real; ColR, ColG, ColB: real; const Name: string; Typ: TTextureType; Color: integer): integer; overload;
-      function AddStatic(X, Y, W, H, Z: real; ColR, ColG, ColB: real; TexX1, TexY1, TexX2, TexY2: real; const Name: string; Typ: TTextureType; Color: integer; Reflection: Boolean; ReflectionSpacing: Real): integer; overload;
-
-      // text
-      function AddText(ThemeText: TThemeText): integer; overload;
-      function AddText(X, Y: real; const Text_: string): integer; overload;
-      function AddText(X, Y: real; Style: integer; Size, ColR, ColG, ColB: real; const Text: string): integer; overload;
-      function AddText(X, Y, W: real; Style: integer; Size, ColR, ColG, ColB: real; Align: integer; const Text_: string): integer; overload;
-
-      // button
-      Procedure SetButtonLength(Length: Cardinal); //Function that Set Length of Button Array in one Step instead of register new Memory for every Button
-      function AddButton(ThemeButton: TThemeButton): integer; overload;
-      function AddButton(X, Y, W, H: real; const Name: String): integer; overload;
-      function AddButton(X, Y, W, H: real; const Name: String; Typ: TTextureType; Reflection: Boolean): integer; overload;
-      function AddButton(X, Y, W, H, ColR, ColG, ColB, Int, DColR, DColG, DColB, DInt: real; const Name: String; Typ: TTextureType; Reflection: Boolean; ReflectionSpacing, DeSelectReflectionSpacing: Real): integer; overload;
-      procedure ClearButtons;
-      procedure AddButtonText(AddX, AddY: real; const AddText: string); overload;
-      procedure AddButtonText(AddX, AddY: real; ColR, ColG, ColB: real; const AddText: string); overload;
-      procedure AddButtonText(AddX, AddY: real; ColR, ColG, ColB: real; Font: integer; Size: integer; Align: integer; const AddText: string); overload;
-      procedure AddButtonText(CustomButton: TButton; AddX, AddY: real; ColR, ColG, ColB: real; Font: integer; Size: integer; Align: integer; const AddText: string); overload;
-
-      // select
-      function AddSelect(ThemeSelect: TThemeSelect; var Data: integer; Values: array of string): integer; overload;
-      function AddSelect(X, Y, W, H, SkipX, ColR, ColG, ColB, Int, DColR, DColG, DColB, DInt,
-        TColR, TColG, TColB, TInt, TDColR, TDColG, TDColB, TDInt,
-        SBGColR, SBGColG, SBGColB, SBGInt, SBGDColR, SBGDColG, SBGDColB, SBGDInt,
-        STColR, STColG, STColB, STInt, STDColR, STDColG, STDColB, STDInt: real;
-        const Name: String; Typ: TTextureType; const SBGName: String; SBGTyp: TTextureType;
-        const Caption: string; var Data: integer): integer; overload;
-      procedure AddSelectOption(AddX, AddY: real; const AddText: string); overload;
-      procedure AddSelectOption(SelectNo: Cardinal; AddX, AddY: real; const AddText: string); overload;
-      procedure UpdateSelectOptions(ThemeSelect: TThemeSelect; SelectNum: integer; Values: array of string; var Data: integer);
-
-      // select slide
-      function AddSelectSlide(ThemeSelectS: TThemeSelectSlide; var Data: integer; Values: array of string): integer; overload;
-      function AddSelectSlide(X, Y, W, H, SkipX, SBGW, ColR, ColG, ColB, Int, DColR, DColG, DColB, DInt,
-        TColR, TColG, TColB, TInt, TDColR, TDColG, TDColB, TDInt,
-        SBGColR, SBGColG, SBGColB, SBGInt, SBGDColR, SBGDColG, SBGDColB, SBGDInt,
-        STColR, STColG, STColB, STInt, STDColR, STDColG, STDColB, STDInt: real;
-        const Name: String; Typ: TTextureType; const SBGName: String; SBGTyp: TTextureType;
-        const Caption: string; var Data: integer): integer; overload;
-      procedure AddSelectSlideOption(const AddText: string); overload;
-      procedure AddSelectSlideOption(SelectNo: Cardinal; const AddText: string); overload;
-      procedure UpdateSelectSlideOptions(ThemeSelectSlide: TThemeSelectSlide; SelectNum: integer; Values: array of string; var Data: integer);
-
-
-//      function AddWidget(X, Y : UInt16; WidgetSrc : PSDL_Surface): Int16;
-//      procedure ClearWidgets(MinNumber : Int16);
-      procedure FadeTo(Screen: PMenu); overload;
-      procedure FadeTo(Screen: PMenu; aSound: TAudioPlaybackStream); overload;
-      //popup hack
-      procedure CheckFadeTo(Screen: PMenu; msg: String);
-
-      function DrawBG: boolean; virtual;
-      function DrawFG: boolean; virtual;
-      function Draw: boolean; virtual;
-      function ParseInput(PressedKey: Cardinal; CharCode: WideChar; PressedDown : Boolean): Boolean; virtual;
-      // FIXME: ParseMouse is not implemented in any subclass and not even used anywhere in the code
-      //   -> do this before activation of this method
-      //function ParseMouse(Typ: integer; X: integer; Y: integer): Boolean; virtual; abstract;
-      function InRegion(X1, Y1, X2, Y2, X, Y: real): Boolean;
-      function InStaticRegion(StaticNr: integer; X, Y: integer): Boolean;
-      procedure onShow; virtual;
-      procedure onShowFinish; virtual;
-      procedure onHide; virtual;
-
-      procedure SetAnimationProgress(Progress: real); virtual;
-
-      function IsSelectable(Int: Cardinal): Boolean;
-      
-      procedure InteractNext; virtual;
-      procedure InteractCustom(CustomSwitch: integer); virtual;
-      procedure InteractPrev; virtual;
-      procedure InteractInc; virtual;
-      procedure InteractDec; virtual;
-
-      procedure AddBox(X, Y, W, H: real);
-  end;
-
-const
-  pmMove = 1;
-  pmClick = 2;
-  pmUnClick = 3;
-
-  iButton = 0; // interaction type
-  iSelect = 1;
-  iText = 2;
-  iSelectS = 3;
-  iBCollectionChild = 5;
-
-//  fBlack = 0; // fade type
-//  fWhite = 1;
-
-implementation
-
-uses UCommon,
-     ULog,
-     UMain,
-     UDrawTexture,
-     UGraphic,
-     UDisplay,
-     UCovers,
-     USkins;
-
-destructor TMenu.Destroy;
-begin
-  inherited;
-end;
-
-constructor TMenu.Create;
-begin
-  Fade := 0;//fWhite;
-
-  SetLength(Static, 0);
-  SetLength(Button, 0);
-
-  BackImg.TexNum := -1;
-
-  //Set ButtonPos to Autoset Length
-  ButtonPos := -1;
-
-
-  VideoPlayback.Init;
-end;
-{
-constructor TMenu.Create(Back: String);
-begin
-  inherited Create;
-
-  if Back <> '' then begin
-//    BackImg := Texture.GetTexture(true, Back, TEXTURE_TYPE_PLAIN, 0);
-    BackImg := Texture.GetTexture(Back, TEXTURE_TYPE_PLAIN, 0); // new theme system
-    BackImg.W := 800;//640;
-    BackImg.H := 600;//480;
-    BackW := 1;
-    BackH := 1;
-  end else
-    BackImg.TexNum := -1;
-
-   //Set ButtonPos to Autoset Length 
-   ButtonPos := -1;
-end;
-
-constructor TMenu.Create(Back: string; W, H: integer);
-begin
-  Create(Back);
-  BackImg.W := BackImg.W / W;
-  BackImg.H := BackImg.H / H;
-  BackW := W;
-  BackH := H;
-end;   }
-
-function RGBFloatToInt(R, G, B: Double): Cardinal;
-begin
-  Result := (Trunc(255 * R) shl 16) or
-            (Trunc(255 * G) shl  8) or
-             Trunc(255 * B);
-end;
-
-procedure TMenu.AddInteraction(Typ, Num: integer);
-var
-  IntNum:   integer;
-begin
-  IntNum := Length(Interactions);
-  SetLength(Interactions, IntNum+1);
-  Interactions[IntNum].Typ := Typ;
-  Interactions[IntNum].Num := Num;
-  Interaction := 0;
-end;
-
-procedure TMenu.SetInteraction(Num: integer);
-var
-  OldNum, OldTyp:   integer;
-  NewNum, NewTyp:   integer;
-begin
-  // set inactive
-  OldNum := Interactions[Interaction].Num;
-  OldTyp := Interactions[Interaction].Typ;
-
-  NewNum := Interactions[Num].Num;
-  NewTyp := Interactions[Num].Typ;
-
-  case OldTyp of
-    iButton:  Button[OldNum].Selected := False;
-    iSelect:  Selects[OldNum].Selected := False;
-    iText:    Text[OldNum].Selected := False;
-    iSelectS: SelectsS[OldNum].Selected := False;
-    //Button Collection Mod
-    iBCollectionChild:
-      begin
-        Button[OldNum].Selected := False;
-        
-        //Deselect Collection if Next Button is Not from Collection
-        if (NewTyp <> iButton) Or (Button[NewNum].Parent <> Button[OldNum].Parent) then
-          ButtonCollection[Button[OldNum].Parent-1].Selected := False;
-      end;
-  end;
-
-  // set active
-  SelInteraction := Num;
-  case NewTyp of
-    iButton:  Button[NewNum].Selected := True;
-    iSelect:  Selects[NewNum].Selected := True;
-    iText:    Text[NewNum].Selected := True;
-    iSelectS: SelectsS[NewNum].Selected := True;
-
-    //Button Collection Mod
-    iBCollectionChild:
-      begin
-        Button[NewNum].Selected := True;
-        ButtonCollection[Button[NewNum].Parent-1].Selected := True;
-      end;
-  end;
-end;
-
-//----------------------
-//LoadFromTheme - Load BG, Texts, Statics and
-//Button Collections from ThemeBasic
-//----------------------
-procedure TMenu.LoadFromTheme(const ThemeBasic: TThemeBasic);
-var
-  I: Integer;
-begin
-  //Add Button Collections (Set Button CollectionsLength)
-  //Button Collections are Created when the first ChildButton is Created
-  PrepareButtonCollections(ThemeBasic.ButtonCollection);
-
-  //Add Background
-  AddBackground(ThemeBasic.Background.Tex);
-
-  //Add Statics and Texts
-  for I := 0 to High(ThemeBasic.Static) do
-    AddStatic(ThemeBasic.Static[I]);
-
-  for I := 0 to High(ThemeBasic.Text) do
-    AddText(ThemeBasic.Text[I]);
-end;
-
-procedure TMenu.AddBackground(Name: string);
-//var
-//  lFileName : string;
-begin
-  if Name <> '' then
-  begin
-    fFileName := Skin.GetTextureFileName(Name);
-    fFileName := AdaptFilePaths( fFileName );
-
-    if fileexists( fFileName ) then
-    begin
-      BackImg   := Texture.GetTexture( fFileName , TEXTURE_TYPE_PLAIN);
-
-      if ( BackImg.TexNum < 1 )  then
-      begin
-        if VideoPlayback.Open( fFileName ) then
-          VideoPlayback.Play;
-      end;
-
-      BackImg.W := 800;
-      BackImg.H := 600;
-      BackW     := 1;
-      BackH     := 1;
-    end;
-  end;
-end;
-
-//----------------------
-//PrepareButtonCollections:
-//Add Button Collections (Set Button CollectionsLength)
-//----------------------
-procedure TMenu.PrepareButtonCollections(const Collections: AThemeButtonCollection);
-var
-  I: Integer;
-begin
-  SetLength(ButtonCollection, Length(Collections));
-  For I := 0 to High(ButtonCollection) do
-    AddButtonCollection(Collections[I], I);
-end;
-
-//----------------------
-//AddButtonCollection:
-//Create a Button Collection;
-//----------------------
-procedure TMenu.AddButtonCollection(const ThemeCollection: TThemeButtonCollection; Const Num: Byte);
-var
-  BT, BTLen: Integer;
-  TempCol, TempDCol: Cardinal;
-
-begin
-  if (Num > High(ButtonCollection)) then
-    exit;
-
-  TempCol := 0;
-
-  // colorize hack
-  if (ThemeCollection.Style.Typ = TEXTURE_TYPE_COLORIZED) then
-  begin
-    TempCol  := RGBFloatToInt(ThemeCollection.Style.ColR, ThemeCollection.Style.ColG, ThemeCollection.Style.ColB);
-    TempDCol := RGBFloatToInt(ThemeCollection.Style.DColR, ThemeCollection.Style.DColG, ThemeCollection.Style.DColB);
-    // give encoded color to GetTexture()
-    ButtonCollection[Num] := TButtonCollection.Create(
-      Texture.GetTexture(Skin.GetTextureFileName(ThemeCollection.Style.Tex), TEXTURE_TYPE_COLORIZED, TempCol),
-      Texture.GetTexture(Skin.GetTextureFileName(ThemeCollection.Style.Tex), TEXTURE_TYPE_COLORIZED, TempDCol));
-  end
-  else
-  begin
-    ButtonCollection[Num] := TButtonCollection.Create(Texture.GetTexture(Skin.GetTextureFileName(ThemeCollection.Style.Tex), ThemeCollection.Style.Typ, true)); // use cache texture
-  end;
-
-  //Set Parent menu
-  ButtonCollection[Num].ScreenButton := @Self.Button;
-
-  //Set Attributes
-  ButtonCollection[Num].FirstChild := ThemeCollection.FirstChild;
-  ButtonCollection[Num].CountChilds := ThemeCollection.ChildCount;
-  ButtonCollection[Num].Parent := Num + 1;
-
-  //Set Style
-  ButtonCollection[Num].X := ThemeCollection.Style.X;
-  ButtonCollection[Num].Y := ThemeCollection.Style.Y;
-  ButtonCollection[Num].W := ThemeCollection.Style.W;
-  ButtonCollection[Num].H := ThemeCollection.Style.H;
-  if (ThemeCollection.Style.Typ <> TEXTURE_TYPE_COLORIZED) then begin
-    ButtonCollection[Num].SelectColR := ThemeCollection.Style.ColR;
-    ButtonCollection[Num].SelectColG := ThemeCollection.Style.ColG;
-    ButtonCollection[Num].SelectColB := ThemeCollection.Style.ColB;
-    ButtonCollection[Num].DeselectColR := ThemeCollection.Style.DColR;
-    ButtonCollection[Num].DeselectColG := ThemeCollection.Style.DColG;
-    ButtonCollection[Num].DeselectColB := ThemeCollection.Style.DColB;
-  end;
-  ButtonCollection[Num].SelectInt := ThemeCollection.Style.Int;
-  ButtonCollection[Num].DeselectInt := ThemeCollection.Style.DInt;
-  ButtonCollection[Num].Texture.TexX1 := 0;
-  ButtonCollection[Num].Texture.TexY1 := 0;
-  ButtonCollection[Num].Texture.TexX2 := 1;
-  ButtonCollection[Num].Texture.TexY2 := 1;
-  ButtonCollection[Num].SetSelect(false);
-
-  ButtonCollection[Num].Reflection := ThemeCollection.Style.Reflection;
-  ButtonCollection[Num].Reflectionspacing := ThemeCollection.Style.ReflectionSpacing;
-  ButtonCollection[Num].DeSelectReflectionspacing := ThemeCollection.Style.DeSelectReflectionSpacing;
-
-  ButtonCollection[Num].Z := ThemeCollection.Style.Z;
-
-  //Some Things from ButtonFading
-  ButtonCollection[Num].SelectH := ThemeCollection.Style.SelectH;
-  ButtonCollection[Num].SelectW := ThemeCollection.Style.SelectW;
-
-  ButtonCollection[Num].Fade := ThemeCollection.Style.Fade;
-  ButtonCollection[Num].FadeText := ThemeCollection.Style.FadeText;
-  if (ThemeCollection.Style.Typ = TEXTURE_TYPE_COLORIZED) then
-    ButtonCollection[Num].FadeTex := Texture.GetTexture(
-      Skin.GetTextureFileName(ThemeCollection.Style.FadeTex), TEXTURE_TYPE_COLORIZED, TempCol)
-  else
-    ButtonCollection[Num].FadeTex := Texture.GetTexture(Skin.GetTextureFileName(ThemeCollection.Style.FadeTex), ThemeCollection.Style.Typ, true);
-  ButtonCollection[Num].FadeTexPos := ThemeCollection.Style.FadeTexPos;
-
-
-  BTLen := Length(ThemeCollection.Style.Text);
-  for BT := 0 to BTLen-1 do begin
-      AddButtonText(ButtonCollection[Num], ThemeCollection.Style.Text[BT].X, ThemeCollection.Style.Text[BT].Y,
-      ThemeCollection.Style.Text[BT].ColR, ThemeCollection.Style.Text[BT].ColG, ThemeCollection.Style.Text[BT].ColB,
-      ThemeCollection.Style.Text[BT].Font, ThemeCollection.Style.Text[BT].Size, ThemeCollection.Style.Text[BT].Align,
-      ThemeCollection.Style.Text[BT].Text);
-  end;
-end;
-
-function TMenu.AddStatic(ThemeStatic: TThemeStatic): integer;
-begin
-  Result := AddStatic(ThemeStatic.X, ThemeStatic.Y, ThemeStatic.W, ThemeStatic.H, ThemeStatic.Z,
-    ThemeStatic.ColR, ThemeStatic.ColG, ThemeStatic.ColB,
-    ThemeStatic.TexX1, ThemeStatic.TexY1, ThemeStatic.TexX2, ThemeStatic.TexY2,
-    Skin.GetTextureFileName(ThemeStatic.Tex),
-    ThemeStatic.Typ, $FFFFFF, ThemeStatic.Reflection, ThemeStatic.Reflectionspacing);
-end;
-
-function TMenu.AddStatic(X, Y, W, H: real; const Name: string): integer;
-begin
-  Result := AddStatic(X, Y, W, H, Name, TEXTURE_TYPE_PLAIN);
-end;
-
-function TMenu.AddStatic(X, Y, W, H: real; ColR, ColG, ColB: real; const Name: string; Typ: TTextureType): integer;
-var
-  StatNum:  integer;
-begin
-  Result := AddStatic(X, Y, W, H, ColR, ColG, ColB, Name, Typ, $FFFFFF);
-end;
-
-function TMenu.AddStatic(X, Y, W, H, Z: real; ColR, ColG, ColB: real; const Name: string; Typ: TTextureType): integer;
-var
-  StatNum:  integer;
-begin
-  Result := AddStatic(X, Y, W, H, Z, ColR, ColG, ColB, Name, Typ, $FFFFFF);
-end;
-
-function TMenu.AddStatic(X, Y, W, H: real; const Name: string; Typ: TTextureType): integer;
-var
-  StatNum:  integer;
-begin
-  // adds static
-  StatNum := Length(Static);
-  SetLength(Static, StatNum + 1);
-  Static[StatNum] := TStatic.Create(Texture.GetTexture(Name, Typ, $FF00FF)); // new skin
-
-  // configures static
-  Static[StatNum].Texture.X := X;
-  Static[StatNum].Texture.Y := Y;
-  Static[StatNum].Texture.W := W;
-  Static[StatNum].Texture.H := H;
-  Static[StatNum].Visible := true;
-  Result := StatNum;
-end;
-
-function TMenu.AddStatic(X, Y, W, H: real; ColR, ColG, ColB: real; const Name: string; Typ: TTextureType; Color: integer): integer;
-var
-  StatNum:  integer;
-begin
-  Result := AddStatic(X, Y, W, H, 0, ColR, ColG, ColB, Name, Typ, Color);
-end;
-
-function TMenu.AddStatic(X, Y, W, H, Z: real; ColR, ColG, ColB: real; const Name: string; Typ: TTextureType; Color: integer): integer;
-begin
-  Result := AddStatic(X, Y, W, H, Z, ColR, ColG, ColB, 0, 0, 1, 1, Name, Typ, Color, False, 0);
-end;
-
-function TMenu.AddStatic(X, Y, W, H, Z: real; ColR, ColG, ColB: real; TexX1, TexY1, TexX2, TexY2: real; const Name: string; Typ: TTextureType; Color: integer; Reflection: Boolean; ReflectionSpacing: Real): integer;
-var
-  StatNum:  integer;
-begin
-  // adds static
-  StatNum := Length(Static);
-  SetLength(Static, StatNum + 1);
-
-  // colorize hack
-  if (Typ = TEXTURE_TYPE_COLORIZED) then
-  begin
-    // give encoded color to GetTexture()
-    Static[StatNum] := TStatic.Create(Texture.GetTexture(Name, Typ, RGBFloatToInt(ColR, ColG, ColB)));
-  end
-  else
-  begin
-    Static[StatNum] := TStatic.Create(Texture.GetTexture(Name, Typ, Color)); // new skin
-  end;
-
-  // configures static
-  Static[StatNum].Texture.X := X;
-  Static[StatNum].Texture.Y := Y;
-  Static[StatNum].Texture.W := W;
-  Static[StatNum].Texture.H := H;
-  Static[StatNum].Texture.Z := Z;
-  if (Typ <> TEXTURE_TYPE_COLORIZED) then begin
-    Static[StatNum].Texture.ColR := ColR;
-    Static[StatNum].Texture.ColG := ColG;
-    Static[StatNum].Texture.ColB := ColB;
-  end;
-  Static[StatNum].Texture.TexX1 := TexX1;
-  Static[StatNum].Texture.TexY1 := TexY1;
-  Static[StatNum].Texture.TexX2 := TexX2;
-  Static[StatNum].Texture.TexY2 := TexY2;
-  Static[StatNum].Texture.Alpha := 1;
-  Static[StatNum].Visible := true;
-
-  //ReflectionMod
-  Static[StatNum].Reflection := Reflection;
-  Static[StatNum].ReflectionSpacing := ReflectionSpacing;
-
-  Result := StatNum;
-end;
-
-function TMenu.AddText(ThemeText: TThemeText): integer;
-begin
-  Result := AddText(ThemeText.X, ThemeText.Y, ThemeText.W, ThemeText.Font, ThemeText.Size,
-    ThemeText.ColR, ThemeText.ColG, ThemeText.ColB, ThemeText.Align, ThemeText.Text);
-end;
-
-function TMenu.AddText(X, Y: real; const Text_: string): integer;
-var
-  TextNum:  integer;
-begin
-  // adds text
-  TextNum := Length(Text);
-  SetLength(Text, TextNum + 1);
-  Text[TextNum] := TText.Create(X, Y, Text_);
-  Result := TextNum;
-end;
-
-function TMenu.AddText(X, Y: real; Style: integer; Size, ColR, ColG, ColB: real; const Text: string): integer;
-begin
-  Result := AddText(X, Y, 0, Style, Size, ColR, ColG, ColB, 0, Text);
-end;
-
-function TMenu.AddText(X, Y, W: real; Style: integer; Size, ColR, ColG, ColB: real; Align: integer; const Text_: string): integer;
-var
-  TextNum:  integer;
-begin
-  // adds text
-  TextNum := Length(Text);
-  SetLength(Text, TextNum + 1);
-  Text[TextNum] := TText.Create(X, Y, W, Style, Size, ColR, ColG, ColB, Align, Text_);
-  Result := TextNum;
-end;
-
-//Function that Set Length of Button Array in one Step instead of register new Memory for every Button
-Procedure TMenu.SetButtonLength(Length: Cardinal);
-begin
-  if (ButtonPos = -1) AND (Length > 0) then
-  begin
-    //Set Length of Button
-    SetLength(Button, Length);
-
-    //Set ButtonPos to start with 0
-    ButtonPos := 0;
-  end;
-end;
-
-
-// Method to add a button in our TMenu. It returns the assigned ButtonNumber
-function TMenu.AddButton(ThemeButton: TThemeButton): integer;
-var
-  BT:     integer;
-  BTLen:  integer;
-  temp:   integer;
-  TempR, TempG, TempB, TempR2, TempG2, TempB2: Cardinal;
-begin
-  Result := AddButton(ThemeButton.X, ThemeButton.Y, ThemeButton.W, ThemeButton.H,
-    ThemeButton.ColR, ThemeButton.ColG, ThemeButton.ColB, ThemeButton.Int,
-    ThemeButton.DColR, ThemeButton.DColG, ThemeButton.DColB, ThemeButton.DInt,
-    Skin.GetTextureFileName(ThemeButton.Tex), ThemeButton.Typ,
-    ThemeButton.Reflection, ThemeButton.Reflectionspacing, ThemeButton.DeSelectReflectionspacing);
-
-  Button[Result].Z := ThemeButton.Z;
-
-  //Button Visibility
-  Button[Result].Visible := ThemeButton.Visible;
-
-  //Some Things from ButtonFading
-  Button[Result].SelectH := ThemeButton.SelectH;
-  Button[Result].SelectW := ThemeButton.SelectW;
-
-  Button[Result].Fade := ThemeButton.Fade;
-  Button[Result].FadeText := ThemeButton.FadeText;
-  if (ThemeButton.Typ = TEXTURE_TYPE_COLORIZED) then begin
-    Button[Result].FadeTex := Texture.GetTexture(
-      Skin.GetTextureFileName(ThemeButton.FadeTex), TEXTURE_TYPE_COLORIZED,
-      RGBFloatToInt(ThemeButton.ColR, ThemeButton.ColG, ThemeButton.ColB));
-  end
-  else
-  begin
-    Button[Result].FadeTex := Texture.GetTexture(Skin.GetTextureFileName(ThemeButton.FadeTex), ThemeButton.Typ, true);
-  end;
-
-  Button[Result].FadeTexPos := ThemeButton.FadeTexPos;
-
-  BTLen := Length(ThemeButton.Text);
-  for BT := 0 to BTLen-1 do begin
-    AddButtonText(ThemeButton.Text[BT].X, ThemeButton.Text[BT].Y,
-      ThemeButton.Text[BT].ColR, ThemeButton.Text[BT].ColG, ThemeButton.Text[BT].ColB,
-      ThemeButton.Text[BT].Font, ThemeButton.Text[BT].Size, ThemeButton.Text[BT].Align,
-      ThemeButton.Text[BT].Text);
-  end;
-
-  //BAutton Collection Mod
-  if (ThemeButton.Parent <> 0) then
-  begin
-    //If Collection Exists then Change Interaction to Child Button
-    if (@ButtonCollection[ThemeButton.Parent-1] <> nil) then
-    begin
-      Interactions[High(Interactions)].Typ := iBCollectionChild;
-      Button[Result].Visible := False;
-
-      for BT := 0 to BTLen-1 do
-        Button[Result].Text[BT].Alpha := 0;
-
-      Button[Result].Parent := ThemeButton.Parent;
-      if (ButtonCollection[ThemeButton.Parent-1].Fade) then
-        Button[Result].Texture.Alpha := 0;
-    end;
-  end;
-  Log.BenchmarkEnd(6);
-  Log.LogBenchmark('====> Screen Options32', 6);
-end;
-
-function TMenu.AddButton(X, Y, W, H: real; const Name: String): integer;
-begin
-  Result := AddButton(X, Y, W, H, Name, TEXTURE_TYPE_PLAIN, False);
-end;
-
-function TMenu.AddButton(X, Y, W, H: real; const Name: String; Typ: TTextureType; Reflection: Boolean): integer;
-begin
-  Result := AddButton(X, Y, W, H, 1, 1, 1, 1, 1, 1, 1, 0.5, Name, TEXTURE_TYPE_PLAIN, Reflection, 15, 15);
-end;
-
-function TMenu.AddButton(X, Y, W, H, ColR, ColG, ColB, Int, DColR, DColG, DColB, DInt: real;
-                         const Name: String; Typ: TTextureType;
-                         Reflection: Boolean; ReflectionSpacing, DeSelectReflectionSpacing: Real): integer;
-begin
-  // adds button
-  //SetLength is used once to reduce Memory usement
-  if (ButtonPos <> -1) then
-  begin
-    Result := ButtonPos;
-    Inc(ButtonPos)
-  end
-  else //Old Method -> Reserve new Memory for every Button
-  begin
-    Result := Length(Button);
-    SetLength(Button, Result + 1);
-  end;
-  //  Button[Result] := TButton.Create(Texture.GetTexture(Name, Typ));
-
-  // check here for cache
-  //  Texture.GetTexture(Name, Typ, false); // preloads textures and creates cahce mipmap when needed
-  //  if Covers.CoverExists(Name) then
-  // colorize hack
-  if (Typ = TEXTURE_TYPE_COLORIZED) then
-  begin
-    // give encoded color to GetTexture()
-    Button[Result] := TButton.Create(Texture.GetTexture(Name, Typ, RGBFloatToInt(ColR, ColG, ColB)),
-                                     Texture.GetTexture(Name, Typ, RGBFloatToInt(DColR, DColG, DColB)));
-  end
-  else
-  begin
-    Button[Result] := TButton.Create(Texture.GetTexture(Name, Typ, true)); // use cache texture
-  end;
-
-  // configures button
-  Button[Result].X := X;
-  Button[Result].Y := Y;
-  Button[Result].W := W;
-  Button[Result].H := H;
-  if (Typ <> TEXTURE_TYPE_COLORIZED) then begin
-    Button[Result].SelectColR := ColR;
-    Button[Result].SelectColG := ColG;
-    Button[Result].SelectColB := ColB;
-    Button[Result].DeselectColR := DColR;
-    Button[Result].DeselectColG := DColG;
-    Button[Result].DeselectColB := DColB;
-  end;
-  Button[Result].SelectInt := Int;
-  Button[Result].DeselectInt := DInt;
-  Button[Result].Texture.TexX1 := 0;
-  Button[Result].Texture.TexY1 := 0;
-  Button[Result].Texture.TexX2 := 1;
-  Button[Result].Texture.TexY2 := 1;
-  Button[Result].SetSelect(false);
-
-  Button[Result].Reflection := Reflection;
-  Button[Result].Reflectionspacing := ReflectionSpacing;
-  Button[Result].DeSelectReflectionspacing := DeSelectReflectionSpacing;
-
-  //Button Collection Mod
-  Button[Result].Parent := 0;
-
-
-  // adds interaction
-  AddInteraction(iButton, Result);
-  Interaction := 0;
-end;
-
-procedure TMenu.ClearButtons;
-begin
-  Setlength(Button, 0);
-end;
-
-// Method to draw our TMenu and all his child buttons
-function TMenu.DrawBG: boolean;
-var
-  PetX:   integer;
-  PetY:   integer;
-begin
-
-  BackImg.ColR := 1;
-  BackImg.ColG := 1;
-  BackImg.ColB := 1;
-  BackImg.TexX1 := 0;
-  BackImg.TexY1 := 0;
-  BackImg.TexX2 := 1;
-  BackImg.TexY2 := 1;
-  if (BackImg.TexNum <> -1) then
-  begin
-    // does anyone know what these loops were for?
-    {
-      // draw texture with overlapping
-      for PetY := 1 to BackH do
-        for PetX := 1 to BackW do begin
-          BackImg.X := (PetX-1)/BackW * 800; //640
-          BackImg.Y := (PetY-1)/BackH * 600; //480
-          DrawTexture(BackImg);
-        end; // for PetX
-    }
-    {
-      BackImg.X:=BackW;
-      BackImg.Y:=BackW;
-    }
-    BackImg.X := 0;
-    BackImg.Y := 0;
-    BackImg.Z := 0; // todo: eddie: to the opengl experts: please check this! On the mac z is not initialized???
-    BackImg.W := 800;
-    BackImg.H := 600;
-    DrawTexture(BackImg);
-  end; // if
-
-
-  //if assigned( VideoPlayback ) then
-  begin
-    VideoPlayback.GetFrame( now() );
-    VideoPlayback.DrawGL(2);
-  end;
-
-  Result := true;
-end;
-
-function TMenu.DrawFG: boolean;
-var
-  J:      Integer;
-begin
-  // We don't forget about newly implemented static for nice skin ...
-  for J := 0 to Length(Static) - 1 do
-    Static[J].Draw;
-
-  // ... and slightly implemented menutext unit
-  for J := 0 to Length(Text) - 1 do
-    Text[J].Draw;
-
-
-  //  Draw all ButtonCollections
-  For J := 0 to High(ButtonCollection) do
-    ButtonCollection[J].Draw;
-
-  // Second, we draw all of our buttons
-  for J := 0 to Length(Button) - 1 do
-    Button[J].Draw;
-
-  // Third, we draw all of our selects
-  for J := 0 to Length(Selects) - 1 do
-    Selects[J].Draw(1);
-
-  for J := 0 to Length(SelectsS) - 1 do
-    SelectsS[J].Draw;
-
-  // Third, we draw all our widgets
-  //  for J := 0 to Length(WidgetsSrc) - 1 do
-  //    SDL_BlitSurface(WidgetsSrc[J], nil, ParentBackBuf, WidgetsRect[J]);
-  Result := True;
-end;
-
-function TMenu.Draw: boolean;
-begin
-  DrawBG;
-  DrawFG;
-  Result := True;
-end;
-
-{
-function TMenu.GetNextScreen(): PMenu;
-begin
-  Result := NextScreen;
-end;
-}
-
-{
-function TMenu.AddWidget(X, Y : UInt16; WidgetSrc : PSDL_Surface): Int16;
-var
-  WidgetNum : Int16;
-begin
-  If (Assigned(WidgetSrc)) Then
-  begin
-    WidgetNum := Length(WidgetsSrc);
-
-    SetLength(WidgetsSrc, WidgetNum + 1);
-    SetLength(WidgetsRect, WidgetNum + 1);
-
-    WidgetsSrc[WidgetNum] := WidgetSrc;
-    WidgetsRect[WidgetNum] := new(PSDL_Rect);
-    WidgetsRect[WidgetNum]^.x := X;
-    WidgetsRect[WidgetNum]^.y := Y;
-    WidgetsRect[WidgetNum]^.w := WidgetSrc^.w;
-    WidgetsRect[WidgetNum]^.h := WidgetSrc^.h;
-
-    Result := WidgetNum;
-  end
-  else
-    Result := -1;
-end;
-}
-
-{
-procedure TMenu.ClearWidgets(MinNumber : Int16);
-var
-  J : Int16;
-begin
-  For J := MinNumber to (Length(WidgetsSrc) - 1) do
-  begin
-    SDL_FreeSurface(WidgetsSrc[J]);
-    dispose(WidgetsRect[J]);
-  end;
-
-  SetLength(WidgetsSrc, MinNumber);
-  SetLength(WidgetsRect, MinNumber);
-end;
-}
-
-function TMenu.IsSelectable(Int: Cardinal): Boolean;
-begin
-  Result := True;
-  Case Interactions[Int].Typ of
-    //Button
-    iButton: Result := Button[Interactions[Int].Num].Visible and Button[Interactions[Int].Num].Selectable;
-    //Select
-    iSelect: Result := True;
-    //Select Slide
-    iSelectS: Result := SelectsS[Interactions[Int].Num].Visible;
-
-    //ButtonCollection Child
-    iBCollectionChild:
-      Result := (ButtonCollection[Button[Interactions[Int].Num].Parent - 1].FirstChild - 1 = Int) AND ((Interactions[Interaction].Typ <> iBCollectionChild) OR (Button[Interactions[Interaction].Num].Parent <> Button[Interactions[Int].Num].Parent));
-  end;
-end;
-
-procedure TMenu.InteractNext;
-var
-  Int: Integer;
-begin
-  Int := Interaction;
-
-  // change interaction as long as it's needed
-  repeat
-    Int := (Int + 1) Mod Length(Interactions);
-
-    //If no Interaction is Selectable Simply Select Next
-    if (Int = Interaction) then Break;
-
-  Until IsSelectable(Int);
-
-  //Set Interaction
-  Interaction := Int;
-end;
-
-
-procedure TMenu.InteractPrev;
-var
-  Int: Integer;
-begin
-  Int := Interaction;
-
-  // change interaction as long as it's needed
-  repeat
-    Int := Int - 1;
-    if Int = -1 then Int := High(Interactions);
-
-    //If no Interaction is Selectable Simply Select Next
-    if (Int = Interaction) then Break;
-  Until IsSelectable(Int);
-
-  //Set Interaction
-  Interaction := Int
-end;
-
-
-procedure TMenu.InteractCustom(CustomSwitch: integer);
-var
-  Num:    integer;
-  Typ:    integer;
-  Again:  boolean;
-begin
-  //Code Commented atm, because it needs to be Rewritten
-  //it doesn't work with Button Collections
-  {then begin
-    CustomSwitch:= CustomSwitch*(-1);
-    Again := true;
-  // change interaction as long as it's needed
-  while (Again = true) do begin
-    Num := SelInteraction - CustomSwitch;
-    if Num = -1 then Num := High(Interactions);
-    Interaction := Num;
-    Again := false; // reset, default to accept changing interaction
-
-    // checking newly interacted element
-    Num := Interactions[Interaction].Num;
-    Typ := Interactions[Interaction].Typ;
-    case Typ of
-    iButton:
-      begin
-        if Button[Num].Selectable = false then Again := True;
-      end;
-    end; // case
-  end; // while
-  end
-  else if num>0 then begin
-    Again := true;
-    // change interaction as long as it's needed
-  while (Again = true) do begin
-    Num := (Interaction + CustomSwitch) Mod Length(Interactions);
-    Interaction := Num;
-    Again := false; // reset, default to accept changing interaction
-
-
-    // checking newly interacted element
-    Num := Interactions[Interaction].Num;
-    Typ := Interactions[Interaction].Typ;
-    case Typ of
-    iButton:
-      begin
-        if Button[Num].Selectable = false then Again := True;
-      end;
-    end; // case
-  end; // while
-    end     }
-end;
-
-
-procedure TMenu.FadeTo(Screen: PMenu);
-begin
-  Display.Fade := 0;
-  Display.NextScreen := Screen;
-end;
-
-procedure TMenu.FadeTo(Screen: PMenu; aSound: TAudioPlaybackStream);
-begin
-  FadeTo( Screen );
-  AudioPlayback.PlaySound( aSound );
-end;
-
-
-//popup hack
-procedure TMenu.CheckFadeTo(Screen: PMenu; msg: String);
-begin
-  Display.Fade := 0;
-  Display.NextScreenWithCheck := Screen;
-  Display.CheckOK:=False;
-  ScreenPopupCheck.ShowPopup(msg);
-end;
-
-procedure TMenu.AddButtonText(AddX, AddY: real; const AddText: string);
-begin
-  AddButtonText(AddX, AddY, 1, 1, 1, AddText);
-end;
-
-procedure TMenu.AddButtonText(AddX, AddY: real; ColR, ColG, ColB: real; const AddText: string);
-var
-  Il:   integer;
-begin
-  with Button[High(Button)] do begin
-    Il := Length(Text);
-    SetLength(Text, Il+1);
-    Text[Il] := TText.Create(X + AddX, Y + AddY, AddText);
-    Text[Il].ColR := ColR;
-    Text[Il].ColG := ColG;
-    Text[Il].ColB := ColB;
-    Text[Il].Int := 1;//0.5;
-  end;
-end;
-
-procedure TMenu.AddButtonText(AddX, AddY: real; ColR, ColG, ColB: real; Font: integer; Size: integer; Align: integer; const AddText: string);
-var
-  Il:   integer;
-begin
-  with Button[High(Button)] do begin
-    Il := Length(Text);
-    SetLength(Text, Il+1);
-    Text[Il] := TText.Create(X + AddX, Y + AddY, AddText);
-    Text[Il].ColR := ColR;
-    Text[Il].ColG := ColG;
-    Text[Il].ColB := ColB;
-    Text[Il].Int := 1;//0.5;
-    Text[Il].Style := Font;
-    Text[Il].Size := Size;
-    Text[Il].Align := Align;
-  end;
-end;
-
-procedure TMenu.AddButtonText(CustomButton: TButton; AddX, AddY: real; ColR, ColG, ColB: real; Font: integer; Size: integer; Align: integer; const AddText: string);
-var
-  Il:   integer;
-begin
-  with CustomButton do begin
-    Il := Length(Text);
-    SetLength(Text, Il+1);
-    Text[Il] := TText.Create(X + AddX, Y + AddY, AddText);
-    Text[Il].ColR := ColR;
-    Text[Il].ColG := ColG;
-    Text[Il].ColB := ColB;
-    Text[Il].Int := 1;//0.5;
-    Text[Il].Style := Font;
-    Text[Il].Size := Size;
-    Text[Il].Align := Align;
-  end;
-end;
-
-function TMenu.AddSelect(ThemeSelect: TThemeSelect; var Data: integer; Values: array of string): integer;
-var
-  SO:     integer;
-begin
-  Result := AddSelect(ThemeSelect.X, ThemeSelect.Y, ThemeSelect.W, ThemeSelect.H, ThemeSelect.SkipX,
-    ThemeSelect.ColR, ThemeSelect.ColG, ThemeSelect.ColB, ThemeSelect.Int,
-    ThemeSelect.DColR, ThemeSelect.DColG, ThemeSelect.DColB, ThemeSelect.DInt,
-    ThemeSelect.TColR, ThemeSelect.TColG, ThemeSelect.TColB, ThemeSelect.TInt,
-    ThemeSelect.TDColR, ThemeSelect.TDColG, ThemeSelect.TDColB, ThemeSelect.TDInt,
-    ThemeSelect.SBGColR, ThemeSelect.SBGColG, ThemeSelect.SBGColB, ThemeSelect.SBGInt,
-    ThemeSelect.SBGDColR, ThemeSelect.SBGDColG, ThemeSelect.SBGDColB, ThemeSelect.SBGDInt,
-    ThemeSelect.STColR, ThemeSelect.STColG, ThemeSelect.STColB, ThemeSelect.STInt,
-    ThemeSelect.STDColR, ThemeSelect.STDColG, ThemeSelect.STDColB, ThemeSelect.STDInt,
-    Skin.GetTextureFileName(ThemeSelect.Tex), TEXTURE_TYPE_COLORIZED,
-    Skin.GetTextureFileName(ThemeSelect.TexSBG), TEXTURE_TYPE_COLORIZED,
-    ThemeSelect.Text, Data);
-  for SO := 0 to High(Values) do
-    AddSelectOption(ThemeSelect.X + ThemeSelect.W + ThemeSelect.SkipX + SO * 100 + 20, ThemeSelect.Y + 20, Values[SO]);
-end;
-
-function TMenu.AddSelect(X, Y, W, H, SkipX, ColR, ColG, ColB, Int, DColR, DColG, DColB, DInt,
-  TColR, TColG, TColB, TInt, TDColR, TDColG, TDColB, TDInt,
-  SBGColR, SBGColG, SBGColB, SBGInt, SBGDColR, SBGDColG, SBGDColB, SBGDInt,
-  STColR, STColG, STColB, STInt, STDColR, STDColG, STDColB, STDInt: real;
-  const Name: String; Typ: TTextureType; const SBGName: String; SBGTyp: TTextureType;
-  const Caption: string; var Data: integer): integer;
-var
-  S:    integer;
-begin
-  S := Length(Selects);
-  SetLength(Selects, S + 1);
-  Selects[S] := TSelect.Create;
-
-  if (Typ = TEXTURE_TYPE_COLORIZED) then
-    Selects[S].Texture := Texture.GetTexture(Name, Typ, RGBFloatToInt(ColR, ColG, ColB))
-  else
-    Selects[S].Texture := Texture.GetTexture(Name, Typ);
-  Selects[S].X := X;
-  Selects[S].Y := Y;
-  Selects[S].W := W;
-  Selects[S].H := H;
-  Selects[S].ColR := ColR;
-  Selects[S].ColG := ColG;
-  Selects[S].ColB := ColB;
-  Selects[S].Int := Int;
-  Selects[S].DColR := DColR;
-  Selects[S].DColG := DColG;
-  Selects[S].DColB := DColB;
-  Selects[S].DInt := DInt;
-
-  if (SBGTyp = TEXTURE_TYPE_COLORIZED) then
-    Selects[S].TextureSBG := Texture.GetTexture(SBGName, SBGTyp, RGBFloatToInt(SBGColR, SBGColG, SBGColB))
-  else
-    Selects[S].TextureSBG := Texture.GetTexture(SBGName, SBGTyp);
-  Selects[S].TextureSBG.X := X + W + SkipX;
-  Selects[S].TextureSBG.Y := Y;
-  Selects[S].TextureSBG.W := 450;
-  Selects[S].TextureSBG.H := H;
-  Selects[S].SBGColR := SBGColR;
-  Selects[S].SBGColG := SBGColG;
-  Selects[S].SBGColB := SBGColB;
-  Selects[S].SBGInt := SBGInt;
-  Selects[S].SBGDColR := SBGDColR;
-  Selects[S].SBGDColG := SBGDColG;
-  Selects[S].SBGDColB := SBGDColB;
-  Selects[S].SBGDInt := SBGDInt;
-
-  Selects[S].Text.X := X + 20;
-  Selects[S].Text.Y := Y + 20;
-  Selects[S].Text.Text := Caption;
-  Selects[S].Text.Size := 10;
-  Selects[S].Text.Visible := true;
-  Selects[S].TColR := TColR;
-  Selects[S].TColG := TColG;
-  Selects[S].TColB := TColB;
-  Selects[S].TInt := TInt;
-  Selects[S].TDColR := TDColR;
-  Selects[S].TDColG := TDColG;
-  Selects[S].TDColB := TDColB;
-  Selects[S].TDInt := TDInt;
-
-  Selects[S].STColR := STColR;
-  Selects[S].STColG := STColG;
-  Selects[S].STColB := STColB;
-  Selects[S].STInt := STInt;
-  Selects[S].STDColR := STDColR;
-  Selects[S].STDColG := STDColG;
-  Selects[S].STDColB := STDColB;
-  Selects[S].STDInt := STDInt;
-
-  // new
-  Selects[S].Texture.TexX1 := 0;
-  Selects[S].Texture.TexY1 := 0;
-  Selects[S].Texture.TexX2 := 1;
-  Selects[S].Texture.TexY2 := 1;
-  Selects[S].TextureSBG.TexX1 := 0;
-  Selects[S].TextureSBG.TexY1 := 0;
-  Selects[S].TextureSBG.TexX2 := 1;
-  Selects[S].TextureSBG.TexY2 := 1;
-
-  // Sets Data to copy the value of selectops to global value;
-  Selects[S].PData := @Data;
-
-  // Sets default value of selectopt from Data;
-  Selects[S].SelectedOption := Data;
-
-  // Disables default selection
-  Selects[S].SetSelect(false);
-
-  // adds interaction
-  AddInteraction(iSelect, S);
-end;
-
-procedure TMenu.AddSelectOption(AddX, AddY: real; const AddText: string);
-begin
-  AddSelectOption (High(Selects), AddX, AddY, AddText);
-end;
-
-procedure TMenu.AddSelectOption(SelectNo: Cardinal; AddX, AddY: real; const AddText: string);
-var
-  SO:     integer;
-begin
-  SO := Length(Selects[SelectNo].TextOpt);
-  SetLength(Selects[SelectNo].TextOpt, SO + 1);
-
-  Selects[SelectNo].TextOpt[SO] := TText.Create;
-
-  Selects[SelectNo].TextOpt[SO].X := AddX;
-  Selects[SelectNo].TextOpt[SO].Y := AddY;
-  Selects[SelectNo].TextOpt[SO].Text := AddText;
-  Selects[SelectNo].TextOpt[SO].Size := 10;
-  Selects[SelectNo].TextOpt[SO].ColR := Selects[SelectNo].STDColR;
-  Selects[SelectNo].TextOpt[SO].ColG := Selects[SelectNo].STDColG;
-  Selects[SelectNo].TextOpt[SO].ColB := Selects[SelectNo].STDColB;
-  Selects[SelectNo].TextOpt[SO].Int := Selects[SelectNo].STDInt;
-  Selects[SelectNo].TextOpt[SO].Visible := true;
-
-  if SO = Selects[SelectNo].PData^ then Selects[SelectNo].SelectedOption := SO;
-end;
-
-procedure TMenu.UpdateSelectOptions(ThemeSelect: TThemeSelect; SelectNum: integer; Values: array of string; var Data: integer);
-var
-  SO:   integer;
-begin
-  SetLength(Selects[SelectNum].TextOpt, 0);
-  for SO := 0 to High(Values) do
-    AddSelectOption(SelectNum, ThemeSelect.X + ThemeSelect.W + ThemeSelect.SkipX + SO * 100 + 20, ThemeSelect.Y + 20, Values[SO]);
-end;
-
-function TMenu.AddSelectSlide(ThemeSelectS: TThemeSelectSlide; var Data: integer; Values: array of string): integer;
-var
-  SO:     integer;
-begin
-  Result := AddSelectSlide(ThemeSelectS.X, ThemeSelectS.Y, ThemeSelectS.W, ThemeSelectS.H, ThemeSelectS.SkipX, ThemeSelectS.SBGW,
-    ThemeSelectS.ColR, ThemeSelectS.ColG, ThemeSelectS.ColB, ThemeSelectS.Int,
-    ThemeSelectS.DColR, ThemeSelectS.DColG, ThemeSelectS.DColB, ThemeSelectS.DInt,
-    ThemeSelectS.TColR, ThemeSelectS.TColG, ThemeSelectS.TColB, ThemeSelectS.TInt,
-    ThemeSelectS.TDColR, ThemeSelectS.TDColG, ThemeSelectS.TDColB, ThemeSelectS.TDInt,
-    ThemeSelectS.SBGColR, ThemeSelectS.SBGColG, ThemeSelectS.SBGColB, ThemeSelectS.SBGInt,
-    ThemeSelectS.SBGDColR, ThemeSelectS.SBGDColG, ThemeSelectS.SBGDColB, ThemeSelectS.SBGDInt,
-    ThemeSelectS.STColR, ThemeSelectS.STColG, ThemeSelectS.STColB, ThemeSelectS.STInt,
-    ThemeSelectS.STDColR, ThemeSelectS.STDColG, ThemeSelectS.STDColB, ThemeSelectS.STDInt,
-    Skin.GetTextureFileName(ThemeSelectS.Tex), TEXTURE_TYPE_COLORIZED,
-    Skin.GetTextureFileName(ThemeSelectS.TexSBG), TEXTURE_TYPE_COLORIZED,
-    ThemeSelectS.Text, Data);
-  for SO := 0 to High(Values) do
-    AddSelectSlideOption(Values[SO]);
-
-  SelectsS[High(SelectsS)].Text.Size := ThemeSelectS.TextSize;
-
-  SelectsS[High(SelectsS)].Texture.Z := ThemeSelectS.Z;
-  SelectsS[High(SelectsS)].TextureSBG.Z := ThemeSelectS.Z;
-
-  //Generate Lines
-  SelectsS[High(SelectsS)].GenLines;
-
-  SelectsS[High(SelectsS)].SelectedOption := SelectsS[High(SelectsS)].SelectOptInt; // refresh
-end;
-
-function TMenu.AddSelectSlide(X, Y, W, H, SkipX, SBGW, ColR, ColG, ColB, Int, DColR, DColG, DColB, DInt,
-  TColR, TColG, TColB, TInt, TDColR, TDColG, TDColB, TDInt,
-  SBGColR, SBGColG, SBGColB, SBGInt, SBGDColR, SBGDColG, SBGDColB, SBGDInt,
-  STColR, STColG, STColB, STInt, STDColR, STDColG, STDColB, STDInt: real;
-  const Name: String; Typ: TTextureType; const SBGName: String; SBGTyp: TTextureType;
-  const Caption: string; var Data: integer): integer;
-var
-  S:    integer;
-  I:    integer;
-begin
-  S := Length(SelectsS);
-  SetLength(SelectsS, S + 1);
-  SelectsS[S] := TSelectSlide.Create;
-
-  if (Typ = TEXTURE_TYPE_COLORIZED) then
-    SelectsS[S].Texture := Texture.GetTexture(Name, Typ, RGBFloatToInt(ColR, ColG, ColB))
-  else
-    SelectsS[S].Texture := Texture.GetTexture(Name, Typ);
-  SelectsS[S].X := X;
-  SelectsS[S].Y := Y;
-  SelectsS[S].W := W;
-  SelectsS[S].H := H;
-
-  SelectsS[S].ColR := ColR;
-  SelectsS[S].ColG := ColG;
-  SelectsS[S].ColB := ColB;
-  SelectsS[S].Int := Int;
-  SelectsS[S].DColR := DColR;
-  SelectsS[S].DColG := DColG;
-  SelectsS[S].DColB := DColB;
-  SelectsS[S].DInt := DInt;
-
-  if (SBGTyp = TEXTURE_TYPE_COLORIZED) then
-    SelectsS[S].TextureSBG := Texture.GetTexture(SBGName, SBGTyp, RGBFloatToInt(SBGColR, SBGColG, SBGColB))
-  else
-    SelectsS[S].TextureSBG := Texture.GetTexture(SBGName, SBGTyp);
-  SelectsS[S].TextureSBG.X := X + W + SkipX;
-  SelectsS[S].TextureSBG.Y := Y;
-  //SelectsS[S].TextureSBG.W := 450;
-  SelectsS[S].SBGW := SBGW;
-  SelectsS[S].TextureSBG.H := H;
-  SelectsS[S].SBGColR := SBGColR;
-  SelectsS[S].SBGColG := SBGColG;
-  SelectsS[S].SBGColB := SBGColB;
-  SelectsS[S].SBGInt := SBGInt;
-  SelectsS[S].SBGDColR := SBGDColR;
-  SelectsS[S].SBGDColG := SBGDColG;
-  SelectsS[S].SBGDColB := SBGDColB;
-  SelectsS[S].SBGDInt := SBGDInt;
-
-  SelectsS[S].Text.X := X + 20;
-  SelectsS[S].Text.Y := Y + (SelectsS[S].TextureSBG.H / 2) - 15;
-  SelectsS[S].Text.Text := Caption;
-  SelectsS[S].Text.Size := 10;
-  SelectsS[S].Text.Visible := true;
-  SelectsS[S].TColR := TColR;
-  SelectsS[S].TColG := TColG;
-  SelectsS[S].TColB := TColB;
-  SelectsS[S].TInt := TInt;
-  SelectsS[S].TDColR := TDColR;
-  SelectsS[S].TDColG := TDColG;
-  SelectsS[S].TDColB := TDColB;
-  SelectsS[S].TDInt := TDInt;
-
-  SelectsS[S].STColR := STColR;
-  SelectsS[S].STColG := STColG;
-  SelectsS[S].STColB := STColB;
-  SelectsS[S].STInt := STInt;
-  SelectsS[S].STDColR := STDColR;
-  SelectsS[S].STDColG := STDColG;
-  SelectsS[S].STDColB := STDColB;
-  SelectsS[S].STDInt := STDInt;
-
-  // new
-  SelectsS[S].Texture.TexX1 := 0;
-  SelectsS[S].Texture.TexY1 := 0;
-  SelectsS[S].Texture.TexX2 := 1;
-  SelectsS[S].Texture.TexY2 := 1;
-  SelectsS[S].TextureSBG.TexX1 := 0;
-  SelectsS[S].TextureSBG.TexY1 := 0;
-  SelectsS[S].TextureSBG.TexX2 := 1;
-  SelectsS[S].TextureSBG.TexY2 := 1;
-
-  // Sets Data to copy the value of selectops to global value;
-  SelectsS[S].PData := @Data;
-  // Configures Select options
-  {//SelectsS[S].TextOpt[0].Text := IntToStr(I+1);
-  SelectsS[S].TextOpt[0].Size := 10;
-  SelectsS[S].TextOpt[0].Align := 1;
-
-  SelectsS[S].TextOpt[0].ColR := SelectsS[S].STDColR;
-  SelectsS[S].TextOpt[0].ColG := SelectsS[S].STDColG;
-  SelectsS[S].TextOpt[0].ColB := SelectsS[S].STDColB;
-  SelectsS[S].TextOpt[0].Int := SelectsS[S].STDInt;
-  SelectsS[S].TextOpt[0].Visible := true; }
-
-  // Sets default value of selectopt from Data;
-  SelectsS[S].SelectedOption := Data;
-
-  // Disables default selection
-  SelectsS[S].SetSelect(false);
-
-  {// Configures 3 select options
-  for I := 0 to 2 do begin
-    SelectsS[S].TextOpt[I].X := SelectsS[S].TextureSBG.X + 20 + (50 + 20) + (150 - 20) * I;
-    SelectsS[S].TextOpt[I].Y := SelectsS[S].TextureSBG.Y + 20;
-    SelectsS[S].TextOpt[I].Text := IntToStr(I+1);
-    SelectsS[S].TextOpt[I].Size := 10;
-    SelectsS[S].TextOpt[I].Align := 1;
-
-
-    SelectsS[S].TextOpt[I].ColR := SelectsS[S].STDColR;
-    SelectsS[S].TextOpt[I].ColG := SelectsS[S].STDColG;
-    SelectsS[S].TextOpt[I].ColB := SelectsS[S].STDColB;
-    SelectsS[S].TextOpt[I].Int := SelectsS[S].STDInt;
-    SelectsS[S].TextOpt[I].Visible := true;
-  end;}
-
-
-  // adds interaction
-  AddInteraction(iSelectS, S);
-  Result := S;
-end;
-
-procedure TMenu.AddSelectSlideOption(const AddText: string);
-begin
-  AddSelectSlideOption(High(SelectsS), AddText);
-end;
-
-procedure TMenu.AddSelectSlideOption(SelectNo: Cardinal; const AddText: string);
-var
-  SO:     integer;
-begin
-  SO := Length(SelectsS[SelectNo].TextOptT);
-  
-  SetLength(SelectsS[SelectNo].TextOptT, SO + 1);
-  SelectsS[SelectNo].TextOptT[SO] := AddText;
-
-  //SelectsS[S].SelectedOption := SelectsS[S].SelectOptInt; // refresh
-
-  //if SO = Selects[S].PData^ then Selects[S].SelectedOption := SO;
-end;
-
-procedure TMenu.UpdateSelectSlideOptions(ThemeSelectSlide: TThemeSelectSlide; SelectNum: integer; Values: array of string; var Data: integer);
-var
-  SO:   integer;
-begin
-  SetLength(SelectsS[SelectNum].TextOptT, 0);
-  for SO := 0 to High(Values) do
-    AddSelectSlideOption(SelectNum, Values[SO]);
-
-  SelectsS[SelectNum].GenLines;
-
-//  SelectsS[SelectNum].SelectedOption := SelectsS[SelectNum].SelectOptInt; // refresh
-//  SelectS[SelectNum].SetSelectOpt(Data);
-//  SelectS[SelectNum].SelectedOption := 0;//Data;
-
-//  Log.LogError(IntToStr(High(SelectsS[SelectNum].TextOptT)));
-//  if 0 <= High(SelectsS[SelectNum].TextOptT) then
-
-  SelectsS[SelectNum].PData := @Data;
-  SelectsS[SelectNum].SelectedOption := Data;
-end;
-
-function TMenu.InRegion(X1, Y1, X2, Y2, X, Y: real): Boolean;
-begin
-  Result := false;
-  X1 := X1 * RenderW/640;
-  X2 := X2 * RenderW/640;
-  Y1 := Y1 * RenderH/480;
-  Y2 := Y2 * RenderH/480;
-  if (X >= X1) and (X <= X2) and (Y >= Y1) and (Y <= Y2) then
-    Result := true;
-end;
-
-function TMenu.InStaticRegion(StaticNr: integer; X, Y: integer): Boolean;
-begin
-  Result := InRegion(Static[StaticNr].Texture.X,
-    Static[StaticNr].Texture.Y,
-    Static[StaticNr].Texture.X + Static[StaticNr].Texture.W - 1,
-    Static[StaticNr].Texture.Y + Static[StaticNr].Texture.H - 1,
-    X, Y);
-end;
-
-procedure TMenu.InteractInc;
-var
-  Num:    integer;
-  Value:  integer;
-begin
-  case Interactions[Interaction].Typ of
-    iSelect:  begin
-        Num := Interactions[Interaction].Num;
-        Value := Selects[Num].SelectedOption;
-        Value := (Value + 1) Mod (Length(Selects[Num].TextOpt));
-        Selects[Num].SelectedOption := Value;
-      end;
-    iSelectS: begin
-        Num := Interactions[Interaction].Num;
-        Value := SelectsS[Num].SelectedOption;
-//        Value := (Value + 1) Mod (Length(SelectsS[Num].TextOptT));
-
-        // limit
-        Value := Value + 1;
-        if Value <= High(SelectsS[Num].TextOptT) then
-          SelectsS[Num].SelectedOption := Value;
-      end;
-    //Button Collection Mod
-    iBCollectionChild:
-      begin
-
-        //Select Next Button in Collection
-        For Num := 1 to High(Button) do
-        begin
-          Value := (Interaction + Num) Mod Length(Button);
-          if Value = 0 then
-          begin
-            InteractNext;
-            Break;
-          end;
-          if (Button[Value].Parent = Button[Interaction].Parent) then
-          begin
-            Interaction := Value;
-            Break;
-          end;
-        end;
-      end;
-    //interact Next if there is Nothing to Change
-    else InteractNext;
-  end;
-end;
-
-procedure TMenu.InteractDec;
-var
-  Num:    integer;
-  Value:  integer;
-begin
-  case Interactions[Interaction].Typ of
-    iSelect:  begin
-        Num := Interactions[Interaction].Num;
-        Value := Selects[Num].SelectedOption;
-        Value := Value - 1;
-        if Value = -1 then
-          Value := High(Selects[Num].TextOpt);
-        Selects[Num].SelectedOption := Value;
-      end;
-    iSelectS: begin
-        Num := Interactions[Interaction].Num;
-        Value := SelectsS[Num].SelectedOption;
-        Value := Value - 1;
-//        if Value = -1 then
-//          Value := High(SelectsS[Num].TextOptT);
-
-        if Value >= 0 then
-          SelectsS[Num].SelectedOption := Value;
-      end;
-    //Button Collection Mod
-    iBCollectionChild:
-      begin
-        //Select Prev Button in Collection
-        For Num := High(Button) downto 1 do
-        begin
-          Value := (Interaction + Num) Mod Length(Button);
-          if Value = High(Button) then
-          begin
-            InteractPrev;
-            Break;
-          end;
-          if (Button[Value].Parent = Button[Interaction].Parent) then
-          begin
-            Interaction := Value;
-            Break;
-          end;
-        end;
-      end;
-    //interact Prev if there is Nothing to Change
-    else
-      begin
-        InteractPrev;
-        //If ButtonCollection with more than 1 Entry then Select Last Entry
-        if (Button[Interactions[Interaction].Num].Parent <> 0) AND (ButtonCollection[Button[Interactions[Interaction].Num].Parent-1].CountChilds > 1) then
-        begin
-          //Select Last Child
-          For Num := High(Button) downto 1 do
-          begin
-            Value := (Interaction + Num) Mod Length(Button);
-            if (Button[Value].Parent = Button[Interaction].Parent) then
-            begin
-              Interaction := Value;
-              Break;
-            end;
-          end;
-        end;
-      end;
-  end;
-end;
-
-procedure TMenu.AddBox(X, Y, W, H: real);
-begin
-  AddStatic(X,   Y,   W,   H,   0, 0, 0, Skin.GetTextureFileName('MainBar'), TEXTURE_TYPE_COLORIZED);
-  AddStatic(X+2, Y+2, W-4, H-4, 1, 1, 1, Skin.GetTextureFileName('MainBar'), TEXTURE_TYPE_COLORIZED);
-end;
-
-procedure TMenu.onShow;
-begin
-  // nothing
-(*
-  if fileexists( fFileName ) then
-  begin
-    if VideoPlayback.Open( fFileName ) then
-      VideoPlayback.Play;
-  end;
-*)
-end;
-
-procedure TMenu.onShowFinish;
-begin
-  // nothing
-end;
-
-function TMenu.WideCharUpperCase(wchar: WideChar) : WideString;
-begin
-  // On Linux and MacOSX the cwstring unit is necessary for Unicode function-calls.
-  // Otherwise you will get an EIntOverflow exception (thrown by unimplementedwidestring()).
-
-  // The FPC implementation of WideUpperCase returns nil if wchar is #0 (e.g. if an arrow key is pressed)
-  if (wchar <> #0) then
-    Result := WideUpperCase(wchar)
-  else
-    Result := #0;
-end;
-
-procedure TMenu.onHide;
-begin
-  // nothing
-end;
-
-function TMenu.ParseInput(PressedKey: Cardinal; CharCode: WideChar; PressedDown: Boolean): Boolean;
-begin
-  // nothing
-  Result := true;
-end;
-
-procedure TMenu.SetAnimationProgress(Progress: real);
-begin
-  // nothing
-end;
-
-end.
-
+unit UMenu;

+

+interface

+

+{$IFDEF FPC}

+  {$MODE Delphi}

+{$ENDIF}

+

+{$I switches.inc}

+

+uses OpenGL12, SysUtils, UTexture, UMenuStatic, UMenuText, UMenuButton, UMenuSelect, UMenuSelectSlide,

+  UMenuInteract, UThemes, UMenuButtonCollection, Math, UMusic;

+

+type

+{  Int16 = SmallInt;}

+

+  PMenu = ^TMenu;

+  TMenu = class

+    protected

+      ButtonPos:      Integer;

+

+      Interactions:   array of TInteract;

+      SelInteraction: integer;

+      Button:         array of TButton;

+      Selects:        array of TSelect;

+      SelectsS:       array of TSelectSlide;

+      ButtonCollection: array of TButtonCollection;

+      BackImg:        TTexture;

+      BackW:          integer;

+      BackH:          integer;

+

+      fFileName : string;

+    public

+      Text:       array of TText;

+      Static:     array of TStatic;

+      mX:         integer; // mouse X

+      mY:         integer; // mouse Y

+

+      Fade:       integer; // fade type

+      ShowFinish: boolean; // true if there is no fade

+

+

+      destructor Destroy; override;

+      constructor Create; overload; virtual;

+      //constructor Create(Back: string); overload; virtual; // Back is a JPG resource name for background

+      //constructor Create(Back: string; W, H: integer); overload; virtual; // W and H are the number of overlaps

+

+      // interaction

+      function WideCharUpperCase(wchar: WideChar) : WideString;

+      procedure AddInteraction(Typ, Num: integer);

+      procedure SetInteraction(Num: integer);

+      property Interaction: integer read SelInteraction write SetInteraction;

+

+      //Procedure Load BG, Texts, Statics and Button Collections from ThemeBasic

+      procedure LoadFromTheme(const ThemeBasic: TThemeBasic);

+

+      procedure PrepareButtonCollections(const Collections: AThemeButtonCollection);

+      procedure AddButtonCollection(const ThemeCollection: TThemeButtonCollection; Const Num: Byte);

+

+      // background

+      procedure AddBackground(Name: string);

+

+      // static

+      function AddStatic(ThemeStatic: TThemeStatic): integer; overload;

+      function AddStatic(X, Y, W, H: real; const Name: string): integer; overload;

+      function AddStatic(X, Y, W, H: real; const Name: string; Typ: TTextureType): integer; overload;

+      function AddStatic(X, Y, W, H: real; ColR, ColG, ColB: real; const Name: string; Typ: TTextureType): integer; overload;

+      function AddStatic(X, Y, W, H, Z: real; ColR, ColG, ColB: real; const Name: string; Typ: TTextureType): integer; overload;

+      function AddStatic(X, Y, W, H: real; ColR, ColG, ColB: real; const Name: string; Typ: TTextureType; Color: integer): integer; overload;

+      function AddStatic(X, Y, W, H, Z: real; ColR, ColG, ColB: real; const Name: string; Typ: TTextureType; Color: integer): integer; overload;

+      function AddStatic(X, Y, W, H, Z: real; ColR, ColG, ColB: real; TexX1, TexY1, TexX2, TexY2: real; const Name: string; Typ: TTextureType; Color: integer; Reflection: Boolean; ReflectionSpacing: Real): integer; overload;

+

+      // text

+      function AddText(ThemeText: TThemeText): integer; overload;

+      function AddText(X, Y: real; const Text_: string): integer; overload;

+      function AddText(X, Y: real; Style: integer; Size, ColR, ColG, ColB: real; const Text: string): integer; overload;

+      function AddText(X, Y, W: real; Style: integer; Size, ColR, ColG, ColB: real; Align: integer; const Text_: string): integer; overload;

+

+      // button

+      Procedure SetButtonLength(Length: Cardinal); //Function that Set Length of Button Array in one Step instead of register new Memory for every Button

+      function AddButton(ThemeButton: TThemeButton): integer; overload;

+      function AddButton(X, Y, W, H: real; const Name: String): integer; overload;

+      function AddButton(X, Y, W, H: real; const Name: String; Typ: TTextureType; Reflection: Boolean): integer; overload;

+      function AddButton(X, Y, W, H, ColR, ColG, ColB, Int, DColR, DColG, DColB, DInt: real; const Name: String; Typ: TTextureType; Reflection: Boolean; ReflectionSpacing, DeSelectReflectionSpacing: Real): integer; overload;

+      procedure ClearButtons;

+      procedure AddButtonText(AddX, AddY: real; const AddText: string); overload;

+      procedure AddButtonText(AddX, AddY: real; ColR, ColG, ColB: real; const AddText: string); overload;

+      procedure AddButtonText(AddX, AddY: real; ColR, ColG, ColB: real; Font: integer; Size: integer; Align: integer; const AddText: string); overload;

+      procedure AddButtonText(CustomButton: TButton; AddX, AddY: real; ColR, ColG, ColB: real; Font: integer; Size: integer; Align: integer; const AddText: string); overload;

+

+      // select

+      function AddSelect(ThemeSelect: TThemeSelect; var Data: integer; Values: array of string): integer; overload;

+      function AddSelect(X, Y, W, H, SkipX, ColR, ColG, ColB, Int, DColR, DColG, DColB, DInt,

+        TColR, TColG, TColB, TInt, TDColR, TDColG, TDColB, TDInt,

+        SBGColR, SBGColG, SBGColB, SBGInt, SBGDColR, SBGDColG, SBGDColB, SBGDInt,

+        STColR, STColG, STColB, STInt, STDColR, STDColG, STDColB, STDInt: real;

+        const Name: String; Typ: TTextureType; const SBGName: String; SBGTyp: TTextureType;

+        const Caption: string; var Data: integer): integer; overload;

+      procedure AddSelectOption(AddX, AddY: real; const AddText: string); overload;

+      procedure AddSelectOption(SelectNo: Cardinal; AddX, AddY: real; const AddText: string); overload;

+      procedure UpdateSelectOptions(ThemeSelect: TThemeSelect; SelectNum: integer; Values: array of string; var Data: integer);

+

+      // select slide

+      function AddSelectSlide(ThemeSelectS: TThemeSelectSlide; var Data: integer; Values: array of string): integer; overload;

+      function AddSelectSlide(X, Y, W, H, SkipX, SBGW, ColR, ColG, ColB, Int, DColR, DColG, DColB, DInt,

+        TColR, TColG, TColB, TInt, TDColR, TDColG, TDColB, TDInt,

+        SBGColR, SBGColG, SBGColB, SBGInt, SBGDColR, SBGDColG, SBGDColB, SBGDInt,

+        STColR, STColG, STColB, STInt, STDColR, STDColG, STDColB, STDInt: real;

+        const Name: String; Typ: TTextureType; const SBGName: String; SBGTyp: TTextureType;

+        const Caption: string; var Data: integer): integer; overload;

+      procedure AddSelectSlideOption(const AddText: string); overload;

+      procedure AddSelectSlideOption(SelectNo: Cardinal; const AddText: string); overload;

+      procedure UpdateSelectSlideOptions(ThemeSelectSlide: TThemeSelectSlide; SelectNum: integer; Values: array of string; var Data: integer);

+

+

+//      function AddWidget(X, Y : UInt16; WidgetSrc : PSDL_Surface): Int16;

+//      procedure ClearWidgets(MinNumber : Int16);

+      procedure FadeTo(Screen: PMenu); overload;

+      procedure FadeTo(Screen: PMenu; aSound: TAudioPlaybackStream); overload;

+      //popup hack

+      procedure CheckFadeTo(Screen: PMenu; msg: String);

+

+      function DrawBG: boolean; virtual;

+      function DrawFG: boolean; virtual;

+      function Draw: boolean; virtual;

+      function ParseInput(PressedKey: Cardinal; CharCode: WideChar; PressedDown : Boolean): Boolean; virtual;

+      // FIXME: ParseMouse is not implemented in any subclass and not even used anywhere in the code

+      //   -> do this before activation of this method

+      //function ParseMouse(Typ: integer; X: integer; Y: integer): Boolean; virtual; abstract;

+      function InRegion(X1, Y1, X2, Y2, X, Y: real): Boolean;

+      function InStaticRegion(StaticNr: integer; X, Y: integer): Boolean;

+      procedure onShow; virtual;

+      procedure onShowFinish; virtual;

+      procedure onHide; virtual;

+

+      procedure SetAnimationProgress(Progress: real); virtual;

+

+      function IsSelectable(Int: Cardinal): Boolean;

+      

+      procedure InteractNext; virtual;

+      procedure InteractCustom(CustomSwitch: integer); virtual;

+      procedure InteractPrev; virtual;

+      procedure InteractInc; virtual;

+      procedure InteractDec; virtual;

+

+      procedure AddBox(X, Y, W, H: real);

+  end;

+

+const

+  pmMove = 1;

+  pmClick = 2;

+  pmUnClick = 3;

+

+  iButton = 0; // interaction type

+  iSelect = 1;

+  iText = 2;

+  iSelectS = 3;

+  iBCollectionChild = 5;

+

+//  fBlack = 0; // fade type

+//  fWhite = 1;

+

+implementation

+

+uses UCommon,

+     ULog,

+     UMain,

+     UDrawTexture,

+     UGraphic,

+     UDisplay,

+     UCovers,

+     USkins;

+

+destructor TMenu.Destroy;

+begin

+  inherited;

+end;

+

+constructor TMenu.Create;

+begin

+  Fade := 0;//fWhite;

+

+  SetLength(Static, 0);

+  SetLength(Button, 0);

+

+  BackImg.TexNum := 0;

+

+  //Set ButtonPos to Autoset Length

+  ButtonPos := -1;

+

+

+  VideoPlayback.Init;

+end;

+{

+constructor TMenu.Create(Back: String);

+begin

+  inherited Create;

+

+  if Back <> '' then begin

+//    BackImg := Texture.GetTexture(true, Back, TEXTURE_TYPE_PLAIN, 0);

+    BackImg := Texture.GetTexture(Back, TEXTURE_TYPE_PLAIN, 0); // new theme system

+    BackImg.W := 800;//640;

+    BackImg.H := 600;//480;

+    BackW := 1;

+    BackH := 1;

+  end else

+    BackImg.TexNum := 0;

+

+   //Set ButtonPos to Autoset Length 

+   ButtonPos := -1;

+end;

+

+constructor TMenu.Create(Back: string; W, H: integer);

+begin

+  Create(Back);

+  BackImg.W := BackImg.W / W;

+  BackImg.H := BackImg.H / H;

+  BackW := W;

+  BackH := H;

+end;   }

+

+function RGBFloatToInt(R, G, B: Double): Cardinal;

+begin

+  Result := (Trunc(255 * R) shl 16) or

+            (Trunc(255 * G) shl  8) or

+             Trunc(255 * B);

+end;

+

+procedure TMenu.AddInteraction(Typ, Num: integer);

+var

+  IntNum:   integer;

+begin

+  IntNum := Length(Interactions);

+  SetLength(Interactions, IntNum+1);

+  Interactions[IntNum].Typ := Typ;

+  Interactions[IntNum].Num := Num;

+  Interaction := 0;

+end;

+

+procedure TMenu.SetInteraction(Num: integer);

+var

+  OldNum, OldTyp:   integer;

+  NewNum, NewTyp:   integer;

+begin

+  // set inactive

+  OldNum := Interactions[Interaction].Num;

+  OldTyp := Interactions[Interaction].Typ;

+

+  NewNum := Interactions[Num].Num;

+  NewTyp := Interactions[Num].Typ;

+

+  case OldTyp of

+    iButton:  Button[OldNum].Selected := False;

+    iSelect:  Selects[OldNum].Selected := False;

+    iText:    Text[OldNum].Selected := False;

+    iSelectS: SelectsS[OldNum].Selected := False;

+    //Button Collection Mod

+    iBCollectionChild:

+      begin

+        Button[OldNum].Selected := False;

+        

+        //Deselect Collection if Next Button is Not from Collection

+        if (NewTyp <> iButton) Or (Button[NewNum].Parent <> Button[OldNum].Parent) then

+          ButtonCollection[Button[OldNum].Parent-1].Selected := False;

+      end;

+  end;

+

+  // set active

+  SelInteraction := Num;

+  case NewTyp of

+    iButton:  Button[NewNum].Selected := True;

+    iSelect:  Selects[NewNum].Selected := True;

+    iText:    Text[NewNum].Selected := True;

+    iSelectS: SelectsS[NewNum].Selected := True;

+

+    //Button Collection Mod

+    iBCollectionChild:

+      begin

+        Button[NewNum].Selected := True;

+        ButtonCollection[Button[NewNum].Parent-1].Selected := True;

+      end;

+  end;

+end;

+

+//----------------------

+//LoadFromTheme - Load BG, Texts, Statics and

+//Button Collections from ThemeBasic

+//----------------------

+procedure TMenu.LoadFromTheme(const ThemeBasic: TThemeBasic);

+var

+  I: Integer;

+begin

+  //Add Button Collections (Set Button CollectionsLength)

+  //Button Collections are Created when the first ChildButton is Created

+  PrepareButtonCollections(ThemeBasic.ButtonCollection);

+

+  //Add Background

+  AddBackground(ThemeBasic.Background.Tex);

+

+  //Add Statics and Texts

+  for I := 0 to High(ThemeBasic.Static) do

+    AddStatic(ThemeBasic.Static[I]);

+

+  for I := 0 to High(ThemeBasic.Text) do

+    AddText(ThemeBasic.Text[I]);

+end;

+

+procedure TMenu.AddBackground(Name: string);

+//var

+//  lFileName : string;

+begin

+  if Name <> '' then

+  begin

+    fFileName := Skin.GetTextureFileName(Name);

+    fFileName := AdaptFilePaths( fFileName );

+

+    if fileexists( fFileName ) then

+    begin

+      BackImg   := Texture.GetTexture( fFileName , TEXTURE_TYPE_PLAIN);

+

+      if ( BackImg.TexNum = 0 )  then

+      begin

+        if VideoPlayback.Open( fFileName ) then

+          VideoPlayback.Play;

+      end;

+

+      BackImg.W := 800;

+      BackImg.H := 600;

+      BackW     := 1;

+      BackH     := 1;

+    end;

+  end;

+end;

+

+//----------------------

+//PrepareButtonCollections:

+//Add Button Collections (Set Button CollectionsLength)

+//----------------------

+procedure TMenu.PrepareButtonCollections(const Collections: AThemeButtonCollection);

+var

+  I: Integer;

+begin

+  SetLength(ButtonCollection, Length(Collections));

+  For I := 0 to High(ButtonCollection) do

+    AddButtonCollection(Collections[I], I);

+end;

+

+//----------------------

+//AddButtonCollection:

+//Create a Button Collection;

+//----------------------

+procedure TMenu.AddButtonCollection(const ThemeCollection: TThemeButtonCollection; Const Num: Byte);

+var

+  BT, BTLen: Integer;

+  TempCol, TempDCol: Cardinal;

+

+begin

+  if (Num > High(ButtonCollection)) then

+    exit;

+

+  TempCol := 0;

+

+  // colorize hack

+  if (ThemeCollection.Style.Typ = TEXTURE_TYPE_COLORIZED) then

+  begin

+    TempCol  := RGBFloatToInt(ThemeCollection.Style.ColR, ThemeCollection.Style.ColG, ThemeCollection.Style.ColB);

+    TempDCol := RGBFloatToInt(ThemeCollection.Style.DColR, ThemeCollection.Style.DColG, ThemeCollection.Style.DColB);

+    // give encoded color to GetTexture()

+    ButtonCollection[Num] := TButtonCollection.Create(

+      Texture.GetTexture(Skin.GetTextureFileName(ThemeCollection.Style.Tex), TEXTURE_TYPE_COLORIZED, TempCol),

+      Texture.GetTexture(Skin.GetTextureFileName(ThemeCollection.Style.Tex), TEXTURE_TYPE_COLORIZED, TempDCol));

+  end

+  else

+  begin

+    ButtonCollection[Num] := TButtonCollection.Create(Texture.GetTexture(Skin.GetTextureFileName(ThemeCollection.Style.Tex), ThemeCollection.Style.Typ, true)); // use cache texture

+  end;

+

+  //Set Parent menu

+  ButtonCollection[Num].ScreenButton := @Self.Button;

+

+  //Set Attributes

+  ButtonCollection[Num].FirstChild := ThemeCollection.FirstChild;

+  ButtonCollection[Num].CountChilds := ThemeCollection.ChildCount;

+  ButtonCollection[Num].Parent := Num + 1;

+

+  //Set Style

+  ButtonCollection[Num].X := ThemeCollection.Style.X;

+  ButtonCollection[Num].Y := ThemeCollection.Style.Y;

+  ButtonCollection[Num].W := ThemeCollection.Style.W;

+  ButtonCollection[Num].H := ThemeCollection.Style.H;

+  if (ThemeCollection.Style.Typ <> TEXTURE_TYPE_COLORIZED) then begin

+    ButtonCollection[Num].SelectColR := ThemeCollection.Style.ColR;

+    ButtonCollection[Num].SelectColG := ThemeCollection.Style.ColG;

+    ButtonCollection[Num].SelectColB := ThemeCollection.Style.ColB;

+    ButtonCollection[Num].DeselectColR := ThemeCollection.Style.DColR;

+    ButtonCollection[Num].DeselectColG := ThemeCollection.Style.DColG;

+    ButtonCollection[Num].DeselectColB := ThemeCollection.Style.DColB;

+  end;

+  ButtonCollection[Num].SelectInt := ThemeCollection.Style.Int;

+  ButtonCollection[Num].DeselectInt := ThemeCollection.Style.DInt;

+  ButtonCollection[Num].Texture.TexX1 := 0;

+  ButtonCollection[Num].Texture.TexY1 := 0;

+  ButtonCollection[Num].Texture.TexX2 := 1;

+  ButtonCollection[Num].Texture.TexY2 := 1;

+  ButtonCollection[Num].SetSelect(false);

+

+  ButtonCollection[Num].Reflection := ThemeCollection.Style.Reflection;

+  ButtonCollection[Num].Reflectionspacing := ThemeCollection.Style.ReflectionSpacing;

+  ButtonCollection[Num].DeSelectReflectionspacing := ThemeCollection.Style.DeSelectReflectionSpacing;

+

+  ButtonCollection[Num].Z := ThemeCollection.Style.Z;

+

+  //Some Things from ButtonFading

+  ButtonCollection[Num].SelectH := ThemeCollection.Style.SelectH;

+  ButtonCollection[Num].SelectW := ThemeCollection.Style.SelectW;

+

+  ButtonCollection[Num].Fade := ThemeCollection.Style.Fade;

+  ButtonCollection[Num].FadeText := ThemeCollection.Style.FadeText;

+  if (ThemeCollection.Style.Typ = TEXTURE_TYPE_COLORIZED) then

+    ButtonCollection[Num].FadeTex := Texture.GetTexture(

+      Skin.GetTextureFileName(ThemeCollection.Style.FadeTex), TEXTURE_TYPE_COLORIZED, TempCol)

+  else

+    ButtonCollection[Num].FadeTex := Texture.GetTexture(Skin.GetTextureFileName(ThemeCollection.Style.FadeTex), ThemeCollection.Style.Typ, true);

+  ButtonCollection[Num].FadeTexPos := ThemeCollection.Style.FadeTexPos;

+

+

+  BTLen := Length(ThemeCollection.Style.Text);

+  for BT := 0 to BTLen-1 do begin

+      AddButtonText(ButtonCollection[Num], ThemeCollection.Style.Text[BT].X, ThemeCollection.Style.Text[BT].Y,

+      ThemeCollection.Style.Text[BT].ColR, ThemeCollection.Style.Text[BT].ColG, ThemeCollection.Style.Text[BT].ColB,

+      ThemeCollection.Style.Text[BT].Font, ThemeCollection.Style.Text[BT].Size, ThemeCollection.Style.Text[BT].Align,

+      ThemeCollection.Style.Text[BT].Text);

+  end;

+end;

+

+function TMenu.AddStatic(ThemeStatic: TThemeStatic): integer;

+begin

+  Result := AddStatic(ThemeStatic.X, ThemeStatic.Y, ThemeStatic.W, ThemeStatic.H, ThemeStatic.Z,

+    ThemeStatic.ColR, ThemeStatic.ColG, ThemeStatic.ColB,

+    ThemeStatic.TexX1, ThemeStatic.TexY1, ThemeStatic.TexX2, ThemeStatic.TexY2,

+    Skin.GetTextureFileName(ThemeStatic.Tex),

+    ThemeStatic.Typ, $FFFFFF, ThemeStatic.Reflection, ThemeStatic.Reflectionspacing);

+end;

+

+function TMenu.AddStatic(X, Y, W, H: real; const Name: string): integer;

+begin

+  Result := AddStatic(X, Y, W, H, Name, TEXTURE_TYPE_PLAIN);

+end;

+

+function TMenu.AddStatic(X, Y, W, H: real; ColR, ColG, ColB: real; const Name: string; Typ: TTextureType): integer;

+var

+  StatNum:  integer;

+begin

+  Result := AddStatic(X, Y, W, H, ColR, ColG, ColB, Name, Typ, $FFFFFF);

+end;

+

+function TMenu.AddStatic(X, Y, W, H, Z: real; ColR, ColG, ColB: real; const Name: string; Typ: TTextureType): integer;

+var

+  StatNum:  integer;

+begin

+  Result := AddStatic(X, Y, W, H, Z, ColR, ColG, ColB, Name, Typ, $FFFFFF);

+end;

+

+function TMenu.AddStatic(X, Y, W, H: real; const Name: string; Typ: TTextureType): integer;

+var

+  StatNum:  integer;

+begin

+  // adds static

+  StatNum := Length(Static);

+  SetLength(Static, StatNum + 1);

+  Static[StatNum] := TStatic.Create(Texture.GetTexture(Name, Typ, $FF00FF)); // new skin

+

+  // configures static

+  Static[StatNum].Texture.X := X;

+  Static[StatNum].Texture.Y := Y;

+  Static[StatNum].Texture.W := W;

+  Static[StatNum].Texture.H := H;

+  Static[StatNum].Visible := true;

+  Result := StatNum;

+end;

+

+function TMenu.AddStatic(X, Y, W, H: real; ColR, ColG, ColB: real; const Name: string; Typ: TTextureType; Color: integer): integer;

+var

+  StatNum:  integer;

+begin

+  Result := AddStatic(X, Y, W, H, 0, ColR, ColG, ColB, Name, Typ, Color);

+end;

+

+function TMenu.AddStatic(X, Y, W, H, Z: real; ColR, ColG, ColB: real; const Name: string; Typ: TTextureType; Color: integer): integer;

+begin

+  Result := AddStatic(X, Y, W, H, Z, ColR, ColG, ColB, 0, 0, 1, 1, Name, Typ, Color, False, 0);

+end;

+

+function TMenu.AddStatic(X, Y, W, H, Z: real; ColR, ColG, ColB: real; TexX1, TexY1, TexX2, TexY2: real; const Name: string; Typ: TTextureType; Color: integer; Reflection: Boolean; ReflectionSpacing: Real): integer;

+var

+  StatNum:  integer;

+begin

+  // adds static

+  StatNum := Length(Static);

+  SetLength(Static, StatNum + 1);

+

+  // colorize hack

+  if (Typ = TEXTURE_TYPE_COLORIZED) then

+  begin

+    // give encoded color to GetTexture()

+    Static[StatNum] := TStatic.Create(Texture.GetTexture(Name, Typ, RGBFloatToInt(ColR, ColG, ColB)));

+  end

+  else

+  begin

+    Static[StatNum] := TStatic.Create(Texture.GetTexture(Name, Typ, Color)); // new skin

+  end;

+

+  // configures static

+  Static[StatNum].Texture.X := X;

+  Static[StatNum].Texture.Y := Y;

+  Static[StatNum].Texture.W := W;

+  Static[StatNum].Texture.H := H;

+  Static[StatNum].Texture.Z := Z;

+  if (Typ <> TEXTURE_TYPE_COLORIZED) then begin

+    Static[StatNum].Texture.ColR := ColR;

+    Static[StatNum].Texture.ColG := ColG;

+    Static[StatNum].Texture.ColB := ColB;

+  end;

+  Static[StatNum].Texture.TexX1 := TexX1;

+  Static[StatNum].Texture.TexY1 := TexY1;

+  Static[StatNum].Texture.TexX2 := TexX2;

+  Static[StatNum].Texture.TexY2 := TexY2;

+  Static[StatNum].Texture.Alpha := 1;

+  Static[StatNum].Visible := true;

+

+  //ReflectionMod

+  Static[StatNum].Reflection := Reflection;

+  Static[StatNum].ReflectionSpacing := ReflectionSpacing;

+

+  Result := StatNum;

+end;

+

+function TMenu.AddText(ThemeText: TThemeText): integer;

+begin

+  Result := AddText(ThemeText.X, ThemeText.Y, ThemeText.W, ThemeText.Font, ThemeText.Size,

+    ThemeText.ColR, ThemeText.ColG, ThemeText.ColB, ThemeText.Align, ThemeText.Text);

+end;

+

+function TMenu.AddText(X, Y: real; const Text_: string): integer;

+var

+  TextNum:  integer;

+begin

+  // adds text

+  TextNum := Length(Text);

+  SetLength(Text, TextNum + 1);

+  Text[TextNum] := TText.Create(X, Y, Text_);

+  Result := TextNum;

+end;

+

+function TMenu.AddText(X, Y: real; Style: integer; Size, ColR, ColG, ColB: real; const Text: string): integer;

+begin

+  Result := AddText(X, Y, 0, Style, Size, ColR, ColG, ColB, 0, Text);

+end;

+

+function TMenu.AddText(X, Y, W: real; Style: integer; Size, ColR, ColG, ColB: real; Align: integer; const Text_: string): integer;

+var

+  TextNum:  integer;

+begin

+  // adds text

+  TextNum := Length(Text);

+  SetLength(Text, TextNum + 1);

+  Text[TextNum] := TText.Create(X, Y, W, Style, Size, ColR, ColG, ColB, Align, Text_);

+  Result := TextNum;

+end;

+

+//Function that Set Length of Button Array in one Step instead of register new Memory for every Button

+Procedure TMenu.SetButtonLength(Length: Cardinal);

+begin

+  if (ButtonPos = -1) AND (Length > 0) then

+  begin

+    //Set Length of Button

+    SetLength(Button, Length);

+

+    //Set ButtonPos to start with 0

+    ButtonPos := 0;

+  end;

+end;

+

+

+// Method to add a button in our TMenu. It returns the assigned ButtonNumber

+function TMenu.AddButton(ThemeButton: TThemeButton): integer;

+var

+  BT:     integer;

+  BTLen:  integer;

+  temp:   integer;

+  TempR, TempG, TempB, TempR2, TempG2, TempB2: Cardinal;

+begin

+  Result := AddButton(ThemeButton.X, ThemeButton.Y, ThemeButton.W, ThemeButton.H,

+    ThemeButton.ColR, ThemeButton.ColG, ThemeButton.ColB, ThemeButton.Int,

+    ThemeButton.DColR, ThemeButton.DColG, ThemeButton.DColB, ThemeButton.DInt,

+    Skin.GetTextureFileName(ThemeButton.Tex), ThemeButton.Typ,

+    ThemeButton.Reflection, ThemeButton.Reflectionspacing, ThemeButton.DeSelectReflectionspacing);

+

+  Button[Result].Z := ThemeButton.Z;

+

+  //Button Visibility

+  Button[Result].Visible := ThemeButton.Visible;

+

+  //Some Things from ButtonFading

+  Button[Result].SelectH := ThemeButton.SelectH;

+  Button[Result].SelectW := ThemeButton.SelectW;

+

+  Button[Result].Fade := ThemeButton.Fade;

+  Button[Result].FadeText := ThemeButton.FadeText;

+  if (ThemeButton.Typ = TEXTURE_TYPE_COLORIZED) then begin

+    Button[Result].FadeTex := Texture.GetTexture(

+      Skin.GetTextureFileName(ThemeButton.FadeTex), TEXTURE_TYPE_COLORIZED,

+      RGBFloatToInt(ThemeButton.ColR, ThemeButton.ColG, ThemeButton.ColB));

+  end

+  else

+  begin

+    Button[Result].FadeTex := Texture.GetTexture(Skin.GetTextureFileName(ThemeButton.FadeTex), ThemeButton.Typ, true);

+  end;

+

+  Button[Result].FadeTexPos := ThemeButton.FadeTexPos;

+

+  BTLen := Length(ThemeButton.Text);

+  for BT := 0 to BTLen-1 do begin

+    AddButtonText(ThemeButton.Text[BT].X, ThemeButton.Text[BT].Y,

+      ThemeButton.Text[BT].ColR, ThemeButton.Text[BT].ColG, ThemeButton.Text[BT].ColB,

+      ThemeButton.Text[BT].Font, ThemeButton.Text[BT].Size, ThemeButton.Text[BT].Align,

+      ThemeButton.Text[BT].Text);

+  end;

+

+  //BAutton Collection Mod

+  if (ThemeButton.Parent <> 0) then

+  begin

+    //If Collection Exists then Change Interaction to Child Button

+    if (@ButtonCollection[ThemeButton.Parent-1] <> nil) then

+    begin

+      Interactions[High(Interactions)].Typ := iBCollectionChild;

+      Button[Result].Visible := False;

+

+      for BT := 0 to BTLen-1 do

+        Button[Result].Text[BT].Alpha := 0;

+

+      Button[Result].Parent := ThemeButton.Parent;

+      if (ButtonCollection[ThemeButton.Parent-1].Fade) then

+        Button[Result].Texture.Alpha := 0;

+    end;

+  end;

+  Log.BenchmarkEnd(6);

+  Log.LogBenchmark('====> Screen Options32', 6);

+end;

+

+function TMenu.AddButton(X, Y, W, H: real; const Name: String): integer;

+begin

+  Result := AddButton(X, Y, W, H, Name, TEXTURE_TYPE_PLAIN, False);

+end;

+

+function TMenu.AddButton(X, Y, W, H: real; const Name: String; Typ: TTextureType; Reflection: Boolean): integer;

+begin

+  Result := AddButton(X, Y, W, H, 1, 1, 1, 1, 1, 1, 1, 0.5, Name, TEXTURE_TYPE_PLAIN, Reflection, 15, 15);

+end;

+

+function TMenu.AddButton(X, Y, W, H, ColR, ColG, ColB, Int, DColR, DColG, DColB, DInt: real;

+                         const Name: String; Typ: TTextureType;

+                         Reflection: Boolean; ReflectionSpacing, DeSelectReflectionSpacing: Real): integer;

+begin

+  // adds button

+  //SetLength is used once to reduce Memory usement

+  if (ButtonPos <> -1) then

+  begin

+    Result := ButtonPos;

+    Inc(ButtonPos)

+  end

+  else //Old Method -> Reserve new Memory for every Button

+  begin

+    Result := Length(Button);

+    SetLength(Button, Result + 1);

+  end;

+  //  Button[Result] := TButton.Create(Texture.GetTexture(Name, Typ));

+

+  // check here for cache

+  //  Texture.GetTexture(Name, Typ, false); // preloads textures and creates cahce mipmap when needed

+  //  if Covers.CoverExists(Name) then

+  // colorize hack

+  if (Typ = TEXTURE_TYPE_COLORIZED) then

+  begin

+    // give encoded color to GetTexture()

+    Button[Result] := TButton.Create(Texture.GetTexture(Name, Typ, RGBFloatToInt(ColR, ColG, ColB)),

+                                     Texture.GetTexture(Name, Typ, RGBFloatToInt(DColR, DColG, DColB)));

+  end

+  else

+  begin

+    Button[Result] := TButton.Create(Texture.GetTexture(Name, Typ, true)); // use cache texture

+  end;

+

+  // configures button

+  Button[Result].X := X;

+  Button[Result].Y := Y;

+  Button[Result].W := W;

+  Button[Result].H := H;

+  if (Typ <> TEXTURE_TYPE_COLORIZED) then begin

+    Button[Result].SelectColR := ColR;

+    Button[Result].SelectColG := ColG;

+    Button[Result].SelectColB := ColB;

+    Button[Result].DeselectColR := DColR;

+    Button[Result].DeselectColG := DColG;

+    Button[Result].DeselectColB := DColB;

+  end;

+  Button[Result].SelectInt := Int;

+  Button[Result].DeselectInt := DInt;

+  Button[Result].Texture.TexX1 := 0;

+  Button[Result].Texture.TexY1 := 0;

+  Button[Result].Texture.TexX2 := 1;

+  Button[Result].Texture.TexY2 := 1;

+  Button[Result].SetSelect(false);

+

+  Button[Result].Reflection := Reflection;

+  Button[Result].Reflectionspacing := ReflectionSpacing;

+  Button[Result].DeSelectReflectionspacing := DeSelectReflectionSpacing;

+

+  //Button Collection Mod

+  Button[Result].Parent := 0;

+

+

+  // adds interaction

+  AddInteraction(iButton, Result);

+  Interaction := 0;

+end;

+

+procedure TMenu.ClearButtons;

+begin

+  Setlength(Button, 0);

+end;

+

+// Method to draw our TMenu and all his child buttons

+function TMenu.DrawBG: boolean;

+var

+  PetX:   integer;

+  PetY:   integer;

+begin

+

+  BackImg.ColR := 1;

+  BackImg.ColG := 1;

+  BackImg.ColB := 1;

+  BackImg.TexX1 := 0;

+  BackImg.TexY1 := 0;

+  BackImg.TexX2 := 1;

+  BackImg.TexY2 := 1;

+  if (BackImg.TexNum > 0) then

+  begin

+    // does anyone know what these loops were for?

+    {

+      // draw texture with overlapping

+      for PetY := 1 to BackH do

+        for PetX := 1 to BackW do begin

+          BackImg.X := (PetX-1)/BackW * 800; //640

+          BackImg.Y := (PetY-1)/BackH * 600; //480

+          DrawTexture(BackImg);

+        end; // for PetX

+    }

+    {

+      BackImg.X:=BackW;

+      BackImg.Y:=BackW;

+    }

+    BackImg.X := 0;

+    BackImg.Y := 0;

+    BackImg.Z := 0; // todo: eddie: to the opengl experts: please check this! On the mac z is not initialized???

+    BackImg.W := 800;

+    BackImg.H := 600;

+    DrawTexture(BackImg);

+  end; // if

+

+

+  //if assigned( VideoPlayback ) then

+  begin

+    VideoPlayback.GetFrame( now() );

+    VideoPlayback.DrawGL(2);

+  end;

+

+  Result := true;

+end;

+

+function TMenu.DrawFG: boolean;

+var

+  J:      Integer;

+begin

+  // We don't forget about newly implemented static for nice skin ...

+  for J := 0 to Length(Static) - 1 do

+    Static[J].Draw;

+

+  // ... and slightly implemented menutext unit

+  for J := 0 to Length(Text) - 1 do

+    Text[J].Draw;

+

+

+  //  Draw all ButtonCollections

+  For J := 0 to High(ButtonCollection) do

+    ButtonCollection[J].Draw;

+

+  // Second, we draw all of our buttons

+  for J := 0 to Length(Button) - 1 do

+    Button[J].Draw;

+

+  // Third, we draw all of our selects

+  for J := 0 to Length(Selects) - 1 do

+    Selects[J].Draw(1);

+

+  for J := 0 to Length(SelectsS) - 1 do

+    SelectsS[J].Draw;

+

+  // Third, we draw all our widgets

+  //  for J := 0 to Length(WidgetsSrc) - 1 do

+  //    SDL_BlitSurface(WidgetsSrc[J], nil, ParentBackBuf, WidgetsRect[J]);

+  Result := True;

+end;

+

+function TMenu.Draw: boolean;

+begin

+  DrawBG;

+  DrawFG;

+  Result := True;

+end;

+

+{

+function TMenu.GetNextScreen(): PMenu;

+begin

+  Result := NextScreen;

+end;

+}

+

+{

+function TMenu.AddWidget(X, Y : UInt16; WidgetSrc : PSDL_Surface): Int16;

+var

+  WidgetNum : Int16;

+begin

+  If (Assigned(WidgetSrc)) Then

+  begin

+    WidgetNum := Length(WidgetsSrc);

+

+    SetLength(WidgetsSrc, WidgetNum + 1);

+    SetLength(WidgetsRect, WidgetNum + 1);

+

+    WidgetsSrc[WidgetNum] := WidgetSrc;

+    WidgetsRect[WidgetNum] := new(PSDL_Rect);

+    WidgetsRect[WidgetNum]^.x := X;

+    WidgetsRect[WidgetNum]^.y := Y;

+    WidgetsRect[WidgetNum]^.w := WidgetSrc^.w;

+    WidgetsRect[WidgetNum]^.h := WidgetSrc^.h;

+

+    Result := WidgetNum;

+  end

+  else

+    Result := -1;

+end;

+}

+

+{

+procedure TMenu.ClearWidgets(MinNumber : Int16);

+var

+  J : Int16;

+begin

+  For J := MinNumber to (Length(WidgetsSrc) - 1) do

+  begin

+    SDL_FreeSurface(WidgetsSrc[J]);

+    dispose(WidgetsRect[J]);

+  end;

+

+  SetLength(WidgetsSrc, MinNumber);

+  SetLength(WidgetsRect, MinNumber);

+end;

+}

+

+function TMenu.IsSelectable(Int: Cardinal): Boolean;

+begin

+  Result := True;

+  Case Interactions[Int].Typ of

+    //Button

+    iButton: Result := Button[Interactions[Int].Num].Visible and Button[Interactions[Int].Num].Selectable;

+    //Select

+    iSelect: Result := True;

+    //Select Slide

+    iSelectS: Result := SelectsS[Interactions[Int].Num].Visible;

+

+    //ButtonCollection Child

+    iBCollectionChild:

+      Result := (ButtonCollection[Button[Interactions[Int].Num].Parent - 1].FirstChild - 1 = Int) AND ((Interactions[Interaction].Typ <> iBCollectionChild) OR (Button[Interactions[Interaction].Num].Parent <> Button[Interactions[Int].Num].Parent));

+  end;

+end;

+

+procedure TMenu.InteractNext;

+var

+  Int: Integer;

+begin

+  Int := Interaction;

+

+  // change interaction as long as it's needed

+  repeat

+    Int := (Int + 1) Mod Length(Interactions);

+

+    //If no Interaction is Selectable Simply Select Next

+    if (Int = Interaction) then Break;

+

+  Until IsSelectable(Int);

+

+  //Set Interaction

+  Interaction := Int;

+end;

+

+

+procedure TMenu.InteractPrev;

+var

+  Int: Integer;

+begin

+  Int := Interaction;

+

+  // change interaction as long as it's needed

+  repeat

+    Int := Int - 1;

+    if Int = -1 then Int := High(Interactions);

+

+    //If no Interaction is Selectable Simply Select Next

+    if (Int = Interaction) then Break;

+  Until IsSelectable(Int);

+

+  //Set Interaction

+  Interaction := Int

+end;

+

+

+procedure TMenu.InteractCustom(CustomSwitch: integer);

+var

+  Num:    integer;

+  Typ:    integer;

+  Again:  boolean;

+begin

+  //Code Commented atm, because it needs to be Rewritten

+  //it doesn't work with Button Collections

+  {then begin

+    CustomSwitch:= CustomSwitch*(-1);

+    Again := true;

+  // change interaction as long as it's needed

+  while (Again = true) do begin

+    Num := SelInteraction - CustomSwitch;

+    if Num = -1 then Num := High(Interactions);

+    Interaction := Num;

+    Again := false; // reset, default to accept changing interaction

+

+    // checking newly interacted element

+    Num := Interactions[Interaction].Num;

+    Typ := Interactions[Interaction].Typ;

+    case Typ of

+    iButton:

+      begin

+        if Button[Num].Selectable = false then Again := True;

+      end;

+    end; // case

+  end; // while

+  end

+  else if num>0 then begin

+    Again := true;

+    // change interaction as long as it's needed

+  while (Again = true) do begin

+    Num := (Interaction + CustomSwitch) Mod Length(Interactions);

+    Interaction := Num;

+    Again := false; // reset, default to accept changing interaction

+

+

+    // checking newly interacted element

+    Num := Interactions[Interaction].Num;

+    Typ := Interactions[Interaction].Typ;

+    case Typ of

+    iButton:

+      begin

+        if Button[Num].Selectable = false then Again := True;

+      end;

+    end; // case

+  end; // while

+    end     }

+end;

+

+

+procedure TMenu.FadeTo(Screen: PMenu);

+begin

+  Display.Fade := 0;

+  Display.NextScreen := Screen;

+end;

+

+procedure TMenu.FadeTo(Screen: PMenu; aSound: TAudioPlaybackStream);

+begin

+  FadeTo( Screen );

+  AudioPlayback.PlaySound( aSound );

+end;

+

+

+//popup hack

+procedure TMenu.CheckFadeTo(Screen: PMenu; msg: String);

+begin

+  Display.Fade := 0;

+  Display.NextScreenWithCheck := Screen;

+  Display.CheckOK:=False;

+  ScreenPopupCheck.ShowPopup(msg);

+end;

+

+procedure TMenu.AddButtonText(AddX, AddY: real; const AddText: string);

+begin

+  AddButtonText(AddX, AddY, 1, 1, 1, AddText);

+end;

+

+procedure TMenu.AddButtonText(AddX, AddY: real; ColR, ColG, ColB: real; const AddText: string);

+var

+  Il:   integer;

+begin

+  with Button[High(Button)] do begin

+    Il := Length(Text);

+    SetLength(Text, Il+1);

+    Text[Il] := TText.Create(X + AddX, Y + AddY, AddText);

+    Text[Il].ColR := ColR;

+    Text[Il].ColG := ColG;

+    Text[Il].ColB := ColB;

+    Text[Il].Int := 1;//0.5;

+  end;

+end;

+

+procedure TMenu.AddButtonText(AddX, AddY: real; ColR, ColG, ColB: real; Font: integer; Size: integer; Align: integer; const AddText: string);

+var

+  Il:   integer;

+begin

+  with Button[High(Button)] do begin

+    Il := Length(Text);

+    SetLength(Text, Il+1);

+    Text[Il] := TText.Create(X + AddX, Y + AddY, AddText);

+    Text[Il].ColR := ColR;

+    Text[Il].ColG := ColG;

+    Text[Il].ColB := ColB;

+    Text[Il].Int := 1;//0.5;

+    Text[Il].Style := Font;

+    Text[Il].Size := Size;

+    Text[Il].Align := Align;

+  end;

+end;

+

+procedure TMenu.AddButtonText(CustomButton: TButton; AddX, AddY: real; ColR, ColG, ColB: real; Font: integer; Size: integer; Align: integer; const AddText: string);

+var

+  Il:   integer;

+begin

+  with CustomButton do begin

+    Il := Length(Text);

+    SetLength(Text, Il+1);

+    Text[Il] := TText.Create(X + AddX, Y + AddY, AddText);

+    Text[Il].ColR := ColR;

+    Text[Il].ColG := ColG;

+    Text[Il].ColB := ColB;

+    Text[Il].Int := 1;//0.5;

+    Text[Il].Style := Font;

+    Text[Il].Size := Size;

+    Text[Il].Align := Align;

+  end;

+end;

+

+function TMenu.AddSelect(ThemeSelect: TThemeSelect; var Data: integer; Values: array of string): integer;

+var

+  SO:     integer;

+begin

+  Result := AddSelect(ThemeSelect.X, ThemeSelect.Y, ThemeSelect.W, ThemeSelect.H, ThemeSelect.SkipX,

+    ThemeSelect.ColR, ThemeSelect.ColG, ThemeSelect.ColB, ThemeSelect.Int,

+    ThemeSelect.DColR, ThemeSelect.DColG, ThemeSelect.DColB, ThemeSelect.DInt,

+    ThemeSelect.TColR, ThemeSelect.TColG, ThemeSelect.TColB, ThemeSelect.TInt,

+    ThemeSelect.TDColR, ThemeSelect.TDColG, ThemeSelect.TDColB, ThemeSelect.TDInt,

+    ThemeSelect.SBGColR, ThemeSelect.SBGColG, ThemeSelect.SBGColB, ThemeSelect.SBGInt,

+    ThemeSelect.SBGDColR, ThemeSelect.SBGDColG, ThemeSelect.SBGDColB, ThemeSelect.SBGDInt,

+    ThemeSelect.STColR, ThemeSelect.STColG, ThemeSelect.STColB, ThemeSelect.STInt,

+    ThemeSelect.STDColR, ThemeSelect.STDColG, ThemeSelect.STDColB, ThemeSelect.STDInt,

+    Skin.GetTextureFileName(ThemeSelect.Tex), TEXTURE_TYPE_COLORIZED,

+    Skin.GetTextureFileName(ThemeSelect.TexSBG), TEXTURE_TYPE_COLORIZED,

+    ThemeSelect.Text, Data);

+  for SO := 0 to High(Values) do

+    AddSelectOption(ThemeSelect.X + ThemeSelect.W + ThemeSelect.SkipX + SO * 100 + 20, ThemeSelect.Y + 20, Values[SO]);

+end;

+

+function TMenu.AddSelect(X, Y, W, H, SkipX, ColR, ColG, ColB, Int, DColR, DColG, DColB, DInt,

+  TColR, TColG, TColB, TInt, TDColR, TDColG, TDColB, TDInt,

+  SBGColR, SBGColG, SBGColB, SBGInt, SBGDColR, SBGDColG, SBGDColB, SBGDInt,

+  STColR, STColG, STColB, STInt, STDColR, STDColG, STDColB, STDInt: real;

+  const Name: String; Typ: TTextureType; const SBGName: String; SBGTyp: TTextureType;

+  const Caption: string; var Data: integer): integer;

+var

+  S:    integer;

+begin

+  S := Length(Selects);

+  SetLength(Selects, S + 1);

+  Selects[S] := TSelect.Create;

+

+  if (Typ = TEXTURE_TYPE_COLORIZED) then

+    Selects[S].Texture := Texture.GetTexture(Name, Typ, RGBFloatToInt(ColR, ColG, ColB))

+  else

+    Selects[S].Texture := Texture.GetTexture(Name, Typ);

+  Selects[S].X := X;

+  Selects[S].Y := Y;

+  Selects[S].W := W;

+  Selects[S].H := H;

+  Selects[S].ColR := ColR;

+  Selects[S].ColG := ColG;

+  Selects[S].ColB := ColB;

+  Selects[S].Int := Int;

+  Selects[S].DColR := DColR;

+  Selects[S].DColG := DColG;

+  Selects[S].DColB := DColB;

+  Selects[S].DInt := DInt;

+

+  if (SBGTyp = TEXTURE_TYPE_COLORIZED) then

+    Selects[S].TextureSBG := Texture.GetTexture(SBGName, SBGTyp, RGBFloatToInt(SBGColR, SBGColG, SBGColB))

+  else

+    Selects[S].TextureSBG := Texture.GetTexture(SBGName, SBGTyp);

+  Selects[S].TextureSBG.X := X + W + SkipX;

+  Selects[S].TextureSBG.Y := Y;

+  Selects[S].TextureSBG.W := 450;

+  Selects[S].TextureSBG.H := H;

+  Selects[S].SBGColR := SBGColR;

+  Selects[S].SBGColG := SBGColG;

+  Selects[S].SBGColB := SBGColB;

+  Selects[S].SBGInt := SBGInt;

+  Selects[S].SBGDColR := SBGDColR;

+  Selects[S].SBGDColG := SBGDColG;

+  Selects[S].SBGDColB := SBGDColB;

+  Selects[S].SBGDInt := SBGDInt;

+

+  Selects[S].Text.X := X + 20;

+  Selects[S].Text.Y := Y + 20;

+  Selects[S].Text.Text := Caption;

+  Selects[S].Text.Size := 10;

+  Selects[S].Text.Visible := true;

+  Selects[S].TColR := TColR;

+  Selects[S].TColG := TColG;

+  Selects[S].TColB := TColB;

+  Selects[S].TInt := TInt;

+  Selects[S].TDColR := TDColR;

+  Selects[S].TDColG := TDColG;

+  Selects[S].TDColB := TDColB;

+  Selects[S].TDInt := TDInt;

+

+  Selects[S].STColR := STColR;

+  Selects[S].STColG := STColG;

+  Selects[S].STColB := STColB;

+  Selects[S].STInt := STInt;

+  Selects[S].STDColR := STDColR;

+  Selects[S].STDColG := STDColG;

+  Selects[S].STDColB := STDColB;

+  Selects[S].STDInt := STDInt;

+

+  // new

+  Selects[S].Texture.TexX1 := 0;

+  Selects[S].Texture.TexY1 := 0;

+  Selects[S].Texture.TexX2 := 1;

+  Selects[S].Texture.TexY2 := 1;

+  Selects[S].TextureSBG.TexX1 := 0;

+  Selects[S].TextureSBG.TexY1 := 0;

+  Selects[S].TextureSBG.TexX2 := 1;

+  Selects[S].TextureSBG.TexY2 := 1;

+

+  // Sets Data to copy the value of selectops to global value;

+  Selects[S].PData := @Data;

+

+  // Sets default value of selectopt from Data;

+  Selects[S].SelectedOption := Data;

+

+  // Disables default selection

+  Selects[S].SetSelect(false);

+

+  // adds interaction

+  AddInteraction(iSelect, S);

+end;

+

+procedure TMenu.AddSelectOption(AddX, AddY: real; const AddText: string);

+begin

+  AddSelectOption (High(Selects), AddX, AddY, AddText);

+end;

+

+procedure TMenu.AddSelectOption(SelectNo: Cardinal; AddX, AddY: real; const AddText: string);

+var

+  SO:     integer;

+begin

+  SO := Length(Selects[SelectNo].TextOpt);

+  SetLength(Selects[SelectNo].TextOpt, SO + 1);

+

+  Selects[SelectNo].TextOpt[SO] := TText.Create;

+

+  Selects[SelectNo].TextOpt[SO].X := AddX;

+  Selects[SelectNo].TextOpt[SO].Y := AddY;

+  Selects[SelectNo].TextOpt[SO].Text := AddText;

+  Selects[SelectNo].TextOpt[SO].Size := 10;

+  Selects[SelectNo].TextOpt[SO].ColR := Selects[SelectNo].STDColR;

+  Selects[SelectNo].TextOpt[SO].ColG := Selects[SelectNo].STDColG;

+  Selects[SelectNo].TextOpt[SO].ColB := Selects[SelectNo].STDColB;

+  Selects[SelectNo].TextOpt[SO].Int := Selects[SelectNo].STDInt;

+  Selects[SelectNo].TextOpt[SO].Visible := true;

+

+  if SO = Selects[SelectNo].PData^ then Selects[SelectNo].SelectedOption := SO;

+end;

+

+procedure TMenu.UpdateSelectOptions(ThemeSelect: TThemeSelect; SelectNum: integer; Values: array of string; var Data: integer);

+var

+  SO:   integer;

+begin

+  SetLength(Selects[SelectNum].TextOpt, 0);

+  for SO := 0 to High(Values) do

+    AddSelectOption(SelectNum, ThemeSelect.X + ThemeSelect.W + ThemeSelect.SkipX + SO * 100 + 20, ThemeSelect.Y + 20, Values[SO]);

+end;

+

+function TMenu.AddSelectSlide(ThemeSelectS: TThemeSelectSlide; var Data: integer; Values: array of string): integer;

+var

+  SO:     integer;

+begin

+  Result := AddSelectSlide(ThemeSelectS.X, ThemeSelectS.Y, ThemeSelectS.W, ThemeSelectS.H, ThemeSelectS.SkipX, ThemeSelectS.SBGW,

+    ThemeSelectS.ColR, ThemeSelectS.ColG, ThemeSelectS.ColB, ThemeSelectS.Int,

+    ThemeSelectS.DColR, ThemeSelectS.DColG, ThemeSelectS.DColB, ThemeSelectS.DInt,

+    ThemeSelectS.TColR, ThemeSelectS.TColG, ThemeSelectS.TColB, ThemeSelectS.TInt,

+    ThemeSelectS.TDColR, ThemeSelectS.TDColG, ThemeSelectS.TDColB, ThemeSelectS.TDInt,

+    ThemeSelectS.SBGColR, ThemeSelectS.SBGColG, ThemeSelectS.SBGColB, ThemeSelectS.SBGInt,

+    ThemeSelectS.SBGDColR, ThemeSelectS.SBGDColG, ThemeSelectS.SBGDColB, ThemeSelectS.SBGDInt,

+    ThemeSelectS.STColR, ThemeSelectS.STColG, ThemeSelectS.STColB, ThemeSelectS.STInt,

+    ThemeSelectS.STDColR, ThemeSelectS.STDColG, ThemeSelectS.STDColB, ThemeSelectS.STDInt,

+    Skin.GetTextureFileName(ThemeSelectS.Tex), TEXTURE_TYPE_COLORIZED,

+    Skin.GetTextureFileName(ThemeSelectS.TexSBG), TEXTURE_TYPE_COLORIZED,

+    ThemeSelectS.Text, Data);

+  for SO := 0 to High(Values) do

+    AddSelectSlideOption(Values[SO]);

+

+  SelectsS[High(SelectsS)].Text.Size := ThemeSelectS.TextSize;

+

+  SelectsS[High(SelectsS)].Texture.Z := ThemeSelectS.Z;

+  SelectsS[High(SelectsS)].TextureSBG.Z := ThemeSelectS.Z;

+

+  //Generate Lines

+  SelectsS[High(SelectsS)].GenLines;

+

+  SelectsS[High(SelectsS)].SelectedOption := SelectsS[High(SelectsS)].SelectOptInt; // refresh

+end;

+

+function TMenu.AddSelectSlide(X, Y, W, H, SkipX, SBGW, ColR, ColG, ColB, Int, DColR, DColG, DColB, DInt,

+  TColR, TColG, TColB, TInt, TDColR, TDColG, TDColB, TDInt,

+  SBGColR, SBGColG, SBGColB, SBGInt, SBGDColR, SBGDColG, SBGDColB, SBGDInt,

+  STColR, STColG, STColB, STInt, STDColR, STDColG, STDColB, STDInt: real;

+  const Name: String; Typ: TTextureType; const SBGName: String; SBGTyp: TTextureType;

+  const Caption: string; var Data: integer): integer;

+var

+  S:    integer;

+  I:    integer;

+begin

+  S := Length(SelectsS);

+  SetLength(SelectsS, S + 1);

+  SelectsS[S] := TSelectSlide.Create;

+

+  if (Typ = TEXTURE_TYPE_COLORIZED) then

+    SelectsS[S].Texture := Texture.GetTexture(Name, Typ, RGBFloatToInt(ColR, ColG, ColB))

+  else

+    SelectsS[S].Texture := Texture.GetTexture(Name, Typ);

+  SelectsS[S].X := X;

+  SelectsS[S].Y := Y;

+  SelectsS[S].W := W;

+  SelectsS[S].H := H;

+

+  SelectsS[S].ColR := ColR;

+  SelectsS[S].ColG := ColG;

+  SelectsS[S].ColB := ColB;

+  SelectsS[S].Int := Int;

+  SelectsS[S].DColR := DColR;

+  SelectsS[S].DColG := DColG;

+  SelectsS[S].DColB := DColB;

+  SelectsS[S].DInt := DInt;

+

+  if (SBGTyp = TEXTURE_TYPE_COLORIZED) then

+    SelectsS[S].TextureSBG := Texture.GetTexture(SBGName, SBGTyp, RGBFloatToInt(SBGColR, SBGColG, SBGColB))

+  else

+    SelectsS[S].TextureSBG := Texture.GetTexture(SBGName, SBGTyp);

+  SelectsS[S].TextureSBG.X := X + W + SkipX;

+  SelectsS[S].TextureSBG.Y := Y;

+  //SelectsS[S].TextureSBG.W := 450;

+  SelectsS[S].SBGW := SBGW;

+  SelectsS[S].TextureSBG.H := H;

+  SelectsS[S].SBGColR := SBGColR;

+  SelectsS[S].SBGColG := SBGColG;

+  SelectsS[S].SBGColB := SBGColB;

+  SelectsS[S].SBGInt := SBGInt;

+  SelectsS[S].SBGDColR := SBGDColR;

+  SelectsS[S].SBGDColG := SBGDColG;

+  SelectsS[S].SBGDColB := SBGDColB;

+  SelectsS[S].SBGDInt := SBGDInt;

+

+  SelectsS[S].Text.X := X + 20;

+  SelectsS[S].Text.Y := Y + (SelectsS[S].TextureSBG.H / 2) - 15;

+  SelectsS[S].Text.Text := Caption;

+  SelectsS[S].Text.Size := 10;

+  SelectsS[S].Text.Visible := true;

+  SelectsS[S].TColR := TColR;

+  SelectsS[S].TColG := TColG;

+  SelectsS[S].TColB := TColB;

+  SelectsS[S].TInt := TInt;

+  SelectsS[S].TDColR := TDColR;

+  SelectsS[S].TDColG := TDColG;

+  SelectsS[S].TDColB := TDColB;

+  SelectsS[S].TDInt := TDInt;

+

+  SelectsS[S].STColR := STColR;

+  SelectsS[S].STColG := STColG;

+  SelectsS[S].STColB := STColB;

+  SelectsS[S].STInt := STInt;

+  SelectsS[S].STDColR := STDColR;

+  SelectsS[S].STDColG := STDColG;

+  SelectsS[S].STDColB := STDColB;

+  SelectsS[S].STDInt := STDInt;

+

+  // new

+  SelectsS[S].Texture.TexX1 := 0;

+  SelectsS[S].Texture.TexY1 := 0;

+  SelectsS[S].Texture.TexX2 := 1;

+  SelectsS[S].Texture.TexY2 := 1;

+  SelectsS[S].TextureSBG.TexX1 := 0;

+  SelectsS[S].TextureSBG.TexY1 := 0;

+  SelectsS[S].TextureSBG.TexX2 := 1;

+  SelectsS[S].TextureSBG.TexY2 := 1;

+

+  // Sets Data to copy the value of selectops to global value;

+  SelectsS[S].PData := @Data;

+  // Configures Select options

+  {//SelectsS[S].TextOpt[0].Text := IntToStr(I+1);

+  SelectsS[S].TextOpt[0].Size := 10;

+  SelectsS[S].TextOpt[0].Align := 1;

+

+  SelectsS[S].TextOpt[0].ColR := SelectsS[S].STDColR;

+  SelectsS[S].TextOpt[0].ColG := SelectsS[S].STDColG;

+  SelectsS[S].TextOpt[0].ColB := SelectsS[S].STDColB;

+  SelectsS[S].TextOpt[0].Int := SelectsS[S].STDInt;

+  SelectsS[S].TextOpt[0].Visible := true; }

+

+  // Sets default value of selectopt from Data;

+  SelectsS[S].SelectedOption := Data;

+

+  // Disables default selection

+  SelectsS[S].SetSelect(false);

+

+  {// Configures 3 select options

+  for I := 0 to 2 do begin

+    SelectsS[S].TextOpt[I].X := SelectsS[S].TextureSBG.X + 20 + (50 + 20) + (150 - 20) * I;

+    SelectsS[S].TextOpt[I].Y := SelectsS[S].TextureSBG.Y + 20;

+    SelectsS[S].TextOpt[I].Text := IntToStr(I+1);

+    SelectsS[S].TextOpt[I].Size := 10;

+    SelectsS[S].TextOpt[I].Align := 1;

+

+

+    SelectsS[S].TextOpt[I].ColR := SelectsS[S].STDColR;

+    SelectsS[S].TextOpt[I].ColG := SelectsS[S].STDColG;

+    SelectsS[S].TextOpt[I].ColB := SelectsS[S].STDColB;

+    SelectsS[S].TextOpt[I].Int := SelectsS[S].STDInt;

+    SelectsS[S].TextOpt[I].Visible := true;

+  end;}

+

+

+  // adds interaction

+  AddInteraction(iSelectS, S);

+  Result := S;

+end;

+

+procedure TMenu.AddSelectSlideOption(const AddText: string);

+begin

+  AddSelectSlideOption(High(SelectsS), AddText);

+end;

+

+procedure TMenu.AddSelectSlideOption(SelectNo: Cardinal; const AddText: string);

+var

+  SO:     integer;

+begin

+  SO := Length(SelectsS[SelectNo].TextOptT);

+  

+  SetLength(SelectsS[SelectNo].TextOptT, SO + 1);

+  SelectsS[SelectNo].TextOptT[SO] := AddText;

+

+  //SelectsS[S].SelectedOption := SelectsS[S].SelectOptInt; // refresh

+

+  //if SO = Selects[S].PData^ then Selects[S].SelectedOption := SO;

+end;

+

+procedure TMenu.UpdateSelectSlideOptions(ThemeSelectSlide: TThemeSelectSlide; SelectNum: integer; Values: array of string; var Data: integer);

+var

+  SO:   integer;

+begin

+  SetLength(SelectsS[SelectNum].TextOptT, 0);

+  for SO := 0 to High(Values) do

+    AddSelectSlideOption(SelectNum, Values[SO]);

+

+  SelectsS[SelectNum].GenLines;

+

+//  SelectsS[SelectNum].SelectedOption := SelectsS[SelectNum].SelectOptInt; // refresh

+//  SelectS[SelectNum].SetSelectOpt(Data);

+//  SelectS[SelectNum].SelectedOption := 0;//Data;

+

+//  Log.LogError(IntToStr(High(SelectsS[SelectNum].TextOptT)));

+//  if 0 <= High(SelectsS[SelectNum].TextOptT) then

+

+  SelectsS[SelectNum].PData := @Data;

+  SelectsS[SelectNum].SelectedOption := Data;

+end;

+

+function TMenu.InRegion(X1, Y1, X2, Y2, X, Y: real): Boolean;

+begin

+  Result := false;

+  X1 := X1 * RenderW/640;

+  X2 := X2 * RenderW/640;

+  Y1 := Y1 * RenderH/480;

+  Y2 := Y2 * RenderH/480;

+  if (X >= X1) and (X <= X2) and (Y >= Y1) and (Y <= Y2) then

+    Result := true;

+end;

+

+function TMenu.InStaticRegion(StaticNr: integer; X, Y: integer): Boolean;

+begin

+  Result := InRegion(Static[StaticNr].Texture.X,

+    Static[StaticNr].Texture.Y,

+    Static[StaticNr].Texture.X + Static[StaticNr].Texture.W - 1,

+    Static[StaticNr].Texture.Y + Static[StaticNr].Texture.H - 1,

+    X, Y);

+end;

+

+procedure TMenu.InteractInc;

+var

+  Num:    integer;

+  Value:  integer;

+begin

+  case Interactions[Interaction].Typ of

+    iSelect:  begin

+        Num := Interactions[Interaction].Num;

+        Value := Selects[Num].SelectedOption;

+        Value := (Value + 1) Mod (Length(Selects[Num].TextOpt));

+        Selects[Num].SelectedOption := Value;

+      end;

+    iSelectS: begin

+        Num := Interactions[Interaction].Num;

+        Value := SelectsS[Num].SelectedOption;

+//        Value := (Value + 1) Mod (Length(SelectsS[Num].TextOptT));

+

+        // limit

+        Value := Value + 1;

+        if Value <= High(SelectsS[Num].TextOptT) then

+          SelectsS[Num].SelectedOption := Value;

+      end;

+    //Button Collection Mod

+    iBCollectionChild:

+      begin

+

+        //Select Next Button in Collection

+        For Num := 1 to High(Button) do

+        begin

+          Value := (Interaction + Num) Mod Length(Button);

+          if Value = 0 then

+          begin

+            InteractNext;

+            Break;

+          end;

+          if (Button[Value].Parent = Button[Interaction].Parent) then

+          begin

+            Interaction := Value;

+            Break;

+          end;

+        end;

+      end;

+    //interact Next if there is Nothing to Change

+    else InteractNext;

+  end;

+end;

+

+procedure TMenu.InteractDec;

+var

+  Num:    integer;

+  Value:  integer;

+begin

+  case Interactions[Interaction].Typ of

+    iSelect:  begin

+        Num := Interactions[Interaction].Num;

+        Value := Selects[Num].SelectedOption;

+        Value := Value - 1;

+        if Value = -1 then

+          Value := High(Selects[Num].TextOpt);

+        Selects[Num].SelectedOption := Value;

+      end;

+    iSelectS: begin

+        Num := Interactions[Interaction].Num;

+        Value := SelectsS[Num].SelectedOption;

+        Value := Value - 1;

+//        if Value = -1 then

+//          Value := High(SelectsS[Num].TextOptT);

+

+        if Value >= 0 then

+          SelectsS[Num].SelectedOption := Value;

+      end;

+    //Button Collection Mod

+    iBCollectionChild:

+      begin

+        //Select Prev Button in Collection

+        For Num := High(Button) downto 1 do

+        begin

+          Value := (Interaction + Num) Mod Length(Button);

+          if Value = High(Button) then

+          begin

+            InteractPrev;

+            Break;

+          end;

+          if (Button[Value].Parent = Button[Interaction].Parent) then

+          begin

+            Interaction := Value;

+            Break;

+          end;

+        end;

+      end;

+    //interact Prev if there is Nothing to Change

+    else

+      begin

+        InteractPrev;

+        //If ButtonCollection with more than 1 Entry then Select Last Entry

+        if (Button[Interactions[Interaction].Num].Parent <> 0) AND (ButtonCollection[Button[Interactions[Interaction].Num].Parent-1].CountChilds > 1) then

+        begin

+          //Select Last Child

+          For Num := High(Button) downto 1 do

+          begin

+            Value := (Interaction + Num) Mod Length(Button);

+            if (Button[Value].Parent = Button[Interaction].Parent) then

+            begin

+              Interaction := Value;

+              Break;

+            end;

+          end;

+        end;

+      end;

+  end;

+end;

+

+procedure TMenu.AddBox(X, Y, W, H: real);

+begin

+  AddStatic(X,   Y,   W,   H,   0, 0, 0, Skin.GetTextureFileName('MainBar'), TEXTURE_TYPE_COLORIZED);

+  AddStatic(X+2, Y+2, W-4, H-4, 1, 1, 1, Skin.GetTextureFileName('MainBar'), TEXTURE_TYPE_COLORIZED);

+end;

+

+procedure TMenu.onShow;

+begin

+  // nothing

+(*

+  if fileexists( fFileName ) then

+  begin

+    if VideoPlayback.Open( fFileName ) then

+      VideoPlayback.Play;

+  end;

+*)

+end;

+

+procedure TMenu.onShowFinish;

+begin

+  // nothing

+end;

+

+function TMenu.WideCharUpperCase(wchar: WideChar) : WideString;

+begin

+  // On Linux and MacOSX the cwstring unit is necessary for Unicode function-calls.

+  // Otherwise you will get an EIntOverflow exception (thrown by unimplementedwidestring()).

+

+  // The FPC implementation of WideUpperCase returns nil if wchar is #0 (e.g. if an arrow key is pressed)

+  if (wchar <> #0) then

+    Result := WideUpperCase(wchar)

+  else

+    Result := #0;

+end;

+

+procedure TMenu.onHide;

+begin

+  // nothing

+end;

+

+function TMenu.ParseInput(PressedKey: Cardinal; CharCode: WideChar; PressedDown: Boolean): Boolean;

+begin

+  // nothing

+  Result := true;

+end;

+

+procedure TMenu.SetAnimationProgress(Progress: real);

+begin

+  // nothing

+end;

+

+end.

+

diff --git a/Game/Code/Menu/UMenuButton.pas b/Game/Code/Menu/UMenuButton.pas
index 652b5112..8cda0b1d 100644
--- a/Game/Code/Menu/UMenuButton.pas
+++ b/Game/Code/Menu/UMenuButton.pas
@@ -1,570 +1,570 @@
-unit UMenuButton;
-
-interface
-
-{$I switches.inc}
-
-uses TextGL, UTexture, OpenGL12, UMenuText,SDL;
-
-type
-  CButton = class of TButton;
-  TButton = class
-    protected
-      SelectBool:           Boolean;
-
-      FadeProgress:         Real;
-      FadeLastTick:         Cardinal;
-
-      DeSelectW:            Real;
-      DeSelectH:            Real;
-      PosX:                 Real;
-      PosY:                 Real;
-
-      constructor Create(); overload;
-
-    public
-      Text:                 Array of TText;
-      Texture:              TTexture; // Button Screen position and size
-      Texture2:             TTexture; // second texture only used for fading full resolution covers
-      //colorized hack
-      Colorized: Boolean;
-      DeSelectTexture:      TTexture; // texture for colorized hack
-
-      FadeTex:              TTexture; //Texture for beautiful fading
-      FadeTexPos:           byte;     //Pos of the FadeTexture (0: Top, 1: Left, 2: Bottom, 3: Right)
-//      Texture2Blend:        real; // blending factor for second texture (0=invisible, 1=visible)
-      // now uses alpha
-
-      DeselectType:         integer; // not used yet
-      Visible:              boolean;
-      //Reflection Mod
-      Reflection:           boolean;
-      Reflectionspacing:    Real;
-      DeSelectReflectionspacing: Real;
-
-      //Fade Mod
-      Fade: Boolean;
-      FadeText: Boolean;
-
-      Selectable:           boolean;
-
-      //No of the Parent Collection, 0 if in no Collection
-      Parent:  Byte;
-
-      SelectColR:   real;
-      SelectColG:   real;
-      SelectColB:   real;
-      SelectInt:    real;
-      SelectTInt:   real;
-      //Fade Mod
-      SelectW:      real;
-      SelectH:      real;
-
-      DeselectColR:   real;
-      DeselectColG:   real;
-      DeselectColB:   real;
-      DeselectInt:    real;
-      DeselectTInt:   real;
-
-      procedure SetY(Value: real);
-      procedure SetX(Value: real);
-      procedure SetW(Value: real);
-      procedure SetH(Value: real);
-
-      procedure SetSelect(Value: Boolean); virtual;
-      property X: real read PosX write SetX;
-      property Y: real read PosY write SetY;
-      property Z: real read Texture.z write Texture.z;
-      property W: real read DeSelectW write SetW;
-      property H: real read DeSelectH write SetH;
-      property Selected: Boolean read SelectBool write SetSelect;
-
-      procedure Draw; virtual;
-
-      constructor Create(Textura: TTexture); overload;
-      constructor Create(Textura, DSTexture: TTexture); overload;
-      destructor Destroy; override;
-  end;
-
-implementation
-
-uses SysUtils,
-     UDrawTexture;
-
-procedure TButton.SetX(Value: real);
-{var
-  dx:   real;
-  T:    integer;    // text}
-begin
-  {dY := Value - Texture.y;
-
-  Texture.X := Value;
-
-  for T := 0 to High(Text) do
-    Text[T].X := Text[T].X + dY;}
-
-  PosX := Value;
-  if (FadeTex.TexNum = -1) then
-    Texture.X := Value;
-
-end;
-
-procedure TButton.SetY(Value: real);
-{var
-  dY:   real;
-  T:    integer;    // text}
-begin
-  {dY := Value - PosY;
-
-
-  for T := 0 to High(Text) do
-    Text[T].Y := Text[T].Y + dY;}
-
-  PosY := Value;
-  if (FadeTex.TexNum = -1) then
-    Texture.y := Value;
-end;
-
-procedure TButton.SetW(Value: real);
-begin
-  if SelectW = DeSelectW then
-    SelectW := Value;
-
-  DeSelectW := Value;
-
-  if Not Fade then
-  begin
-    if SelectBool then
-      Texture.W := SelectW
-    else
-      Texture.W := DeSelectW;
-  end;
-end;
-
-procedure TButton.SetH(Value: real);
-begin
-  if SelectH = DeSelectH then
-    SelectH := Value;
-
-  DeSelectH := Value;
-
-  if Not Fade then
-  begin
-    if SelectBool then
-      Texture.H := SelectH
-    else
-      Texture.H := DeSelectH;
-  end;
-end;
-
-procedure TButton.SetSelect(Value : Boolean);
-var
-  T:    integer;
-begin
-  SelectBool := Value;
-  if (Value) then begin
-    Texture.ColR := SelectColR;
-    Texture.ColG := SelectColG;
-    Texture.ColB := SelectColB;
-    Texture.Int := SelectInt;
-
-    Texture2.ColR := SelectColR;
-    Texture2.ColG := SelectColG;
-    Texture2.ColB := SelectColB;
-    Texture2.Int := SelectInt;
-
-    for T := 0 to High(Text) do
-      Text[T].Int := SelectTInt;
-
-    //Fade Mod
-    if Fade then
-    begin
-      if (FadeProgress <= 0) then
-        FadeProgress := 0.125;
-    end
-    else
-    begin
-      Texture.W := SelectW;
-      Texture.H := SelectH;
-    end;
-  end else begin
-    Texture.ColR := DeselectColR;
-    Texture.ColG := DeselectColG;
-    Texture.ColB := DeselectColB;
-    Texture.Int := DeselectInt;
-
-    Texture2.ColR := DeselectColR;
-    Texture2.ColG := DeselectColG;
-    Texture2.ColB := DeselectColB;
-    Texture2.Int := DeselectInt;
-
-    for T := 0 to High(Text) do
-      Text[T].Int := DeselectTInt;
-
-    //Fade Mod
-    if Fade then
-    begin
-      if (FadeProgress >= 1) then
-        FadeProgress := 0.875;
-    end
-    else
-    begin
-      Texture.W := DeSelectW;
-      Texture.H := DeSelectH;
-    end;
-  end;
-end;
-
-constructor TButton.Create();
-begin
-  inherited Create;
-  // We initialize all to 0, nil or false
-  Visible := true;
-  SelectBool := false;
-  DeselectType := 0;
-  Selectable := true;
-  //Reflection Mod
-  Reflection := true;
-
-  //colorized hack
-  Colorized:=False;
-
-  // Default
-//  SelectInt := 1;
-//  DeselectInt := 0.5;
-
-{  SelectColR := 0.5;
-  SelectColG := 0.75;
-  SelectColB := 0;
-  SelectInt := 1;
-  SelectTInt := 1;
-
-  DeselectColR := 1;
-  DeselectColG := 1;
-  DeselectColB := 1;
-  DeselectInt := 0.5;
-  DeselectTInt := 1;}
-
-  SelectColR := 1;
-  SelectColG := 1;
-  SelectColB := 1;
-  SelectInt := 1;
-  SelectTInt := 1;
-
-  DeselectColR := 1;
-  DeselectColG := 1;
-  DeselectColB := 1;
-  DeselectInt := 0.5;
-  DeselectTInt := 1;
-
-  FadeTex.TexNum := -1;
-
-  FadeProgress := 0;
-  Fade := False;
-  FadeText := False;
-  SelectW := DeSelectW;
-  SelectH := DeSelectH;
-
-  PosX := 0;
-  PosY := 0;
-
-  Parent := 0;
-end;
-
-// ***** Public methods ****** //
-
-procedure TButton.Draw;
-var
-  T:    integer;
-  Tick: Cardinal;
-  Spacing: Real;
-begin
-  if Visible then begin
-    //Fade Mod
-    T:=0;
-    if Fade then
-    begin
-      if (FadeProgress < 1) and (FadeProgress > 0) then
-      begin
-        Tick := SDL_GetTicks() div 16;
-        if (Tick <> FadeLastTick) then
-        begin
-          FadeLastTick := Tick;
-          if SelectBool then
-            FadeProgress := FadeProgress + 0.125
-          else
-            FadeProgress := FadeProgress - 0.125;
-
-          if (FadeText) then
-          begin
-            For T := 0 to high(Text) do
-            begin
-              Text[T].MoveX := (SelectW - DeSelectW) * FadeProgress;
-              Text[T].MoveY := (SelectH - DeSelectH) * FadeProgress;
-            end;
-          end;
-        end;
-      end;
-      //Method without Fade Texture
-      if (FadeTex.TexNum = -1) then
-      begin
-      Texture.W := DeSelectW + (SelectW - DeSelectW) * FadeProgress;
-      Texture.H := DeSelectH + (SelectH - DeSelectH) * FadeProgress;
-      DeselectTexture.W := Texture.W;
-      DeselectTexture.H := Texture.H;
-      end
-      else //method with Fade Texture
-      begin
-        Texture.W := DeSelectW;
-        Texture.H := DeSelectH;
-        DeselectTexture.W := Texture.W;
-        DeselectTexture.H := Texture.H;
-
-        FadeTex.ColR := Texture.ColR;
-        FadeTex.ColG := Texture.ColG;
-        FadeTex.ColB := Texture.ColB;
-        FadeTex.Int := Texture.Int;
-
-        FadeTex.Z := Texture.Z;
-
-        FadeTex.Alpha := Texture.Alpha;
-        FadeTex.TexX1 := 0;
-        FadeTex.TexX2 := 1;
-        FadeTex.TexY1 := 0;
-        FadeTex.TexY2 := 1;
-
-        Case FadeTexPos of
-          0: //FadeTex on Top
-            begin
-              //Standard Texture
-              Texture.X := PosX;
-              Texture.Y := PosY + (SelectH - DeSelectH) * FadeProgress;
-              DeselectTexture.X := Texture.X;
-              DeselectTexture.Y := Texture.Y;
-              //Fade Tex
-              FadeTex.X := PosX;
-              FadeTex.Y := PosY;
-              FadeTex.W := Texture.W;
-              FadeTex.H := (SelectH - DeSelectH) * FadeProgress;
-              FadeTex.ScaleW := Texture.ScaleW;
-              //Some Hack that Fixes a little Space between both Textures
-              FadeTex.TexY2 := 0.9;
-            end;
-          1: //FadeTex on Left
-            begin
-              //Standard Texture
-              Texture.X := PosX + (SelectW - DeSelectW) * FadeProgress;
-              Texture.Y := PosY;
-              DeselectTexture.X := Texture.X;
-              DeselectTexture.Y := Texture.Y;
-              //Fade Tex
-              FadeTex.X := PosX;
-              FadeTex.Y := PosY;
-              FadeTex.H := Texture.H;
-              FadeTex.W := (SelectW - DeSelectW) * FadeProgress;
-              FadeTex.ScaleH := Texture.ScaleH;
-              //Some Hack that Fixes a little Space between both Textures
-              FadeTex.TexX2 := 0.9;
-            end;
-          2: //FadeTex on Bottom
-            begin
-              //Standard Texture
-              Texture.X := PosX;
-              Texture.Y := PosY;
-              DeselectTexture.X := Texture.X;
-              DeselectTexture.Y := Texture.Y;
-              //Fade Tex
-              FadeTex.X := PosX;
-              FadeTex.Y := PosY  + (SelectH - DeSelectH) * FadeProgress;;
-              FadeTex.W := Texture.W;
-              FadeTex.H := (SelectH - DeSelectH) * FadeProgress;
-              FadeTex.ScaleW := Texture.ScaleW;
-              //Some Hack that Fixes a little Space between both Textures
-              FadeTex.TexY1 := 0.1;
-            end;
-          3: //FadeTex on Right
-            begin
-              //Standard Texture
-              Texture.X := PosX;
-              Texture.Y := PosY;
-              DeselectTexture.X := Texture.X;
-              DeselectTexture.Y := Texture.Y;
-              //Fade Tex
-              FadeTex.X := PosX + (SelectW - DeSelectW) * FadeProgress;
-              FadeTex.Y := PosY;
-              FadeTex.H := Texture.H;
-              FadeTex.W := (SelectW - DeSelectW) * FadeProgress;
-              FadeTex.ScaleH := Texture.ScaleH;
-              //Some Hack that Fixes a little Space between both Textures
-              FadeTex.TexX1 := 0.1;
-            end;
-        end;
-      end;
-    end
-    else if (FadeText) then
-    begin
-      Text[T].MoveX := (SelectW - DeSelectW);
-      Text[T].MoveY := (SelectH - DeSelectH);
-    end;
-
-    if SelectBool or (FadeProgress > 0) or not Colorized then
-      DrawTexture(Texture)
-    else
-      DrawTexture(DeselectTexture);
-
-    //Draw FadeTex
-    if (FadeTex.TexNum <> -1) then
-      DrawTexture(FadeTex);
-
-    if Texture2.Alpha > 0 then begin
-      Texture2.ScaleW := Texture.ScaleW;
-      Texture2.ScaleH := Texture.ScaleH;
-
-      Texture2.X := Texture.X;
-      Texture2.Y := Texture.Y;
-      Texture2.W := Texture.W;
-      Texture2.H := Texture.H;
-
-      Texture2.ColR := Texture.ColR;
-      Texture2.ColG := Texture.ColG;
-      Texture2.ColB := Texture.ColB;
-      Texture2.Int := Texture.Int;
-
-      Texture2.Z := Texture.Z;
-
-      DrawTexture(Texture2);
-    end;
-
-    //Reflection Mod
-    if (Reflection) then // Draw Reflections
-    begin
-      if (FadeProgress <> 0) AND (FadeProgress <> 1) then
-      begin
-        Spacing := DeSelectReflectionspacing - (DeSelectReflectionspacing - Reflectionspacing) * FadeProgress;
-      end
-      else if SelectBool then
-        Spacing := Reflectionspacing
-      else
-        Spacing := DeSelectReflectionspacing;
-
-      if SelectBool or not Colorized then
-      with Texture do
-      begin
-        //Bind Tex and GL Attributes
-        glEnable(GL_TEXTURE_2D);
-        glEnable(GL_BLEND);
-
-        glDepthRange(0, 10);
-        glDepthFunc(GL_LEQUAL);
-        glEnable(GL_DEPTH_TEST);
-
-        glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
-        glBindTexture(GL_TEXTURE_2D, TexNum);
-
-        //Draw
-        glBegin(GL_QUADS);//Top Left
-          glColor4f(ColR * Int, ColG * Int, ColB * Int, Alpha-0.3);
-          glTexCoord2f(TexX1*TexW, TexY2*TexH);
-          glVertex3f(x, y+h*scaleH+ Spacing, z);
-
-          //Bottom Left
-          glColor4f(ColR * Int, ColG * Int, ColB * Int, 0);
-          glTexCoord2f(TexX1*TexW, TexY1+TexH*0.5);
-          glVertex3f(x, y+h*scaleH + h*scaleH/2 + Spacing, z);
-
-
-          //Bottom Right
-          glColor4f(ColR * Int, ColG * Int, ColB * Int, 0);
-          glTexCoord2f(TexX2*TexW, TexY1+TexH*0.5);
-          glVertex3f(x+w*scaleW, y+h*scaleH + h*scaleH/2 + Spacing, z);
-
-          //Top Right
-          glColor4f(ColR * Int, ColG * Int, ColB * Int, Alpha-0.3);
-          glTexCoord2f(TexX2*TexW, TexY2*TexH);
-          glVertex3f(x+w*scaleW, y+h*scaleH + Spacing, z);
-        glEnd;
-
-        glDisable(GL_TEXTURE_2D);
-        glDisable(GL_DEPTH_TEST);
-        glDisable(GL_BLEND);
-      end else
-      with DeselectTexture do
-        begin
-        //Bind Tex and GL Attributes
-        glEnable(GL_TEXTURE_2D);
-        glEnable(GL_BLEND);
-
-        glDepthRange(0, 10);
-        glDepthFunc(GL_LEQUAL);
-        glEnable(GL_DEPTH_TEST);
-
-        glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
-        glBindTexture(GL_TEXTURE_2D, TexNum);
-
-        //Draw
-        glBegin(GL_QUADS);//Top Left
-          glColor4f(ColR * Int, ColG * Int, ColB * Int, Alpha-0.3);
-          glTexCoord2f(TexX1*TexW, TexY2*TexH);
-          glVertex3f(x, y+h*scaleH+ Spacing, z);
-
-          //Bottom Left
-          glColor4f(ColR * Int, ColG * Int, ColB * Int, 0);
-          glTexCoord2f(TexX1*TexW, TexY1+TexH*0.5);
-          glVertex3f(x, y+h*scaleH + h*scaleH/2 + Spacing, z);
-
-
-          //Bottom Right
-          glColor4f(ColR * Int, ColG * Int, ColB * Int, 0);
-          glTexCoord2f(TexX2*TexW, TexY1+TexH*0.5);
-          glVertex3f(x+w*scaleW, y+h*scaleH + h*scaleH/2 + Spacing, z);
-
-          //Top Right
-          glColor4f(ColR * Int, ColG * Int, ColB * Int, Alpha-0.3);
-          glTexCoord2f(TexX2*TexW, TexY2*TexH);
-          glVertex3f(x+w*scaleW, y+h*scaleH + Spacing, z);
-        glEnd;
-
-        glDisable(GL_TEXTURE_2D);
-        glDisable(GL_DEPTH_TEST);
-        glDisable(GL_BLEND);
-      end;
-    end;
-
-    for T := 0 to High(Text) do begin
-      Text[T].Draw;
-    end;
-  end;
-end;
-
-// *****  ****** //
-
-destructor TButton.Destroy;
-begin
-  inherited;
-end;
-
-constructor TButton.Create(Textura: TTexture);
-begin
-  Create();
-  Texture := Textura;
-  DeselectTexture:=Textura;
-  Texture.ColR := 0;
-  Texture.ColG := 0.5;
-  Texture.ColB := 0;
-  Texture.Int := 1;
-  Colorized:=False;
-end;
-
-constructor TButton.Create(Textura, DSTexture: TTexture);
-begin
-  Create();
-  Texture := Textura;
-  DeselectTexture := DSTexture;
-  Texture.ColR := 1;
-  Texture.ColG := 1;
-  Texture.ColB := 1;
-  Texture.Int := 1;
-  Colorized:=True;
-end;
-
-end.
+unit UMenuButton;

+

+interface

+

+{$I switches.inc}

+

+uses TextGL, UTexture, OpenGL12, UMenuText,SDL;

+

+type

+  CButton = class of TButton;

+  TButton = class

+    protected

+      SelectBool:           Boolean;

+

+      FadeProgress:         Real;

+      FadeLastTick:         Cardinal;

+

+      DeSelectW:            Real;

+      DeSelectH:            Real;

+      PosX:                 Real;

+      PosY:                 Real;

+

+      constructor Create(); overload;

+

+    public

+      Text:                 Array of TText;

+      Texture:              TTexture; // Button Screen position and size

+      Texture2:             TTexture; // second texture only used for fading full resolution covers

+      //colorized hack

+      Colorized: Boolean;

+      DeSelectTexture:      TTexture; // texture for colorized hack

+

+      FadeTex:              TTexture; //Texture for beautiful fading

+      FadeTexPos:           byte;     //Pos of the FadeTexture (0: Top, 1: Left, 2: Bottom, 3: Right)

+//      Texture2Blend:        real; // blending factor for second texture (0=invisible, 1=visible)

+      // now uses alpha

+

+      DeselectType:         integer; // not used yet

+      Visible:              boolean;

+      //Reflection Mod

+      Reflection:           boolean;

+      Reflectionspacing:    Real;

+      DeSelectReflectionspacing: Real;

+

+      //Fade Mod

+      Fade: Boolean;

+      FadeText: Boolean;

+

+      Selectable:           boolean;

+

+      //No of the Parent Collection, 0 if in no Collection

+      Parent:  Byte;

+

+      SelectColR:   real;

+      SelectColG:   real;

+      SelectColB:   real;

+      SelectInt:    real;

+      SelectTInt:   real;

+      //Fade Mod

+      SelectW:      real;

+      SelectH:      real;

+

+      DeselectColR:   real;

+      DeselectColG:   real;

+      DeselectColB:   real;

+      DeselectInt:    real;

+      DeselectTInt:   real;

+

+      procedure SetY(Value: real);

+      procedure SetX(Value: real);

+      procedure SetW(Value: real);

+      procedure SetH(Value: real);

+

+      procedure SetSelect(Value: Boolean); virtual;

+      property X: real read PosX write SetX;

+      property Y: real read PosY write SetY;

+      property Z: real read Texture.z write Texture.z;

+      property W: real read DeSelectW write SetW;

+      property H: real read DeSelectH write SetH;

+      property Selected: Boolean read SelectBool write SetSelect;

+

+      procedure Draw; virtual;

+

+      constructor Create(Textura: TTexture); overload;

+      constructor Create(Textura, DSTexture: TTexture); overload;

+      destructor Destroy; override;

+  end;

+

+implementation

+

+uses SysUtils,

+     UDrawTexture;

+

+procedure TButton.SetX(Value: real);

+{var

+  dx:   real;

+  T:    integer;    // text}

+begin

+  {dY := Value - Texture.y;

+

+  Texture.X := Value;

+

+  for T := 0 to High(Text) do

+    Text[T].X := Text[T].X + dY;}

+

+  PosX := Value;

+  if (FadeTex.TexNum = 0) then

+    Texture.X := Value;

+

+end;

+

+procedure TButton.SetY(Value: real);

+{var

+  dY:   real;

+  T:    integer;    // text}

+begin

+  {dY := Value - PosY;

+

+

+  for T := 0 to High(Text) do

+    Text[T].Y := Text[T].Y + dY;}

+

+  PosY := Value;

+  if (FadeTex.TexNum = 0) then

+    Texture.y := Value;

+end;

+

+procedure TButton.SetW(Value: real);

+begin

+  if SelectW = DeSelectW then

+    SelectW := Value;

+

+  DeSelectW := Value;

+

+  if Not Fade then

+  begin

+    if SelectBool then

+      Texture.W := SelectW

+    else

+      Texture.W := DeSelectW;

+  end;

+end;

+

+procedure TButton.SetH(Value: real);

+begin

+  if SelectH = DeSelectH then

+    SelectH := Value;

+

+  DeSelectH := Value;

+

+  if Not Fade then

+  begin

+    if SelectBool then

+      Texture.H := SelectH

+    else

+      Texture.H := DeSelectH;

+  end;

+end;

+

+procedure TButton.SetSelect(Value : Boolean);

+var

+  T:    integer;

+begin

+  SelectBool := Value;

+  if (Value) then begin

+    Texture.ColR := SelectColR;

+    Texture.ColG := SelectColG;

+    Texture.ColB := SelectColB;

+    Texture.Int := SelectInt;

+

+    Texture2.ColR := SelectColR;

+    Texture2.ColG := SelectColG;

+    Texture2.ColB := SelectColB;

+    Texture2.Int := SelectInt;

+

+    for T := 0 to High(Text) do

+      Text[T].Int := SelectTInt;

+

+    //Fade Mod

+    if Fade then

+    begin

+      if (FadeProgress <= 0) then

+        FadeProgress := 0.125;

+    end

+    else

+    begin

+      Texture.W := SelectW;

+      Texture.H := SelectH;

+    end;

+  end else begin

+    Texture.ColR := DeselectColR;

+    Texture.ColG := DeselectColG;

+    Texture.ColB := DeselectColB;

+    Texture.Int := DeselectInt;

+

+    Texture2.ColR := DeselectColR;

+    Texture2.ColG := DeselectColG;

+    Texture2.ColB := DeselectColB;

+    Texture2.Int := DeselectInt;

+

+    for T := 0 to High(Text) do

+      Text[T].Int := DeselectTInt;

+

+    //Fade Mod

+    if Fade then

+    begin

+      if (FadeProgress >= 1) then

+        FadeProgress := 0.875;

+    end

+    else

+    begin

+      Texture.W := DeSelectW;

+      Texture.H := DeSelectH;

+    end;

+  end;

+end;

+

+constructor TButton.Create();

+begin

+  inherited Create;

+  // We initialize all to 0, nil or false

+  Visible := true;

+  SelectBool := false;

+  DeselectType := 0;

+  Selectable := true;

+  //Reflection Mod

+  Reflection := true;

+

+  //colorized hack

+  Colorized:=False;

+

+  // Default

+//  SelectInt := 1;

+//  DeselectInt := 0.5;

+

+{  SelectColR := 0.5;

+  SelectColG := 0.75;

+  SelectColB := 0;

+  SelectInt := 1;

+  SelectTInt := 1;

+

+  DeselectColR := 1;

+  DeselectColG := 1;

+  DeselectColB := 1;

+  DeselectInt := 0.5;

+  DeselectTInt := 1;}

+

+  SelectColR := 1;

+  SelectColG := 1;

+  SelectColB := 1;

+  SelectInt := 1;

+  SelectTInt := 1;

+

+  DeselectColR := 1;

+  DeselectColG := 1;

+  DeselectColB := 1;

+  DeselectInt := 0.5;

+  DeselectTInt := 1;

+

+  FadeTex.TexNum := 0;

+

+  FadeProgress := 0;

+  Fade := False;

+  FadeText := False;

+  SelectW := DeSelectW;

+  SelectH := DeSelectH;

+

+  PosX := 0;

+  PosY := 0;

+

+  Parent := 0;

+end;

+

+// ***** Public methods ****** //

+

+procedure TButton.Draw;

+var

+  T:    integer;

+  Tick: Cardinal;

+  Spacing: Real;

+begin

+  if Visible then begin

+    //Fade Mod

+    T:=0;

+    if Fade then

+    begin

+      if (FadeProgress < 1) and (FadeProgress > 0) then

+      begin

+        Tick := SDL_GetTicks() div 16;

+        if (Tick <> FadeLastTick) then

+        begin

+          FadeLastTick := Tick;

+          if SelectBool then

+            FadeProgress := FadeProgress + 0.125

+          else

+            FadeProgress := FadeProgress - 0.125;

+

+          if (FadeText) then

+          begin

+            For T := 0 to high(Text) do

+            begin

+              Text[T].MoveX := (SelectW - DeSelectW) * FadeProgress;

+              Text[T].MoveY := (SelectH - DeSelectH) * FadeProgress;

+            end;

+          end;

+        end;

+      end;

+      //Method without Fade Texture

+      if (FadeTex.TexNum = 0) then

+      begin

+      Texture.W := DeSelectW + (SelectW - DeSelectW) * FadeProgress;

+      Texture.H := DeSelectH + (SelectH - DeSelectH) * FadeProgress;

+      DeselectTexture.W := Texture.W;

+      DeselectTexture.H := Texture.H;

+      end

+      else //method with Fade Texture

+      begin

+        Texture.W := DeSelectW;

+        Texture.H := DeSelectH;

+        DeselectTexture.W := Texture.W;

+        DeselectTexture.H := Texture.H;

+

+        FadeTex.ColR := Texture.ColR;

+        FadeTex.ColG := Texture.ColG;

+        FadeTex.ColB := Texture.ColB;

+        FadeTex.Int := Texture.Int;

+

+        FadeTex.Z := Texture.Z;

+

+        FadeTex.Alpha := Texture.Alpha;

+        FadeTex.TexX1 := 0;

+        FadeTex.TexX2 := 1;

+        FadeTex.TexY1 := 0;

+        FadeTex.TexY2 := 1;

+

+        Case FadeTexPos of

+          0: //FadeTex on Top

+            begin

+              //Standard Texture

+              Texture.X := PosX;

+              Texture.Y := PosY + (SelectH - DeSelectH) * FadeProgress;

+              DeselectTexture.X := Texture.X;

+              DeselectTexture.Y := Texture.Y;

+              //Fade Tex

+              FadeTex.X := PosX;

+              FadeTex.Y := PosY;

+              FadeTex.W := Texture.W;

+              FadeTex.H := (SelectH - DeSelectH) * FadeProgress;

+              FadeTex.ScaleW := Texture.ScaleW;

+              //Some Hack that Fixes a little Space between both Textures

+              FadeTex.TexY2 := 0.9;

+            end;

+          1: //FadeTex on Left

+            begin

+              //Standard Texture

+              Texture.X := PosX + (SelectW - DeSelectW) * FadeProgress;

+              Texture.Y := PosY;

+              DeselectTexture.X := Texture.X;

+              DeselectTexture.Y := Texture.Y;

+              //Fade Tex

+              FadeTex.X := PosX;

+              FadeTex.Y := PosY;

+              FadeTex.H := Texture.H;

+              FadeTex.W := (SelectW - DeSelectW) * FadeProgress;

+              FadeTex.ScaleH := Texture.ScaleH;

+              //Some Hack that Fixes a little Space between both Textures

+              FadeTex.TexX2 := 0.9;

+            end;

+          2: //FadeTex on Bottom

+            begin

+              //Standard Texture

+              Texture.X := PosX;

+              Texture.Y := PosY;

+              DeselectTexture.X := Texture.X;

+              DeselectTexture.Y := Texture.Y;

+              //Fade Tex

+              FadeTex.X := PosX;

+              FadeTex.Y := PosY  + (SelectH - DeSelectH) * FadeProgress;;

+              FadeTex.W := Texture.W;

+              FadeTex.H := (SelectH - DeSelectH) * FadeProgress;

+              FadeTex.ScaleW := Texture.ScaleW;

+              //Some Hack that Fixes a little Space between both Textures

+              FadeTex.TexY1 := 0.1;

+            end;

+          3: //FadeTex on Right

+            begin

+              //Standard Texture

+              Texture.X := PosX;

+              Texture.Y := PosY;

+              DeselectTexture.X := Texture.X;

+              DeselectTexture.Y := Texture.Y;

+              //Fade Tex

+              FadeTex.X := PosX + (SelectW - DeSelectW) * FadeProgress;

+              FadeTex.Y := PosY;

+              FadeTex.H := Texture.H;

+              FadeTex.W := (SelectW - DeSelectW) * FadeProgress;

+              FadeTex.ScaleH := Texture.ScaleH;

+              //Some Hack that Fixes a little Space between both Textures

+              FadeTex.TexX1 := 0.1;

+            end;

+        end;

+      end;

+    end

+    else if (FadeText) then

+    begin

+      Text[T].MoveX := (SelectW - DeSelectW);

+      Text[T].MoveY := (SelectH - DeSelectH);

+    end;

+

+    if SelectBool or (FadeProgress > 0) or not Colorized then

+      DrawTexture(Texture)

+    else

+      DrawTexture(DeselectTexture);

+

+    //Draw FadeTex

+    if (FadeTex.TexNum > 0) then

+      DrawTexture(FadeTex);

+

+    if Texture2.Alpha > 0 then begin

+      Texture2.ScaleW := Texture.ScaleW;

+      Texture2.ScaleH := Texture.ScaleH;

+

+      Texture2.X := Texture.X;

+      Texture2.Y := Texture.Y;

+      Texture2.W := Texture.W;

+      Texture2.H := Texture.H;

+

+      Texture2.ColR := Texture.ColR;

+      Texture2.ColG := Texture.ColG;

+      Texture2.ColB := Texture.ColB;

+      Texture2.Int := Texture.Int;

+

+      Texture2.Z := Texture.Z;

+

+      DrawTexture(Texture2);

+    end;

+

+    //Reflection Mod

+    if (Reflection) then // Draw Reflections

+    begin

+      if (FadeProgress <> 0) AND (FadeProgress <> 1) then

+      begin

+        Spacing := DeSelectReflectionspacing - (DeSelectReflectionspacing - Reflectionspacing) * FadeProgress;

+      end

+      else if SelectBool then

+        Spacing := Reflectionspacing

+      else

+        Spacing := DeSelectReflectionspacing;

+

+      if SelectBool or not Colorized then

+      with Texture do

+      begin

+        //Bind Tex and GL Attributes

+        glEnable(GL_TEXTURE_2D);

+        glEnable(GL_BLEND);

+

+        glDepthRange(0, 10);

+        glDepthFunc(GL_LEQUAL);

+        glEnable(GL_DEPTH_TEST);

+

+        glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);

+        glBindTexture(GL_TEXTURE_2D, TexNum);

+

+        //Draw

+        glBegin(GL_QUADS);//Top Left

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

+          glTexCoord2f(TexX1*TexW, TexY2*TexH);

+          glVertex3f(x, y+h*scaleH+ Spacing, z);

+

+          //Bottom Left

+          glColor4f(ColR * Int, ColG * Int, ColB * Int, 0);

+          glTexCoord2f(TexX1*TexW, TexY1+TexH*0.5);

+          glVertex3f(x, y+h*scaleH + h*scaleH/2 + Spacing, z);

+

+

+          //Bottom Right

+          glColor4f(ColR * Int, ColG * Int, ColB * Int, 0);

+          glTexCoord2f(TexX2*TexW, TexY1+TexH*0.5);

+          glVertex3f(x+w*scaleW, y+h*scaleH + h*scaleH/2 + Spacing, z);

+

+          //Top Right

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

+          glTexCoord2f(TexX2*TexW, TexY2*TexH);

+          glVertex3f(x+w*scaleW, y+h*scaleH + Spacing, z);

+        glEnd;

+

+        glDisable(GL_TEXTURE_2D);

+        glDisable(GL_DEPTH_TEST);

+        glDisable(GL_BLEND);

+      end else

+      with DeselectTexture do

+        begin

+        //Bind Tex and GL Attributes

+        glEnable(GL_TEXTURE_2D);

+        glEnable(GL_BLEND);

+

+        glDepthRange(0, 10);

+        glDepthFunc(GL_LEQUAL);

+        glEnable(GL_DEPTH_TEST);

+

+        glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);

+        glBindTexture(GL_TEXTURE_2D, TexNum);

+

+        //Draw

+        glBegin(GL_QUADS);//Top Left

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

+          glTexCoord2f(TexX1*TexW, TexY2*TexH);

+          glVertex3f(x, y+h*scaleH+ Spacing, z);

+

+          //Bottom Left

+          glColor4f(ColR * Int, ColG * Int, ColB * Int, 0);

+          glTexCoord2f(TexX1*TexW, TexY1+TexH*0.5);

+          glVertex3f(x, y+h*scaleH + h*scaleH/2 + Spacing, z);

+

+

+          //Bottom Right

+          glColor4f(ColR * Int, ColG * Int, ColB * Int, 0);

+          glTexCoord2f(TexX2*TexW, TexY1+TexH*0.5);

+          glVertex3f(x+w*scaleW, y+h*scaleH + h*scaleH/2 + Spacing, z);

+

+          //Top Right

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

+          glTexCoord2f(TexX2*TexW, TexY2*TexH);

+          glVertex3f(x+w*scaleW, y+h*scaleH + Spacing, z);

+        glEnd;

+

+        glDisable(GL_TEXTURE_2D);

+        glDisable(GL_DEPTH_TEST);

+        glDisable(GL_BLEND);

+      end;

+    end;

+

+    for T := 0 to High(Text) do begin

+      Text[T].Draw;

+    end;

+  end;

+end;

+

+// *****  ****** //

+

+destructor TButton.Destroy;

+begin

+  inherited;

+end;

+

+constructor TButton.Create(Textura: TTexture);

+begin

+  Create();

+  Texture := Textura;

+  DeselectTexture:=Textura;

+  Texture.ColR := 0;

+  Texture.ColG := 0.5;

+  Texture.ColB := 0;

+  Texture.Int := 1;

+  Colorized:=False;

+end;

+

+constructor TButton.Create(Textura, DSTexture: TTexture);

+begin

+  Create();

+  Texture := Textura;

+  DeselectTexture := DSTexture;

+  Texture.ColR := 1;

+  Texture.ColG := 1;

+  Texture.ColB := 1;

+  Texture.Int := 1;

+  Colorized:=True;

+end;

+

+end.