Version 1.0.2:

- Better Mobile Support
- Improved Achievement Filter Criteria
- Fixed some incorrect Achievement descriptions

HaloTracker_Web.dproj

@@ -201,6 +201,7 @@
             <ResourceId>JpgImage_4</ResourceId>
         </RcItem>
         <None Include="assets\house.svg"/>
+        <None Include="assets\list.svg"/>
         <BuildConfiguration Include="Base">
             <Key>Base</Key>
         </BuildConfiguration>
@@ -571,6 +572,12 @@
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>
+                <DeployFile LocalName="assets\list.svg" Configuration="Release" Class="ProjectFile">
+                    <Platform Name="Win32">
+                        <RemoteDir>.\</RemoteDir>
+                        <Overwrite>true</Overwrite>
+                    </Platform>
+                </DeployFile>
                 <DeployFile LocalName="assets\pfp.jpg" Configuration="Debug" Class="ProjectFile">
                     <Platform Name="Win32">
                         <RemoteDir>.\</RemoteDir>

Pages/uSettings.dfm

@@ -245,7 +245,7 @@ object Frame_Settings: TFrame_Settings
           Margins.Right = 0
           Margins.Bottom = 0
           Align = alClient
-          Caption = 'Version 1.0.1 | WEB | RELEASE | 2024/03/08'
+          Caption = 'Version 1.0.2 | WEB | RELEASE | 2024/03/09'
           Font.Charset = DEFAULT_CHARSET
           Font.Color = clWhite
           Font.Height = -14

Pages/uSettings.pas

@@ -178,6 +178,24 @@ procedure TFrame_Settings.StylePage;
 procedure TFrame_Settings.WebFrameResize(Sender: TObject);
 begin
   if (PageCreated = False) then StylePage;
+
+  if layUsefulLinks.Width > 600 then
+  begin
+    layUsefulLinks.Height := 176;
+    layNavLicense.Top := layNavSourceCode.Top;
+    layNavLicense.Left := 378;
+    layNavReportAProblem.Top := layNavDownloadApp.Top;
+    layNavReportAProblem.Left := 378;
+  end else
+  begin
+    layUsefulLinks.Height := 176 + (layNavDownloadApp.Height * 2);
+
+    layNavLicense.Top := layNavDownloadApp.Top + layNavDownloadApp.Height;
+    layNavLicense.Left := layNavDownloadApp.Left;
+    layNavReportAProblem.Top := layNavLicense.Top + layNavLicense.Height;
+    layNavReportAProblem.Left := layNavDownloadApp.Left;
+  end;
+
 end;
 
 end.

RELEASE_NOTES.md

@@ -10,21 +10,27 @@
 
 
 ## Release Notes
