📄 osgrideditor.dfm
字号:
Width = 23
Height = 22
Hint = 'Edit Custom Grid Properties'
Flat = True
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000010000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333333FFFFFFFFF333333000000000033333377777777773333330FFFFF
FFF03333337F333333373333330FFFFFFFF03333337F3FF3FFF73333330F00F0
00F03333F37F773777373330330FFFFFFFF03337FF7F3F3FF3F73339030F0800
F0F033377F7F737737373339900FFFFFFFF03FF7777F3FF3FFF70999990F00F0
00007777777F7737777709999990FFF0FF0377777777FF37F3730999999908F0
F033777777777337F73309999990FFF0033377777777FFF77333099999000000
3333777777777777333333399033333333333337773333333333333903333333
3333333773333333333333303333333333333337333333333333}
NumGlyphs = 2
OnClick = btCustomGridEditClick
end
object cbPropertyView: TComboBox
Left = 36
Top = 2
Width = 153
Height = 21
Style = csDropDownList
DropDownCount = 15
ItemHeight = 13
TabOrder = 0
OnChange = cbPropertyViewChange
Items.Strings = (
'All'
'Font'
'Color'
'VCL'
'Controls'
'Basic'
'Heading'
'Dragging'
'Booleans'
'Data'
'Custom'
'Modified')
end
end
end
object gbProperty: TGroupBox
Left = 249
Top = 0
Width = 284
Height = 310
Align = alClient
Caption = 'Property '
TabOrder = 1
object Label5: TLabel
Left = 9
Top = 40
Width = 56
Height = 13
Caption = 'Description:'
end
object Label6: TLabel
Left = 8
Top = 20
Width = 33
Height = 13
Caption = 'Value: '
end
object cbBoolean: TComboBox
Left = 50
Top = 16
Width = 167
Height = 21
Style = csDropDownList
ItemHeight = 13
TabOrder = 1
OnChange = cbBooleanChange
OnEnter = cbBooleanEnter
OnExit = cbBooleanExit
Items.Strings = (
'True'
'False')
end
object edPropertyValue: TEdit
Left = 50
Top = 16
Width = 165
Height = 21
TabOrder = 0
Text = 'edPropertyValue'
OnExit = edPropertyValueExit
OnKeyPress = edPropertyValueKeyPress
end
object cbEnum: TComboBox
Left = 50
Top = 16
Width = 167
Height = 21
Style = csDropDownList
ItemHeight = 0
TabOrder = 2
OnChange = cbEnumChange
OnEnter = cbEnumEnter
OnExit = cbEnumExit
end
object moPropertyDesc: TMemo
Left = 12
Top = 56
Width = 256
Height = 241
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
ReadOnly = True
ScrollBars = ssVertical
TabOrder = 3
WantTabs = True
end
object cbColors: TosColorComboBox
Left = 50
Top = 16
Width = 165
Height = 22
ColorValue = clBlack
ItemHeight = 16
ShowStyle = ssColorAndText
ShowSystemColors = True
TabOrder = 4
OnClick = cbColorsClick
end
end
end
object tsColumns: TTabSheet
Caption = '&Column Properties'
ImageIndex = 2
object gbColumn: TGroupBox
Left = 0
Top = 0
Width = 288
Height = 310
Align = alClient
Caption = 'Column '
TabOrder = 0
object veColEditor: TtsGrid
Left = 2
Top = 113
Width = 284
Height = 195
Align = alClient
AlwaysShowFocus = True
CheckBoxStyle = stCheck
Color = clBtnFace
Cols = 2
ColSelectMode = csNone
DefaultButtonWidth = 14
DefaultRowHeight = 16
EditColor = clWindow
EditFontColor = clBlack
ExportDelimiter = ','
HeadingFont.Charset = DEFAULT_CHARSET
HeadingFont.Color = clWindowText
HeadingFont.Height = -11
HeadingFont.Name = 'MS Sans Serif'
HeadingFont.Style = []
HeadingHeight = 17
ProvideGridMenu = True
RowBarOn = False
Rows = 3
StoreData = True
TabOrder = 0
ThumbTracking = True
Version = '2.20.24'
VertAlignment = vtaCenter
XMLExport.Version = '1.0'
XMLExport.DataPacketVersion = '2.0'
OnButtonClick = veColEditorButtonClick
OnComboCellLoaded = veColEditorComboCellLoaded
OnComboDropDown = veColEditorComboDropDown
OnComboGetValue = veColEditorComboGetValue
OnComboInit = veColEditorComboInit
OnDblClick = veColEditorDblClick
OnEndCellEdit = veColEditorEndCellEdit
OnRowChanged = veColEditorRowChanged
ColProperties = <
item
DataCol = 1
Col.Width = 116
end
item
DataCol = 2
Col.Width = 121
end>
Data = {0000000000000000}
end
object Panel3: TPanel
Left = 2
Top = 15
Width = 284
Height = 98
Align = alTop
BevelOuter = bvNone
TabOrder = 1
object Label7: TLabel
Left = 8
Top = 4
Width = 43
Height = 13
Caption = '&Heading:'
FocusControl = edColHeading
end
object Label8: TLabel
Left = 8
Top = 76
Width = 26
Height = 13
Caption = '&View:'
FocusControl = cbColPropertyView
end
object Label14: TLabel
Left = 8
Top = 28
Width = 66
Height = 13
Caption = 'Ctrl/&But Type:'
FocusControl = cbControlType
end
object Label15: TLabel
Left = 8
Top = 52
Width = 50
Height = 13
Caption = 'Edit &Mask:'
FocusControl = cbMask
end
object btCustomMasks: TSpeedButton
Left = 248
Top = 48
Width = 23
Height = 22
Hint = 'Edit Custom Masks'
Flat = True
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000010000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333333FFFFFFFFF333333000000000033333377777777773333330FFFFF
FFF03333337F333333373333330FFFFFFFF03333337F3FF3FFF73333330F00F0
00F03333F37F773777373330330FFFFFFFF03337FF7F3F3FF3F73339030F0800
F0F033377F7F737737373339900FFFFFFFF03FF7777F3FF3FFF70999990F00F0
00007777777F7737777709999990FFF0FF0377777777FF37F3730999999908F0
F033777777777337F73309999990FFF0033377777777FFF77333099999000000
3333777777777777333333399033333333333337773333333333333903333333
3333333773333333333333303333333333333337333333333333}
NumGlyphs = 2
OnClick = btCustomMasksClick
end
object btEditCustomColProperties: TSpeedButton
Left = 248
Top = 73
Width = 23
Height = 22
Hint = 'Edit Custom Column Properties'
Flat = True
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000010000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333333FFFFFFFFF333333000000000033333377777777773333330FFFFF
FFF03333337F333333373333330FFFFFFFF03333337F3FF3FFF73333330F00F0
00F03333F37F773777373330330FFFFFFFF03337FF7F3F3FF3F73339030F0800
F0F033377F7F737737373339900FFFFFFFF03FF7777F3FF3FFF70999990F00F0
00007777777F7737777709999990FFF0FF0377777777FF37F3730999999908F0
F033777777777337F73309999990FFF0033377777777FFF77333099999000000
3333777777777777333333399033333333333337773333333333333903333333
3333333773333333333333303333333333333337333333333333}
NumGlyphs = 2
OnClick = btEditCustomColPropertiesClick
end
object btEditMask: TSpeedButton
Left = 224
Top = 48
Width = 23
Height = 22
Hint = 'Edit selected mask entry'
Flat = True
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000010000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
00333377737FFFFF773333303300000003333337337777777333}
NumGlyphs = 2
OnClick = btEditMaskClick
end
object edColHeading: TEdit
Left = 76
Top = 0
Width = 193
Height = 21
Hint = 'Edit Heading and use Ctrl Left/Right to select different columns'
Enabled = False
TabOrder = 0
OnChange = edColHeadingChange
OnEnter = edColHeadingEnter
OnExit = edColHeadingExit
end
object cbColPropertyView: TComboBox
Left = 76
Top = 74
Width = 169
Height = 21
Style = csDropDownList
ItemHeight = 13
TabOrder = 4
OnClick = cbColPropertyViewClick
Items.Strings = (
'All'
'Heading'
'Basic'
'Controls'
'Custom'
'Modified')
end
object cbControlType: TComboBox
Left = 76
Top = 24
Width = 95
Height = 21
Style = csDropDownList
Enabled = False
ItemHeight = 13
TabOrder = 1
OnChange = cbControlTypeChange
Items.Strings = (
'None'
'Text'
'CheckBox'
'Picture'
'Default')
end
object cbButtonType: TComboBox
Left = 176
Top = 24
Width = 95
Height = 21
Style = csDropDownList
Enabled = False
ItemHeight = 13
TabOrder = 2
OnChange = cbButtonTypeChange
Items.Strings = (
'Combo'
'Normal'
'None'
'Default'
'VertSpin'
'HorzSpin'
'DateTimeDropDown'
'DateTimePopup')
end
object cbMask: TComboBox
Left = 76
Top = 48
Width = 145
Height = 21
Hint = 'Edit mask for the column (use INSERT key to define a new mask)'
Style = csDropDownList
DropDownCount = 15
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 0
ParentFont = False
Sorted = True
TabOrder = 3
OnClick = cbMaskClick
OnDropDown = cbMaskDropDown
OnExit = cbMaskExit
OnKeyDown = cbMaskKeyDown
end
end
end
object gbFields: TGroupBox
Left = 288
Top = 0
Width = 245
Height = 310
Align = alRight
Caption = 'Selectable Fields '
TabOrder = 1
object lbFields: TListBox
Left = 37
Top = 15
Width = 206
Height = 293
Align = alClient
ItemHeight = 13
Sorted = True
TabOrder = 0
OnClick = lbFieldsClick
OnDblClick = lbFieldsDblClick
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -