diff options
Diffstat (limited to 'src/screens')
| -rw-r--r-- | src/screens/UScreenEditSub.pas | 8 | ||||
| -rw-r--r-- | src/screens/UScreenPartyOptions.pas | 1 | ||||
| -rw-r--r-- | src/screens/UScreenPartyPlayer.pas | 9 | ||||
| -rw-r--r-- | src/screens/UScreenScore.pas | 3 | ||||
| -rw-r--r-- | src/screens/UScreenSing.pas | 3 |
5 files changed, 13 insertions, 11 deletions
diff --git a/src/screens/UScreenEditSub.pas b/src/screens/UScreenEditSub.pas index fb3f04ce..b2b29860 100644 --- a/src/screens/UScreenEditSub.pas +++ b/src/screens/UScreenEditSub.pas @@ -83,13 +83,15 @@ type {$IFDEF UseMIDIPort} MidiOut: TMidiOutput; - {$endif} + {$ENDIF} MidiStart: real; MidiStop: real; MidiTime: real; MidiPos: real; + {$IFDEF UseMIDIPort} MidiLastNote: integer; + {$ENDIF} TextEditMode: boolean; editText: UTF8String; //backup of current text in text-edit-mode @@ -1428,8 +1430,8 @@ var pos: real; br: real; - line, note: integer; - numLines, numNotes: integer; + line: integer; + numLines: integer; begin numLines := Length(Lines[0].Line); diff --git a/src/screens/UScreenPartyOptions.pas b/src/screens/UScreenPartyOptions.pas index f63b37fb..768947bf 100644 --- a/src/screens/UScreenPartyOptions.pas +++ b/src/screens/UScreenPartyOptions.pas @@ -48,7 +48,6 @@ type SelectLevel: cardinal; SelectPlayList: cardinal; SelectPlayList2: cardinal; - SelectRounds: cardinal; IPlaylist: array[0..2] of UTF8String; IPlaylist2: array of UTF8String; diff --git a/src/screens/UScreenPartyPlayer.pas b/src/screens/UScreenPartyPlayer.pas index a7f4d627..0e1bcf5c 100644 --- a/src/screens/UScreenPartyPlayer.pas +++ b/src/screens/UScreenPartyPlayer.pas @@ -439,11 +439,16 @@ begin end; procedure TScreenPartyPlayer.SetAnimationProgress(Progress: real); +{ var I: integer; +} begin - {for I := 0 to high(Button) do - Button[I].Texture.ScaleW := Progress; } +{ + for I := 0 to high(Button) do + Button[I].Texture.ScaleW := Progress; +} end; + end. diff --git a/src/screens/UScreenScore.pas b/src/screens/UScreenScore.pas index 82b73ea2..4fdaf0f1 100644 --- a/src/screens/UScreenScore.pas +++ b/src/screens/UScreenScore.pas @@ -159,9 +159,6 @@ type { statics with players ids } StaticPlayerIdBox: array[1..6] of integer; - TexturePlayerIdBox: array[1..6] of TTexture; - - Animation: real; TextScore_ActualValue: array[1..6] of integer; TextPhrase_ActualValue: array[1..6] of integer; diff --git a/src/screens/UScreenSing.pas b/src/screens/UScreenSing.pas index e69e3f56..50d2d6dd 100644 --- a/src/screens/UScreenSing.pas +++ b/src/screens/UScreenSing.pas @@ -84,7 +84,7 @@ type fMusicSync: TMusicSyncSource; fTimebarMode: TTimebarMode; - StartNote, EndNote: TPos; + StartNote: TPos; procedure LoadNextSong(); procedure UpdateMedleyStats(medley_end: boolean); @@ -983,7 +983,6 @@ var DisplayPrefix: string; DisplayMin: integer; DisplaySec: integer; - T: integer; CurLyricsTime: real; TotalTime: real; VideoFrameTime: extended; |