From 46bb010ca7c5eb04551c030105f9999ca80e472f Mon Sep 17 00:00:00 2001 From: tobigun Date: Sun, 8 Jun 2008 15:33:48 +0000 Subject: - set svn:eol-style to native - removed some svn:executable properties from non-executable files git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1144 b956fd51-792f-4845-bead-9b4dfca2ff2c --- Game/Code/Screens/UScreenOpen.pas | 346 +++++++++++++++++++------------------- 1 file changed, 173 insertions(+), 173 deletions(-) (limited to 'Game/Code/Screens/UScreenOpen.pas') diff --git a/Game/Code/Screens/UScreenOpen.pas b/Game/Code/Screens/UScreenOpen.pas index 7dbe8743..186b9b47 100644 --- a/Game/Code/Screens/UScreenOpen.pas +++ b/Game/Code/Screens/UScreenOpen.pas @@ -1,173 +1,173 @@ -unit UScreenOpen; - -interface - -{$I switches.inc} - -uses UMenu, UMusic, SDL, SysUtils, UFiles, UTime, USongs, UIni, ULog, UTexture, UMenuText, - ULyrics, Math, gl, UThemes; - -type - TScreenOpen = class(TMenu) - private - TextF: array[0..1] of integer; - TextN: integer; - public - Tex_Background: TTexture; - FadeOut: boolean; - Path: string; - BackScreen: pointer; - procedure AddBox(X, Y, W, H: real); - constructor Create; override; - procedure onShow; override; - function ParseInput(PressedKey: Cardinal; CharCode: WideChar; PressedDown: Boolean): Boolean; override; -// function Draw: boolean; override; -// procedure Finish; - end; - -implementation -uses UGraphic, UDraw, UMain, USkins; - -function TScreenOpen.ParseInput(PressedKey: Cardinal; CharCode: WideChar; PressedDown: Boolean): Boolean; -begin - Result := true; - - if (PressedDown) then begin // Key Down - // check normal keys - case CharCode of - '0'..'9', 'a'..'z', 'A'..'Z', ' ', '-', '.', ':', '\': - begin - if Interaction = 0 then begin - Text[TextN].Text := Text[TextN].Text + CharCode; - end; - end; - end; - - // check special keys - case PressedKey of - SDLK_Q: - begin - Result := false; - end; - 8: // del - begin - if Interaction = 0 then - begin - Text[TextN].DeleteLastL; - end; - end; - - - SDLK_ESCAPE : - begin - //Empty Filename and go to last Screen - ConversionFileName := ''; - AudioPlayback.PlaySound(SoundLib.Back); - FadeTo(BackScreen); - end; - - SDLK_RETURN: - begin - if (Interaction = 2) then begin - //Update Filename and go to last Screen - ConversionFileName := Text[TextN].Text; - AudioPlayback.PlaySound(SoundLib.Back); - FadeTo(BackScreen); - end - else if (Interaction = 1) then - begin - //Empty Filename and go to last Screen - ConversionFileName := ''; - AudioPlayback.PlaySound(SoundLib.Back); - FadeTo(BackScreen); - end; - end; - - SDLK_LEFT: - begin - InteractPrev; - end; - - SDLK_RIGHT: - begin - InteractNext; - end; - - SDLK_DOWN: - begin - end; - - SDLK_UP: - begin - end; - end; - end; -end; - -procedure TScreenOpen.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; - -constructor TScreenOpen.Create; -begin - inherited Create; - - // linijka -{ AddStatic(20, 10, 80, 30, 0, 0, 0, 'MainBar', 'JPG', TEXTURE_TYPE_COLORIZED); - AddText(35, 17, 1, 6, 1, 1, 1, 'Linijka'); - TextSentence := AddText(120, 14, 1, 8, 0, 0, 0, '0 / 0');} - - // file list -// AddBox(400, 100, 350, 450); - -// TextF[0] := AddText(430, 155, 0, 8, 0, 0, 0, 'a'); -// TextF[1] := AddText(430, 180, 0, 8, 0, 0, 0, 'a'); - - // file name - AddBox(20, 540, 500, 40); - TextN := AddText(50, 548, 0, 8, 0, 0, 0, ConversionFileName); - AddInteraction(iText, TextN); - - // buttons - {AddButton(540, 540, 100, 40, Skin.SkinPath + Skin.ButtonF); - AddButtonText(10, 5, 0, 0, 0, 'Cancel'); - - AddButton(670, 540, 100, 40, Skin.SkinPath + Skin.ButtonF); - AddButtonText(30, 5, 0, 0, 0, 'OK');} - // buttons - AddButton(540, 540, 100, 40, Skin.GetTextureFileName('ButtonF')); - AddButtonText(10, 5, 0, 0, 0, 'Cancel'); - - AddButton(670, 540, 100, 40, Skin.GetTextureFileName('ButtonF')); - AddButtonText(30, 5, 0, 0, 0, 'OK'); - - -end; - -procedure TScreenOpen.onShow; -begin - inherited; - - Interaction := 0; -end; - -(*function TScreenEditSub.Draw: boolean; -var - Min: integer; - Sec: integer; - Tekst: string; - Pet: integer; - AktBeat: integer; -begin - -end; - -procedure TScreenEditSub.Finish; -begin -// -end;*) - -end. - +unit UScreenOpen; + +interface + +{$I switches.inc} + +uses UMenu, UMusic, SDL, SysUtils, UFiles, UTime, USongs, UIni, ULog, UTexture, UMenuText, + ULyrics, Math, gl, UThemes; + +type + TScreenOpen = class(TMenu) + private + TextF: array[0..1] of integer; + TextN: integer; + public + Tex_Background: TTexture; + FadeOut: boolean; + Path: string; + BackScreen: pointer; + procedure AddBox(X, Y, W, H: real); + constructor Create; override; + procedure onShow; override; + function ParseInput(PressedKey: Cardinal; CharCode: WideChar; PressedDown: Boolean): Boolean; override; +// function Draw: boolean; override; +// procedure Finish; + end; + +implementation +uses UGraphic, UDraw, UMain, USkins; + +function TScreenOpen.ParseInput(PressedKey: Cardinal; CharCode: WideChar; PressedDown: Boolean): Boolean; +begin + Result := true; + + if (PressedDown) then begin // Key Down + // check normal keys + case CharCode of + '0'..'9', 'a'..'z', 'A'..'Z', ' ', '-', '.', ':', '\': + begin + if Interaction = 0 then begin + Text[TextN].Text := Text[TextN].Text + CharCode; + end; + end; + end; + + // check special keys + case PressedKey of + SDLK_Q: + begin + Result := false; + end; + 8: // del + begin + if Interaction = 0 then + begin + Text[TextN].DeleteLastL; + end; + end; + + + SDLK_ESCAPE : + begin + //Empty Filename and go to last Screen + ConversionFileName := ''; + AudioPlayback.PlaySound(SoundLib.Back); + FadeTo(BackScreen); + end; + + SDLK_RETURN: + begin + if (Interaction = 2) then begin + //Update Filename and go to last Screen + ConversionFileName := Text[TextN].Text; + AudioPlayback.PlaySound(SoundLib.Back); + FadeTo(BackScreen); + end + else if (Interaction = 1) then + begin + //Empty Filename and go to last Screen + ConversionFileName := ''; + AudioPlayback.PlaySound(SoundLib.Back); + FadeTo(BackScreen); + end; + end; + + SDLK_LEFT: + begin + InteractPrev; + end; + + SDLK_RIGHT: + begin + InteractNext; + end; + + SDLK_DOWN: + begin + end; + + SDLK_UP: + begin + end; + end; + end; +end; + +procedure TScreenOpen.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; + +constructor TScreenOpen.Create; +begin + inherited Create; + + // linijka +{ AddStatic(20, 10, 80, 30, 0, 0, 0, 'MainBar', 'JPG', TEXTURE_TYPE_COLORIZED); + AddText(35, 17, 1, 6, 1, 1, 1, 'Linijka'); + TextSentence := AddText(120, 14, 1, 8, 0, 0, 0, '0 / 0');} + + // file list +// AddBox(400, 100, 350, 450); + +// TextF[0] := AddText(430, 155, 0, 8, 0, 0, 0, 'a'); +// TextF[1] := AddText(430, 180, 0, 8, 0, 0, 0, 'a'); + + // file name + AddBox(20, 540, 500, 40); + TextN := AddText(50, 548, 0, 8, 0, 0, 0, ConversionFileName); + AddInteraction(iText, TextN); + + // buttons + {AddButton(540, 540, 100, 40, Skin.SkinPath + Skin.ButtonF); + AddButtonText(10, 5, 0, 0, 0, 'Cancel'); + + AddButton(670, 540, 100, 40, Skin.SkinPath + Skin.ButtonF); + AddButtonText(30, 5, 0, 0, 0, 'OK');} + // buttons + AddButton(540, 540, 100, 40, Skin.GetTextureFileName('ButtonF')); + AddButtonText(10, 5, 0, 0, 0, 'Cancel'); + + AddButton(670, 540, 100, 40, Skin.GetTextureFileName('ButtonF')); + AddButtonText(30, 5, 0, 0, 0, 'OK'); + + +end; + +procedure TScreenOpen.onShow; +begin + inherited; + + Interaction := 0; +end; + +(*function TScreenEditSub.Draw: boolean; +var + Min: integer; + Sec: integer; + Tekst: string; + Pet: integer; + AktBeat: integer; +begin + +end; + +procedure TScreenEditSub.Finish; +begin +// +end;*) + +end. + -- cgit v1.2.3