Version 1.11

- Updated dependencies
- Removed docs form (online documentation)
- Removed unnecessary assets
- Removed main ui visualisations
- Performance improvements
- Singlepanel UI
- Better thread management
- Settings page status no longer needed during runtime (all settings are stored in variabiles or read from the ini file when needed)
- Better cloud song functionality
- Download next track when using cloud song for seamless playback
- Made update checking less frequent
- Login is now a panel
- New Ini Settings manager
- Removed slow server artwork (very unnecesarry, I don't know why I even included it in the first place)
- New about page
- Made UI a bit slimmer
- Fixed broken IniFiles (Delphi's fault) by replacing them with MemIniFiles
- Migrated app data location
- New API updater class
- Faster loading (a bit)
- Removed animated Gifs (they were slow & non-smooth)
- New play button for Artists, Albums and Playlists!
- StayOnTop for mini player is no longer considered expermental

Author: Codrax

BroadcastAPI.pas

@@ -253,7 +253,7 @@     TSession = record
 
   // User
   function LoginUser: boolean;
-  procedure LogOff;
+  function LogOffUser: boolean;
 
   function IsAuthenthicated: boolean;
 
@@ -486,10 +486,12 @@     TSession = record
   OnUpdateType: TDataTypeUpdate;
 
   // Artwork Store
-  ArtworkStore: boolean = true;
+  ArtworkStore: boolean=true;
   MediaStoreLocation: string;
 
   // Server Login Output
+  USER_STATUS_LOGGEDIN:boolean=false;
+
   TOKEN: string;
   USER_ID: integer;
   APPLICATION_ID: string = '1078';
@@ -582,6 +584,7 @@ function LoginUser: boolean;
     SResult.AnaliseFrom(JSONValue);
 
     Result := SResult.Success;
+    USER_STATUS_LOGGEDIN:=SResult.Success;
 
     // Success
     if SResult.Success then
@@ -597,19 +600,20 @@ function LoginUser: boolean;
         begin
           //raise Exception.Create(SResult.ServerMessage);
         end;
-
   finally
     JSONValue.Free;
   end;
 end;
 
-procedure LogOff;
+function LogOffUser: boolean;
 var
   Request: string;
   SResult: ResultType;
 
   JSONValue: TJSONValue;
 begin
+  USER_STATUS_LOGGEDIN := false;
+
   // Prepare request string
   Request := Format(REQUEST_LOGOFF, [USER_ID, TOKEN]);
 
@@ -618,7 +622,7 @@ procedure LogOff;
   try
     SResult.AnaliseFrom(JSONValue);
 
-    ReturnToLogin;
+    Result := SResult.Success;
   finally
     JSONValue.Free;
   end;
@@ -1853,7 +1857,7 @@ function ResultType.Success: boolean;
 
 procedure ResultType.TerminateSession;
 begin
-  LogOff;
+  LogOffUser;
   ReturnToLogin;
 
   // Terminate Parent Function

Dependencies/.include-windows-runtime-dependencies

@@ -1,11 +1,10 @@
 {***********************************************************}
 {                  Codruts Variabile Helpers                }
 {                                                           }
-{                        version 1.0                        }
-{                           ALPHA                           }
+{                        version 1.1                        }
 {                                                           }
 {              https://www.codrutsoft.com/                  }
-{             Copyright 2024 Codrut Software                }
+{             Copyright 2025 Codrut Software                }
 {    This unit is licensed for usage under a MIT license    }
 {                                                           }
 {***********************************************************}
@@ -96,8 +95,11 @@   TArrayUtils<T> = class
     class procedure Delete(const Index: integer; var Values: TArray<T>);
     /// <summary> Delete element by type T from array. </summary>
     class procedure DeleteValue(const Value: T; var Values: TArray<T>);
+    /// <summary> Delete the last element of the array and return It's value. </summary>
+    class function Pop(var Values: TArray<T>): T;
+    /// <summary> Delete the first element of the array and return It's value. </summary>
+    class function Shift(var Values: TArray<T>): T;
     /// <summary> Set length to specifieed value. </summary>
-    ///
     class procedure SetLength(const Length: integer; var Values: TArray<T>);
     /// <summary> Get array length. </summary>
     class function Count(const Values: TArray<T>) : integer;
@@ -420,13 +422,19 @@ class procedure TArrayUtils<T>.Move(var Values: TArray<T>; const Source,
   Values[Destination] := OriginalItem;
 end;
 
+class function TArrayUtils<T>.Pop(var Values: TArray<T>): T;
+begin
+  Result := Values[High(Values)];
+  System.SetLength(Values, High(Values));
+end;
+
 class procedure TArrayUtils<T>.DoQuickSort(var Values: TArray<T>;
   const Callback: TArrayDualCallback; Left, Right: Integer);
 var
   Lower, Upper: Integer;
   Pivot, Temp: T;
 begin
-  if Right - Left = 0 then
+  if (Right - Left = 0) or (Right = -1) or (Left = -1) then
     Exit;
 
   Lower := Left;
@@ -466,6 +474,12 @@ class procedure TArrayUtils<T>.SetLength(const Length: integer;
   System.SetLength(Values, Length);
 end;
 
+class function TArrayUtils<T>.Shift(var Values: TArray<T>): T;
+begin
+  Result := Values[0];
+  Self.Delete(0, Values);
+end;
+
 class procedure TArrayUtils<T>.Shuffle(var Values: TArray<T>);
 begin
   if Length(Values) > 1 then

Dependencies/Cod.ArrayHelpers.pas

@@ -1,14 +1,11 @@
 {***********************************************************}
-{                  Codruts Color Utilities                  }
+{                  Codruts System Utilities                 }
 {                                                           }
-{                        version 0.2                        }
-{                           ALPHA                           }
+{                        version 1.0                        }
 {                                                           }
 {                                                           }
-{                                                           }
-{                                                           }
-{                                                           }
-{                   -- WORK IN PROGRESS --                  }
+{              Developed by Petculescu Codrut               }
+{            Copyright (c) 2025 Codrut Software.            }
 {***********************************************************}
 
 unit Cod.ColorUtils;