Add scroll to row for copy entry, fix location of save/cancel buttons --> v0.9.3 Deployed

emT3Web/ConnectionModule.pas

@@ -22,7 +22,7 @@ type
   public
     currentTaskId: string;
     currentTimeEntryDate: string;
-    const clientVersion = '0.8.9';
+    const clientVersion = '0.9.3';
     procedure InitApp(SuccessProc: TSuccessProc;
       UnauthorizedAccessProc: TUnauthorizedAccessProc);
     procedure SetClientConfig(Callback: TVersionCheckCallback);

emT3Web/View.TimeEntries.pas

@@ -79,6 +79,7 @@ type
     procedure SetTimeEntriesLabel(const AName: string);
     procedure CaptureTableScroll;
     procedure RestoreTableScroll;
+    procedure ScrollToNewEntryRow;
     procedure EditorInput(Event: TJSEvent);
     procedure RowFocusOut(Event: TJSEvent);
     procedure RowClick(Event: TJSEvent);
@@ -523,7 +524,7 @@ begin
       html := html +
         '<tr class="time-new-entry-actions-row">' +
           '<td colspan="7" class="p-0 border-0">' +
-            '<div class="position-sticky d-flex justify-content-end py-1 pe-2" style="right:0; z-index:5; pointer-events:none;">' +
+            '<div class="position-sticky d-inline-flex py-1 ps-2" style="left:0; z-index:5; pointer-events:none;">' +
               '<div class="bg-body border rounded shadow-sm p-2 d-flex gap-2" style="pointer-events:auto;">' +
                 '<button type="button" id="btn_time_new_save" class="btn btn-sm btn-success">Save</button>' +
                 '<button type="button" id="btn_time_new_cancel" class="btn btn-sm btn-outline-secondary">Cancel</button>' +
@@ -1398,8 +1399,8 @@ begin
   btnCopyEntry.Enabled := False;
   HideRowValidationMessage;
 
-  CaptureTableScroll;
   RenderTable;
+  ScrollToNewEntryRow;
 
   Result := True;
 end;
@@ -1490,8 +1491,8 @@ begin
   btnCopyEntry.Enabled := False;
   HideRowValidationMessage;
 
-  CaptureTableScroll;
   RenderTable;
+  ScrollToNewEntryRow;
 
   Result := True;
 end;
@@ -1578,6 +1579,29 @@ begin
   end;
 end;
 
+
+procedure TFTimeEntries.ScrollToNewEntryRow;
+begin
+  asm
+    const row = document.querySelector('tr[data-idx="' + this.FNewEntryRowIndex + '"]');
+    if (!row) return;
+
+    row.scrollIntoView({
+      behavior: 'auto',
+      block: 'nearest',
+      inline: 'nearest'
+    });
+
+    const firstEditor =
+      row.querySelector('[data-field="taskId"]') ||
+      row.querySelector('[data-field="hours"]') ||
+      row.querySelector('.time-editor');
+
+    if (firstEditor)
+      firstEditor.focus();
+  end;
+end;
+
 procedure TFTimeEntries.SetTopControlsEnabled(AEnabled: Boolean);
 begin
   edtWeekOf.Enabled := AEnabled;

emT3Web/emT3web.dproj

@@ -94,14 +94,15 @@
         <DCC_RemoteDebug>false</DCC_RemoteDebug>
         <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
         <VerInfo_Locale>1033</VerInfo_Locale>
-        <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=0.9.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=0.9.8.0;Comments=;LastCompiledTime=2018/08/27 15:18:29</VerInfo_Keys>
+        <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=0.9.3.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=0.9.8.0;Comments=;LastCompiledTime=2018/08/27 15:18:29</VerInfo_Keys>
         <AppDPIAwarenessMode>PerMonitor</AppDPIAwarenessMode>
         <VerInfo_MajorVer>0</VerInfo_MajorVer>
         <VerInfo_MinorVer>9</VerInfo_MinorVer>
+        <TMSWebBrowser>1</TMSWebBrowser>
         <TMSUseJSDebugger>2</TMSUseJSDebugger>
+        <VerInfo_Release>3</VerInfo_Release>
         <TMSWebOutputPath>..\emT3XDataServer\bin\static</TMSWebOutputPath>
         <TMSWebSingleInstance>1</TMSWebSingleInstance>
-        <TMSWebBrowser>1</TMSWebBrowser>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Cfg_2)'!=''">
         <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>

emT3XDataServer/bin/emT3XDataServer.ini

 [Settings]
 MemoLogLevel=4
 FileLogLevel=4
-webClientVersion=0.8.9
-LogFileNum=244
+webClientVersion=0.9.3
+LogFileNum=245
 
 [Database]
 Server=192.168.102.133

emT3XDataServer/emT3XDataServer.dproj

@@ -114,11 +114,12 @@
         <VerInfo_Locale>1033</VerInfo_Locale>
         <DCC_ExeOutput>.\bin</DCC_ExeOutput>
         <DCC_UnitSearchPath>C:\RADTOOLS\FastMM4;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
-        <VerInfo_Keys>CompanyName=EM Systems;FileDescription=$(MSBuildProjectName);FileVersion=0.9.0.1;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=0.9.11;Comments=</VerInfo_Keys>
+        <VerInfo_Keys>CompanyName=EM Systems;FileDescription=$(MSBuildProjectName);FileVersion=0.9.3.1;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=0.9.11;Comments=</VerInfo_Keys>
         <VerInfo_MajorVer>0</VerInfo_MajorVer>
         <VerInfo_MinorVer>9</VerInfo_MinorVer>
         <VerInfo_AutoIncVersion>true</VerInfo_AutoIncVersion>
         <VerInfo_Build>1</VerInfo_Build>
+        <VerInfo_Release>3</VerInfo_Release>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Cfg_1_Win64)'!=''">
         <AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>