1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
|
object FileFilterPropEditForm: TFileFilterPropEditForm
Left = 335
Height = 318
Top = 158
Width = 473
BorderStyle = bsToolWindow
Caption = 'Filter editor'
ClientHeight = 318
ClientWidth = 473
OnClose = FormClose
OnCreate = FormCreate
Position = poScreenCenter
LCLVersion = '1.9.0.0'
object ButtonPanel1: TButtonPanel
Left = 6
Height = 35
Top = 277
Width = 461
OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True
HelpButton.Name = 'HelpButton'
HelpButton.DefaultCaption = True
CloseButton.Name = 'CloseButton'
CloseButton.DefaultCaption = True
CancelButton.Name = 'CancelButton'
CancelButton.DefaultCaption = True
TabOrder = 0
ShowButtons = [pbOK, pbCancel, pbHelp]
end
object StringGrid1: TStringGrid
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
AnchorSideRight.Control = MoveUpBtn
AnchorSideBottom.Control = ButtonPanel1
Left = 3
Height = 268
Top = 3
Width = 429
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Right = 6
BorderSpacing.Around = 3
ColCount = 2
DefaultColWidth = 200
FixedCols = 0
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goAlwaysShowEditor, goSmoothScroll]
RowCount = 100
TabOrder = 1
OnClick = StringGrid1Click
OnButtonClick = StringGrid1ButtonClick
OnEditingDone = StringGrid1EditingDone
end
object MoveUpBtn: TSpeedButton
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom
Left = 441
Height = 26
Top = 88
Width = 22
Anchors = [akTop, akRight]
BorderSpacing.Around = 6
Enabled = False
OnClick = MoveUpBtnClick
ShowHint = True
ParentShowHint = False
end
object MoveDownBtn: TSpeedButton
AnchorSideLeft.Control = MoveUpBtn
AnchorSideTop.Control = MoveUpBtn
AnchorSideTop.Side = asrBottom
Left = 441
Height = 26
Top = 121
Width = 22
BorderSpacing.Top = 7
Enabled = False
OnClick = MoveDownBtnClick
ShowHint = True
ParentShowHint = False
end
end
|
