v0.3 + sing-box-1.13.4; cosmetic changes

Author: AKotov-dev

naivegui/backup/naivegui.lpi

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

naivegui/backup/naivegui.lps

@@ -50,8 +50,8 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="Unit1"/>
-        <TopLine Value="324"/>
-        <CursorPos X="3" Y="328"/>
+        <IsVisibleTab Value="True"/>
+        <CursorPos X="13"/>
         <UsageCount Value="37"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
@@ -84,24 +84,13 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="Unit2"/>
-        <IsVisibleTab Value="True"/>
         <EditorIndex Value="1"/>
-        <TopLine Value="7"/>
-        <CursorPos X="7" Y="7"/>
+        <CursorPos X="13"/>
         <UsageCount Value="22"/>
         <Loaded Value="True"/>
-        <LoadedDesigner Value="True"/>
       </Unit>
     </Units>
     <JumpHistory HistoryIndex="29">
-      <Position>
-        <Filename Value="unit1.pas"/>
-        <Caret Column="14"/>
-      </Position>
-      <Position>
-        <Filename Value="unit1.pas"/>
-        <Caret Line="305" Column="40" TopLine="296"/>
-      </Position>
       <Position>
         <Filename Value="unit1.pas"/>
         <Caret Line="344" Column="38" TopLine="328"/>
@@ -212,6 +201,14 @@
       <Position>
         <Filename Value="unit2.pas"/>
       </Position>
+      <Position>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="328" Column="3" TopLine="324"/>
+      </Position>
+      <Position>
+        <Filename Value="unit1.pas"/>
+        <Caret Column="13"/>
+      </Position>
     </JumpHistory>
     <RunParams>
       <FormatVersion Value="2"/>

naivegui/backup/unit1.lfm

@@ -437,12 +437,12 @@ procedure TMainForm.QRBtnClick(Sender: TObject);
   if (DomainEdit.Text = '') or (UserEdit.Text = '') or (PasswordEdit.Text = '') or
     (SPortEdit.Text = '') or (HPortEdit.Text = '') or (BypassBox.Text = '') then Exit;
 
- // if not FileExists(GetUserDir + '.config/naivegui/client.json') then Exit;
+  // if not FileExists(GetUserDir + '.config/naivegui/client.json') then Exit;
 
   //Определить протокол
   if QUICBox.Checked then protocol := 'naive+quic://'
   else
-    protocol := 'https://';
+    protocol := 'naive+https://';
 
   QRForm.BarcodeQR1.Text := protocol + UserEdit.Text + ':' +
     PasswordEdit.Text + '@' + DomainEdit.Text + '#NaiveGUI';

naivegui/backup/unit1.pas

@@ -31,8 +31,8 @@ implementation
 
 procedure TQRForm.FormShow(Sender: TObject);
 begin
-  QRForm.Width:=QRForm.Height;
+  //Квадрат
+  QRForm.Width := QRForm.Height;
 end;
 
 end.
-