v0.4 + Improved service startup control

Author: AKotov-dev

naivegui/backup/naivegui.lps

@@ -51,7 +51,7 @@
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="Unit1"/>
         <IsVisibleTab Value="True"/>
-        <CursorPos X="13"/>
+        <CursorPos X="12"/>
         <UsageCount Value="37"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
@@ -84,13 +84,12 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="Unit2"/>
-        <EditorIndex Value="1"/>
+        <EditorIndex Value="-1"/>
         <CursorPos X="13"/>
         <UsageCount Value="22"/>
-        <Loaded Value="True"/>
       </Unit>
     </Units>
-    <JumpHistory HistoryIndex="29">
+    <JumpHistory HistoryIndex="27">
       <Position>
         <Filename Value="unit1.pas"/>
         <Caret Line="344" Column="38" TopLine="328"/>
@@ -179,9 +178,6 @@
         <Filename Value="unit1.pas"/>
         <Caret Line="78" Column="58" TopLine="53"/>
       </Position>
-      <Position>
-        <Filename Value="unit2.pas"/>
-      </Position>
       <Position>
         <Filename Value="unit1.pas"/>
         <Caret Line="433" Column="76" TopLine="431"/>
@@ -198,9 +194,6 @@
         <Filename Value="unit1.pas"/>
         <Caret Line="445" Column="24" TopLine="422"/>
       </Position>
-      <Position>
-        <Filename Value="unit2.pas"/>
-      </Position>
       <Position>
         <Filename Value="unit1.pas"/>
         <Caret Line="328" Column="3" TopLine="324"/>

naivegui/backup/unit1.pas

@@ -433,6 +433,8 @@ procedure TMainForm.QRBtnClick(Sender: TObject);
 var
   protocol: string;
 begin
+  if QRForm.Visible then Exit;
+
   //Не запускать, если поля пустые
   if (DomainEdit.Text = '') or (UserEdit.Text = '') or (PasswordEdit.Text = '') or
     (SPortEdit.Text = '') or (HPortEdit.Text = '') or (BypassBox.Text = '') then Exit;