From 36116a91476fbeae5c70e877f67cced72ca05356 Mon Sep 17 00:00:00 2001
From: whiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Fri, 26 Oct 2007 17:01:42 +0000
Subject: Improved ability to edit notetext a little bit. Text is now changed
 in Lyrics view immediately Add ability to write the 'tilde' (~) in editors
 textinput on QWERTY and QWERTZ keyboards

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/1.01@531 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Classes/ULyrics.pas        | 6 ++++++
 Game/Code/Screens/UScreenEditSub.pas | 6 +++++-
 2 files changed, 11 insertions(+), 1 deletion(-)

diff --git a/Game/Code/Classes/ULyrics.pas b/Game/Code/Classes/ULyrics.pas
index c3b440bc..105f36d1 100644
--- a/Game/Code/Classes/ULyrics.pas
+++ b/Game/Code/Classes/ULyrics.pas
@@ -70,6 +70,7 @@ type
       property FontStyle: integer write SetFStyle;
       procedure AddWord(Text: string);
       procedure AddCzesc(NrCzesci: integer);
+      procedure ChangeCurText(Text: String);
 
       function SelectedLetter: integer;  // LCD
       function SelectedLength: integer;  // LCD
@@ -380,4 +381,9 @@ begin
   Result := Length(Word[SelectedI].Text);
 end;
 
+procedure TLyric.ChangeCurText(Text: String);
+begin
+  Word[Selected].Text := Text;
+end;
+
 end.
diff --git a/Game/Code/Screens/UScreenEditSub.pas b/Game/Code/Screens/UScreenEditSub.pas
index 9ca45f55..ee95906a 100644
--- a/Game/Code/Screens/UScreenEditSub.pas
+++ b/Game/Code/Screens/UScreenEditSub.pas
@@ -574,15 +574,19 @@ begin
           // Exit Text Edit Mode
           TextEditMode := false;
         end;
-      SDLK_0..SDLK_9, SDLK_A..SDLK_Z, SDLK_SPACE, SDLK_MINUS, SDLK_EXCLAIM, SDLK_COMMA, SDLK_SLASH, SDLK_ASTERISK, SDLK_QUESTION, SDLK_QUOTE, SDLK_QUOTEDBL:
+      SDLK_0..SDLK_9, SDLK_A..SDLK_Z, SDLK_SPACE, SDLK_MINUS, SDLK_EXCLAIM, SDLK_COMMA, SDLK_SLASH, SDLK_ASTERISK, SDLK_QUESTION, SDLK_QUOTE, SDLK_QUOTEDBL, SDLK_RIGHTBRACKET, SDLK_HASH:
         begin
           Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Tekst :=
             Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Tekst + chr(ScanCode);
+            
+          Lyric.ChangeCurText(Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Tekst);
         end;
       SDLK_BACKSPACE:
         begin
           Delete(Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Tekst,
             Length(Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Tekst), 1);
+
+          Lyric.ChangeCurText(Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Tekst);
         end;
       SDLK_RIGHT:
         begin
-- 
cgit v1.2.3