diff options
| author | jaybinks <jaybinks@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2007-09-20 09:42:35 +0000 |
|---|---|---|
| committer | jaybinks <jaybinks@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2007-09-20 09:42:35 +0000 |
| commit | 3c41f973b397b718135a7713c7501607812b0192 (patch) | |
| tree | c65b47040e61e05d8497d7e4556ab129c7dc00f3 /Game | |
| parent | fb923e76a9d728805670c58a8eece411fb2b0b02 (diff) | |
| download | usdx-3c41f973b397b718135a7713c7501607812b0192.tar.gz usdx-3c41f973b397b718135a7713c7501607812b0192.tar.xz usdx-3c41f973b397b718135a7713c7501607812b0192.zip | |
renamed Ulyrics.bak.pas hack to Ulyrics_bak.pas for lazarus compatiblity.
minor changes to get code base compiling in Lazarus(win) and Delphi
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@415 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to '')
| -rw-r--r-- | Game/Code/Classes/UCommon.pas | 268 | ||||
| -rw-r--r-- | Game/Code/Classes/ULyrics.pas | 7 | ||||
| -rw-r--r-- | Game/Code/Classes/ULyrics_bak.pas (renamed from Game/Code/Classes/ULyrics.bak.pas) | 32 | ||||
| -rw-r--r-- | Game/Code/Screens/UScreenEditSub.pas | 6 | ||||
| -rw-r--r-- | Game/Code/UltraStar.dpr | 2 | ||||
| -rw-r--r-- | Game/Code/UltraStar.lpi | 1397 | ||||
| -rw-r--r-- | Game/Code/UltraStar.lpr | 825 |
7 files changed, 1250 insertions, 1287 deletions
diff --git a/Game/Code/Classes/UCommon.pas b/Game/Code/Classes/UCommon.pas index b7ddd7ba..b572a768 100644 --- a/Game/Code/Classes/UCommon.pas +++ b/Game/Code/Classes/UCommon.pas @@ -1,132 +1,136 @@ -unit UCommon; - -interface - -{$IFDEF FPC} - {$MODE Delphi} -{$ENDIF} - -uses - -{$IFDEF win32} - windows; -{$ELSE} - lcltype, - messages; -{$ENDIF} - -{$IFNDEF win32} -type - hStream = THandle; - HGLRC = THandle; - TLargeInteger = Int64; - TWin32FindData = LongInt; -{$ENDIF} - -{$IFDEF FPC} - -type - TWndMethod = procedure(var Message: TMessage) of object; - -function RandomRange(aMin: Integer; aMax: Integer) : Integer; -//function AllocateHWnd(Method: TWndMethod): HWND; -//procedure DeallocateHWnd(Wnd: HWND); - -function MaxValue(const Data: array of Double): Double; -function MinValue(const Data: array of Double): Double; -{$ENDIF} - -{$IFNDEF win32} -(* - function QueryPerformanceCounter(lpPerformanceCount:TLARGEINTEGER):Bool; - function QueryPerformanceFrequency(lpFrequency:TLARGEINTEGER):Bool; -*) - procedure ZeroMemory( Destination: Pointer; Length: DWORD ); -{$ENDIF} - -implementation - -{$IFNDEF win32} -procedure ZeroMemory( Destination: Pointer; Length: DWORD ); -begin - FillChar( Destination^, Length, 0 ); -end; //ZeroMemory - -(* -function QueryPerformanceCounter(lpPerformanceCount:TLARGEINTEGER):Bool; - - // From http://en.wikipedia.org/wiki/RDTSC - function RDTSC: Int64; register; - asm - rdtsc - end; - -begin - // Use clock_gettime here maybe ... from libc - lpPerformanceCount := RDTSC(); - result := true; -end; - -function QueryPerformanceFrequency(lpFrequency:TLARGEINTEGER):Bool; -begin - lpFrequency := 0; - result := true; -end; -*) -{$ENDIF} - - -{$IFDEF FPC} - -function MaxValue(const Data: array of Double): Double; -var - I: Integer; -begin - Result := Data[Low(Data)]; - for I := Low(Data) + 1 to High(Data) do - if Result < Data[I] then - Result := Data[I]; -end; - -function MinValue(const Data: array of Double): Double; -var - I: Integer; -begin - Result := Data[Low(Data)]; - for I := Low(Data) + 1 to High(Data) do - if Result > Data[I] then - Result := Data[I]; -end; - -function RandomRange(aMin: Integer; aMax: Integer) : Integer; -begin -RandomRange := Random(aMax-aMin) + aMin ; -end; - - -// NOTE !!!!!!!!!! -// AllocateHWnd is in lclintfh.inc - -{ -// TODO : JB this is dodgey and bad... find a REAL solution ! -function AllocateHWnd(Method: TWndMethod): HWND; -var - TempClass: TWndClass; - ClassRegistered: Boolean; -begin - Result := CreateWindowEx(WS_EX_TOOLWINDOW, '', '', WS_POPUP , 0, 0, 0, 0, 0, 0, HInstance, nil); -end; - -procedure DeallocateHWnd(Wnd: HWND); -var - Instance: Pointer; -begin - Instance := Pointer(GetWindowLong(Wnd, GWL_WNDPROC)); - DestroyWindow(Wnd); -end; -} - -{$ENDIF} - - -end. +unit UCommon;
+
+interface
+
+{$IFDEF FPC}
+ {$MODE Delphi}
+{$ENDIF}
+
+uses
+
+{$IFDEF win32}
+ windows;
+{$ELSE}
+ lcltype,
+ messages;
+{$ENDIF}
+
+{$IFNDEF win32}
+type
+ hStream = THandle;
+ HGLRC = THandle;
+ TLargeInteger = Int64;
+ TWin32FindData = LongInt;
+{$ENDIF}
+
+{$IFDEF FPC}
+
+type
+ TWndMethod = procedure(var Message: TMessage) of object;
+
+function RandomRange(aMin: Integer; aMax: Integer) : Integer;
+
+function MaxValue(const Data: array of Double): Double;
+function MinValue(const Data: array of Double): Double;
+
+{$IFDEF Win32}
+function AllocateHWnd(Method: TWndMethod): HWND;
+procedure DeallocateHWnd(Wnd: HWND);
+{$ENDIF}
+
+{$ENDIF}
+
+{$IFNDEF win32}
+(*
+ function QueryPerformanceCounter(lpPerformanceCount:TLARGEINTEGER):Bool;
+ function QueryPerformanceFrequency(lpFrequency:TLARGEINTEGER):Bool;
+*)
+ procedure ZeroMemory( Destination: Pointer; Length: DWORD );
+{$ENDIF}
+
+implementation
+
+{$IFNDEF win32}
+procedure ZeroMemory( Destination: Pointer; Length: DWORD );
+begin
+ FillChar( Destination^, Length, 0 );
+end; //ZeroMemory
+
+(*
+function QueryPerformanceCounter(lpPerformanceCount:TLARGEINTEGER):Bool;
+
+ // From http://en.wikipedia.org/wiki/RDTSC
+ function RDTSC: Int64; register;
+ asm
+ rdtsc
+ end;
+
+begin
+ // Use clock_gettime here maybe ... from libc
+ lpPerformanceCount := RDTSC();
+ result := true;
+end;
+
+function QueryPerformanceFrequency(lpFrequency:TLARGEINTEGER):Bool;
+begin
+ lpFrequency := 0;
+ result := true;
+end;
+*)
+{$ENDIF}
+
+
+{$IFDEF FPC}
+
+function MaxValue(const Data: array of Double): Double;
+var
+ I: Integer;
+begin
+ Result := Data[Low(Data)];
+ for I := Low(Data) + 1 to High(Data) do
+ if Result < Data[I] then
+ Result := Data[I];
+end;
+
+function MinValue(const Data: array of Double): Double;
+var
+ I: Integer;
+begin
+ Result := Data[Low(Data)];
+ for I := Low(Data) + 1 to High(Data) do
+ if Result > Data[I] then
+ Result := Data[I];
+end;
+
+function RandomRange(aMin: Integer; aMax: Integer) : Integer;
+begin
+RandomRange := Random(aMax-aMin) + aMin ;
+end;
+
+
+// NOTE !!!!!!!!!!
+// AllocateHWnd is in lclintfh.inc
+
+{$IFDEF Win32}
+// TODO : JB this is dodgey and bad... find a REAL solution !
+function AllocateHWnd(Method: TWndMethod): HWND;
+var
+ TempClass: TWndClass;
+ ClassRegistered: Boolean;
+begin
+ Result := CreateWindowEx(WS_EX_TOOLWINDOW, '', '', WS_POPUP , 0, 0, 0, 0, 0, 0, HInstance, nil);
+end;
+
+procedure DeallocateHWnd(Wnd: HWND);
+var
+ Instance: Pointer;
+begin
+ Instance := Pointer(GetWindowLong(Wnd, GWL_WNDPROC));
+ DestroyWindow(Wnd);
+end;
+{$ENDIF}
+
+{$ENDIF}
+
+
+end.
diff --git a/Game/Code/Classes/ULyrics.pas b/Game/Code/Classes/ULyrics.pas index 5cf6114d..1c2795ce 100644 --- a/Game/Code/Classes/ULyrics.pas +++ b/Game/Code/Classes/ULyrics.pas @@ -1,6 +1,13 @@ unit ULyrics;
interface
+
+{$IFDEF FPC}
+ {$MODE DELPHI}
+{$ENDIF}
+
+{$I switches.inc}
+
uses OpenGL12, UTexture, UThemes, UMusic;
type
diff --git a/Game/Code/Classes/ULyrics.bak.pas b/Game/Code/Classes/ULyrics_bak.pas index e432f7e5..43fa46f5 100644 --- a/Game/Code/Classes/ULyrics.bak.pas +++ b/Game/Code/Classes/ULyrics_bak.pas @@ -1,7 +1,17 @@ -unit ULyrics.bak;
+unit ULyrics_bak;
interface
-uses SysUtils, OpenGL12, UMusic, UTexture;
+
+{$IFDEF FPC}
+ {$MODE DELPHI}
+{$ENDIF}
+
+{$I switches.inc}
+
+uses SysUtils,
+ OpenGL12,
+ UMusic,
+ UTexture;
type
TWord = record
@@ -74,6 +84,15 @@ type Text: string; // LCD
constructor Create;
+
+ procedure AddWord(Text: string);
+ procedure AddCzesc(NrCzesci: integer);
+
+ function SelectedLetter: integer; // LCD
+ function SelectedLength: integer; // LCD
+
+ procedure Clear;
+ procedure Draw;
published
property X: real write SetX;
property Y: real write SetY;
@@ -85,15 +104,6 @@ type property Scale: real write SetScale;
property Style: integer write SetStyle;
property FontStyle: integer write SetFStyle;
- procedure AddWord(Text: string);
- procedure AddCzesc(NrCzesci: integer);
-
- function SelectedLetter: integer; // LCD
- function SelectedLength: integer; // LCD
-
- procedure Clear;
- procedure Draw;
-
end;
var
diff --git a/Game/Code/Screens/UScreenEditSub.pas b/Game/Code/Screens/UScreenEditSub.pas index 93a4892a..e896d603 100644 --- a/Game/Code/Screens/UScreenEditSub.pas +++ b/Game/Code/Screens/UScreenEditSub.pas @@ -2,6 +2,10 @@ unit UScreenEditSub; interface
+{$IFDEF FPC}
+ {$MODE DELPHI}
+{$ENDIF}
+
{$I switches.inc}
uses
@@ -16,7 +20,7 @@ uses ULog,
UTexture,
UMenuText,
- ULyrics.bak,
+ ULyrics_bak,
Math,
OpenGL12,
{$IFDEF UseMIDIPort}
diff --git a/Game/Code/UltraStar.dpr b/Game/Code/UltraStar.dpr index 42301946..7cbc2e55 100644 --- a/Game/Code/UltraStar.dpr +++ b/Game/Code/UltraStar.dpr @@ -73,7 +73,7 @@ uses USongs in 'Classes\USongs.pas',
UIni in 'Classes\UIni.pas',
ULyrics in 'Classes\ULyrics.pas',
- ULyrics.bak in 'Classes\ULyrics.bak.pas',
+ ULyrics_bak in 'Classes\ULyrics_bak.pas',
USkins in 'Classes\USkins.pas',
UThemes in 'Classes\UThemes.pas',
ULog in 'Classes\ULog.pas',
diff --git a/Game/Code/UltraStar.lpi b/Game/Code/UltraStar.lpi index a3ff59ad..1b925455 100644 --- a/Game/Code/UltraStar.lpi +++ b/Game/Code/UltraStar.lpi @@ -1,730 +1,667 @@ -<?xml version="1.0"?> -<CONFIG> - <ProjectOptions> - <PathDelim Value="/"/> - <Version Value="5"/> - <General> - <Flags> - <MainUnitHasUsesSectionForAllUnits Value="False"/> - <MainUnitHasCreateFormStatements Value="False"/> - <MainUnitHasTitleStatement Value="False"/> - </Flags> - <MainUnit Value="0"/> - <IconPath Value="./"/> - <TargetFileExt Value=".exe"/> - <ActiveEditorIndexAtStart Value="1"/> - </General> - <VersionInfo> - <ProjectVersion Value=""/> - <Language Value=""/> - <CharSet Value=""/> - </VersionInfo> - <PublishOptions> - <Version Value="2"/> - <IgnoreBinaries Value="False"/> - <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/> - <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/> - </PublishOptions> - <RunParams> - <local> - <FormatVersion Value="1"/> - <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/> - </local> - </RunParams> - <RequiredPackages Count="1"> - <Item1> - <PackageName Value="ImagesForLazarus"/> - </Item1> - </RequiredPackages> - <Units Count="73"> - <Unit0> - <Filename Value="UltraStar.lpr"/> - <IsPartOfProject Value="True"/> - <CursorPos X="43" Y="118"/> - <TopLine Value="97"/> - <EditorIndex Value="0"/> - <UsageCount Value="86"/> - <Loaded Value="True"/> - </Unit0> - <Unit1> - <Filename Value="lib/JEDI-SDLv1.0/OpenGL/Pas/opengl12.pas"/> - <UnitName Value="opengl12"/> - <CursorPos X="10" Y="269"/> - <TopLine Value="248"/> - <UsageCount Value="10"/> - </Unit1> - <Unit2> - <Filename Value="Classes/UTexture.pas"/> - <UnitName Value="UTexture"/> - <CursorPos X="7" Y="23"/> - <TopLine Value="2"/> - <UsageCount Value="15"/> - </Unit2> - <Unit3> - <Filename Value="Classes/UCommandLine.pas"/> - <UnitName Value="UCommandLine"/> - <CursorPos X="1" Y="1"/> - <TopLine Value="1"/> - <UsageCount Value="32"/> - </Unit3> - <Unit4> - <Filename Value="Classes/UIni.pas"/> - <UnitName Value="UIni"/> - <CursorPos X="35" Y="383"/> - <TopLine Value="362"/> - <EditorIndex Value="6"/> - <UsageCount Value="32"/> - <Loaded Value="True"/> - </Unit4> - <Unit5> - <Filename Value="Classes/ULog.pas"/> - <UnitName Value="ULog"/> - <CursorPos X="5" Y="5"/> - <TopLine Value="13"/> - <EditorIndex Value="11"/> - <UsageCount Value="13"/> - <Loaded Value="True"/> - </Unit5> - <Unit6> - <Filename Value="Classes/UFiles.pas"/> - <UnitName Value="UFiles"/> - <CursorPos X="9" Y="56"/> - <TopLine Value="46"/> - <EditorIndex Value="8"/> - <UsageCount Value="12"/> - <Loaded Value="True"/> - </Unit6> - <Unit7> - <Filename Value="Classes/USongs.pas"/> - <UnitName Value="USongs"/> - <CursorPos X="110" Y="151"/> - <TopLine Value="122"/> - <EditorIndex Value="5"/> - <UsageCount Value="10"/> - <Loaded Value="True"/> - </Unit7> - <Unit8> - <Filename Value="../../../../../lazarus/fpc/2.0.4/source/rtl/objpas/sysutils/sysinth.inc"/> - <CursorPos X="3" Y="95"/> - <TopLine Value="75"/> - <UsageCount Value="4"/> - </Unit8> - <Unit9> - <Filename Value="Classes/UMain.pas"/> - <UnitName Value="UMain"/> - <CursorPos X="99" Y="785"/> - <TopLine Value="595"/> - <EditorIndex Value="9"/> - <UsageCount Value="10"/> - <Loaded Value="True"/> - </Unit9> - <Unit10> - <Filename Value="Classes/UGraphic.pas"/> - <UnitName Value="UGraphic"/> - <CursorPos X="8" Y="245"/> - <TopLine Value="224"/> - <UsageCount Value="33"/> - </Unit10> - <Unit11> - <Filename Value="Classes/UThemes.pas"/> - <UnitName Value="UThemes"/> - <CursorPos X="29" Y="1746"/> - <TopLine Value="1691"/> - <UsageCount Value="9"/> - </Unit11> - <Unit12> - <Filename Value="Classes/UCovers.pas"/> - <UnitName Value="UCovers"/> - <CursorPos X="7" Y="11"/> - <TopLine Value="1"/> - <UsageCount Value="11"/> - </Unit12> - <Unit13> - <Filename Value="Classes/UMusic.pas"/> - <UnitName Value="UMusic"/> - <CursorPos X="1" Y="14"/> - <TopLine Value="1"/> - <UsageCount Value="15"/> - </Unit13> - <Unit14> - <Filename Value="Classes/ULyrics.pas"/> - <UnitName Value="ULyrics"/> - <CursorPos X="1" Y="1"/> - <TopLine Value="1"/> - <UsageCount Value="5"/> - </Unit14> - <Unit15> - <Filename Value="Screens/UScreenLoading.pas"/> - <UnitName Value="UScreenLoading"/> - <CursorPos X="8" Y="6"/> - <TopLine Value="1"/> - <UsageCount Value="5"/> - </Unit15> - <Unit16> - <Filename Value="Menu/UMenu.pas"/> - <UnitName Value="UMenu"/> - <CursorPos X="1" Y="8"/> - <TopLine Value="1"/> - <UsageCount Value="9"/> - </Unit16> - <Unit17> - <Filename Value="Menu/UMenuText.pas"/> - <UnitName Value="UMenuText"/> - <CursorPos X="14" Y="60"/> - <TopLine Value="37"/> - <UsageCount Value="11"/> - </Unit17> - <Unit18> - <Filename Value="Menu/UMenuSelectSlide.pas"/> - <UnitName Value="UMenuSelectSlide"/> - <CursorPos X="6" Y="12"/> - <TopLine Value="2"/> - <UsageCount Value="4"/> - </Unit18> - <Unit19> - <Filename Value="Screens/UScreenMain.pas"/> - <UnitName Value="UScreenMain"/> - <CursorPos X="13" Y="37"/> - <TopLine Value="16"/> - <UsageCount Value="31"/> - </Unit19> - <Unit20> - <Filename Value="Menu/UDisplay.pas"/> - <UnitName Value="UDisplay"/> - <CursorPos X="54" Y="21"/> - <TopLine Value="1"/> - <UsageCount Value="14"/> - </Unit20> - <Unit21> - <Filename Value="Classes/ULight.pas"/> - <UnitName Value="ULight"/> - <CursorPos X="1" Y="1"/> - <TopLine Value="13"/> - <UsageCount Value="10"/> - <Bookmarks Count="1"> - <Item0 X="19" Y="66" ID="1"/> - </Bookmarks> - </Unit21> - <Unit22> - <Filename Value="Screens/UScreenSing.pas"/> - <UnitName Value="UScreenSing"/> - <CursorPos X="1" Y="1027"/> - <TopLine Value="1006"/> - <UsageCount Value="10"/> - </Unit22> - <Unit23> - <Filename Value="Classes/UVideo.pas"/> - <UnitName Value="UVideo"/> - <CursorPos X="1" Y="8"/> - <TopLine Value="2"/> - <UsageCount Value="10"/> - </Unit23> - <Unit24> - <Filename Value="Screens/UScreenScore.pas"/> - <UnitName Value="UScreenScore"/> - <CursorPos X="9" Y="7"/> - <TopLine Value="1"/> - <UsageCount Value="10"/> - </Unit24> - <Unit25> - <Filename Value="Screens/UScreenEditSub.pas"/> - <UnitName Value="UScreenEditSub"/> - <CursorPos X="11" Y="1339"/> - <TopLine Value="1330"/> - <UsageCount Value="10"/> - </Unit25> - <Unit26> - <Filename Value="switches.inc"/> - <CursorPos X="19" Y="12"/> - <TopLine Value="1"/> - <UsageCount Value="11"/> - </Unit26> - <Unit27> - <Filename Value="lib/midi/Midiout.pas"/> - <UnitName Value="MidiOut"/> - <CursorPos X="1" Y="1"/> - <TopLine Value="1"/> - <UsageCount Value="9"/> - </Unit27> - <Unit28> - <Filename Value="Screens/UScreenEditConvert.pas"/> - <UnitName Value="UScreenEditConvert"/> - <CursorPos X="22" Y="26"/> - <TopLine Value="1"/> - <UsageCount Value="32"/> - </Unit28> - <Unit29> - <Filename Value="Screens/UScreenSingModi.pas"/> - <UnitName Value="UScreenSingModi"/> - <CursorPos X="1" Y="24"/> - <TopLine Value="1"/> - <UsageCount Value="31"/> - </Unit29> - <Unit30> - <Filename Value="Screens/UScreenCredits.pas"/> - <UnitName Value="UScreenCredits"/> - <CursorPos X="13" Y="119"/> - <TopLine Value="98"/> - <UsageCount Value="32"/> - </Unit30> - <Unit31> - <Filename Value="Classes/URecord.pas"/> - <UnitName Value="URecord"/> - <CursorPos X="21" Y="293"/> - <TopLine Value="271"/> - <UsageCount Value="31"/> - </Unit31> - <Unit32> - <Filename Value="lib/JEDI-SDLv1.0/SDL/Pas/jedi-sdl.inc"/> - <CursorPos X="4" Y="237"/> - <TopLine Value="217"/> - <UsageCount Value="10"/> - </Unit32> - <Unit33> - <Filename Value="../../Modis/SDK/ModiSDK.pas"/> - <UnitName Value="ModiSDK"/> - <CursorPos X="79" Y="145"/> - <TopLine Value="104"/> - <EditorIndex Value="7"/> - <UsageCount Value="31"/> - <Loaded Value="True"/> - </Unit33> - <Unit34> - <Filename Value="Classes/UDLLManager.pas"/> - <UnitName Value="UDLLManager"/> - <CursorPos X="1" Y="1"/> - <TopLine Value="1"/> - <EditorIndex Value="2"/> - <UsageCount Value="32"/> - <Loaded Value="True"/> - </Unit34> - <Unit35> - <Filename Value="Classes/UPlaylist.pas"/> - <UnitName Value="UPlaylist"/> - <CursorPos X="1" Y="1"/> - <TopLine Value="1"/> - <EditorIndex Value="3"/> - <UsageCount Value="31"/> - <Loaded Value="True"/> - </Unit35> - <Unit36> - <Filename Value="Classes/UDataBase.pas"/> - <UnitName Value="UDataBase"/> - <CursorPos X="10" Y="211"/> - <TopLine Value="189"/> - <UsageCount Value="31"/> - </Unit36> - <Unit37> - <Filename Value="Screens/UScreenStatMain.pas"/> - <UnitName Value="UScreenStatMain"/> - <CursorPos X="76" Y="167"/> - <TopLine Value="155"/> - <UsageCount Value="32"/> - <Bookmarks Count="1"> - <Item0 X="21" Y="216" ID="1"/> - </Bookmarks> - </Unit37> - <Unit38> - <Filename Value="Screens/UScreenPartyOptions.pas"/> - <UnitName Value="UScreenPartyOptions"/> - <CursorPos X="42" Y="233"/> - <TopLine Value="213"/> - <UsageCount Value="31"/> - </Unit38> - <Unit39> - <Filename Value="Screens/UScreenPartyNewRound.pas"/> - <UnitName Value="UScreenPartyNewRound"/> - <CursorPos X="5" Y="422"/> - <TopLine Value="382"/> - <UsageCount Value="31"/> - </Unit39> - <Unit40> - <Filename Value="Classes/UParty.pas"/> - <UnitName Value="UParty"/> - <CursorPos X="1" Y="8"/> - <TopLine Value="1"/> - <UsageCount Value="31"/> - </Unit40> - <Unit41> - <Filename Value="Classes/UDraw.pas"/> - <UnitName Value="UDraw"/> - <CursorPos X="7" Y="67"/> - <TopLine Value="43"/> - <UsageCount Value="31"/> - </Unit41> - <Unit42> - <Filename Value="Screens/UScreenSongMenu.pas"/> - <UnitName Value="UScreenSongMenu"/> - <CursorPos X="1" Y="1"/> - <TopLine Value="1"/> - <UsageCount Value="31"/> - </Unit42> - <Unit43> - <Filename Value="Screens/UScreenTop5.pas"/> - <UnitName Value="UScreenTop5"/> - <CursorPos X="1" Y="1"/> - <TopLine Value="1"/> - <UsageCount Value="10"/> - </Unit43> - <Unit44> - <Filename Value="Classes/UGraphicClasses.pas"/> - <UnitName Value="UGraphicClasses"/> - <CursorPos X="1" Y="7"/> - <TopLine Value="1"/> - <UsageCount Value="11"/> - </Unit44> - <Unit45> - <Filename Value="Screens/UScreenSong.pas"/> - <UnitName Value="UScreenSong"/> - <CursorPos X="13" Y="126"/> - <TopLine Value="105"/> - <UsageCount Value="10"/> - </Unit45> - <Unit46> - <Filename Value="lib/midi/DELPHMCB.PAS"/> - <UnitName Value="Delphmcb"/> - <CursorPos X="1" Y="1"/> - <TopLine Value="1"/> - <UsageCount Value="9"/> - </Unit46> - <Unit47> - <Filename Value="Classes/UCommon.pas"/> - <UnitName Value="UCommon"/> - <CursorPos X="3" Y="75"/> - <TopLine Value="34"/> - <EditorIndex Value="15"/> - <UsageCount Value="15"/> - <Loaded Value="True"/> - </Unit47> - <Unit48> - <Filename Value="../../../../../lazarus/fpc/2.0.4/source/rtl/objpas/math.pp"/> - <UnitName Value="math"/> - <CursorPos X="1" Y="1041"/> - <TopLine Value="1036"/> - <UsageCount Value="9"/> - </Unit48> - <Unit49> - <Filename Value="Classes/Ulazjpeg.pas"/> - <UnitName Value="Ulazjpeg"/> - <CursorPos X="44" Y="15"/> - <TopLine Value="63"/> - <UsageCount Value="11"/> - </Unit49> - <Unit50> - <Filename Value="Classes/TextGL.pas"/> - <UnitName Value="TextGL"/> - <CursorPos X="7" Y="64"/> - <TopLine Value="43"/> - <UsageCount Value="13"/> - </Unit50> - <Unit51> - <Filename Value="UltraStar.lrs"/> - <CursorPos X="17" Y="1"/> - <TopLine Value="1"/> - <UsageCount Value="10"/> - </Unit51> - <Unit52> - <Filename Value="lib/JEDI-SDLv1.0/SDL/Pas/moduleloader.pas"/> - <UnitName Value="moduleloader"/> - <CursorPos X="10" Y="64"/> - <TopLine Value="55"/> - <UsageCount Value="10"/> - </Unit52> - <Unit53> - <Filename Value="lib/bass/delphi/bass.pas"/> - <UnitName Value="Bass"/> - <CursorPos X="1" Y="1"/> - <TopLine Value="1"/> - <UsageCount Value="9"/> - </Unit53> - <Unit54> - <Filename Value="lib/ffmpeg/avcodec.pas"/> - <UnitName Value="avcodec"/> - <CursorPos X="69" Y="1519"/> - <TopLine Value="1492"/> - <UsageCount Value="12"/> - </Unit54> - <Unit55> - <Filename Value="lib/ffmpeg/rational.pas"/> - <UnitName Value="rational"/> - <CursorPos X="40" Y="33"/> - <TopLine Value="1"/> - <UsageCount Value="12"/> - </Unit55> - <Unit56> - <Filename Value="lib/ffmpeg/opt.pas"/> - <UnitName Value="opt"/> - <CursorPos X="37" Y="46"/> - <TopLine Value="17"/> - <UsageCount Value="9"/> - </Unit56> - <Unit57> - <Filename Value="lib/ffmpeg/avformat.pas"/> - <UnitName Value="avformat"/> - <CursorPos X="10" Y="357"/> - <TopLine Value="335"/> - <UsageCount Value="9"/> - </Unit57> - <Unit58> - <Filename Value="lib/ffmpeg/avio.pas"/> - <UnitName Value="avio"/> - <CursorPos X="1" Y="34"/> - <TopLine Value="1"/> - <UsageCount Value="10"/> - </Unit58> - <Unit59> - <Filename Value="lib/SQLite/SQLiteTable3.pas"/> - <UnitName Value="SQLiteTable3"/> - <CursorPos X="24" Y="16"/> - <TopLine Value="2"/> - <UsageCount Value="9"/> - </Unit59> - <Unit60> - <Filename Value="Menu/UMenuButton.pas"/> - <UnitName Value="UMenuButton"/> - <CursorPos X="13" Y="90"/> - <TopLine Value="69"/> - <UsageCount Value="11"/> - </Unit60> - <Unit61> - <Filename Value="Classes/UTime.pas"/> - <UnitName Value="UTime"/> - <CursorPos X="41" Y="44"/> - <TopLine Value="35"/> - <EditorIndex Value="12"/> - <UsageCount Value="14"/> - <Loaded Value="True"/> - </Unit61> - <Unit62> - <Filename Value="Classes/UJoystick.pas"/> - <UnitName Value="UJoystick"/> - <CursorPos X="1" Y="6"/> - <TopLine Value="1"/> - <UsageCount Value="11"/> - </Unit62> - <Unit63> - <Filename Value="Classes/ULanguage.pas"/> - <UnitName Value="ULanguage"/> - <CursorPos X="29" Y="106"/> - <TopLine Value="96"/> - <EditorIndex Value="10"/> - <UsageCount Value="11"/> - <Loaded Value="True"/> - </Unit63> - <Unit64> - <Filename Value="/usr/share/fpcsrc/rtl/unix/sysutils.pp"/> - <UnitName Value="sysutils"/> - <CursorPos X="7" Y="93"/> - <TopLine Value="72"/> - <UsageCount Value="10"/> - </Unit64> - <Unit65> - <Filename Value="/usr/share/fpcsrc/rtl/objpas/sysutils/sysutilh.inc"/> - <CursorPos X="45" Y="30"/> - <TopLine Value="13"/> - <UsageCount Value="10"/> - </Unit65> - <Unit66> - <Filename Value="/usr/share/fpcsrc/rtl/objpas/sysutils/sysutils.inc"/> - <CursorPos X="86" Y="90"/> - <TopLine Value="73"/> - <UsageCount Value="10"/> - </Unit66> - <Unit67> - <Filename Value="Classes/ULCD.pas"/> - <UnitName Value="ULCD"/> - <CursorPos X="1" Y="1"/> - <TopLine Value="1"/> - <UsageCount Value="10"/> - </Unit67> - <Unit68> - <Filename Value="lib/JEDI-SDLv1.0/SDL/Pas/sdl.pas"/> - <UnitName Value="sdl"/> - <CursorPos X="52" Y="2092"/> - <TopLine Value="2071"/> - <UsageCount Value="10"/> - </Unit68> - <Unit69> - <Filename Value="/usr/share/fpcsrc/packages/base/libc/libc.pp"/> - <UnitName Value="libc"/> - <CursorPos X="7" Y="41"/> - <TopLine Value="19"/> - <EditorIndex Value="14"/> - <UsageCount Value="11"/> - <Loaded Value="True"/> - </Unit69> - <Unit70> - <Filename Value="/usr/share/fpcsrc/fv/time.pas"/> - <UnitName Value="Time"/> - <CursorPos X="3" Y="222"/> - <TopLine Value="424"/> - <EditorIndex Value="13"/> - <UsageCount Value="11"/> - <Loaded Value="True"/> - </Unit70> - <Unit71> - <Filename Value="Classes/UCatCovers.pas"/> - <UnitName Value="UCatCovers"/> - <CursorPos X="73" Y="74"/> - <TopLine Value="107"/> - <EditorIndex Value="4"/> - <UsageCount Value="10"/> - <Loaded Value="True"/> - </Unit71> - <Unit72> - <Filename Value="Classes/USkins.pas"/> - <UnitName Value="USkins"/> - <CursorPos X="53" Y="27"/> - <TopLine Value="1"/> - <EditorIndex Value="1"/> - <UsageCount Value="10"/> - <Loaded Value="True"/> - </Unit72> - </Units> - <JumpHistory Count="30" HistoryIndex="29"> - <Position1> - <Filename Value="Classes/UFiles.pas"/> - <Caret Line="38" Column="16" TopLine="17"/> - </Position1> - <Position2> - <Filename Value="Classes/UMain.pas"/> - <Caret Line="1" Column="1" TopLine="1"/> - </Position2> - <Position3> - <Filename Value="Classes/UMain.pas"/> - <Caret Line="105" Column="16" TopLine="84"/> - </Position3> - <Position4> - <Filename Value="UltraStar.lpr"/> - <Caret Line="103" Column="41" TopLine="82"/> - </Position4> - <Position5> - <Filename Value="UltraStar.lpr"/> - <Caret Line="176" Column="49" TopLine="155"/> - </Position5> - <Position6> - <Filename Value="UltraStar.lpr"/> - <Caret Line="1" Column="1" TopLine="1"/> - </Position6> - <Position7> - <Filename Value="Classes/UIni.pas"/> - <Caret Line="15" Column="32" TopLine="1"/> - </Position7> - <Position8> - <Filename Value="Classes/UIni.pas"/> - <Caret Line="325" Column="82" TopLine="221"/> - </Position8> - <Position9> - <Filename Value="Classes/UIni.pas"/> - <Caret Line="1" Column="1" TopLine="1"/> - </Position9> - <Position10> - <Filename Value="UltraStar.lpr"/> - <Caret Line="106" Column="1" TopLine="85"/> - </Position10> - <Position11> - <Filename Value="Classes/USongs.pas"/> - <Caret Line="154" Column="70" TopLine="211"/> - </Position11> - <Position12> - <Filename Value="Classes/USongs.pas"/> - <Caret Line="1" Column="1" TopLine="1"/> - </Position12> - <Position13> - <Filename Value="Classes/USongs.pas"/> - <Caret Line="124" Column="55" TopLine="103"/> - </Position13> - <Position14> - <Filename Value="UltraStar.lpr"/> - <Caret Line="119" Column="41" TopLine="98"/> - </Position14> - <Position15> - <Filename Value="UltraStar.lpr"/> - <Caret Line="1" Column="1" TopLine="1"/> - </Position15> - <Position16> - <Filename Value="UltraStar.lpr"/> - <Caret Line="119" Column="9" TopLine="98"/> - </Position16> - <Position17> - <Filename Value="UltraStar.lpr"/> - <Caret Line="1" Column="1" TopLine="1"/> - </Position17> - <Position18> - <Filename Value="Classes/UCatCovers.pas"/> - <Caret Line="1" Column="1" TopLine="1"/> - </Position18> - <Position19> - <Filename Value="UltraStar.lpr"/> - <Caret Line="96" Column="44" TopLine="75"/> - </Position19> - <Position20> - <Filename Value="Classes/UPlaylist.pas"/> - <Caret Line="20" Column="55" TopLine="1"/> - </Position20> - <Position21> - <Filename Value="Classes/UPlaylist.pas"/> - <Caret Line="94" Column="15" TopLine="73"/> - </Position21> - <Position22> - <Filename Value="UltraStar.lpr"/> - <Caret Line="116" Column="46" TopLine="95"/> - </Position22> - <Position23> - <Filename Value="UltraStar.lpr"/> - <Caret Line="1" Column="1" TopLine="1"/> - </Position23> - <Position24> - <Filename Value="Classes/UDLLManager.pas"/> - <Caret Line="49" Column="7" TopLine="25"/> - </Position24> - <Position25> - <Filename Value="Classes/UDLLManager.pas"/> - <Caret Line="47" Column="1" TopLine="31"/> - </Position25> - <Position26> - <Filename Value="Classes/UDLLManager.pas"/> - <Caret Line="76" Column="23" TopLine="55"/> - </Position26> - <Position27> - <Filename Value="Classes/UDLLManager.pas"/> - <Caret Line="146" Column="48" TopLine="125"/> - </Position27> - <Position28> - <Filename Value="Classes/UDLLManager.pas"/> - <Caret Line="173" Column="47" TopLine="188"/> - </Position28> - <Position29> - <Filename Value="UltraStar.lpr"/> - <Caret Line="101" Column="46" TopLine="80"/> - </Position29> - <Position30> - <Filename Value="Classes/USkins.pas"/> - <Caret Line="1" Column="1" TopLine="1"/> - </Position30> - </JumpHistory> - </ProjectOptions> - <CompilerOptions> - <Version Value="5"/> - <SearchPaths> - <IncludeFiles Value="lib/JEDI-SDLv1.0/SDL/Pas/"/> - </SearchPaths> - <CodeGeneration> - <Generate Value="Faster"/> - </CodeGeneration> - <Other> - <CompilerPath Value="$(CompPath)"/> - <CreateMakefileOnBuild Value="True"/> - </Other> - </CompilerOptions> - <Debugging> - <Exceptions Count="2"> - <Item1> - <Name Value="ECodetoolError"/> - </Item1> - <Item2> - <Name Value="EFOpenError"/> - </Item2> - </Exceptions> - </Debugging> -</CONFIG> +<?xml version="1.0"?>
+<CONFIG>
+ <ProjectOptions>
+ <PathDelim Value="\"/>
+ <Version Value="5"/>
+ <General>
+ <Flags>
+ <MainUnitHasUsesSectionForAllUnits Value="False"/>
+ <MainUnitHasCreateFormStatements Value="False"/>
+ <MainUnitHasTitleStatement Value="False"/>
+ </Flags>
+ <MainUnit Value="0"/>
+ <IconPath Value="./"/>
+ <TargetFileExt Value=".exe"/>
+ <ActiveEditorIndexAtStart Value="5"/>
+ </General>
+ <VersionInfo>
+ <ProjectVersion Value=""/>
+ <Language Value=""/>
+ <CharSet Value=""/>
+ </VersionInfo>
+ <PublishOptions>
+ <Version Value="2"/>
+ <DestinationDirectory Value="$(TestDir)\publishedproject\"/>
+ <IgnoreBinaries Value="False"/>
+ <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
+ <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
+ </PublishOptions>
+ <RunParams>
+ <local>
+ <FormatVersion Value="1"/>
+ <LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
+ </local>
+ </RunParams>
+ <RequiredPackages Count="1">
+ <Item1>
+ <PackageName Value="ImagesForLazarus"/>
+ </Item1>
+ </RequiredPackages>
+ <Units Count="74">
+ <Unit0>
+ <Filename Value="UltraStar.lpr"/>
+ <IsPartOfProject Value="True"/>
+ <CursorPos X="1" Y="5"/>
+ <TopLine Value="1"/>
+ <EditorIndex Value="0"/>
+ <UsageCount Value="86"/>
+ <Loaded Value="True"/>
+ </Unit0>
+ <Unit1>
+ <Filename Value="lib\JEDI-SDLv1.0\OpenGL\Pas\opengl12.pas"/>
+ <UnitName Value="opengl12"/>
+ <CursorPos X="10" Y="269"/>
+ <TopLine Value="248"/>
+ <UsageCount Value="10"/>
+ </Unit1>
+ <Unit2>
+ <Filename Value="Classes\UTexture.pas"/>
+ <UnitName Value="UTexture"/>
+ <CursorPos X="7" Y="23"/>
+ <TopLine Value="2"/>
+ <UsageCount Value="15"/>
+ </Unit2>
+ <Unit3>
+ <Filename Value="Classes\UCommandLine.pas"/>
+ <UnitName Value="UCommandLine"/>
+ <CursorPos X="1" Y="1"/>
+ <TopLine Value="1"/>
+ <UsageCount Value="32"/>
+ </Unit3>
+ <Unit4>
+ <Filename Value="Classes\UIni.pas"/>
+ <UnitName Value="UIni"/>
+ <CursorPos X="35" Y="383"/>
+ <TopLine Value="362"/>
+ <UsageCount Value="32"/>
+ </Unit4>
+ <Unit5>
+ <Filename Value="Classes\ULog.pas"/>
+ <UnitName Value="ULog"/>
+ <CursorPos X="5" Y="5"/>
+ <TopLine Value="13"/>
+ <UsageCount Value="13"/>
+ </Unit5>
+ <Unit6>
+ <Filename Value="Classes\UFiles.pas"/>
+ <UnitName Value="UFiles"/>
+ <CursorPos X="9" Y="56"/>
+ <TopLine Value="46"/>
+ <UsageCount Value="12"/>
+ </Unit6>
+ <Unit7>
+ <Filename Value="Classes\USongs.pas"/>
+ <UnitName Value="USongs"/>
+ <CursorPos X="110" Y="151"/>
+ <TopLine Value="122"/>
+ <UsageCount Value="10"/>
+ </Unit7>
+ <Unit8>
+ <Filename Value="..\..\..\..\..\lazarus\fpc\2.0.4\source\rtl\objpas\sysutils\sysinth.inc"/>
+ <CursorPos X="3" Y="95"/>
+ <TopLine Value="75"/>
+ <UsageCount Value="4"/>
+ </Unit8>
+ <Unit9>
+ <Filename Value="Classes\UMain.pas"/>
+ <UnitName Value="UMain"/>
+ <CursorPos X="99" Y="785"/>
+ <TopLine Value="595"/>
+ <UsageCount Value="10"/>
+ </Unit9>
+ <Unit10>
+ <Filename Value="Classes\UGraphic.pas"/>
+ <UnitName Value="UGraphic"/>
+ <CursorPos X="8" Y="245"/>
+ <TopLine Value="224"/>
+ <UsageCount Value="33"/>
+ </Unit10>
+ <Unit11>
+ <Filename Value="Classes\UThemes.pas"/>
+ <UnitName Value="UThemes"/>
+ <CursorPos X="29" Y="1746"/>
+ <TopLine Value="1691"/>
+ <UsageCount Value="9"/>
+ </Unit11>
+ <Unit12>
+ <Filename Value="Classes\UCovers.pas"/>
+ <UnitName Value="UCovers"/>
+ <CursorPos X="7" Y="11"/>
+ <TopLine Value="1"/>
+ <UsageCount Value="11"/>
+ </Unit12>
+ <Unit13>
+ <Filename Value="Classes\UMusic.pas"/>
+ <UnitName Value="UMusic"/>
+ <CursorPos X="39" Y="17"/>
+ <TopLine Value="1"/>
+ <EditorIndex Value="4"/>
+ <UsageCount Value="15"/>
+ <Loaded Value="True"/>
+ </Unit13>
+ <Unit14>
+ <Filename Value="Classes\ULyrics.pas"/>
+ <UnitName Value="ULyrics"/>
+ <CursorPos X="1" Y="5"/>
+ <TopLine Value="1"/>
+ <EditorIndex Value="1"/>
+ <UsageCount Value="10"/>
+ <Loaded Value="True"/>
+ </Unit14>
+ <Unit15>
+ <Filename Value="Screens\UScreenLoading.pas"/>
+ <UnitName Value="UScreenLoading"/>
+ <CursorPos X="8" Y="6"/>
+ <TopLine Value="1"/>
+ <UsageCount Value="5"/>
+ </Unit15>
+ <Unit16>
+ <Filename Value="Menu\UMenu.pas"/>
+ <UnitName Value="UMenu"/>
+ <CursorPos X="1" Y="8"/>
+ <TopLine Value="1"/>
+ <UsageCount Value="9"/>
+ </Unit16>
+ <Unit17>
+ <Filename Value="Menu\UMenuText.pas"/>
+ <UnitName Value="UMenuText"/>
+ <CursorPos X="14" Y="60"/>
+ <TopLine Value="37"/>
+ <UsageCount Value="11"/>
+ </Unit17>
+ <Unit18>
+ <Filename Value="Menu\UMenuSelectSlide.pas"/>
+ <UnitName Value="UMenuSelectSlide"/>
+ <CursorPos X="6" Y="12"/>
+ <TopLine Value="2"/>
+ <UsageCount Value="4"/>
+ </Unit18>
+ <Unit19>
+ <Filename Value="Screens\UScreenMain.pas"/>
+ <UnitName Value="UScreenMain"/>
+ <CursorPos X="13" Y="37"/>
+ <TopLine Value="16"/>
+ <UsageCount Value="31"/>
+ </Unit19>
+ <Unit20>
+ <Filename Value="Menu\UDisplay.pas"/>
+ <UnitName Value="UDisplay"/>
+ <CursorPos X="54" Y="21"/>
+ <TopLine Value="1"/>
+ <UsageCount Value="14"/>
+ </Unit20>
+ <Unit21>
+ <Filename Value="Classes\ULight.pas"/>
+ <UnitName Value="ULight"/>
+ <CursorPos X="1" Y="1"/>
+ <TopLine Value="13"/>
+ <UsageCount Value="10"/>
+ <Bookmarks Count="1">
+ <Item0 X="19" Y="66" ID="1"/>
+ </Bookmarks>
+ </Unit21>
+ <Unit22>
+ <Filename Value="Screens\UScreenSing.pas"/>
+ <UnitName Value="UScreenSing"/>
+ <CursorPos X="1" Y="1027"/>
+ <TopLine Value="1006"/>
+ <UsageCount Value="10"/>
+ </Unit22>
+ <Unit23>
+ <Filename Value="Classes\UVideo.pas"/>
+ <UnitName Value="UVideo"/>
+ <CursorPos X="1" Y="8"/>
+ <TopLine Value="2"/>
+ <UsageCount Value="10"/>
+ </Unit23>
+ <Unit24>
+ <Filename Value="Screens\UScreenScore.pas"/>
+ <UnitName Value="UScreenScore"/>
+ <CursorPos X="9" Y="7"/>
+ <TopLine Value="1"/>
+ <UsageCount Value="10"/>
+ </Unit24>
+ <Unit25>
+ <Filename Value="Screens\UScreenEditSub.pas"/>
+ <UnitName Value="UScreenEditSub"/>
+ <CursorPos X="1" Y="10"/>
+ <TopLine Value="1"/>
+ <EditorIndex Value="3"/>
+ <UsageCount Value="10"/>
+ <Loaded Value="True"/>
+ </Unit25>
+ <Unit26>
+ <Filename Value="switches.inc"/>
+ <CursorPos X="19" Y="12"/>
+ <TopLine Value="1"/>
+ <UsageCount Value="11"/>
+ </Unit26>
+ <Unit27>
+ <Filename Value="lib\midi\Midiout.pas"/>
+ <UnitName Value="MidiOut"/>
+ <CursorPos X="1" Y="1"/>
+ <TopLine Value="1"/>
+ <UsageCount Value="9"/>
+ </Unit27>
+ <Unit28>
+ <Filename Value="Screens\UScreenEditConvert.pas"/>
+ <UnitName Value="UScreenEditConvert"/>
+ <CursorPos X="22" Y="26"/>
+ <TopLine Value="1"/>
+ <UsageCount Value="32"/>
+ </Unit28>
+ <Unit29>
+ <Filename Value="Screens\UScreenSingModi.pas"/>
+ <UnitName Value="UScreenSingModi"/>
+ <CursorPos X="1" Y="24"/>
+ <TopLine Value="1"/>
+ <UsageCount Value="31"/>
+ </Unit29>
+ <Unit30>
+ <Filename Value="Screens\UScreenCredits.pas"/>
+ <UnitName Value="UScreenCredits"/>
+ <CursorPos X="13" Y="119"/>
+ <TopLine Value="98"/>
+ <UsageCount Value="32"/>
+ </Unit30>
+ <Unit31>
+ <Filename Value="Classes\URecord.pas"/>
+ <UnitName Value="URecord"/>
+ <CursorPos X="21" Y="293"/>
+ <TopLine Value="271"/>
+ <UsageCount Value="31"/>
+ </Unit31>
+ <Unit32>
+ <Filename Value="lib\JEDI-SDLv1.0\SDL\Pas\jedi-sdl.inc"/>
+ <CursorPos X="4" Y="237"/>
+ <TopLine Value="217"/>
+ <UsageCount Value="10"/>
+ </Unit32>
+ <Unit33>
+ <Filename Value="..\..\Modis\SDK\ModiSDK.pas"/>
+ <UnitName Value="ModiSDK"/>
+ <CursorPos X="79" Y="145"/>
+ <TopLine Value="104"/>
+ <UsageCount Value="31"/>
+ </Unit33>
+ <Unit34>
+ <Filename Value="Classes\UDLLManager.pas"/>
+ <UnitName Value="UDLLManager"/>
+ <CursorPos X="1" Y="1"/>
+ <TopLine Value="1"/>
+ <UsageCount Value="32"/>
+ </Unit34>
+ <Unit35>
+ <Filename Value="Classes\UPlaylist.pas"/>
+ <UnitName Value="UPlaylist"/>
+ <CursorPos X="1" Y="1"/>
+ <TopLine Value="1"/>
+ <UsageCount Value="31"/>
+ </Unit35>
+ <Unit36>
+ <Filename Value="Classes\UDataBase.pas"/>
+ <UnitName Value="UDataBase"/>
+ <CursorPos X="10" Y="211"/>
+ <TopLine Value="189"/>
+ <UsageCount Value="31"/>
+ </Unit36>
+ <Unit37>
+ <Filename Value="Screens\UScreenStatMain.pas"/>
+ <UnitName Value="UScreenStatMain"/>
+ <CursorPos X="76" Y="167"/>
+ <TopLine Value="155"/>
+ <UsageCount Value="32"/>
+ <Bookmarks Count="1">
+ <Item0 X="21" Y="216" ID="1"/>
+ </Bookmarks>
+ </Unit37>
+ <Unit38>
+ <Filename Value="Screens\UScreenPartyOptions.pas"/>
+ <UnitName Value="UScreenPartyOptions"/>
+ <CursorPos X="42" Y="233"/>
+ <TopLine Value="213"/>
+ <UsageCount Value="31"/>
+ </Unit38>
+ <Unit39>
+ <Filename Value="Screens\UScreenPartyNewRound.pas"/>
+ <UnitName Value="UScreenPartyNewRound"/>
+ <CursorPos X="5" Y="422"/>
+ <TopLine Value="382"/>
+ <UsageCount Value="31"/>
+ </Unit39>
+ <Unit40>
+ <Filename Value="Classes\UParty.pas"/>
+ <UnitName Value="UParty"/>
+ <CursorPos X="1" Y="8"/>
+ <TopLine Value="1"/>
+ <UsageCount Value="31"/>
+ </Unit40>
+ <Unit41>
+ <Filename Value="Classes\UDraw.pas"/>
+ <UnitName Value="UDraw"/>
+ <CursorPos X="7" Y="67"/>
+ <TopLine Value="43"/>
+ <UsageCount Value="31"/>
+ </Unit41>
+ <Unit42>
+ <Filename Value="Screens\UScreenSongMenu.pas"/>
+ <UnitName Value="UScreenSongMenu"/>
+ <CursorPos X="1" Y="1"/>
+ <TopLine Value="1"/>
+ <UsageCount Value="31"/>
+ </Unit42>
+ <Unit43>
+ <Filename Value="Screens\UScreenTop5.pas"/>
+ <UnitName Value="UScreenTop5"/>
+ <CursorPos X="1" Y="1"/>
+ <TopLine Value="1"/>
+ <UsageCount Value="10"/>
+ </Unit43>
+ <Unit44>
+ <Filename Value="Classes\UGraphicClasses.pas"/>
+ <UnitName Value="UGraphicClasses"/>
+ <CursorPos X="1" Y="7"/>
+ <TopLine Value="1"/>
+ <UsageCount Value="11"/>
+ </Unit44>
+ <Unit45>
+ <Filename Value="Screens\UScreenSong.pas"/>
+ <UnitName Value="UScreenSong"/>
+ <CursorPos X="13" Y="126"/>
+ <TopLine Value="105"/>
+ <UsageCount Value="10"/>
+ </Unit45>
+ <Unit46>
+ <Filename Value="lib\midi\DELPHMCB.PAS"/>
+ <UnitName Value="Delphmcb"/>
+ <CursorPos X="1" Y="1"/>
+ <TopLine Value="1"/>
+ <UsageCount Value="9"/>
+ </Unit46>
+ <Unit47>
+ <Filename Value="Classes\UCommon.pas"/>
+ <UnitName Value="UCommon"/>
+ <CursorPos X="1" Y="40"/>
+ <TopLine Value="11"/>
+ <EditorIndex Value="5"/>
+ <UsageCount Value="15"/>
+ <Loaded Value="True"/>
+ </Unit47>
+ <Unit48>
+ <Filename Value="..\..\..\..\..\lazarus\fpc\2.0.4\source\rtl\objpas\math.pp"/>
+ <UnitName Value="math"/>
+ <CursorPos X="1" Y="1041"/>
+ <TopLine Value="1036"/>
+ <UsageCount Value="9"/>
+ </Unit48>
+ <Unit49>
+ <Filename Value="Classes\Ulazjpeg.pas"/>
+ <UnitName Value="Ulazjpeg"/>
+ <CursorPos X="44" Y="15"/>
+ <TopLine Value="63"/>
+ <UsageCount Value="11"/>
+ </Unit49>
+ <Unit50>
+ <Filename Value="Classes\TextGL.pas"/>
+ <UnitName Value="TextGL"/>
+ <CursorPos X="7" Y="64"/>
+ <TopLine Value="43"/>
+ <UsageCount Value="13"/>
+ </Unit50>
+ <Unit51>
+ <Filename Value="UltraStar.lrs"/>
+ <CursorPos X="17" Y="1"/>
+ <TopLine Value="1"/>
+ <UsageCount Value="10"/>
+ </Unit51>
+ <Unit52>
+ <Filename Value="lib\JEDI-SDLv1.0\SDL\Pas\moduleloader.pas"/>
+ <UnitName Value="moduleloader"/>
+ <CursorPos X="10" Y="64"/>
+ <TopLine Value="55"/>
+ <UsageCount Value="10"/>
+ </Unit52>
+ <Unit53>
+ <Filename Value="lib\bass\delphi\bass.pas"/>
+ <UnitName Value="Bass"/>
+ <CursorPos X="1" Y="1"/>
+ <TopLine Value="1"/>
+ <UsageCount Value="9"/>
+ </Unit53>
+ <Unit54>
+ <Filename Value="lib\ffmpeg\avcodec.pas"/>
+ <UnitName Value="avcodec"/>
+ <CursorPos X="69" Y="1519"/>
+ <TopLine Value="1492"/>
+ <UsageCount Value="12"/>
+ </Unit54>
+ <Unit55>
+ <Filename Value="lib\ffmpeg\rational.pas"/>
+ <UnitName Value="rational"/>
+ <CursorPos X="40" Y="33"/>
+ <TopLine Value="1"/>
+ <UsageCount Value="12"/>
+ </Unit55>
+ <Unit56>
+ <Filename Value="lib\ffmpeg\opt.pas"/>
+ <UnitName Value="opt"/>
+ <CursorPos X="37" Y="46"/>
+ <TopLine Value="17"/>
+ <UsageCount Value="9"/>
+ </Unit56>
+ <Unit57>
+ <Filename Value="lib\ffmpeg\avformat.pas"/>
+ <UnitName Value="avformat"/>
+ <CursorPos X="10" Y="357"/>
+ <TopLine Value="335"/>
+ <UsageCount Value="9"/>
+ </Unit57>
+ <Unit58>
+ <Filename Value="lib\ffmpeg\avio.pas"/>
+ <UnitName Value="avio"/>
+ <CursorPos X="1" Y="34"/>
+ <TopLine Value="1"/>
+ <UsageCount Value="10"/>
+ </Unit58>
+ <Unit59>
+ <Filename Value="lib\SQLite\SQLiteTable3.pas"/>
+ <UnitName Value="SQLiteTable3"/>
+ <CursorPos X="24" Y="16"/>
+ <TopLine Value="2"/>
+ <UsageCount Value="9"/>
+ </Unit59>
+ <Unit60>
+ <Filename Value="Menu\UMenuButton.pas"/>
+ <UnitName Value="UMenuButton"/>
+ <CursorPos X="13" Y="90"/>
+ <TopLine Value="69"/>
+ <UsageCount Value="11"/>
+ </Unit60>
+ <Unit61>
+ <Filename Value="Classes\UTime.pas"/>
+ <UnitName Value="UTime"/>
+ <CursorPos X="41" Y="44"/>
+ <TopLine Value="35"/>
+ <UsageCount Value="14"/>
+ </Unit61>
+ <Unit62>
+ <Filename Value="Classes\UJoystick.pas"/>
+ <UnitName Value="UJoystick"/>
+ <CursorPos X="1" Y="6"/>
+ <TopLine Value="1"/>
+ <UsageCount Value="11"/>
+ </Unit62>
+ <Unit63>
+ <Filename Value="Classes\ULanguage.pas"/>
+ <UnitName Value="ULanguage"/>
+ <CursorPos X="29" Y="106"/>
+ <TopLine Value="96"/>
+ <UsageCount Value="11"/>
+ </Unit63>
+ <Unit64>
+ <Filename Value="\usr\share\fpcsrc\rtl\unix\sysutils.pp"/>
+ <UnitName Value="sysutils"/>
+ <CursorPos X="7" Y="93"/>
+ <TopLine Value="72"/>
+ <UsageCount Value="10"/>
+ </Unit64>
+ <Unit65>
+ <Filename Value="\usr\share\fpcsrc\rtl\objpas\sysutils\sysutilh.inc"/>
+ <CursorPos X="45" Y="30"/>
+ <TopLine Value="13"/>
+ <UsageCount Value="10"/>
+ </Unit65>
+ <Unit66>
+ <Filename Value="\usr\share\fpcsrc\rtl\objpas\sysutils\sysutils.inc"/>
+ <CursorPos X="86" Y="90"/>
+ <TopLine Value="73"/>
+ <UsageCount Value="10"/>
+ </Unit66>
+ <Unit67>
+ <Filename Value="Classes\ULCD.pas"/>
+ <UnitName Value="ULCD"/>
+ <CursorPos X="1" Y="1"/>
+ <TopLine Value="1"/>
+ <UsageCount Value="10"/>
+ </Unit67>
+ <Unit68>
+ <Filename Value="lib\JEDI-SDLv1.0\SDL\Pas\sdl.pas"/>
+ <UnitName Value="sdl"/>
+ <CursorPos X="52" Y="2092"/>
+ <TopLine Value="2071"/>
+ <UsageCount Value="10"/>
+ </Unit68>
+ <Unit69>
+ <Filename Value="\usr\share\fpcsrc\packages\base\libc\libc.pp"/>
+ <UnitName Value="libc"/>
+ <CursorPos X="7" Y="41"/>
+ <TopLine Value="19"/>
+ <UsageCount Value="11"/>
+ </Unit69>
+ <Unit70>
+ <Filename Value="\usr\share\fpcsrc\fv\time.pas"/>
+ <UnitName Value="Time"/>
+ <CursorPos X="3" Y="222"/>
+ <TopLine Value="424"/>
+ <UsageCount Value="11"/>
+ </Unit70>
+ <Unit71>
+ <Filename Value="Classes\UCatCovers.pas"/>
+ <UnitName Value="UCatCovers"/>
+ <CursorPos X="73" Y="74"/>
+ <TopLine Value="107"/>
+ <UsageCount Value="10"/>
+ </Unit71>
+ <Unit72>
+ <Filename Value="Classes\USkins.pas"/>
+ <UnitName Value="USkins"/>
+ <CursorPos X="53" Y="27"/>
+ <TopLine Value="1"/>
+ <UsageCount Value="10"/>
+ </Unit72>
+ <Unit73>
+ <Filename Value="Classes\ULyrics_bak.pas"/>
+ <UnitName Value="ULyrics_bak"/>
+ <CursorPos X="18" Y="9"/>
+ <TopLine Value="1"/>
+ <EditorIndex Value="2"/>
+ <UsageCount Value="10"/>
+ <Loaded Value="True"/>
+ </Unit73>
+ </Units>
+ <JumpHistory Count="17" HistoryIndex="16">
+ <Position1>
+ <Filename Value="Screens\UScreenEditSub.pas"/>
+ <Caret Line="1339" Column="11" TopLine="1330"/>
+ </Position1>
+ <Position2>
+ <Filename Value="Classes\ULyrics_bak.pas"/>
+ <Caret Line="1" Column="1" TopLine="1"/>
+ </Position2>
+ <Position3>
+ <Filename Value="Classes\ULyrics_bak.pas"/>
+ <Caret Line="99" Column="24" TopLine="72"/>
+ </Position3>
+ <Position4>
+ <Filename Value="Classes\ULyrics_bak.pas"/>
+ <Caret Line="89" Column="22" TopLine="66"/>
+ </Position4>
+ <Position5>
+ <Filename Value="Classes\ULyrics.pas"/>
+ <Caret Line="1" Column="1" TopLine="66"/>
+ </Position5>
+ <Position6>
+ <Filename Value="Classes\ULyrics_bak.pas"/>
+ <Caret Line="82" Column="25" TopLine="62"/>
+ </Position6>
+ <Position7>
+ <Filename Value="Screens\UScreenEditSub.pas"/>
+ <Caret Line="5" Column="1" TopLine="1"/>
+ </Position7>
+ <Position8>
+ <Filename Value="Classes\UMusic.pas"/>
+ <Caret Line="14" Column="1" TopLine="1"/>
+ </Position8>
+ <Position9>
+ <Filename Value="Classes\UMusic.pas"/>
+ <Caret Line="229" Column="25" TopLine="209"/>
+ </Position9>
+ <Position10>
+ <Filename Value="Classes\UMusic.pas"/>
+ <Caret Line="16" Column="11" TopLine="1"/>
+ </Position10>
+ <Position11>
+ <Filename Value="Classes\UMusic.pas"/>
+ <Caret Line="237" Column="27" TopLine="209"/>
+ </Position11>
+ <Position12>
+ <Filename Value="Classes\UMusic.pas"/>
+ <Caret Line="203" Column="14" TopLine="176"/>
+ </Position12>
+ <Position13>
+ <Filename Value="Classes\UMusic.pas"/>
+ <Caret Line="229" Column="25" TopLine="209"/>
+ </Position13>
+ <Position14>
+ <Filename Value="Classes\UMusic.pas"/>
+ <Caret Line="1" Column="1" TopLine="1"/>
+ </Position14>
+ <Position15>
+ <Filename Value="Classes\UMusic.pas"/>
+ <Caret Line="203" Column="11" TopLine="183"/>
+ </Position15>
+ <Position16>
+ <Filename Value="Classes\UMusic.pas"/>
+ <Caret Line="12" Column="11" TopLine="1"/>
+ </Position16>
+ <Position17>
+ <Filename Value="Classes\UCommon.pas"/>
+ <Caret Line="110" Column="1" TopLine="89"/>
+ </Position17>
+ </JumpHistory>
+ </ProjectOptions>
+ <CompilerOptions>
+ <Version Value="5"/>
+ <PathDelim Value="\"/>
+ <SearchPaths>
+ <IncludeFiles Value="lib\JEDI-SDLv1.0\SDL\Pas\"/>
+ </SearchPaths>
+ <CodeGeneration>
+ <Generate Value="Faster"/>
+ </CodeGeneration>
+ <Other>
+ <CompilerPath Value="$(CompPath)"/>
+ <CreateMakefileOnBuild Value="True"/>
+ </Other>
+ </CompilerOptions>
+ <Debugging>
+ <Exceptions Count="2">
+ <Item1>
+ <Name Value="ECodetoolError"/>
+ </Item1>
+ <Item2>
+ <Name Value="EFOpenError"/>
+ </Item2>
+ </Exceptions>
+ </Debugging>
+</CONFIG>
diff --git a/Game/Code/UltraStar.lpr b/Game/Code/UltraStar.lpr index bb3b50b3..9793928e 100644 --- a/Game/Code/UltraStar.lpr +++ b/Game/Code/UltraStar.lpr @@ -1,412 +1,413 @@ -program UltraStar; - -{$DEFINE TRANSLATE} - -{$IFDEF FPC} - {$MODE DELPHI} -{$ELSE} - {$R 'UltraStar.res' 'UltraStar.rc'} -{$ENDIF} - -{$I switches.inc} - -uses - - // *************************************************************************** - // - // Developers PLEASE NOTE !!!!!!! - // - // As of september 2007, I am working towards porting Ultrastar-DX to run - // on Linux. I will be modifiying the source to make it compile in lazarus - // on windows & linux and I will make sure that it compiles in delphi still - // To help me in this endevour, please can you make a point of remembering - // that linux is CASE SENSATIVE, and file / unit names must be as per - // the filename exactly. - // - // EG : opengl12.pas must not be OpenGL in the uses cluase. - // - // thanks for your help... - // - // *************************************************************************** - - //------------------------------ - //Includes - 3rd Party Libraries - //------------------------------ - - // SDL / OpenGL - moduleloader in 'lib\JEDI-SDLv1.0\SDL\Pas\moduleloader.pas', - opengl12 in 'lib\JEDI-SDLv1.0\OpenGL\Pas\opengl12.pas', - sdl in 'lib\JEDI-SDLv1.0\SDL\Pas\sdl.pas', - - // Bass - {$IFDEF UseBASS} - bass in 'lib\bass\delphi\bass.pas', - {$ENDIF} - - // Midi Units - {$IFDEF UseMIDIPort} - Circbuf in 'lib\midi\CIRCBUF.PAS', - Delphmcb in 'lib\midi\Delphmcb.PAS', - MidiCons in 'lib\midi\MidiCons.PAS', - MidiDefs in 'lib\midi\MidiDefs.PAS', - MidiFile in 'lib\midi\MidiFile.PAS', - midiin in 'lib\midi\midiin.pas', - midiout in 'lib\midi\midiout.pas', - MidiType in 'lib\midi\MidiType.PAS', - {$ENDIF} - - // FFMpeg units - avcodec in 'lib\ffmpeg\avcodec.pas', - avformat in 'lib\ffmpeg\avformat.pas', - avio in 'lib\ffmpeg\avio.pas', - avutil in 'lib\ffmpeg\avutil.pas', - opt in 'lib\ffmpeg\opt.pas', - rational in 'lib\ffmpeg\rational.pas', - - - // Sql Lite - SQLiteTable3 in 'lib\SQLite\SQLiteTable3.pas', - SQLite3 in 'lib\SQLite\SQLite3.pas', - - - //------------------------------ - //Includes - Menu System - //------------------------------ - - UDisplay in 'Menu\UDisplay.pas', - UDrawTexture in 'Menu\UDrawTexture.pas', - UMenu in 'Menu\UMenu.pas', - UMenuButton in 'Menu\UMenuButton.pas', - UMenuButtonCollection in 'Menu\UMenuButtonCollection.pas', - UMenuInteract in 'Menu\UMenuInteract.pas', - UMenuSelect in 'Menu\UMenuSelect.pas', - UMenuSelectSlide in 'Menu\UMenuSelectSlide.pas', - UMenuStatic in 'Menu\UMenuStatic.pas', - UMenuText in 'Menu\UMenuText.pas', - - //------------------------------ - //Includes - Classes - //------------------------------ - - {$IFDEF FPC} - ulazjpeg in 'Classes\ulazjpeg.pas', - {$ENDIF} - - TextGL in 'Classes\TextGL.pas', - UCatCovers in 'Classes\UCatCovers.pas', - UCommandLine in 'Classes\UCommandLine.pas', - UCommon in 'Classes\UCommon.pas', - UCovers in 'Classes\UCovers.pas', - UDataBase in 'Classes\UDataBase.pas', - UDLLManager in 'Classes\UDLLManager.pas', - UDraw in 'Classes\UDraw.pas', - UFiles in 'Classes\UFiles.pas', - UGraphic in 'Classes\UGraphic.pas', - UGraphicClasses in 'Classes\UGraphicClasses.pas', - UIni in 'Classes\UIni.pas', - UJoystick in 'Classes\UJoystick.pas', - ULanguage in 'Classes\ULanguage.pas', - ULCD in 'Classes\ULCD.pas', - ULight in 'Classes\ULight.pas', - ULog in 'Classes\ULog.pas', - ULyrics in 'Classes\ULyrics.pas', - UMain in 'Classes\UMain.pas', - UMusic in 'Classes\UMusic.pas', - UParty in 'Classes\UParty.pas', - UPlaylist in 'Classes\UPlaylist.pas', - URecord in 'Classes\URecord.pas', - USkins in 'Classes\USkins.pas', - USongs in 'Classes\USongs.pas', - UTexture in 'Classes\UTexture.pas', - UThemes in 'Classes\UThemes.pas', - UTime in 'Classes\UTime.pas', - - - //------------------------------ - //Includes - Video Support - //------------------------------ - UVideo in 'Classes\UVideo.pas', - - - //------------------------------ - //Includes - Screens - //------------------------------ - UScreenCredits in 'Screens\UScreenCredits.pas', - UScreenEdit in 'Screens\UScreenEdit.pas', - UScreenEditConvert in 'Screens\UScreenEditConvert.pas', - UScreenEditHeader in 'Screens\UScreenEditHeader.pas', - UScreenEditSub in 'Screens\UScreenEditSub.pas', - UScreenLevel in 'Screens\UScreenLevel.pas', - UScreenLoading in 'Screens\UScreenLoading.pas', - UScreenMain in 'Screens\UScreenMain.pas', - UScreenName in 'Screens\UScreenName.pas', - UScreenOpen in 'Screens\UScreenOpen.pas', - UScreenOptions in 'Screens\UScreenOptions.pas', - UScreenOptionsAdvanced in 'Screens\UScreenOptionsAdvanced.pas', - UScreenOptionsGame in 'Screens\UScreenOptionsGame.pas', - UScreenOptionsGraphics in 'Screens\UScreenOptionsGraphics.pas', - UScreenOptionsLyrics in 'Screens\UScreenOptionsLyrics.pas', - UScreenOptionsRecord in 'Screens\UScreenOptionsRecord.pas', - UScreenOptionsSound in 'Screens\UScreenOptionsSound.pas', - UScreenOptionsThemes in 'Screens\UScreenOptionsThemes.pas', - UScreenPopup in 'Screens\UScreenPopup.pas', - UScreenScore in 'Screens\UScreenScore.pas', - UScreenSing in 'Screens\UScreenSing.pas', - UScreenSong in 'Screens\UScreenSong.pas', - UScreenSongJumpto in 'Screens\UScreenSongJumpto.pas', - UScreenSongMenu in 'Screens\UScreenSongMenu.pas', - UScreenStatDetail in 'Screens\UScreenStatDetail.pas', - UScreenStatMain in 'Screens\UScreenStatMain.pas', - UScreenTop5 in 'Screens\UScreenTop5.pas', - UScreenWelcome in 'Screens\UScreenWelcome.pas', - - //------------------------------ - //Includes - Screens PartyMode - //------------------------------ - UScreenPartyNewRound in 'Screens\UScreenPartyNewRound.pas', - UScreenPartyOptions in 'Screens\UScreenPartyOptions.pas', - UScreenPartyPlayer in 'Screens\UScreenPartyPlayer.pas', - UScreenPartyScore in 'Screens\UScreenPartyScore.pas', - UScreenPartyWin in 'Screens\UScreenPartyWin.pas', - UScreenSingModi in 'Screens\UScreenSingModi.pas', - - //------------------------------ - //Includes - Modi SDK - //------------------------------ - ModiSDK in '..\..\Modis\SDK\ModiSDK.pas', - - - //------------------------------ - //Includes - Delphi - //------------------------------ - {$IFDEF win32} - Windows, - {$ENDIF} - SysUtils; - -const - Version = 'UltraStar Deluxe V 1.10 Alpha Build'; - -var - WndTitle: string; - hWnd: THandle; - I: Integer; - -begin - WndTitle := Version; - - {$ifdef Win32} - //------------------------------ - //Start more than One Time Prevention - //------------------------------ - hWnd:= FindWindow(nil, PChar(WndTitle)); - //Programm already started - if (hWnd <> 0) then - begin - I := Messagebox(0, PChar('Another Instance of Ultrastar is already running. Contėnue ?'), PChar(WndTitle), MB_ICONWARNING or MB_YESNO); - if (I = IDYes) then - begin - I := 1; - repeat - Inc(I); - hWnd := FindWindow(nil, PChar(WndTitle + ' Instance ' + InttoStr(I))); - until (hWnd = 0); - - WndTitle := WndTitle + ' Instance ' + InttoStr(I); - end - else - Exit; - end; - {$endif} - - //------------------------------ - //StartUp - Create Classes and Load Files - //------------------------------ - USTime := TTime.Create; - - // Commandline Parameter Parser - Params := TCMDParams.Create; - - // Log + Benchmark - Log := TLog.Create; - Log.Title := WndTitle; - Log.Enabled := Not Params.NoLog; - Log.BenchmarkStart(0); - - // Language - Log.BenchmarkStart(1); - Log.LogStatus('Initialize Paths', 'Initialization'); InitializePaths; - Log.LogStatus('Load Language', 'Initialization'); Language := TLanguage.Create; - //Add Const Values: - Language.AddConst('US_VERSION', Version); - Log.BenchmarkEnd(1); - Log.LogBenchmark('Loading Language', 1); - - // SDL - Log.BenchmarkStart(1); - Log.LogStatus('Initialize SDL', 'Initialization'); - SDL_Init(SDL_INIT_VIDEO or SDL_INIT_AUDIO); - Log.BenchmarkEnd(1); - Log.LogBenchmark('Initializing SDL', 1); - - // Skin - Log.BenchmarkStart(1); - Log.LogStatus('Loading Skin List', 'Initialization'); Skin := TSkin.Create; - Log.BenchmarkEnd(1); - Log.LogBenchmark('Loading Skin List', 1); - - // Sound Card List - Log.BenchmarkStart(1); - Log.LogStatus('Loading Soundcard list', 'Initialization'); - Recording := TRecord.Create; - Log.BenchmarkEnd(1); - Log.LogBenchmark('Loading Soundcard list', 1); - - // Ini + Paths - Log.BenchmarkStart(1); - Log.LogStatus('Load Ini', 'Initialization'); Ini := TIni.Create; - Ini.Load; - - //Load Languagefile - if (Params.Language <> -1) then - Language.ChangeLanguage(ILanguage[Params.Language]) - else - Language.ChangeLanguage(ILanguage[Ini.Language]); - - Log.BenchmarkEnd(1); - Log.LogBenchmark('Loading Ini', 1); - - // LCD - Log.BenchmarkStart(1); - Log.LogStatus('Load LCD', 'Initialization'); LCD := TLCD.Create; - if Ini.LPT = 1 then begin -// LCD.HalfInterface := true; - LCD.Enable; - LCD.Clear; - LCD.WriteText(1, ' UltraStar '); - LCD.WriteText(2, ' Loading... '); - end; - Log.BenchmarkEnd(1); - Log.LogBenchmark('Loading LCD', 1); - - // Light - Log.BenchmarkStart(1); - Log.LogStatus('Load Light', 'Initialization'); Light := TLight.Create; - if Ini.LPT = 2 then begin - Light.Enable; - end; - Log.BenchmarkEnd(1); - Log.LogBenchmark('Loading Light', 1); - - // Theme - Log.BenchmarkStart(1); - Log.LogStatus('Load Themes', 'Initialization'); Theme := TTheme.Create('Themes\' + ITheme[Ini.Theme] + '.ini', Ini.Color); - Log.BenchmarkEnd(1); - Log.LogBenchmark('Loading Themes', 1); - - // Covers Cache - Log.BenchmarkStart(1); - Log.LogStatus('Creating Covers Cache', 'Initialization'); Covers := TCovers.Create; - Log.LogBenchmark('Loading Covers Cache Array', 1); - Log.BenchmarkStart(1); - - // Category Covers - Log.BenchmarkStart(1); - Log.LogStatus('Creating Category Covers Array', 'Initialization'); - CatCovers:= TCatCovers.Create; - Log.BenchmarkEnd(1); - Log.LogBenchmark('Loading Category Covers Array', 1); - - // Songs - //Log.BenchmarkStart(1); - Log.LogStatus('Creating Song Array', 'Initialization'); Songs := TSongs.Create; - Songs.LoadSongList; - Log.LogStatus('Creating 2nd Song Array', 'Initialization'); CatSongs := TCatSongs.Create; - Log.BenchmarkEnd(1); - Log.LogBenchmark('Loading Songs', 1); - - // PluginManager - Log.BenchmarkStart(1); - Log.LogStatus('PluginManager', 'Initialization'); - DLLMan := TDLLMan.Create; //Load PluginList - Log.BenchmarkEnd(1); - Log.LogBenchmark('Loading PluginManager', 1); - - // Party Mode Manager - Log.BenchmarkStart(1); - Log.LogStatus('PartySession Manager', 'Initialization'); - PartySession := TParty_Session.Create; //Load PartySession - - Log.BenchmarkEnd(1); - Log.LogBenchmark('Loading PartySession Manager', 1); - - // Graphics - Log.BenchmarkStart(1); - Log.LogStatus('Initialize 3D', 'Initialization'); Initialize3D(WndTitle); - Log.BenchmarkEnd(1); - Log.LogBenchmark('Initializing 3D', 1); - - // Sound - Log.BenchmarkStart(1); - Log.LogStatus('Initialize Sound', 'Initialization'); - Log.LogStatus('Creating Music', 'InitializeSound'); Music := TMusic.Create; - InitializeSound; - Log.BenchmarkEnd(1); - Log.LogBenchmark('Initializing Sound', 1); - - // Score Saving System - Log.BenchmarkStart(1); - Log.LogStatus('DataBase System', 'Initialization'); - DataBase := TDataBaseSystem.Create; - - if (Params.ScoreFile = '') then - DataBase.Init ('Ultrastar.db') - else - DataBase.Init (Params.ScoreFile); - - Log.BenchmarkEnd(1); - Log.LogBenchmark('Loading DataBase System', 1); - - //Playlist Manager - Log.BenchmarkStart(1); - Log.LogStatus('Playlist Manager', 'Initialization'); - PlaylistMan := TPlaylistManager.Create; - Log.BenchmarkEnd(1); - Log.LogBenchmark('Loading Playlist Manager', 1); - - //GoldenStarsTwinkleMod - Log.BenchmarkStart(1); - Log.LogStatus('Effect Manager', 'Initialization'); - GoldenRec := TEffectManager.Create; - Log.BenchmarkEnd(1); - Log.LogBenchmark('Loading Particel System', 1); - - // Joypad - if (Ini.Joypad = 1) OR (Params.Joypad) then begin - Log.BenchmarkStart(1); - Log.LogStatus('Initialize Joystick', 'Initialization'); Joy := TJoy.Create; - Log.BenchmarkEnd(1); - Log.LogBenchmark('Initializing Joystick', 1); - end; - - Log.BenchmarkEnd(0); - Log.LogBenchmark('Loading Time', 0); - - - //------------------------------ - //Start- Mainloop - //------------------------------ - //Music.SetLoop(true); - //Music.SetVolume(50); - //Music.Open(SkinPath + 'Menu Music 3.mp3'); - //Music.Play; - Log.LogStatus('Main Loop', 'Initialization'); MainLoop; - - //------------------------------ - //Finish Application - //------------------------------ - if Ini.LPT = 1 then LCD.Clear; - if Ini.LPT = 2 then Light.TurnOff; - - Log.Free; -end. +program UltraStar;
+
+{$DEFINE TRANSLATE}
+
+{$IFDEF FPC}
+ {$MODE DELPHI}
+{$ELSE}
+ {$R 'UltraStar.res' 'UltraStar.rc'}
+{$ENDIF}
+
+{$I switches.inc}
+
+uses
+
+ // ***************************************************************************
+ //
+ // Developers PLEASE NOTE !!!!!!!
+ //
+ // As of september 2007, I am working towards porting Ultrastar-DX to run
+ // on Linux. I will be modifiying the source to make it compile in lazarus
+ // on windows & linux and I will make sure that it compiles in delphi still
+ // To help me in this endevour, please can you make a point of remembering
+ // that linux is CASE SENSATIVE, and file / unit names must be as per
+ // the filename exactly.
+ //
+ // EG : opengl12.pas must not be OpenGL in the uses cluase.
+ //
+ // thanks for your help...
+ //
+ // ***************************************************************************
+
+ //------------------------------
+ //Includes - 3rd Party Libraries
+ //------------------------------
+
+ // SDL / OpenGL
+ moduleloader in 'lib\JEDI-SDLv1.0\SDL\Pas\moduleloader.pas',
+ opengl12 in 'lib\JEDI-SDLv1.0\OpenGL\Pas\opengl12.pas',
+ sdl in 'lib\JEDI-SDLv1.0\SDL\Pas\sdl.pas',
+
+ // Bass
+ {$IFDEF UseBASS}
+ bass in 'lib\bass\delphi\bass.pas',
+ {$ENDIF}
+
+ // Midi Units
+ {$IFDEF UseMIDIPort}
+ Circbuf in 'lib\midi\CIRCBUF.PAS',
+ Delphmcb in 'lib\midi\Delphmcb.PAS',
+ MidiCons in 'lib\midi\MidiCons.PAS',
+ MidiDefs in 'lib\midi\MidiDefs.PAS',
+ MidiFile in 'lib\midi\MidiFile.PAS',
+ midiin in 'lib\midi\midiin.pas',
+ midiout in 'lib\midi\midiout.pas',
+ MidiType in 'lib\midi\MidiType.PAS',
+ {$ENDIF}
+
+ // FFMpeg units
+ avcodec in 'lib\ffmpeg\avcodec.pas',
+ avformat in 'lib\ffmpeg\avformat.pas',
+ avio in 'lib\ffmpeg\avio.pas',
+ avutil in 'lib\ffmpeg\avutil.pas',
+ opt in 'lib\ffmpeg\opt.pas',
+ rational in 'lib\ffmpeg\rational.pas',
+
+
+ // Sql Lite
+ SQLiteTable3 in 'lib\SQLite\SQLiteTable3.pas',
+ SQLite3 in 'lib\SQLite\SQLite3.pas',
+
+
+ //------------------------------
+ //Includes - Menu System
+ //------------------------------
+
+ UDisplay in 'Menu\UDisplay.pas',
+ UDrawTexture in 'Menu\UDrawTexture.pas',
+ UMenu in 'Menu\UMenu.pas',
+ UMenuButton in 'Menu\UMenuButton.pas',
+ UMenuButtonCollection in 'Menu\UMenuButtonCollection.pas',
+ UMenuInteract in 'Menu\UMenuInteract.pas',
+ UMenuSelect in 'Menu\UMenuSelect.pas',
+ UMenuSelectSlide in 'Menu\UMenuSelectSlide.pas',
+ UMenuStatic in 'Menu\UMenuStatic.pas',
+ UMenuText in 'Menu\UMenuText.pas',
+
+ //------------------------------
+ //Includes - Classes
+ //------------------------------
+
+ {$IFDEF FPC}
+ ulazjpeg in 'Classes\ulazjpeg.pas',
+ {$ENDIF}
+
+ TextGL in 'Classes\TextGL.pas',
+ UCatCovers in 'Classes\UCatCovers.pas',
+ UCommandLine in 'Classes\UCommandLine.pas',
+ UCommon in 'Classes\UCommon.pas',
+ UCovers in 'Classes\UCovers.pas',
+ UDataBase in 'Classes\UDataBase.pas',
+ UDLLManager in 'Classes\UDLLManager.pas',
+ UDraw in 'Classes\UDraw.pas',
+ UFiles in 'Classes\UFiles.pas',
+ UGraphic in 'Classes\UGraphic.pas',
+ UGraphicClasses in 'Classes\UGraphicClasses.pas',
+ UIni in 'Classes\UIni.pas',
+ UJoystick in 'Classes\UJoystick.pas',
+ ULanguage in 'Classes\ULanguage.pas',
+ ULCD in 'Classes\ULCD.pas',
+ ULight in 'Classes\ULight.pas',
+ ULog in 'Classes\ULog.pas',
+ ULyrics in 'Classes\ULyrics.pas',
+ ULyrics_bak in 'Classes\ULyrics_bak.pas',
+ UMain in 'Classes\UMain.pas',
+ UMusic in 'Classes\UMusic.pas',
+ UParty in 'Classes\UParty.pas',
+ UPlaylist in 'Classes\UPlaylist.pas',
+ URecord in 'Classes\URecord.pas',
+ USkins in 'Classes\USkins.pas',
+ USongs in 'Classes\USongs.pas',
+ UTexture in 'Classes\UTexture.pas',
+ UThemes in 'Classes\UThemes.pas',
+ UTime in 'Classes\UTime.pas',
+
+
+ //------------------------------
+ //Includes - Video Support
+ //------------------------------
+ UVideo in 'Classes\UVideo.pas',
+
+
+ //------------------------------
+ //Includes - Screens
+ //------------------------------
+ UScreenCredits in 'Screens\UScreenCredits.pas',
+ UScreenEdit in 'Screens\UScreenEdit.pas',
+ UScreenEditConvert in 'Screens\UScreenEditConvert.pas',
+ UScreenEditHeader in 'Screens\UScreenEditHeader.pas',
+ UScreenEditSub in 'Screens\UScreenEditSub.pas',
+ UScreenLevel in 'Screens\UScreenLevel.pas',
+ UScreenLoading in 'Screens\UScreenLoading.pas',
+ UScreenMain in 'Screens\UScreenMain.pas',
+ UScreenName in 'Screens\UScreenName.pas',
+ UScreenOpen in 'Screens\UScreenOpen.pas',
+ UScreenOptions in 'Screens\UScreenOptions.pas',
+ UScreenOptionsAdvanced in 'Screens\UScreenOptionsAdvanced.pas',
+ UScreenOptionsGame in 'Screens\UScreenOptionsGame.pas',
+ UScreenOptionsGraphics in 'Screens\UScreenOptionsGraphics.pas',
+ UScreenOptionsLyrics in 'Screens\UScreenOptionsLyrics.pas',
+ UScreenOptionsRecord in 'Screens\UScreenOptionsRecord.pas',
+ UScreenOptionsSound in 'Screens\UScreenOptionsSound.pas',
+ UScreenOptionsThemes in 'Screens\UScreenOptionsThemes.pas',
+ UScreenPopup in 'Screens\UScreenPopup.pas',
+ UScreenScore in 'Screens\UScreenScore.pas',
+ UScreenSing in 'Screens\UScreenSing.pas',
+ UScreenSong in 'Screens\UScreenSong.pas',
+ UScreenSongJumpto in 'Screens\UScreenSongJumpto.pas',
+ UScreenSongMenu in 'Screens\UScreenSongMenu.pas',
+ UScreenStatDetail in 'Screens\UScreenStatDetail.pas',
+ UScreenStatMain in 'Screens\UScreenStatMain.pas',
+ UScreenTop5 in 'Screens\UScreenTop5.pas',
+ UScreenWelcome in 'Screens\UScreenWelcome.pas',
+
+ //------------------------------
+ //Includes - Screens PartyMode
+ //------------------------------
+ UScreenPartyNewRound in 'Screens\UScreenPartyNewRound.pas',
+ UScreenPartyOptions in 'Screens\UScreenPartyOptions.pas',
+ UScreenPartyPlayer in 'Screens\UScreenPartyPlayer.pas',
+ UScreenPartyScore in 'Screens\UScreenPartyScore.pas',
+ UScreenPartyWin in 'Screens\UScreenPartyWin.pas',
+ UScreenSingModi in 'Screens\UScreenSingModi.pas',
+
+ //------------------------------
+ //Includes - Modi SDK
+ //------------------------------
+ ModiSDK in '..\..\Modis\SDK\ModiSDK.pas',
+
+
+ //------------------------------
+ //Includes - Delphi
+ //------------------------------
+ {$IFDEF win32}
+ Windows,
+ {$ENDIF}
+ SysUtils;
+
+const
+ Version = 'UltraStar Deluxe V 1.10 Alpha Build';
+
+var
+ WndTitle: string;
+ hWnd: THandle;
+ I: Integer;
+
+begin
+ WndTitle := Version;
+
+ {$ifdef Win32}
+ //------------------------------
+ //Start more than One Time Prevention
+ //------------------------------
+ hWnd:= FindWindow(nil, PChar(WndTitle));
+ //Programm already started
+ if (hWnd <> 0) then
+ begin
+ I := Messagebox(0, PChar('Another Instance of Ultrastar is already running. Contėnue ?'), PChar(WndTitle), MB_ICONWARNING or MB_YESNO);
+ if (I = IDYes) then
+ begin
+ I := 1;
+ repeat
+ Inc(I);
+ hWnd := FindWindow(nil, PChar(WndTitle + ' Instance ' + InttoStr(I)));
+ until (hWnd = 0);
+
+ WndTitle := WndTitle + ' Instance ' + InttoStr(I);
+ end
+ else
+ Exit;
+ end;
+ {$endif}
+
+ //------------------------------
+ //StartUp - Create Classes and Load Files
+ //------------------------------
+ USTime := TTime.Create;
+
+ // Commandline Parameter Parser
+ Params := TCMDParams.Create;
+
+ // Log + Benchmark
+ Log := TLog.Create;
+ Log.Title := WndTitle;
+ Log.Enabled := Not Params.NoLog;
+ Log.BenchmarkStart(0);
+
+ // Language
+ Log.BenchmarkStart(1);
+ Log.LogStatus('Initialize Paths', 'Initialization'); InitializePaths;
+ Log.LogStatus('Load Language', 'Initialization'); Language := TLanguage.Create;
+ //Add Const Values:
+ Language.AddConst('US_VERSION', Version);
+ Log.BenchmarkEnd(1);
+ Log.LogBenchmark('Loading Language', 1);
+
+ // SDL
+ Log.BenchmarkStart(1);
+ Log.LogStatus('Initialize SDL', 'Initialization');
+ SDL_Init(SDL_INIT_VIDEO or SDL_INIT_AUDIO);
+ Log.BenchmarkEnd(1);
+ Log.LogBenchmark('Initializing SDL', 1);
+
+ // Skin
+ Log.BenchmarkStart(1);
+ Log.LogStatus('Loading Skin List', 'Initialization'); Skin := TSkin.Create;
+ Log.BenchmarkEnd(1);
+ Log.LogBenchmark('Loading Skin List', 1);
+
+ // Sound Card List
+ Log.BenchmarkStart(1);
+ Log.LogStatus('Loading Soundcard list', 'Initialization');
+ Recording := TRecord.Create;
+ Log.BenchmarkEnd(1);
+ Log.LogBenchmark('Loading Soundcard list', 1);
+
+ // Ini + Paths
+ Log.BenchmarkStart(1);
+ Log.LogStatus('Load Ini', 'Initialization'); Ini := TIni.Create;
+ Ini.Load;
+
+ //Load Languagefile
+ if (Params.Language <> -1) then
+ Language.ChangeLanguage(ILanguage[Params.Language])
+ else
+ Language.ChangeLanguage(ILanguage[Ini.Language]);
+
+ Log.BenchmarkEnd(1);
+ Log.LogBenchmark('Loading Ini', 1);
+
+ // LCD
+ Log.BenchmarkStart(1);
+ Log.LogStatus('Load LCD', 'Initialization'); LCD := TLCD.Create;
+ if Ini.LPT = 1 then begin
+// LCD.HalfInterface := true;
+ LCD.Enable;
+ LCD.Clear;
+ LCD.WriteText(1, ' UltraStar ');
+ LCD.WriteText(2, ' Loading... ');
+ end;
+ Log.BenchmarkEnd(1);
+ Log.LogBenchmark('Loading LCD', 1);
+
+ // Light
+ Log.BenchmarkStart(1);
+ Log.LogStatus('Load Light', 'Initialization'); Light := TLight.Create;
+ if Ini.LPT = 2 then begin
+ Light.Enable;
+ end;
+ Log.BenchmarkEnd(1);
+ Log.LogBenchmark('Loading Light', 1);
+
+ // Theme
+ Log.BenchmarkStart(1);
+ Log.LogStatus('Load Themes', 'Initialization'); Theme := TTheme.Create('Themes\' + ITheme[Ini.Theme] + '.ini', Ini.Color);
+ Log.BenchmarkEnd(1);
+ Log.LogBenchmark('Loading Themes', 1);
+
+ // Covers Cache
+ Log.BenchmarkStart(1);
+ Log.LogStatus('Creating Covers Cache', 'Initialization'); Covers := TCovers.Create;
+ Log.LogBenchmark('Loading Covers Cache Array', 1);
+ Log.BenchmarkStart(1);
+
+ // Category Covers
+ Log.BenchmarkStart(1);
+ Log.LogStatus('Creating Category Covers Array', 'Initialization');
+ CatCovers:= TCatCovers.Create;
+ Log.BenchmarkEnd(1);
+ Log.LogBenchmark('Loading Category Covers Array', 1);
+
+ // Songs
+ //Log.BenchmarkStart(1);
+ Log.LogStatus('Creating Song Array', 'Initialization'); Songs := TSongs.Create;
+ Songs.LoadSongList;
+ Log.LogStatus('Creating 2nd Song Array', 'Initialization'); CatSongs := TCatSongs.Create;
+ Log.BenchmarkEnd(1);
+ Log.LogBenchmark('Loading Songs', 1);
+
+ // PluginManager
+ Log.BenchmarkStart(1);
+ Log.LogStatus('PluginManager', 'Initialization');
+ DLLMan := TDLLMan.Create; //Load PluginList
+ Log.BenchmarkEnd(1);
+ Log.LogBenchmark('Loading PluginManager', 1);
+
+ // Party Mode Manager
+ Log.BenchmarkStart(1);
+ Log.LogStatus('PartySession Manager', 'Initialization');
+ PartySession := TParty_Session.Create; //Load PartySession
+
+ Log.BenchmarkEnd(1);
+ Log.LogBenchmark('Loading PartySession Manager', 1);
+
+ // Graphics
+ Log.BenchmarkStart(1);
+ Log.LogStatus('Initialize 3D', 'Initialization'); Initialize3D(WndTitle);
+ Log.BenchmarkEnd(1);
+ Log.LogBenchmark('Initializing 3D', 1);
+
+ // Sound
+ Log.BenchmarkStart(1);
+ Log.LogStatus('Initialize Sound', 'Initialization');
+ Log.LogStatus('Creating Music', 'InitializeSound'); Music := TMusic.Create;
+ InitializeSound;
+ Log.BenchmarkEnd(1);
+ Log.LogBenchmark('Initializing Sound', 1);
+
+ // Score Saving System
+ Log.BenchmarkStart(1);
+ Log.LogStatus('DataBase System', 'Initialization');
+ DataBase := TDataBaseSystem.Create;
+
+ if (Params.ScoreFile = '') then
+ DataBase.Init ('Ultrastar.db')
+ else
+ DataBase.Init (Params.ScoreFile);
+
+ Log.BenchmarkEnd(1);
+ Log.LogBenchmark('Loading DataBase System', 1);
+
+ //Playlist Manager
+ Log.BenchmarkStart(1);
+ Log.LogStatus('Playlist Manager', 'Initialization');
+ PlaylistMan := TPlaylistManager.Create;
+ Log.BenchmarkEnd(1);
+ Log.LogBenchmark('Loading Playlist Manager', 1);
+
+ //GoldenStarsTwinkleMod
+ Log.BenchmarkStart(1);
+ Log.LogStatus('Effect Manager', 'Initialization');
+ GoldenRec := TEffectManager.Create;
+ Log.BenchmarkEnd(1);
+ Log.LogBenchmark('Loading Particel System', 1);
+
+ // Joypad
+ if (Ini.Joypad = 1) OR (Params.Joypad) then begin
+ Log.BenchmarkStart(1);
+ Log.LogStatus('Initialize Joystick', 'Initialization'); Joy := TJoy.Create;
+ Log.BenchmarkEnd(1);
+ Log.LogBenchmark('Initializing Joystick', 1);
+ end;
+
+ Log.BenchmarkEnd(0);
+ Log.LogBenchmark('Loading Time', 0);
+
+
+ //------------------------------
+ //Start- Mainloop
+ //------------------------------
+ //Music.SetLoop(true);
+ //Music.SetVolume(50);
+ //Music.Open(SkinPath + 'Menu Music 3.mp3');
+ //Music.Play;
+ Log.LogStatus('Main Loop', 'Initialization'); MainLoop;
+
+ //------------------------------
+ //Finish Application
+ //------------------------------
+ if Ini.LPT = 1 then LCD.Clear;
+ if Ini.LPT = 2 then Light.TurnOff;
+
+ Log.Free;
+end.
|