Initial commit

2026-06-12 22:37:02 +08:00
commit 94e46587da
77 changed files with 168188 additions and 0 deletions
@@ -0,0 +1,456 @@
+object PolicyEditForm: TPolicyEditForm
+  Left = 0
+  Top = 0
+  BorderStyle = bsDialog
+  Caption = #31574#30053#32534#36753
+  ClientHeight = 457
+  ClientWidth = 448
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = 'Segoe UI'
+  Font.Style = []
+  Position = poMainFormCenter
+  OnClose = FormClose
+  OnCreate = FormCreate
+  OnMouseMove = FormMouseMove
+  TextHeight = 15
+  object m_lblPolicy: TLabel
+    Left = 22
+    Top = 41
+    Width = 65
+    Height = 23
+    AutoSize = False
+    Caption = #32534#36753#25171#27861#65306
+    Layout = tlCenter
+  end
+  object m_cbPolicy: TComboBox
+    Left = 87
+    Top = 41
+    Width = 165
+    Height = 23
+    AutoDropDown = True
+    AutoCloseUp = True
+    DropDownCount = 20
+    DropDownWidth = 200
+    TabOrder = 0
+    Text = #35831#36873#25321#25171#27861
+    OnChange = OnPolicyChange
+  end
+  object m_btnAdd: TButton
+    Left = 271
+    Top = 41
+    Width = 75
+    Height = 23
+    Caption = #26032#24314
+    TabOrder = 1
+    OnClick = OnAddClick
+  end
+  object m_panEdit: TPanel
+    Left = 21
+    Top = 75
+    Width = 408
+    Height = 344
+    BevelKind = bkFlat
+    BevelOuter = bvNone
+    TabOrder = 2
+    OnMouseMove = FormMouseMove
+    object m_bvChip: TBevel
+      Left = 0
+      Top = 0
+      Width = 405
+      Height = 55
+      ParentCustomHint = False
+      ParentShowHint = False
+      Shape = bsFrame
+      ShowHint = False
+    end
+    object m_btnDelRow: TButton
+      Left = 4
+      Top = 313
+      Width = 80
+      Height = 25
+      Caption = #21024#38500#34892
+      Enabled = False
+      TabOrder = 1
+      OnClick = OnDelRowClick
+    end
+    object m_btnSave: TButton
+      Left = 201
+      Top = 313
+      Width = 88
+      Height = 25
+      Caption = #20445#23384#25171#27861
+      Enabled = False
+      TabOrder = 2
+      OnClick = OnSaveClick
+    end
+    object m_btnSelect: TButton
+      Left = 297
+      Top = 313
+      Width = 103
+      Height = 25
+      Caption = #36873#25321#35813#25171#27861
+      TabOrder = 3
+      OnClick = OnSelectClick
+    end
+    object m_sg: TStringGrid
+      Left = 0
+      Top = 55
+      Width = 404
+      Height = 256
+      ParentCustomHint = False
+      BevelInner = bvNone
+      BevelOuter = bvNone
+      ColCount = 4
+      DefaultColWidth = 99
+      DefaultDrawing = False
+      DoubleBuffered = True
+      DrawingStyle = gdsGradient
+      FixedCols = 0
+      RowCount = 10
+      Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goEditing, goRowSelect, goThumbTracking]
+      ParentDoubleBuffered = False
+      ParentShowHint = False
+      PopupMenu = m_pmSG
+      ScrollBars = ssVertical
+      ShowHint = False
+      TabOrder = 5
+      OnDrawCell = SGDrawCell
+      OnKeyDown = SGKeyDown
+      OnMouseDown = SGMouseDown
+      OnMouseMove = FormMouseMove
+      OnMouseWheelDown = SGMouseWheelDown
+      OnMouseWheelUp = SGMouseWheelUp
+      OnSelectCell = SGSelectCell
+      OnTopLeftChanged = SGTopLeftChanged
+      DefaultTextDrawing = False
+    end
+    object m_pEditor: TEdit
+      Left = 96
+      Top = 83
+      Width = 97
+      Height = 23
+      ParentCustomHint = False
+      AutoSize = False
+      BevelInner = bvNone
+      BevelOuter = bvNone
+      Ctl3D = True
+      ParentCtl3D = False
+      ParentShowHint = False
+      ShowHint = False
+      TabOrder = 4
+      Visible = False
+      OnExit = EditorExit
+      OnKeyDown = EditorKeyDown
+      OnKeyPress = EditorKeyPress
+    end
+    object m_rgRoad: TRadioGroup
+      Left = 10
+      Top = 1
+      Width = 380
+      Height = 48
+      Align = alCustom
+      Color = clBtnFace
+      Columns = 5
+      Ctl3D = True
+      ItemIndex = 0
+      Items.Strings = (
+        #29664'  '#30424
+        #22823'  '#36335
+        #22823#30524#36335
+        #23567'  '#36335
+        #23567#24378#36335)
+      ParentBackground = False
+      ParentColor = False
+      ParentCtl3D = False
+      ShowFrame = False
+      TabOrder = 7
+      OnClick = OnRoadClick
+    end
+    object m_panChip: TPanel
+      Left = 0
+      Top = 0
+      Width = 404
+      Height = 54
+      Align = alTop
+      BevelOuter = bvNone
+      Ctl3D = True
+      ParentCtl3D = False
+      TabOrder = 6
+      OnClick = OnDeadClick
+      OnMouseMove = FormMouseMove
+      object m_lblDead: TLabel
+        Left = 17
+        Top = 32
+        Width = 39
+        Height = 15
+        Caption = #29190#32518#65306
+      end
+      object Bevel1: TBevel
+        Left = 16
+        Top = 26
+        Width = 375
+        Height = 2
+      end
+      object m_rgDead: TGroupBox
+        Left = 64
+        Top = 30
+        Width = 330
+        Height = 19
+        ShowFrame = False
+        TabOrder = 0
+        object m_lblDead2Tail: TLabel
+          Left = 240
+          Top = 3
+          Width = 65
+          Height = 15
+          Caption = #20998#38047#21518#37325#21551
+        end
+        object m_rbDead0: TRadioButton
+          Left = 8
+          Top = 2
+          Width = 50
+          Height = 17
+          Hint = #20572#27490#19979#27880
+          Caption = #20572#27490
+          Checked = True
+          TabOrder = 0
+          TabStop = True
+          OnClick = OnDeadClick
+        end
+        object m_rbDead1: TRadioButton
+          Tag = 1
+          Left = 71
+          Top = 2
+          Width = 81
+          Height = 17
+          Hint = #26412#23616#26242#20572#65292#26032#23616#37325#26032#24320#22987
+          Caption = #26032#23616#37325#21551
+          ParentShowHint = False
+          ShowHint = True
+          TabOrder = 1
+          OnClick = OnDeadClick
+        end
+        object m_rbDead2: TRadioButton
+          Tag = 2
+          Left = 163
+          Top = 2
+          Width = 50
+          Height = 17
+          Hint = #26242#20572#21518#37325#21551
+          Caption = #26242#20572
+          TabOrder = 2
+          OnClick = OnDeadClick
+        end
+        object m_edDeadPause: TEdit
+          Left = 213
+          Top = 0
+          Width = 23
+          Height = 19
+          Hint = '0-15'#20998#38047
+          Alignment = taCenter
+          AutoSize = False
+          MaxLength = 2
+          NumbersOnly = True
+          ParentShowHint = False
+          ShowHint = True
+          TabOrder = 3
+          Text = '0'
+          TextHint = '0-30'
+          OnExit = DeadPauseExit
+          OnKeyDown = DeadPauseKeyDown
+        end
+      end
+      object m_cbKind: TComboBox
+        Left = 17
+        Top = 2
+        Width = 80
+        Height = 23
+        AutoComplete = False
+        Style = csDropDownList
+        ItemIndex = 0
+        ParentShowHint = False
+        ShowHint = True
+        TabOrder = 3
+        Text = #24120#35268#27880#30721
+        OnChange = OnKindChange
+        Items.Strings = (
+          #24120#35268#27880#30721
+          #23618#32423#27880#30721
+          #38454#26799#27880#30721
+          #32452#21512#38454#26799
+          #36194#36755#27425#24046)
+      end
+      object m_cbLevelTotalDiff: TCheckBox
+        Left = 116
+        Top = 5
+        Width = 78
+        Height = 17
+        Hint = #21246#36873#26102#25353#24635#20307#35745#31639#36755#36194#65292#21542#21017#21488#26700#21508#33258#35745#31639#36755#36194
+        Caption = #24635#20307#35745#31639
+        ParentShowHint = False
+        ShowHint = True
+        TabOrder = 4
+        Visible = False
+        OnClick = OnChipOptionClick
+      end
+      object m_cbLevelInstant: TCheckBox
+        Left = 210
+        Top = 5
+        Width = 78
+        Height = 17
+        Caption = #21363#26102#21319#38477
+        ParentShowHint = False
+        ShowHint = True
+        TabOrder = 5
+        Visible = False
+        OnClick = OnChipOptionClick
+      end
+      object m_cbLevelIndie: TCheckBox
+        Left = 304
+        Top = 5
+        Width = 78
+        Height = 17
+        Caption = #21319#38477#28165#38646
+        ParentShowHint = False
+        ShowHint = True
+        TabOrder = 6
+        Visible = False
+        OnClick = OnChipOptionClick
+      end
+      object m_cbTierAccChip: TCheckBox
+        Left = 228
+        Top = 5
+        Width = 92
+        Height = 17
+        Hint = #27599#23618#20928#36755#20540'('#19981#35745#36180#29575')'#32047#21152#33267#20197#21518#21508#23618#27880#30721
+        Caption = #20928#36755#20540#32047#21152
+        Checked = True
+        ParentShowHint = False
+        ShowHint = True
+        State = cbChecked
+        TabOrder = 2
+        Visible = False
+        OnClick = OnChipOptionClick
+      end
+      object m_cbTierWinRet: TCheckBox
+        Left = 116
+        Top = 5
+        Width = 105
+        Height = 17
+        Hint = #20108#23618#20197#19978#21482#35201#36194#27425#25968#22823#20110#36755#27425#25968#23601#22238#31532#19968#23618
+        Caption = #39640#23618#36194#22810#22238#22522
+        Checked = True
+        ParentShowHint = False
+        ShowHint = True
+        State = cbChecked
+        TabOrder = 1
+        Visible = False
+        OnClick = OnChipOptionClick
+      end
+      object m_cbTierLos0: TCheckBox
+        Left = 325
+        Top = 5
+        Width = 70
+        Height = 17
+        Hint = #27599#23618#36755#30340#27425#25968#22810#20110#36194#26102#27880#30721#20026'0'
+        Caption = #36755#22810#25171'0'
+        ParentShowHint = False
+        ShowHint = True
+        TabOrder = 7
+        Visible = False
+        OnClick = OnChipOptionClick
+      end
+    end
+    object m_btnInsRow: TButton
+      Left = 92
+      Top = 313
+      Width = 80
+      Height = 25
+      Caption = #25554#20837#34892
+      Enabled = False
+      TabOrder = 8
+      OnClick = OnInsRowClick
+    end
+    object m_pCombo: TComboBox
+      Left = 72
+      Top = 146
+      Width = 141
+      Height = 23
+      AutoDropDown = True
+      AutoCloseUp = True
+      Style = csDropDownList
+      DropDownCount = 20
+      DropDownWidth = 200
+      TabOrder = 0
+      TabStop = False
+      Visible = False
+      OnKeyDown = ComboKeyDown
+    end
+  end
+  object m_btnDel: TButton
+    Left = 352
+    Top = 40
+    Width = 75
+    Height = 23
+    Caption = #21024#38500
+    Enabled = False
+    TabOrder = 3
+    OnClick = OnDelClick
+  end
+  object m_btnTip: TButton
+    Left = 21
+    Top = 424
+    Width = 408
+    Height = 25
+    Caption = #28857#20987#26597#30475#35268#21017#35828#26126
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clBtnText
+    Font.Height = -12
+    Font.Name = 'Segoe UI'
+    Font.Style = []
+    ParentFont = False
+    TabOrder = 4
+    OnClick = OnTipClick
+  end
+  object m_tsTop: TTabSet
+    Left = 0
+    Top = 0
+    Width = 448
+    Height = 25
+    ParentCustomHint = False
+    Align = alTop
+    AutoScroll = False
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -12
+    Font.Name = 'Segoe UI'
+    Font.Style = []
+    ParentShowHint = False
+    ShowHint = False
+    SoftTop = True
+    Style = tsOwnerDraw
+    Tabs.Strings = (
+      #25171#27861
+      #27880#30721)
+    TabPosition = tpTop
+    OnChange = TopChange
+    OnDrawTab = TopDrawTab
+    OnMeasureTab = TopMeasureTab
+  end
+  object m_pmSG: TPopupMenu
+    AutoHotkeys = maManual
+    Left = 301
+    Top = 307
+    object miExport: TMenuItem
+      Caption = #23548#20986#34920#26684'...'
+      OnClick = OnExport
+    end
+    object miImport: TMenuItem
+      Caption = #23548#20837#34920#26684'...'
+      OnClick = OnImport
+    end
+  end
+end