Initial commit

2026-06-12 22:37:02 +08:00
commit 94e46587da
77 changed files with 168188 additions and 0 deletions
@@ -0,0 +1,104 @@
+object LoginForm: TLoginForm
+  Left = 0
+  Top = 0
+  BorderIcons = [biSystemMenu]
+  BorderStyle = bsDialog
+  Caption = #32593#31449#30331#24405
+  ClientHeight = 470
+  ClientWidth = 600
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = 'Segoe UI'
+  Font.Style = []
+  Position = poMainFormCenter
+  OnClose = FormClose
+  OnCreate = FormCreate
+  TextHeight = 15
+  object m_lblSpec: TLabel
+    Left = 488
+    Top = 439
+    Width = 97
+    Height = 19
+    Cursor = crHandPoint
+    Hint = #28857#20987#26597#30475#30331#24405#25805#20316#35828#26126
+    ParentCustomHint = False
+    Alignment = taRightJustify
+    AutoSize = False
+    Caption = #26597#30475#25805#20316#35828#26126
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clBlue
+    Font.Height = -12
+    Font.Name = 'Segoe UI'
+    Font.Style = [fsUnderline]
+    ParentFont = False
+    ParentShowHint = False
+    ShowAccelChar = False
+    ShowHint = True
+    Layout = tlCenter
+    OnClick = OnSpecClick
+    OnMouseEnter = SpecMouseEnter
+    OnMouseLeave = SpecMouseLeave
+  end
+  object m_panSpec: TPanel
+    Left = 0
+    Top = 0
+    Width = 600
+    Height = 298
+    AutoSize = True
+    BevelKind = bkFlat
+    BevelOuter = bvNone
+    ShowCaption = False
+    TabOrder = 0
+    object m_imgBack: TImage
+      Left = 0
+      Top = 0
+      Width = 596
+      Height = 294
+      ParentCustomHint = False
+      Align = alClient
+      Center = True
+      ParentShowHint = False
+      ShowHint = False
+      Stretch = True
+    end
+  end
+  object m_memTxt: TMemo
+    Left = 0
+    Top = 302
+    Width = 600
+    Height = 121
+    BevelInner = bvNone
+    BevelKind = bkFlat
+    BevelOuter = bvNone
+    Color = clBlack
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clLime
+    Font.Height = -12
+    Font.Name = 'Segoe UI'
+    Font.Style = []
+    ParentFont = False
+    ScrollBars = ssBoth
+    TabOrder = 1
+    WordWrap = False
+  end
+  object m_btnLogin: TButton
+    Left = 269
+    Top = 435
+    Width = 75
+    Height = 25
+    Caption = #30331#24405
+    TabOrder = 2
+    OnClick = OnLoginClick
+  end
+  object m_cbAuto: TCheckBox
+    Left = 16
+    Top = 439
+    Width = 97
+    Height = 17
+    Caption = #19979#27425#33258#21160#30331#24405
+    TabOrder = 3
+    OnClick = AutoClick
+  end
+end