fixed a bug in editor: pressing p or v leads sometimes to a crash;

released the r7

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/1.0.1 Challenge MOD@2173 b956fd51-792f-4845-bead-9b4dfca2ff2c

1 files changed, 11 insertions, 5 deletions

diff --git a/Game/Code/Screens/UScreenEditSub.pas b/Game/Code/Screens/UScreenEditSub.pas
index 70b64ad2..05e312e1 100644
--- a/Game/Code/Screens/UScreenEditSub.pas
+++ b/Game/Code/Screens/UScreenEditSub.pas
@@ -1969,9 +1969,10 @@ begin
           begin

             Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Color := 0;

             AktNuta := 0;

-            Inc(Czesci[0].Akt);

-            if Czesci[0].Akt > Length(Czesci[0].Czesc)-1 then //useful?

-              Czesci[0].Akt := 0;

+            Czesci[0].Akt := line;

+            //Inc(Czesci[0].Akt);

+            //if Czesci[0].Akt > Length(Czesci[0].Czesc)-1 then //useful?

+            //  Czesci[0].Akt := 0;

             Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Color := 1;

             Lyric.AddCzesc(Czesci[0].Akt);

             Lyric.Selected := AktNuta;

@@ -2060,8 +2061,13 @@ begin
         begin

           Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Color := 0;

           if not LineChanged then

-            Inc(AktNuta)

-          else

+          begin

+            AktNuta := note;

+            Czesci[0].Akt := line;

+            //Inc(AktNuta);

+            //if AktNuta > Length(Czesci[0].Czesc[Czesci[0].Akt].Nuta)-1 then

+            //  Dec(AktNuta);

+          end else

             LineChanged := false;

 

           Czesci[0].Czesc[Czesci[0].Akt].Nuta[AktNuta].Color := 2;