130 lines
3.3 KiB
ObjectPascal
130 lines
3.3 KiB
ObjectPascal
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
|