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 ++++++
 1 file changed, 6 insertions(+)

(limited to 'Game/Code/Classes/ULyrics.pas')

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.
-- 
cgit v1.2.3