-* [Version 1.0.0 (07/03/2024)](#version-100-07032024)
-* [Version 1.0.1 (08/03/2024)](#version-101-08032024)
+* [Version 1.0.0 (2024/03/07)](#version-100-20240307)
+* [Version 1.0.1 (2024/03/08)](#version-101-20240308)
+* [Version 1.0.2 (2024/03/09)](#version-102-20240309)
 
 
-## Version 1.0.0 (07/03/2024)
-![Home Page for Halo Achievement Tracker (HaloTracker.org) - Version 1.0.0 (07/03/2024)](https://github.com/shaunroselt/HaloTracker.org/assets/5418178/f0200da5-9108-45b7-952a-4817ee110518)
-![Achievements Page for Halo Achievement Tracker (HaloTracker.org) - Version 1.0.0 (07/03/2024)](https://github.com/shaunroselt/HaloTracker.org/assets/5418178/5d74a68a-3724-49d8-a4bc-834856f12d3d)
+## Version 1.0.0 (2024/03/07)
+![Home Page for Halo Achievement Tracker (HaloTracker.org) - Version 1.0.0 (2024/03/07)](https://github.com/shaunroselt/HaloTracker.org/assets/5418178/f0200da5-9108-45b7-952a-4817ee110518)
+![Achievements Page for Halo Achievement Tracker (HaloTracker.org) - Version 1.0.0 (2024/03/07)](https://github.com/shaunroselt/HaloTracker.org/assets/5418178/5d74a68a-3724-49d8-a4bc-834856f12d3d)
 This is the first version of the website. The first version is quite basic and barebone with only the ability to view achievements.
 - View Achievements for Halo: The Master Chief Collection
 - View Achievements for Halo 5: Guardians
 - View Achievements for Halo Infinite
 - View Percentage of players that have achieved an achievement
 - Basic Achievement Filtering based on Campaign, Co-op Campaign, Multiplayer, and Other (Not Filtered Yet)
 
-## Version 1.0.1 (08/03/2024)
-![Home Page for Halo Achievement Tracker (HaloTracker.org) - Version 1.0.1 (08/03/2024)](https://github.com/shaunroselt/HaloTracker.org/assets/5418178/91f8fdc9-f9e1-4974-af80-92ace41fe55b)
+## Version 1.0.1 (2024/03/08)
+![Home Page for Halo Achievement Tracker (HaloTracker.org) - Version 1.0.1 (2024/03/08)](https://github.com/shaunroselt/HaloTracker.org/assets/5418178/91f8fdc9-f9e1-4974-af80-92ace41fe55b)
 - Better Mobile Support
 - Changed "Home" icon in the left menu
+
+## Version 1.0.2 (2024/03/09)
+- Better Mobile Support
+- Improved Achievement Filter Criteria
+- Fixed some incorrect Achievement descriptions

uIndex.dfm

@@ -2,6 +2,7 @@ object frmMain: TfrmMain
   Width = 1820
   Height = 1353
   OnCreate = WebFormCreate
+  OnResize = WebFormResize
   OnShow = WebFormShow
   object BackgroundVideo: TWebMultimediaPlayer
     Left = 0
@@ -38,11 +39,11 @@ object frmMain: TfrmMain
       ShowCaption = False
       object WebLabel2: TWebLabel
         AlignWithMargins = True
-        Left = 20
+        Left = 70
         Top = 0
-        Width = 1086
+        Width = 1036
         Height = 70
-        Margins.Left = 20
+        Margins.Left = 13
         Margins.Top = 0
         Margins.Right = 0
         Margins.Bottom = 0
@@ -58,6 +59,7 @@ object frmMain: TfrmMain
         ParentFont = False
         WordWrap = True
         WidthPercent = 100.000000000000000000
+        ExplicitLeft = 20
         ExplicitWidth = 323
         ExplicitHeight = 38
       end
@@ -170,6 +172,34 @@ object frmMain: TfrmMain
           ExplicitHeight = 31
         end
       end
+      object btnMultiView: TWebButton
+        AlignWithMargins = True
+        Left = 13
+        Top = 13
+        Width = 44
+        Height = 44
+        Cursor = crHandPoint
+        Hint = 'View Change Log'
+        Margins.Left = 13
+        Margins.Top = 13
+        Margins.Right = 0
+        Margins.Bottom = 13
+        Align = alLeft
+        Color = clHighlight
+        ChildOrder = 4
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWhite
+        Font.Height = -21
+        Font.Name = 'Segoe UI'
+        Font.Style = []
+        HeightPercent = 100.000000000000000000
+        ParentFont = False
+        ShowHint = True
+        WidthPercent = 100.000000000000000000
+        OnClick = btnMultiViewClick
+        OnMouseEnter = ButtonMouseEnter
+        OnMouseLeave = ButtonMouseLeave
+      end
     end
     object WebPanel9: TWebPanel
       Left = 0
@@ -193,14 +223,16 @@ object frmMain: TfrmMain
       Color = clWindow
       ShowCaption = False
     end
-    object WebSplitter1: TWebSplitter
+    object MultiViewSplitter: TWebSplitter
       Left = 350
       Top = 71
       Width = 1
       Height = 1282
       Align = alLeft
       ChildOrder = 5
       Color = clWhite
+      Visible = False
+      OnMoved = MultiViewSplitterMoved
     end
     object MultiViewContainer: TWebPanel
       Left = 0
@@ -218,7 +250,7 @@ object frmMain: TfrmMain
         Top = 0
         Width = 350
         Height = 1232
-        Align = alLeft
+        Align = alClient
         BorderStyle = bsNone
         ChildOrder = 4
         Color = clWindow

uIndex.pas

@@ -78,13 +78,14 @@   TfrmMain = class(TWebForm)
     btnNavHaloInfinite: TWebPanel;
     lblNavHaloInfinite: TWebLabel;
     imgNavHaloInfinite: TWebImageControl;
-    WebSplitter1: TWebSplitter;
+    MultiViewSplitter: TWebSplitter;
     GetAchievementsHaloInfinite: TWebHttpRequest;
     MultiViewContainer: TWebPanel;
     WebHttpRequest1: TWebHttpRequest;
     btnProfile: TWebPanel;
     WebImageControl1: TWebImageControl;
     lblProfile: TWebLabel;
+    btnMultiView: TWebButton;
     procedure WebFormCreate(Sender: TObject);
     procedure ButtonMouseEnter(Sender: TObject);
     procedure ButtonMouseLeave(Sender: TObject);
@@ -96,8 +97,12 @@   TfrmMain = class(TWebForm)
     procedure WebFormShow(Sender: TObject);
     procedure btnSearchClick(Sender: TObject);
     procedure WebPanelMouseLeave(Sender: TObject);
+    procedure btnMultiViewClick(Sender: TObject);
+    procedure MultiViewSplitterMoved(Sender: TObject);
+    procedure WebFormResize(Sender: TObject);
   private
     { Private declarations }
+    MultiViewWidth: UInt64;
     procedure CreatePages();
     procedure SelectFrame(FrameLayoutName: String);
   public
@@ -136,6 +141,12 @@ procedure TfrmMain.NavAchievementsItemClick(Sender: TObject);
 //  Application.Navigate('index.html?page='+ToolBackendName.ToLower);
 end;
 
+procedure TfrmMain.btnMultiViewClick(Sender: TObject);
+begin
+  MultiViewContainer.Visible := not(MultiViewContainer.Visible);
+  MultiViewSplitter.Visible := MultiViewContainer.Visible;
+end;
+
 procedure TfrmMain.btnSearchClick(Sender: TObject);
 begin
   btnProfile.Visible := True;
@@ -375,7 +386,7 @@ procedure TfrmMain.NavMouseLeave(Sender: TObject);
 procedure TfrmMain.WebFormCreate(Sender: TObject);
 begin
   {$IFDEF RELEASE}
-    document.body.insertAdjacentHTML('beforeend','<script disable-devtool-auto src="https://cdn.jsdelivr.net/npm/disable-devtool"></script>');
+    //document.body.insertAdjacentHTML('beforeend','<script disable-devtool-auto src="https://cdn.jsdelivr.net/npm/disable-devtool"></script>');
 
     lblNavSearch.Caption := 'Home';
     edtSearch.Visible := False;
@@ -420,6 +431,11 @@ procedure TfrmMain.WebFormCreate(Sender: TObject);
   btnNavHalo5.ElementHandle.style.setProperty('border-radius', '5px');
   btnNavHaloInfinite.ElementHandle.style.setProperty('border-radius', '5px');
 
+  btnMultiView.ElementHandle.style.setProperty('border-radius', '5px');
+  btnMultiView.ElementHandle.style.setProperty('border-width', '0');
+  btnMultiView.ElementHandle.innerHTML := '<img src="assets/list.svg" style="display: block; margin-left: auto; margin-right: auto; width: 75%;" />';
+
+
 //  GetAchievements.Execute(
 //    procedure(AResponse: string; AReq: TJSXMLHttpRequest)
 //    var
@@ -432,6 +448,30 @@ procedure TfrmMain.WebFormCreate(Sender: TObject);
 //  );
 end;
 
+procedure TfrmMain.WebFormResize(Sender: TObject);
+begin
+  btnMultiView.Visible := False;
+  if layBody.Width > 1000 then
+  begin
+    MultiViewContainer.Align := alLeft;
+    MultiViewContainer.Visible := True;
+    MultiViewContainer.Width := 350;
+  end else
+  begin
+    if layBody.Width > 700 then
+    begin
+      MultiViewContainer.Align := alLeft;
+      MultiViewContainer.Visible := True;
+      MultiViewContainer.Width := 300;
+    end else
+    begin
+      MultiViewContainer.Align := alClient;
+      MultiViewContainer.Visible := False;
+      btnMultiView.Visible := True;
+    end;
+  end;
+end;
+
 procedure TfrmMain.WebFormShow(Sender: TObject);
 var
   PageQueryString: String;
@@ -463,4 +503,9 @@ procedure TfrmMain.WebPanelMouseLeave(Sender: TObject);
   TWebPanel(Sender).Color := clNone;
 end;
 
+procedure TfrmMain.MultiViewSplitterMoved(Sender: TObject);
+begin
+  MultiViewWidth := MultiViewContainer.Width;
+end;
+
 end.