NextGroup 1.2.2 release

x64 support added
KorneySan · Oct 24, 2022 · 61802bb · 61802bb
1 parent 648e447
commit 61802bb
Show file tree

Hide file tree

Showing 7 changed files with 814 additions and 21 deletions.
diff --git a/.gitignore b/.gitignore
@@ -0,0 +1,7 @@
+
+README.md.bak
+docs/PlaylistAutostop.md.bak
+*.~1~
+*.identcache
+*.dll
+*.dcu
diff --git a/NextGroup 1.2.2.aimppack b/NextGroup 1.2.2.aimppack
diff --git a/NextGroup/NextGroup.dproj b/NextGroup/NextGroup.dproj
diff --git a/NextGroup/NextGroup.dproj.local b/NextGroup/NextGroup.dproj.local
@@ -1,10 +1,10 @@
 <?xml version="1.0" encoding="utf-8"?>
 <BorlandProject>
 	<Transactions>
+    <Transaction>1899.12.30 00:00:00.000.171,G:\Documents and Settings\Ingenery\Мои документы\RAD Studio\Projects\AIMP\Next Group\NextGroup_Defines.pas=G:\Documents and Settings\Ingenery\Мои документы\RAD Studio\Projects\AIMP\Next Group\Unit1.pas</Transaction>
+    <Transaction>1899.12.30 00:00:00.000.468,G:\Documents and Settings\Ingenery\Мои документы\RAD Studio\Projects\AIMP\Next Group\NextGroup.dproj=G:\Documents and Settings\Ingenery\Мои документы\RAD Studio\Projects\Project1.dproj</Transaction>
     <Transaction>1899.12.30 00:00:00.000.546,=G:\Documents and Settings\Ingenery\Мои документы\RAD Studio\Projects\AIMP\Next Group\Unit1.pas</Transaction>
-    <Transaction>1899.12.30 00:00:00.000.562,G:\Documents and Settings\Ingenery\Мои документы\RAD Studio\Projects\AIMP\Next Group\NextGroup_Impl.pas=G:\Documents and Settings\Ingenery\Мои документы\RAD Studio\Projects\AIMP\Next Group\Unit1.pas</Transaction>
     <Transaction>1899.12.30 00:00:00.000.250,=G:\Documents and Settings\Ingenery\Мои документы\RAD Studio\Projects\AIMP\Next Group\Unit1.pas</Transaction>
-    <Transaction>1899.12.30 00:00:00.000.468,G:\Documents and Settings\Ingenery\Мои документы\RAD Studio\Projects\AIMP\Next Group\NextGroup.dproj=G:\Documents and Settings\Ingenery\Мои документы\RAD Studio\Projects\Project1.dproj</Transaction>
-    <Transaction>1899.12.30 00:00:00.000.171,G:\Documents and Settings\Ingenery\Мои документы\RAD Studio\Projects\AIMP\Next Group\NextGroup_Defines.pas=G:\Documents and Settings\Ingenery\Мои документы\RAD Studio\Projects\AIMP\Next Group\Unit1.pas</Transaction>
+    <Transaction>1899.12.30 00:00:00.000.562,G:\Documents and Settings\Ingenery\Мои документы\RAD Studio\Projects\AIMP\Next Group\NextGroup_Impl.pas=G:\Documents and Settings\Ingenery\Мои документы\RAD Studio\Projects\AIMP\Next Group\Unit1.pas</Transaction>
   </Transactions>
 </BorlandProject>
diff --git a/NextGroup/NextGroup.res b/NextGroup/NextGroup.res
diff --git a/NextGroup/NextGroup_Defines.pas b/NextGroup/NextGroup_Defines.pas
@@ -7,6 +7,7 @@ interface
 
 const
  myPluginName = 'Next Group';
+ myPluginVersion = '1.2.2';
  myPluginAuthor = 'Korney San';
  myPluginShortDescription = '"Next group" and "Prev group" actions.';
  myPluginFullDescription = '';

diff --git a/NextGroup/NextGroup_Impl.pas b/NextGroup/NextGroup_Impl.pas
@@ -136,7 +136,7 @@ function TAIMPPlugin.GetCurrentPlaylist: IAIMPPlaylist;
    with APMService do
     begin
      //get current playlist
-     if not Succeeded(GetPlayablePlaylist(Result)) then
+     if not Succeeded(GetPlayingPlaylist(Result)) then
       begin
        pc:=GetLoadedPlaylistCount;
        //select playlist
@@ -268,7 +268,7 @@ function TAIMPPlugin.InfoGet(Index: Integer): PWideChar;
       if myPluginName='' then
         Result := nil
       else
-        Result := myPluginName;
+        Result := myPluginName + ' v' + myPluginVersion;
      end;
     AIMP_PLUGIN_INFO_AUTHOR:
      begin