Initial commit

2026-06-12 22:37:02 +08:00
commit 94e46587da
77 changed files with 168188 additions and 0 deletions
@@ -0,0 +1,60 @@
+object ActCodeForm: TActCodeForm
+  Left = 0
+  Top = 0
+  BorderIcons = [biSystemMenu]
+  BorderStyle = bsDialog
+  Caption = #25480#26435
+  ClientHeight = 126
+  ClientWidth = 299
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = 'Segoe UI'
+  Font.Style = []
+  Position = poMainFormCenter
+  OnCreate = FormCreate
+  TextHeight = 15
+  object m_lbTips: TLabel
+    Left = 11
+    Top = 63
+    Width = 283
+    Height = 15
+    Alignment = taCenter
+    AutoSize = False
+    Caption = #35831#36755#20837#25480#26435#30721#24182#39564#35777
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clRed
+    Font.Height = -12
+    Font.Name = 'Segoe UI'
+    Font.Style = []
+    ParentFont = False
+  end
+  object m_leActCode: TLabeledEdit
+    Left = 96
+    Top = 27
+    Width = 153
+    Height = 23
+    AutoSize = False
+    EditLabel.Width = 45
+    EditLabel.Height = 23
+    EditLabel.Hint = #35831#36755#20837#25480#26435#30721
+    EditLabel.Caption = #25480#26435#30721'  '
+    EditLabel.ParentShowHint = False
+    EditLabel.ShowAccelChar = False
+    EditLabel.ShowHint = False
+    LabelPosition = lpLeft
+    TabOrder = 0
+    Text = ''
+    OnKeyPress = OnCodeKeyPress
+  end
+  object m_btnOk: TButton
+    Left = 113
+    Top = 91
+    Width = 75
+    Height = 25
+    Caption = #39564#35777
+    TabOrder = 1
+    OnClick = OnOkClick
+  end
+end