Finished adding the memory leak fix and the column width fix. Updated the loggers as well

kgOrdersClient/View.Login.pas

@@ -5,8 +5,9 @@ interface
 uses
   System.SysUtils, System.Classes, Web, WEBLib.Graphics, WEBLib.Controls, WEBLib.Forms, WEBLib.Dialogs,
   Vcl.Controls, Vcl.StdCtrls, WEBLib.StdCtrls, WEBLib.JSON,
-  JS, XData.Web.Connection, WEBLib.ExtCtrls,
-  App.Types, ConnectionModule, XData.Web.Client, Vcl.Imaging.pngimage;
+  XData.Web.Client, WEBLib.ExtCtrls, Vcl.Imaging.pngimage,
+  JS, XData.Web.Connection,
+  App.Types, ConnectionModule;
 
 type
   TFViewLogin = class(TWebForm)
@@ -55,7 +56,8 @@ procedure TFViewLogin.btnLoginClick(Sender: TObject);
   begin
     ShowNotification('Login Error: ' + AMsg);
   end;
-
+var
+  hashPW: string;
 begin
   AuthService.Login(
     edtUsername.Text, edtPassword.Text,

kgOrdersClient/View.Main.html

@@ -120,7 +120,7 @@
   <div class="modal-dialog">
     <div class="modal-content shadow-lg">
       <div class="modal-header">
-        <h5 class="modal-title" id="main_notification_modal">Error</h5>
+        <h5 class="modal-title" id="main_notification_modal">Info</h5>
         <button type="button" class="btn-close" data-bs-dismiss="modal" aria-label="Close"></button>
       </div>
       <div class="modal-body fs-6 fw-bold" id="main_notification_modal_body">

kgOrdersClient/View.Orders.dfm

@@ -156,40 +156,50 @@ object FViewOrders: TFViewOrders
         Title = 'Proof Due'
       end
       item
+        ElementClassName = 'tbl-min-120'
         DataField = 'proofDone'
         Title = 'Proof Done'
+        TitleElementClassName = 'tbl-min-120'
       end
       item
         DataField = 'artDue'
         Title = 'Art Due'
       end
       item
+        ElementClassName = 'tbl-min-120'
         DataField = 'artDone'
         Title = 'Art Done'
+        TitleElementClassName = 'tbl-min-120'
       end
       item
         DataField = 'plateDue'
         Title = 'Plate Due'
       end
       item
+        ElementClassName = 'tbl-min-120'
         DataField = 'plateDone'
         Title = 'Plate Done'
+        TitleElementClassName = 'tbl-min-120'
       end
       item
         DataField = 'mountDue'
         Title = 'Mount Due'
       end
       item
+        ElementClassName = 'tbl-min-120'
         DataField = 'mountDone'
         Title = 'Mount Done'
+        TitleElementClassName = 'tbl-min-120'
       end
       item
         DataField = 'shipDue'
         Title = 'Ship Due'
       end
       item
+        ElementClassName = 'tbl-min-120'
         DataField = 'shipDone'
         Title = 'Ship Done'
+        TitleElementClassName = 'tbl-min-120'
       end
       item
         DataField = 'price'
@@ -360,6 +370,7 @@ object FViewOrders: TFViewOrders
       FieldName = 'proofDue'
     end
     object xdwdsOrdersproofDone: TStringField
+      DisplayWidth = 40
       FieldName = 'proofDone'
     end
     object xdwdsOrdersartDue: TStringField

kgOrdersClient/View.User.Add.pas

@@ -165,7 +165,7 @@ begin
     ShowToast(FMessage);
   edtUsername.Text := Username;
   edtFullName.Text := FullName;
-  if Mode = 'Edit' then
+  if Mode = 'EDIT' then
   begin
     edtPassword.Text := 'hidden';
   end;

kgOrdersClient/css/app.css

@@ -7,6 +7,10 @@
     background-color: #fff;
 }
 
+.tbl-min-120 {
+  min-width: 120px;
+}
+
 input[type="text"] {
   min-width: 50px;
   max-width: 100%;

kgOrdersServer/Source/Auth.ServiceImpl.pas

@@ -181,7 +181,7 @@ begin
   begin
     name := authDB.uq.FieldByName('NAME').AsString;
     checkString := THashSHA2.GetHashString(name + password, THashSHA2.TSHA2Version.SHA512).ToUpper;
-    if authDB.uq.FieldByName('PASSWORD').AsString = checkString then
+    if authDB.uq.FieldByName('PASSWORD').AsString = checkstring then
     begin
       Logger.Log(1, Format('AuthDB.SetLoginAuditEntry: "%s"', [user]) );
       Result := 3; // Succcess

kgOrdersServer/bin/kgOrdersServer.ini

@@ -2,7 +2,7 @@
 MemoLogLevel=4
 FileLogLevel=4
 webClientVersion=0.9.11
-LogFileNum=171
+LogFileNum=175
 
 [Database]
 --Server=192.168.116.132