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
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
|
object StringsPropEditorFrm: TStringsPropEditorFrm
Left = 349
Height = 302
Top = 359
Width = 400
ActiveControl = Memo
Caption = 'StringsPropEditorFrm'
ClientHeight = 302
ClientWidth = 400
Constraints.MinHeight = 160
Constraints.MinWidth = 180
Position = poScreenCenter
OnClose = FormClose
OnCreate = FormCreate
object TextGroupBox: TGroupBox
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = BtnPanel
Left = 6
Height = 246
Top = 6
Width = 388
Align = alTop
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6
ClientHeight = 244
ClientWidth = 386
TabOrder = 0
object StatusLabel: TLabel
AnchorSideBottom.Control = TextGroupBox
AnchorSideBottom.Side = asrBottom
Left = 9
Height = 16
Top = 222
Width = 69
Anchors = [akLeft, akBottom]
BorderSpacing.Around = 6
Caption = 'StatusLabel'
end
object Memo: TMemo
AnchorSideLeft.Control = TextGroupBox
AnchorSideRight.Control = SortButton
AnchorSideBottom.Control = StatusLabel
Left = 6
Height = 210
Top = 6
Width = 293
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6
ScrollBars = ssAutoBoth
TabOrder = 0
WordWrap = False
OnChange = MemoChange
end
object SortButton: TButton
AnchorSideLeft.Control = Memo
AnchorSideLeft.Side = asrBottom
AnchorSideRight.Control = TextGroupBox
AnchorSideRight.Side = asrBottom
Left = 305
Height = 32
Top = 6
Width = 75
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Around = 6
Caption = 'Sort'
Constraints.MinWidth = 75
TabOrder = 1
OnClick = SortButtonClick
end
object ClearButton: TButton
AnchorSideLeft.Control = SortButton
AnchorSideTop.Control = SortButton
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = SortButton
AnchorSideRight.Side = asrBottom
Left = 305
Height = 32
Top = 44
Width = 75
Anchors = [akTop, akLeft, akRight]
AutoSize = True
Caption = 'Clear'
TabOrder = 2
OnClick = ClearButtonClick
end
object SaveButton: TButton
AnchorSideLeft.Control = SortButton
AnchorSideTop.Control = ClearButton
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = SortButton
AnchorSideRight.Side = asrBottom
Left = 305
Height = 32
Top = 82
Width = 75
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 6
Caption = 'Save'
TabOrder = 3
OnClick = SaveButtonClick
end
end
object BtnPanel: TButtonPanel
Left = 6
Height = 38
Top = 258
Width = 388
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 = 1
ShowButtons = [pbOK, pbCancel]
ShowBevel = False
end
object SaveDialog1: TSaveDialog
DefaultExt = '.txt'
Options = [ofOverwritePrompt, ofEnableSizing, ofViewDetail]
Left = 183
Top = 148
end
end
|
