v0.4 + Improved service startup control

Author: AKotov-dev

naivegui/backup/naivegui.lpi

@@ -4,7 +4,7 @@
     <Version Value="12"/>
     <General>
       <SessionStorage Value="InProjectDir"/>
-      <Title Value="NaiveGUI v0.3"/>
+      <Title Value="NaiveGUI v0.4"/>
       <Scaled Value="True"/>
       <ResourceType Value="res"/>
       <UseXPManifest Value="True"/>

naivegui/backup/naivegui.lps

@@ -51,7 +51,8 @@
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="Unit1"/>
         <IsVisibleTab Value="True"/>
-        <CursorPos X="13"/>
+        <TopLine Value="300"/>
+        <CursorPos Y="350"/>
         <UsageCount Value="37"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
@@ -89,7 +90,7 @@
         <UsageCount Value="22"/>
       </Unit>
     </Units>
-    <JumpHistory HistoryIndex="27">
+    <JumpHistory HistoryIndex="28">
       <Position>
         <Filename Value="unit1.pas"/>
         <Caret Line="344" Column="38" TopLine="328"/>
@@ -200,7 +201,11 @@
       </Position>
       <Position>
         <Filename Value="unit1.pas"/>
-        <Caret Column="13"/>
+        <Caret Column="12"/>
+      </Position>
+      <Position>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="313" TopLine="293"/>
       </Position>
     </JumpHistory>
     <RunParams>

naivegui/backup/unit1.lfm

@@ -293,7 +293,6 @@ procedure TMainForm.CreateServerConfig;
 procedure TMainForm.FormCreate(Sender: TObject);
 var
   bmp: TBitmap;
-  FShowLogTRD, FServiceStateTRD: TThread;
 begin
   MainForm.Caption := Application.Title;
 
@@ -311,14 +310,6 @@ procedure TMainForm.FormCreate(Sender: TObject);
     ForceDirectories(GetUserDir + '.config/naivegui');
 
   IniPropStorage1.IniFileName := GetUserDir + '.config/naivegui/naivegui.conf';
-
-  //Запуск потока проверки состояния сервиса (active/inactive)
-  FServiceStateTRD := ServiceState.Create(False);
-  FServiceStateTRD.Priority := tpNormal;
-
-  //Запуск поток непрерывного чтения лога
-  FShowLogTRD := ShowLogTRD.Create(False);
-  FShowLogTRD.Priority := tpNormal;
 end;
 
 procedure TMainForm.FormShow(Sender: TObject);
@@ -350,6 +341,12 @@ procedure TMainForm.FormShow(Sender: TObject);
   HPortEdit.Text := JsonReadString(client_conf, 'inbounds[1].listen_port');
 
   BypassBox.Text := JsonReadString(client_conf, 'dns.rules[0].domain_suffix[0]');
+
+  //Запуск потока проверки состояния сервиса (active/inactive)
+  ServiceState.Create(False);
+
+  //Запуск поток непрерывного чтения лога
+  ShowLogTRD.Create(False);
 end;
 
 procedure TMainForm.Label10Click(Sender: TObject);

naivegui/backup/unit1.pas

@@ -51,7 +51,7 @@
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="Unit1"/>
         <IsVisibleTab Value="True"/>
-        <CursorPos X="12"/>
+        <CursorPos X="13"/>
         <UsageCount Value="37"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
@@ -89,7 +89,7 @@
         <UsageCount Value="22"/>
       </Unit>
     </Units>
-    <JumpHistory HistoryIndex="27">
+    <JumpHistory HistoryIndex="28">
       <Position>
         <Filename Value="unit1.pas"/>
         <Caret Line="344" Column="38" TopLine="328"/>
@@ -200,7 +200,11 @@
       </Position>
       <Position>
         <Filename Value="unit1.pas"/>
-        <Caret Column="13"/>
+        <Caret Column="12"/>
+      </Position>
+      <Position>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="313" TopLine="293"/>
       </Position>
     </JumpHistory>
     <RunParams>

naivegui/lib/x86_64-linux/unit1.o

@@ -293,7 +293,6 @@ procedure TMainForm.CreateServerConfig;
 procedure TMainForm.FormCreate(Sender: TObject);
 var
   bmp: TBitmap;
-  FShowLogTRD, FServiceStateTRD: TThread;
 begin
   MainForm.Caption := Application.Title;
 
@@ -311,14 +310,6 @@ procedure TMainForm.FormCreate(Sender: TObject);
     ForceDirectories(GetUserDir + '.config/naivegui');
 
   IniPropStorage1.IniFileName := GetUserDir + '.config/naivegui/naivegui.conf';
-
-  //Запуск потока проверки состояния сервиса (active/inactive)
-  FServiceStateTRD := ServiceState.Create(False);
-  FServiceStateTRD.Priority := tpNormal;
-
-  //Запуск поток непрерывного чтения лога
-  FShowLogTRD := ShowLogTRD.Create(False);
-  FShowLogTRD.Priority := tpNormal;
 end;
 
 procedure TMainForm.FormShow(Sender: TObject);
@@ -333,6 +324,12 @@ procedure TMainForm.FormShow(Sender: TObject);
   PassBtn.Width := PasswordEdit.Height;
   QRBtn.Width := CreateBtn.Height;
 
+  //Запуск потока проверки состояния сервиса (active/inactive)
+  ServiceState.Create(False);
+
+  //Запуск поток непрерывного чтения лога
+  ShowLogTRD.Create(False);
+
   if not FileExists(client_conf) then Exit;
 
   //Читаем параметры клиента