Initial commit

2026-06-12 22:37:02 +08:00
commit 94e46587da
77 changed files with 168188 additions and 0 deletions
@@ -0,0 +1,129 @@
+object BetLogForm: TBetLogForm
+  Left = 0
+  Top = 0
+  BorderIcons = [biSystemMenu]
+  Caption = #25346#26426#26085#24535
+  ClientHeight = 475
+  ClientWidth = 354
+  Color = clBtnFace
+  CustomTitleBar.Control = m_tbp
+  CustomTitleBar.Enabled = True
+  CustomTitleBar.Height = 31
+  CustomTitleBar.BackgroundColor = clWhite
+  CustomTitleBar.ForegroundColor = 65793
+  CustomTitleBar.InactiveBackgroundColor = clWhite
+  CustomTitleBar.InactiveForegroundColor = 10066329
+  CustomTitleBar.ButtonForegroundColor = 65793
+  CustomTitleBar.ButtonBackgroundColor = clWhite
+  CustomTitleBar.ButtonHoverForegroundColor = 65793
+  CustomTitleBar.ButtonHoverBackgroundColor = 16053492
+  CustomTitleBar.ButtonPressedForegroundColor = 65793
+  CustomTitleBar.ButtonPressedBackgroundColor = 15395562
+  CustomTitleBar.ButtonInactiveForegroundColor = 10066329
+  CustomTitleBar.ButtonInactiveBackgroundColor = clWhite
+  Constraints.MaxWidth = 370
+  Constraints.MinWidth = 370
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = 'Segoe UI'
+  Font.Style = []
+  GlassFrame.Enabled = True
+  GlassFrame.Top = 31
+  KeyPreview = True
+  Position = poDesigned
+  StyleElements = [seFont, seClient]
+  StyleName = 'Windows'
+  OnActivate = FormActivate
+  OnClose = FormClose
+  OnCreate = FormCreate
+  OnDeactivate = FormDeactivate
+  OnKeyDown = FormKeyDown
+  OnResize = FormResize
+  TextHeight = 15
+  object m_dg: TDrawGrid
+    Left = 0
+    Top = 30
+    Width = 354
+    Height = 445
+    Align = alClient
+    Color = clNone
+    ColCount = 2
+    DefaultRowHeight = 27
+    DefaultDrawing = False
+    DoubleBuffered = True
+    FixedCols = 0
+    RowCount = 16
+    FixedRows = 0
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -16
+    Font.Name = 'Segoe UI'
+    Font.Style = []
+    Options = [goThumbTracking]
+    ParentDoubleBuffered = False
+    ParentFont = False
+    PopupMenu = m_pm
+    ScrollBars = ssNone
+    TabOrder = 0
+    OnDrawCell = LogsDrawCell
+    OnMouseMove = LogsMouseMove
+    OnMouseWheelDown = LogsMouseWheelDown
+    OnMouseWheelUp = LogsMouseWheelUp
+    OnSelectCell = LogsSelectCell
+    OnTopLeftChanged = LogsTopChanged
+  end
+  object m_tbp: TTitleBarPanel
+    Left = 0
+    Top = 0
+    Width = 354
+    Height = 30
+    ParentCustomHint = False
+    CustomButtons = <>
+    object m_sbSearch: TSearchBox
+      Left = 181
+      Top = 5
+      Width = 132
+      Height = 23
+      ParentCustomHint = False
+      TabStop = False
+      AutoSelect = False
+      AutoSize = False
+      BevelInner = bvSpace
+      BevelKind = bkTile
+      BevelOuter = bvSpace
+      BiDiMode = bdLeftToRight
+      Color = clWhite
+      Ctl3D = False
+      DoubleBuffered = True
+      ParentBiDiMode = False
+      ParentCtl3D = False
+      ParentDoubleBuffered = False
+      ParentShowHint = False
+      ShowHint = False
+      TabOrder = 0
+      OnDblClick = SearchDblClick
+      OnEnter = SearchEnter
+      OnExit = SearchExit
+      OnInvokeSearch = SearchInvokeSearch
+    end
+  end
+  object m_pm: TPopupMenu
+    AutoHotkeys = maManual
+    Left = 120
+    Top = 64
+    object save: TMenuItem
+      AutoHotkeys = maManual
+      Caption = #20445#23384#20026'...'
+      OnClick = SaveClick
+    end
+    object N1: TMenuItem
+      Caption = '-'
+    end
+    object clear: TMenuItem
+      AutoHotkeys = maManual
+      Caption = #28165#31354#20869#23481
+      OnClick = ClearClick
+    end
+  end
+end