Changeset 664
- Timestamp:
- Jul 8, 2025, 9:52:53 PM (6 hours ago)
- Location:
- trunk
- Files:
-
- 41 added
- 6 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Direct.pas
r598 r664 46 46 uses 47 47 ScreenTools, Protocol, Start, LocalPlayer, NoTerm, Back, Global, NetworkServer, 48 NetworkClient ;48 NetworkClient, Music, Directories; 49 49 50 50 {$R *.lfm} … … 130 130 *) 131 131 end; 132 ntStartDone: 132 ntStartDone: begin 133 133 if not Quick then begin 134 134 StartDlg.Hide; 135 135 Background.Update; 136 136 end; 137 MusicPlayer.LoadPlaylistFromDir(GetMusicDir); 138 MusicPlayer.RandomizePlaylist; 139 if MusicPlayer.Playlist.Count > 0 then MusicPlayer.Play; 140 end; 137 141 ntStartGo, ntStartGoRefresh, ntStartGoRefreshMaps: 138 142 if Quick then Close -
trunk/Integrated.lpi
r599 r664 79 79 </Item2> 80 80 <SharedMatrixOptions Count="2"> 81 <Item1 ID="151739052537" Targets="CevoComponents,Common,DpiControls " Modes="Debug" Value="-g -gl -gh -CirotR -O1 -dDPI"/>82 <Item2 ID="186701832267" Targets="CevoComponents,Common,DpiControls " Modes="Release" Value="-CX -XX -O3 -dDPI"/>81 <Item1 ID="151739052537" Targets="CevoComponents,Common,DpiControls,laz_uos" Modes="Debug" Value="-g -gl -gh -CirotR -O1 -dDPI"/> 82 <Item2 ID="186701832267" Targets="CevoComponents,Common,DpiControls,laz_uos" Modes="Release" Value="-CX -XX -O3 -dDPI"/> 83 83 </SharedMatrixOptions> 84 84 </BuildModes> … … 92 92 </Modes> 93 93 </RunParams> 94 <RequiredPackages Count=" 4">94 <RequiredPackages Count="5"> 95 95 <Item1> 96 <PackageName Value="laz_uos"/> 97 <DefaultFilename Value="Packages\uos\laz_uos.lpk" Prefer="True"/> 98 </Item1> 99 <Item2> 96 100 <PackageName Value="DpiControls"/> 97 101 <DefaultFilename Value="Packages\DpiControls\DpiControls.lpk" Prefer="True"/> 98 </Item 1>99 <Item 2>102 </Item2> 103 <Item3> 100 104 <PackageName Value="Common"/> 101 105 <DefaultFilename Value="Packages\Common\Common.lpk" Prefer="True"/> 102 </Item 2>103 <Item 3>106 </Item3> 107 <Item4> 104 108 <PackageName Value="CevoComponents"/> 105 109 <DefaultFilename Value="Packages\CevoComponents\CevoComponents.lpk" Prefer="True"/> 106 </Item 3>107 <Item 4>110 </Item4> 111 <Item5> 108 112 <PackageName Value="LCL"/> 109 </Item 4>113 </Item5> 110 114 </RequiredPackages> 111 <Units Count="4 8">115 <Units Count="49"> 112 116 <Unit0> 113 117 <Filename Value="Integrated.lpr"/> … … 374 378 <IsPartOfProject Value="True"/> 375 379 </Unit47> 380 <Unit48> 381 <Filename Value="Music.pas"/> 382 <IsPartOfProject Value="True"/> 383 </Unit48> 376 384 </Units> 377 385 </ProjectOptions> -
trunk/Integrated.lpr
r474 r664 26 26 27 27 DotNetClient := nil; 28 Randomize; 28 29 Application.Initialize; 29 30 Application.Title := CevoTitle; -
trunk/Packages/CevoComponents/CevoComponents.lpk
r568 r664 123 123 </Files> 124 124 <CompatibilityMode Value="True"/> 125 <RequiredPkgs Count=" 4">125 <RequiredPkgs Count="5"> 126 126 <Item1> 127 <PackageName Value=" DpiControls"/>127 <PackageName Value="laz_uos"/> 128 128 </Item1> 129 129 <Item2> 130 <PackageName Value=" Common"/>130 <PackageName Value="DpiControls"/> 131 131 </Item2> 132 132 <Item3> 133 <PackageName Value=" LCL"/>133 <PackageName Value="Common"/> 134 134 </Item3> 135 135 <Item4> 136 <PackageName Value="LCL"/> 137 </Item4> 138 <Item5> 136 139 <PackageName Value="FCL"/> 137 </Item 4>140 </Item5> 138 141 </RequiredPkgs> 139 142 <UsageOptions> -
trunk/Packages/CevoComponents/Directories.pas
r648 r664 14 14 function GetGraphicsDir: string; 15 15 function GetSoundsDir: string; 16 function GetMusicDir: string; 16 17 function GetAiDir: string; 17 18 function GetAppSharePath(Path: string): string; … … 154 155 end; 155 156 157 function GetMusicDir: string; 158 begin 159 Result := GetAppSharePath('Music'); 160 end; 161 156 162 function GetAiDir: string; 157 163 begin -
trunk/Start.pas
r660 r664 155 155 uses 156 156 Global, Directories, Direct, ScreenTools, Inp, Back, Settings, KeyBindings, 157 Languages ;157 Languages, Music; 158 158 159 159 {$R *.lfm} … … 942 942 ChangeTab(ShowTab); 943 943 Background.Enabled := False; 944 945 MusicPlayer.LoadPlaylistFromDir(GetMusicDir + DirectorySeparator + 'Start'); 946 MusicPlayer.RandomizePlaylist; 947 if MusicPlayer.Playlist.Count > 0 then MusicPlayer.Play; 944 948 end; 945 949
Note:
See TracChangeset
for help on using the changeset viewer.