Pause the slideshow on the current image

BazzaCuda · Apr 25, 2024 · 50fc3b4 · 50fc3b4
1 parent cbb346a
commit 50fc3b4
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 2 deletions.
diff --git a/MinimalistMediaPlayer.dproj b/MinimalistMediaPlayer.dproj
@@ -106,14 +106,14 @@
         <DCC_ExeOutput>.\$(Platform)\$(Config)\</DCC_ExeOutput>
         <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
         <VerInfo_Locale>1033</VerInfo_Locale>
-        <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=2.0.5.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=2.0.5.0;Comments=</VerInfo_Keys>
+        <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=2.0.6.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=2.0.6.0;Comments=</VerInfo_Keys>
         <DCC_DcpOutput>.\$(Platform)\$(Config)\</DCC_DcpOutput>
         <DCC_DcuOutput>.\$(Platform)\$(Config)</DCC_DcuOutput>
         <PostBuildEvent><![CDATA[rem copy B:\Win64_Dev\Programs\MediaPlayerX\Win64\Release\MinimalistMediaPlayer.exe  X:\Tools\NiftyPlayer64\
 $(PostBuildEvent)]]></PostBuildEvent>
         <Debugger_RunParams>&quot;nofile&quot;</Debugger_RunParams>
         <VerInfo_MajorVer>2</VerInfo_MajorVer>
-        <VerInfo_Release>5</VerInfo_Release>
+        <VerInfo_Release>6</VerInfo_Release>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Cfg_2)'!=''">
         <DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>

diff --git a/MinimalistMediaPlayer.res b/MinimalistMediaPlayer.res
diff --git a/mediaPlayer.pas b/mediaPlayer.pas
@@ -554,6 +554,8 @@ function TMediaPlayer.pauseUnpauseImages: boolean;
 
   case FImagePaused of  TRUE: ST.opInfo := 'slideshow paused';
                        FALSE: ST.opInfo := 'slideshow unpaused'; end;
+
+  FDontPlayNext := FImagePaused;
 end;
 
 function TMediaPlayer.pausePlay: boolean;
@@ -629,6 +631,8 @@ function TMediaPlayer.playLast: boolean;
 
 function TMediaPlayer.playNext: boolean;
 begin
+  case FImagePaused AND (FMediaType = mtImage) of TRUE: EXIT; end;
+
   FTimer.interval := 100;
   FTimerEvent     := tePlay;
   FTimer.enabled  := PL.next;