From 278ff525686374c51d542e608ee612da8cdaec6d Mon Sep 17 00:00:00 2001 From: tobigun Date: Sat, 7 Jun 2008 18:43:58 +0000 Subject: just some cleanup - replaced many German and Polish comments - replaced many cryptic var-names - IlNut replaced with LengthNote - renamed the global var "Filename" to "ConversionFilename" to prevent unintended use of it - more readable code (hopefully), especially NewNote and OnSentenceEnd - added some comments on elementary classes/records and their fields git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1137 b956fd51-792f-4845-bead-9b4dfca2ff2c --- Game/Code/Screens/UScreenOpen.pas | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'Game/Code/Screens/UScreenOpen.pas') diff --git a/Game/Code/Screens/UScreenOpen.pas b/Game/Code/Screens/UScreenOpen.pas index e409812c..7dbe8743 100644 --- a/Game/Code/Screens/UScreenOpen.pas +++ b/Game/Code/Screens/UScreenOpen.pas @@ -61,7 +61,7 @@ begin SDLK_ESCAPE : begin //Empty Filename and go to last Screen - FileName := ''; + ConversionFileName := ''; AudioPlayback.PlaySound(SoundLib.Back); FadeTo(BackScreen); end; @@ -70,14 +70,14 @@ begin begin if (Interaction = 2) then begin //Update Filename and go to last Screen - FileName := Text[TextN].Text; + ConversionFileName := Text[TextN].Text; AudioPlayback.PlaySound(SoundLib.Back); FadeTo(BackScreen); end else if (Interaction = 1) then begin //Empty Filename and go to last Screen - FileName := ''; + ConversionFileName := ''; AudioPlayback.PlaySound(SoundLib.Back); FadeTo(BackScreen); end; @@ -127,7 +127,7 @@ begin // file name AddBox(20, 540, 500, 40); - TextN := AddText(50, 548, 0, 8, 0, 0, 0, FileName); + TextN := AddText(50, 548, 0, 8, 0, 0, 0, ConversionFileName); AddInteraction(iText, TextN); // buttons -- cgit v1.2.3