v0.2 + QR code

Author: AKotov-dev

naivegui/backup/naivegui.lps

@@ -50,9 +50,8 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="Unit1"/>
-        <IsVisibleTab Value="True"/>
-        <TopLine Value="422"/>
-        <CursorPos X="20" Y="450"/>
+        <TopLine Value="324"/>
+        <CursorPos X="3" Y="328"/>
         <UsageCount Value="37"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
@@ -85,17 +84,16 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="Unit2"/>
+        <IsVisibleTab Value="True"/>
         <EditorIndex Value="1"/>
+        <TopLine Value="7"/>
+        <CursorPos X="7" Y="7"/>
         <UsageCount Value="22"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
       </Unit>
     </Units>
-    <JumpHistory HistoryIndex="28">
-      <Position>
-        <Filename Value="unit1.pas"/>
-        <Caret Line="329" Column="79" TopLine="315"/>
-      </Position>
+    <JumpHistory HistoryIndex="29">
       <Position>
         <Filename Value="unit1.pas"/>
         <Caret Column="14"/>
@@ -207,6 +205,13 @@
         <Filename Value="unit1.pas"/>
         <Caret Line="446" TopLine="441"/>
       </Position>
+      <Position>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="445" Column="24" TopLine="422"/>
+      </Position>
+      <Position>
+        <Filename Value="unit2.pas"/>
+      </Position>
     </JumpHistory>
     <RunParams>
       <FormatVersion Value="2"/>

naivegui/backup/unit1.lfm

@@ -707,6 +707,7 @@ object MainForm: TMainForm
     AnchorSideBottom.Side = asrBottom
     Left = 514
     Height = 60
+    Hint = 'Show QR code'
     Top = 8
     Width = 60
     Anchors = [akTop, akRight, akBottom]
@@ -843,6 +844,8 @@ object MainForm: TMainForm
       0000000000000000000000000000000000000000000000000000000000800000
       00FF000000FF000000FF000000FF000000FF000000FF000000FF
     }
+    ShowHint = True
+    ParentShowHint = False
     OnClick = QRBtnClick
   end
   object IniPropStorage1: TIniPropStorage

naivegui/backup/unit1.pas

@@ -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 := 'naive+https://';
+    protocol := 'https://';
 
   QRForm.BarcodeQR1.Text := protocol + UserEdit.Text + ':' +
     PasswordEdit.Text + '@' + DomainEdit.Text + '#NaiveGUI';

naivegui/backup/unit2.lfm

@@ -1,14 +1,15 @@
 object QRForm: TQRForm
-  Left = 425
+  Left = 491
   Height = 292
-  Top = 192
+  Top = 122
   Width = 302
-  Caption = 'QR-код'
+  Caption = 'QR code'
   ClientHeight = 292
   ClientWidth = 302
   FormStyle = fsStayOnTop
   Position = poMainFormCenter
   LCLVersion = '4.4.0.0'
+  OnShow = FormShow
   object BarcodeQR1: TBarcodeQR
     Left = 0
     Height = 292

naivegui/backup/unit2.pas

@@ -13,6 +13,7 @@ interface
 
   TQRForm = class(TForm)
     BarcodeQR1: TBarcodeQR;
+    procedure FormShow(Sender: TObject);
   private
 
   public
@@ -26,5 +27,12 @@ implementation
 
 {$R *.lfm}
 
+{ TQRForm }
+
+procedure TQRForm.FormShow(Sender: TObject);
+begin
+  QRForm.Width:=QRForm.Height;
+end;
+
 end.
 

naivegui/lib/x86_64-linux/naivegui.or

@@ -1,14 +1,15 @@
 object QRForm: TQRForm
-  Left = 425
+  Left = 491
   Height = 292
-  Top = 192
+  Top = 122
   Width = 302
   Caption = 'QR code'
   ClientHeight = 292
   ClientWidth = 302
   FormStyle = fsStayOnTop
   Position = poMainFormCenter
   LCLVersion = '4.4.0.0'
+  OnShow = FormShow
   object BarcodeQR1: TBarcodeQR
     Left = 0
     Height = 292