Update for new vk api version

HemulGM · Jan 31, 2021 · 9baf89f · 9baf89f
1 parent 2f1b203
commit 9baf89f
Show file tree

Hide file tree

Showing 11 changed files with 3,677 additions and 3,335 deletions.
diff --git a/FMX/VKPlayer.Main.fmx b/FMX/VKPlayer.Main.fmx
diff --git a/FMX/VKPlayer.Main.pas b/FMX/VKPlayer.Main.pas
@@ -7,8 +7,8 @@ interface
   FMX.Graphics, FMX.Dialogs, FMX.TabControl, FMX.StdCtrls, FMX.Controls.Presentation, FMX.Gestures, System.Actions,
   FMX.ActnList, VK.API, VK.Components, VK.Entity.Profile, FMX.Layouts, FMX.Objects, FMX.ListView.Types,
   FMX.ListView.Appearances, FMX.ListView.Adapters.Base, VK.Entity.Audio, VK.Audio, FMX.ListView, BassPlayer.LoadHandle,
-  System.Generics.Collections, System.ImageList, FMX.ImgList, FMX.Effects, FMX.Player, FMX.Ani, FMX.ScrollBox, FMX.Memo,
-  FMX.Filter.Effects, FMX.Edit;
+  System.Generics.Collections, System.ImageList, FMX.ImgList, FMX.Effects, FMX.BassComponents, FMX.Ani, FMX.ScrollBox,
+  FMX.Memo, FMX.Filter.Effects, FMX.Edit, FMX.BASS.Classes, FMX.Player;
 
 type
   TBitmapCacheItem = record
@@ -197,7 +197,6 @@   TFormMain = class(TForm)
     procedure VKError(Sender: TObject; E: Exception; Code: Integer; Text: string);
     procedure VKLogin(Sender: TObject);
     procedure FormShow(Sender: TObject);
-    procedure VKErrorLogin(Sender: TObject; E: Exception; Code: Integer; Text: string);
     procedure SpeedButtonMusicClick(Sender: TObject);
     procedure SpeedButtonSearchClick(Sender: TObject);
     procedure SpeedButtonUsersClick(Sender: TObject);
@@ -940,14 +939,9 @@ procedure TFormMain.VKError(Sender: TObject; E: Exception; Code: Integer; Text:
   end;
 end;
 
-procedure TFormMain.VKErrorLogin(Sender: TObject; E: Exception; Code: Integer; Text: string);
-begin
-  //
-end;
-
 procedure TFormMain.SetCurrentUser(User: TVkProfile);
 begin
-  Caption := 'VK Audio Player [' + User.GetFullName + ']';
+  Caption := 'VK Audio Player [' + User.FullName + ']';
 end;
 
 procedure TFormMain.SpeedButton1Click(Sender: TObject);

diff --git a/FMXWindows/VKAudio.dpr b/FMXWindows/VKAudio.dpr
@@ -16,6 +16,9 @@ uses
 
 begin
   Application.Initialize;
+  {$IFDEF DEBUG}
+  ReportMemoryLeaksOnShutdown := True;
+  {$ENDIF}
   Application.CreateForm(TFormMain, FormMain);
   Application.Run;
 end.
diff --git a/FMXWindows/VKAudioWin.Main.fmx b/FMXWindows/VKAudioWin.Main.fmx