From c7f5d683c1eae49e30ee42a76557661f57311b9e Mon Sep 17 00:00:00 2001 From: k-m_schindler Date: Sat, 25 Apr 2009 10:09:59 +0000 Subject: Cosmetics. No code change git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1694 b956fd51-792f-4845-bead-9b4dfca2ff2c --- src/screens/UScreenOpen.pas | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'src/screens/UScreenOpen.pas') diff --git a/src/screens/UScreenOpen.pas b/src/screens/UScreenOpen.pas index fe9f0664..a854e81b 100644 --- a/src/screens/UScreenOpen.pas +++ b/src/screens/UScreenOpen.pas @@ -88,7 +88,7 @@ begin '0'..'9', 'a'..'z', 'A'..'Z', ' ', '-', '.', ':', '\': begin if Interaction = 0 then - begin + begin Text[TextN].Text := Text[TextN].Text + CharCode; end; end; @@ -119,7 +119,7 @@ begin SDLK_RETURN: begin if (Interaction = 2) then - begin + begin //Update Filename and go to last Screen ConversionFileName := Text[TextN].Text; AudioPlayback.PlaySound(SoundLib.Back); @@ -203,7 +203,8 @@ begin Interaction := 0; end; -(*function TScreenEditSub.Draw: boolean; +(* +function TScreenEditSub.Draw: boolean; var Min: integer; Sec: integer; @@ -215,6 +216,7 @@ end; procedure TScreenEditSub.Finish; begin // -end;*) +end; +*) end. -- cgit v1.2.3