diff options
Diffstat (limited to 'Game/Code/Classes/UFiles.pas')
| -rw-r--r-- | Game/Code/Classes/UFiles.pas | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/Game/Code/Classes/UFiles.pas b/Game/Code/Classes/UFiles.pas index ecf2cbc8..242fe092 100644 --- a/Game/Code/Classes/UFiles.pas +++ b/Game/Code/Classes/UFiles.pas @@ -1368,10 +1368,13 @@ begin for note := 0 to Length(Czesci[pl].Czesc[line].Nuta) - 1 do
begin
if Czesci[pl].Czesc[line].Nuta[note].Start < start then //check start
- Czesci[pl].Czesc[line].Nuta[note].FreeStyle := true
- else if Czesci[pl].Czesc[line].Nuta[note].Start>= end_ then //check end
begin
Czesci[pl].Czesc[line].Nuta[note].FreeStyle := true;
+ Czesci[pl].Czesc[line].Nuta[note].Wartosc := 0;
+ end else if Czesci[pl].Czesc[line].Nuta[note].Start>= end_ then //check end
+ begin
+ Czesci[pl].Czesc[line].Nuta[note].FreeStyle := true;
+ Czesci[pl].Czesc[line].Nuta[note].Wartosc := 0;
if not foundcut[pl] then
begin
if (note=0) then
@@ -1396,7 +1399,8 @@ begin if (foundcut[pl]) and (Length(Czesci[pl].Czesc)>cut_line[pl]) then
begin
SetLength(Czesci[pl].Czesc, cut_line[pl]);
- Czesci[pl].high := cut_line[pl]-1;
+ Czesci[pl].High := cut_line[pl]-1;
+ Czesci[pl].Ilosc := Czesci[pl].High+1;
end;
end;
end;
|