Removed outdated 1.1 branch contents

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

1 files changed, 0 insertions, 114 deletions

diff --git a/Game/Code/Screens/UScreenEdit.pas b/Game/Code/Screens/UScreenEdit.pas
deleted file mode 100644
index 00feddbf..00000000
--- a/Game/Code/Screens/UScreenEdit.pas
+++ /dev/null
@@ -1,114 +0,0 @@
-unit UScreenEdit;

-

-interface

-

-{$I switches.inc}

-

-uses UMenu, SDL, UThemes;

-

-type

-  TScreenEdit = class(TMenu)

-    public

-{      Tex_Background:     TTexture;

-      FadeOut:            boolean;

-      Path:               string;

-      FileName:           string;}

-      constructor Create; override;

-      procedure onShow; override;

-      function ParseInput(PressedKey: Cardinal; ScanCode: byte; PressedDown: Boolean): Boolean; override;

-{      function Draw: boolean; override;

-      procedure Finish;}

-  end;

-

-implementation

-

-uses UGraphic, UMusic, USkins;

-

-function TScreenEdit.ParseInput(PressedKey: Cardinal; ScanCode: byte; PressedDown: Boolean): Boolean;

-begin

-  Result := true;

-  If (PressedDown) Then

-  begin // Key Down

-    case PressedKey of

-      SDLK_Q:

-        begin

-          Result := false;

-        end;

-

-      SDLK_ESCAPE,

-      SDLK_BACKSPACE :

-        begin

-          AudioPlayback.PlaySound(SoundLib.Back);

-          FadeTo(@ScreenMain);

-//          Result := false;

-        end;

-      SDLK_RETURN:

-        begin

-          if Interaction = 0 then

-          begin

-            AudioPlayback.PlaySound(SoundLib.Start);

-            FadeTo(@ScreenEditConvert);

-          end;

-//          if Interaction = 1 then begin

-//            Music.PlayStart;

-//            FadeTo(@ScreenEditHeader);

-//          end;

-

-          if Interaction = 1 then

-          begin

-            AudioPlayback.PlaySound(SoundLib.Back);

-            FadeTo(@ScreenMain);

-          end;

-        end;

-

-      SDLK_DOWN:

-        begin

-          InteractNext;

-        end;

-      SDLK_UP:

-        begin

-          InteractPrev;

-        end;

-    end;

-  end;

-end;

-

-constructor TScreenEdit.Create;

-begin

-  inherited Create;

-  AddButton(400-200, 100 + 0*70, 400, 40, Skin.GetTextureFileName('ButtonF'));

-  AddButtonText(10, 5, 0, 0, 0, 'Convert Midi to Txt');

-//  Button[High(Button)].Text[0].Size := 11;

-

-//  AddButton(400-200, 100 + 1*60, 400, 40, 'ButtonF');

-//  AddButtonText(10, 5, 0, 0, 0, 'Edit Headers');

-

-//  AddButton(400-200, 100 + 2*60, 400, 40, 'ButtonF');

-//  AddButtonText(10, 5, 0, 0, 0, 'Set GAP');

-

-  AddButton(400-200, 100 + 3*60, 400, 40, Skin.GetTextureFileName('ButtonF'));

-  AddButtonText(10, 5, 0, 0, 0, 'Exit');

-

-end;

-

-procedure TScreenEdit.onShow;

-begin

-//  Interaction := 0;

-end;

-

-(*function TScreenEdit.Draw: boolean;

-var

-  Min:    integer;

-  Sec:    integer;

-  Tekst:  string;

-  Pet:    integer;

-  AktBeat:  integer;

-begin

-end;

-

-procedure TScreenEdit.Finish;

-begin

-//

-end;*)

-

-end.