Версия 0.2.7

devapromix · Feb 19, 2023 · 282ecdd · 282ecdd
1 parent b05d8dd
commit 282ecdd
Show file tree

Hide file tree

Showing 2 changed files with 57 additions and 56 deletions.
diff --git a/client1/Lizardry.FormMain.dfm b/client1/Lizardry.FormMain.dfm
@@ -20,66 +20,41 @@ object FormMain: TFormMain
   OnShow = FormShow
   PixelsPerInch = 96
   TextHeight = 13
-  inline FrameLogin: TFrameLogin
+  inline FrameUpdate: TFrameUpdate
     Left = 0
     Top = 0
     Width = 1184
     Height = 693
     Align = alClient
-    Font.Charset = RUSSIAN_CHARSET
-    Font.Color = clWindowText
-    Font.Height = -19
-    Font.Name = 'Courier New'
-    Font.Style = []
-    ParentFont = False
-    TabOrder = 0
+    TabOrder = 3
     ExplicitWidth = 1184
     ExplicitHeight = 693
     inherited Panel1: TPanel
       Height = 693
       ExplicitHeight = 693
-      inherited CurrentClientVersion: TLabel
-        Top = 676
-        ExplicitTop = 676
+      inherited bbDownloads: TBitBtn
+        OnClick = FrameUpdatebbOpenSiteClick
       end
     end
     inherited Panel2: TPanel
       Width = 934
       Height = 693
       ExplicitWidth = 934
       ExplicitHeight = 693
+      inherited ttInfo: TLabel
+        Width = 934
+      end
+      inherited ttUpdate: TLabel
+        Width = 934
+      end
       inherited Panel3: TPanel
         Width = 934
         ExplicitWidth = 934
         inherited Image1: TImage
           Width = 934
-          ExplicitWidth = 734
-          ExplicitHeight = 487
-        end
-      end
-      inherited Panel4: TPanel
-        Width = 924
-        Height = 468
-        ExplicitWidth = 924
-        ExplicitHeight = 468
-        inherited Label3: TLabel
-          Width = 924
-        end
-        inherited Panel5: TPanel
-          Width = 924
-          ExplicitWidth = 924
-        end
-        inherited StaticText1: TStaticText
-          Width = 924
-          Height = 426
-          ExplicitWidth = 924
-          ExplicitHeight = 426
+          ExplicitWidth = 932
         end
       end
-      inherited Panel6: TPanel
-        Height = 468
-        ExplicitHeight = 468
-      end
     end
   end
   inline FrameRegistration: TFrameRegistration
@@ -145,6 +120,7 @@ object FormMain: TFormMain
       ExplicitHeight = 693
       inherited Memo1: TMemo
         Height = 351
+        ExplicitHeight = 351
       end
     end
     inherited LeftPanel: TPanel
@@ -316,49 +292,74 @@ object FormMain: TFormMain
       end
     end
   end
-  inline FrameUpdate: TFrameUpdate
+  object StatusBar: TStatusBar
+    Left = 0
+    Top = 693
+    Width = 1184
+    Height = 19
+    Panels = <>
+    SimplePanel = True
+  end
+  inline FrameLogin: TFrameLogin
     Left = 0
     Top = 0
     Width = 1184
     Height = 693
     Align = alClient
-    TabOrder = 3
+    Font.Charset = RUSSIAN_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -19
+    Font.Name = 'Courier New'
+    Font.Style = []
+    ParentFont = False
+    TabOrder = 0
     ExplicitWidth = 1184
     ExplicitHeight = 693
     inherited Panel1: TPanel
       Height = 693
       ExplicitHeight = 693
-      inherited bbDownloads: TBitBtn
-        OnClick = FrameUpdatebbOpenSiteClick
+      inherited CurrentClientVersion: TLabel
+        Top = 676
+        ExplicitTop = 676
       end
     end
     inherited Panel2: TPanel
       Width = 934
       Height = 693
       ExplicitWidth = 934
       ExplicitHeight = 693
-      inherited ttInfo: TLabel
-        Width = 934
-      end
-      inherited ttUpdate: TLabel
-        Width = 934
-      end
       inherited Panel3: TPanel
         Width = 934
         ExplicitWidth = 934
         inherited Image1: TImage
           Width = 934
-          ExplicitWidth = 932
+          ExplicitWidth = 734
+          ExplicitHeight = 487
         end
       end
+      inherited Panel4: TPanel
+        Width = 924
+        Height = 468
+        ExplicitWidth = 924
+        ExplicitHeight = 468
+        inherited Label3: TLabel
+          Width = 924
+        end
+        inherited Panel5: TPanel
+          Width = 924
+          ExplicitWidth = 924
+        end
+        inherited StaticText1: TStaticText
+          Width = 924
+          Height = 426
+          ExplicitWidth = 924
+          ExplicitHeight = 426
+        end
+      end
+      inherited Panel6: TPanel
+        Height = 468
+        ExplicitHeight = 468
+      end
     end
   end
-  object StatusBar: TStatusBar
-    Left = 0
-    Top = 693
-    Width = 1184
-    Height = 19
-    Panels = <>
-    SimplePanel = True
-  end
 end
diff --git a/client1/Lizardry.FrameUpdate.pas b/client1/Lizardry.FrameUpdate.pas
@@ -15,7 +15,7 @@ interface
   Vcl.ExtCtrls,
   Vcl.StdCtrls,
   Vcl.Buttons,
-  Vcl.Imaging.pngimage;
+  Vcl.Imaging.PNGImage;
 
 type
   TFrameUpdate = class(TFrame)