>INT Changed actions name: replace in views record prefix and suffix

tvannini · Sep 28, 2019 · 7e76b1f · 7e76b1f
1 parent 1a6a9a2
commit 7e76b1f
Show file tree

Hide file tree

Showing 3 changed files with 21 additions and 3 deletions.
diff --git a/dm.pas b/dm.pas
@@ -1417,6 +1417,24 @@ procedure Tdm_form.t_azioniazioneSetText(Sender: TField; const Text: string);
       t_operazioni.Next;
     end;
     t_operazioni.MasterSource := ds_azioni;
+    // ______________________ Replace action name in views prefix and suffix ___
+    t_task.First;
+    while not t_task.EOF do
+    begin
+      if t_taskrecordprefix.Value = str_old then
+      begin
+        t_task.Edit;
+        t_taskrecordprefix.Value := str_new;
+        t_task.Post;
+      end;
+      if t_taskrecordsufix.Value = str_old then
+      begin
+        t_task.Edit;
+        t_taskrecordsufix.Value := str_new;
+        t_task.Post;
+      end;
+      t_task.Next;
+    end;
   end; // ________________________ End of previous value existance condition ___
   // ____________________________________________ Update variable name field ___
   Sender.Value := newName;

diff --git a/jxob.ini b/jxob.ini
@@ -25,8 +25,8 @@ temp_dir=
 design_report=
 cvs_versioning=0
 [Recent]
-app1=C:\Devel\projects\evision_saas\htdocs\evision_saas.php
-app2=C:\Devel\projects\dev\htdocs\dev.php
+app1=C:\Devel\projects\dev\htdocs\dev.php
+app3=C:\Devel\projects\evision_saas\htdocs\evision_saas.php
 ;   --- Recently opened projects
 ;   This   is   a   list   of   proposed   projects,   in    the    form
 ;   app<x>=<app_main_file>,  where  <x>  is  a  progressive  number  and

diff --git a/work.dfm b/work.dfm
@@ -84,7 +84,7 @@ object f_work: Tf_work
     Top = 32
     Width = 870
     Height = 662
-    ActivePage = ts_tabelle
+    ActivePage = ts_programmi
     Align = alClient
     MultiLine = True
     PopupMenu = pop_pagecontrol1