diff options
author | whiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2007-10-26 17:01:42 +0000 |
---|---|---|
committer | whiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2007-10-26 17:01:42 +0000 |
commit | 36116a91476fbeae5c70e877f67cced72ca05356 (patch) | |
tree | 044fca28d8651e34cc18e61f423a339f8bfa5013 /Game/Code/Classes/ULyrics.pas | |
parent | bd869ae129f42fbe2489f1f9ecf333af4dd7195a (diff) | |
download | usdx-36116a91476fbeae5c70e877f67cced72ca05356.tar.gz usdx-36116a91476fbeae5c70e877f67cced72ca05356.tar.xz usdx-36116a91476fbeae5c70e877f67cced72ca05356.zip |
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
Diffstat (limited to 'Game/Code/Classes/ULyrics.pas')
-rw-r--r-- | Game/Code/Classes/ULyrics.pas | 6 |
1 files changed, 6 insertions, 0 deletions
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.
|