v0.1 + Initial Release

Author: AKotov-dev

naivegui/backup/naivegui.lpr

@@ -0,0 +1,29 @@
+program naivegui;
+
+{$mode objfpc}{$H+}
+
+uses
+  {$IFDEF UNIX}
+  cthreads,
+  {$ENDIF}
+  {$IFDEF HASAMIGA}
+  athreads,
+  {$ENDIF}
+  Interfaces, // this includes the LCL widgetset
+  Forms, Unit1, start_trd, service_state_trd, JsonArrayHelper
+  { you can add units after this };
+
+{$R *.res}
+
+begin
+  RequireDerivedFormResource:=True;
+  Application.Title:='NaiveGUI v0.1';
+  Application.Scaled:=True;
+  {$PUSH}{$WARN 5044 OFF}
+  Application.MainFormOnTaskbar:=True;
+  {$POP}
+  Application.Initialize;
+  Application.CreateForm(TMainForm, MainForm);
+  Application.Run;
+end.
+

naivegui/backup/naivegui.lps

@@ -40,9 +40,7 @@
         <Filename Value="naivegui.lpr"/>
         <IsPartOfProject Value="True"/>
         <EditorIndex Value="-1"/>
-        <WindowIndex Value="-1"/>
-        <TopLine Value="-1"/>
-        <CursorPos X="-1" Y="-1"/>
+        <CursorPos X="19"/>
         <UsageCount Value="35"/>
       </Unit>
       <Unit>
@@ -53,7 +51,8 @@
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="Unit1"/>
         <IsVisibleTab Value="True"/>
-        <CursorPos X="14"/>
+        <TopLine Value="51"/>
+        <CursorPos X="39" Y="57"/>
         <UsageCount Value="35"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
@@ -81,30 +80,6 @@
       </Unit>
     </Units>
     <JumpHistory HistoryIndex="29">
-      <Position>
-        <Filename Value="unit1.pas"/>
-        <Caret Line="284" Column="73" TopLine="270"/>
-      </Position>
-      <Position>
-        <Filename Value="unit1.pas"/>
-        <Caret Line="9" Column="30"/>
-      </Position>
-      <Position>
-        <Filename Value="unit1.pas"/>
-        <Caret Line="302" TopLine="295"/>
-      </Position>
-      <Position>
-        <Filename Value="unit1.pas"/>
-        <Caret Line="189" Column="44" TopLine="71"/>
-      </Position>
-      <Position>
-        <Filename Value="unit1.pas"/>
-        <Caret Line="306" Column="29" TopLine="294"/>
-      </Position>
-      <Position>
-        <Filename Value="unit1.pas"/>
-        <Caret Line="305" Column="29" TopLine="293"/>
-      </Position>
       <Position>
         <Filename Value="unit1.pas"/>
         <Caret Line="304" Column="29" TopLine="292"/>
@@ -201,6 +176,30 @@
         <Filename Value="unit1.pas"/>
         <Caret Line="421" TopLine="416"/>
       </Position>
+      <Position>
+        <Filename Value="unit1.pas"/>
+        <Caret Column="13"/>
+      </Position>
+      <Position>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="396" Column="79" TopLine="388"/>
+      </Position>
+      <Position>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="435" Column="44" TopLine="423"/>
+      </Position>
+      <Position>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="71" Column="25" TopLine="57"/>
+      </Position>
+      <Position>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="72" Column="3" TopLine="51"/>
+      </Position>
+      <Position>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="400" Column="87" TopLine="392"/>
+      </Position>
     </JumpHistory>
     <RunParams>
       <FormatVersion Value="2"/>

naivegui/backup/unit1.lfm

@@ -427,7 +427,7 @@ object MainForm: TMainForm
     AnchorSideTop.Side = asrCenter
     Left = 184
     Height = 32
-    Hint = 'QUIC may be blocked in Russia'
+    Hint = 'The protocol may be blocked in Russia'
     Top = 171
     Width = 66
     Caption = 'QUIC'

naivegui/backup/unit1.pas

@@ -67,6 +67,10 @@   TMainForm = class(TForm)
 var
   MainForm: TMainForm;
 
+resourcestring
+  SNoConfiguration = 'To run, you need to create a configuration!';
+  SConfigutarionFound = 'The configuration has already been created! Overwrite?';
+
 implementation
 
 uses start_trd, service_state_trd, JsonArrayHelper;
@@ -392,6 +396,10 @@ procedure TMainForm.CreateBtnClick(Sender: TObject);
   if (DomainEdit.Text = '') or (UserEdit.Text = '') or (PasswordEdit.Text = '') or
     (SPortEdit.Text = '') or (HPortEdit.Text = '') or (BypassBox.Text = '') then Exit;
 
+  if FileExists(GetUserDir + '.config/naivegui/Caddyfile') then
+    if MessageDlg(SConfigutarionFound, mtConfirmation, [mbYes, mbNo], 0) <> mrYes then
+      Exit;
+
   //Клиент
   CreateClientConfig;
   //Сервер
@@ -427,7 +435,11 @@ procedure TMainForm.StartBtnClick(Sender: TObject);
     (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
+  begin
+    MessageDlg(SNoConfiguration, mtWarning, [mbOK], 0);
+    Exit;
+  end;
 
   //Пересоздаём конфиг клиента
   CreateClientConfig;

naivegui/languages/naivegui.pot

@@ -105,3 +105,11 @@ msgstr ""
 msgid "Stop"
 msgstr ""
 
+#: unit1.sconfigutarionfound
+msgid "The configuration has already been created! Overwrite?"
+msgstr ""
+
+#: unit1.snoconfiguration
+msgid "To run, you need to create a configuration!"
+msgstr ""
+

naivegui/languages/naivegui.ru.mo

@@ -116,3 +116,11 @@ msgstr "Лицензия: GPLv3   Автор: alex_q_2000 (C) 2026   https://git
 #: tmainform.stopbtn.caption
 msgid "Stop"
 msgstr "Стоп"
+
+#: unit1.sconfigutarionfound
+msgid "The configuration has already been created! Overwrite?"
+msgstr "Конфигурация уже создавалась! Перезаписать?"
+
+#: unit1.snoconfiguration
+msgid "To run, you need to create a configuration!"
+msgstr "Для запуска нужно создать конфигурацию!"