📄 filter1.dfm
字号:
object fmFilterFrm: TfmFilterFrm
Left = 503
Top = 122
ActiveControl = Memo1
BorderStyle = bsSingle
Caption = #26597#35810#26465#20214
ClientHeight = 298
ClientWidth = 305
Color = clBtnFace
ParentFont = True
OldCreateOrder = True
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 8
Top = 128
Width = 36
Height = 13
Caption = #23383#27573'(&F)'
FocusControl = ListBox1
end
object Label2: TLabel
Left = 8
Top = 44
Width = 37
Height = 13
Caption = #26465#20214'(&C)'
end
object Label3: TLabel
Left = 161
Top = 128
Width = 50
Height = 13
Caption = #25805#20316#31526'(&O)'
end
object Label4: TLabel
Left = 8
Top = 8
Width = 60
Height = 13
Caption = #31579#36873#21015#34920'(&L)'
FocusControl = ComboBox1
end
object ListBox1: TListBox
Left = 8
Top = 144
Width = 143
Height = 73
Hint = 'Doubleclick to add'
TabStop = False
ItemHeight = 13
ParentShowHint = False
ShowHint = True
Sorted = True
TabOrder = 2
OnDblClick = AddFieldName
end
object ListBox2: TListBox
Left = 161
Top = 144
Width = 53
Height = 141
Hint = 'Double-click to add'
TabStop = False
ItemHeight = 13
Items.Strings = (
'>'
'<'
'= '
'>='
'<='
'<>'
'AND'
'OR'
'('
')')
ParentShowHint = False
ShowHint = True
TabOrder = 3
OnDblClick = ListBox2DblClick
end
object Memo1: TMemo
Left = 8
Top = 60
Width = 289
Height = 65
TabOrder = 1
OnChange = Memo1Change
end
object GroupBox1: TGroupBox
Left = 12
Top = 224
Width = 139
Height = 61
Caption = #31579#36873#36873#39033'(&I)'
TabOrder = 4
object cbCaseSensitive: TCheckBox
Left = 8
Top = 16
Width = 97
Height = 17
Caption = #21306#20998#22823#23567#20889
TabOrder = 0
OnClick = cbCaseSensitiveClick
end
object cbNoPartialCompare: TCheckBox
Left = 8
Top = 36
Width = 125
Height = 17
Hint = 'Disable partial string comparisons (strings ending with '#39'*'#39')'
Caption = #23436#20840#21305#37197
TabOrder = 1
OnClick = cbNoPartialCompareClick
end
end
object ComboBox1: TComboBox
Left = 8
Top = 24
Width = 289
Height = 21
Cursor = crArrow
ItemHeight = 13
TabOrder = 0
OnChange = ComboBox1Change
Items.Strings = (
'Company = '#39'S*'#39
'Country <> '#39'US'#39
'Country = '#39'US'#39)
end
object BtnApplyFilter: TButton
Left = 224
Top = 143
Width = 75
Height = 25
Caption = #24212#29992'(&A)'
TabOrder = 5
OnClick = ApplyFilter
end
object BtnClear: TButton
Left = 224
Top = 173
Width = 75
Height = 25
Caption = #28165#38500'(&L)'
TabOrder = 6
OnClick = SBtnClearClick
end
object BtnClose: TButton
Left = 224
Top = 256
Width = 75
Height = 25
Caption = #20851#38381'(&O)'
TabOrder = 7
OnClick = SBtnCloseClick
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -