-
Notifications
You must be signed in to change notification settings - Fork 4
/
uframe_question.lfm
189 lines (189 loc) · 4.24 KB
/
uframe_question.lfm
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
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
object Frame1: TFrame1
Left = 0
Height = 420
Top = 0
Width = 334
ClientHeight = 420
ClientWidth = 334
TabOrder = 0
DesignLeft = 385
DesignTop = 7
object pnlMain: TPanel
Left = 0
Height = 420
Top = 0
Width = 334
Align = alClient
ClientHeight = 420
ClientWidth = 334
TabOrder = 0
object pnlTop: TPanel
Left = 1
Height = 41
Top = 1
Width = 332
Align = alTop
ClientHeight = 41
ClientWidth = 332
TabOrder = 0
object btnAsk: TButton
Left = 16
Height = 27
Top = 6
Width = 75
Caption = 'Ask'
OnClick = btnAskClick
TabOrder = 0
end
object btnClipBoard: TButton
Left = 99
Height = 27
Top = 6
Width = 108
Caption = 'Copy to Clipboard'
OnClick = btnClipBoardClick
TabOrder = 1
end
object btnClear: TSpeedButton
Left = 216
Height = 27
Top = 6
Width = 67
Caption = 'Clear'
Glyph.Data = {
82000000424D8200000000000000420000002800000007000000040000000100
100003000000400000006400000064000000000000000000000000F80000E007
00001F000000FFFFFFFF000000000000FFFFFFFF0000FFFF0000000000000000
0000FFFF00000000000000000000000000000000000000000000000000000000
000000000000
}
Layout = blGlyphRight
Transparent = False
OnClick = btnClearClick
PopupMenu = PopupClear
end
end
object pnlCenter: TPanel
Left = 1
Height = 352
Top = 42
Width = 332
Align = alClient
ClientHeight = 352
ClientWidth = 332
TabOrder = 1
object pnlQuestion: TPanel
Left = 1
Height = 127
Top = 1
Width = 330
Align = alTop
ClientHeight = 127
ClientWidth = 330
TabOrder = 0
object Label1: TLabel
Left = 5
Height = 15
Top = 4
Width = 48
Caption = 'Question'
ParentColor = False
end
object mmoQuestion: TMemo
Left = 8
Height = 96
Top = 23
Width = 310
Anchors = [akLeft, akRight, akBottom]
OnKeyDown = mmoQuestionKeyDown
ScrollBars = ssAutoHorizontal
TabOrder = 0
end
end
object pnlAnswer: TPanel
Left = 1
Height = 218
Top = 133
Width = 330
Align = alClient
ClientHeight = 218
ClientWidth = 330
TabOrder = 1
object Label2: TLabel
Left = 5
Height = 15
Top = 8
Width = 39
Caption = 'Answer'
ParentColor = False
end
object mmoAnswer: TMemo
Left = 8
Height = 184
Top = 26
Width = 310
Anchors = [akTop, akLeft, akRight, akBottom]
ScrollBars = ssAutoVertical
TabOrder = 0
WantTabs = True
end
end
object Splitter1: TSplitter
Cursor = crVSplit
Left = 1
Height = 5
Top = 128
Width = 330
Align = alTop
ResizeAnchor = akTop
end
end
object pnlBottom: TPanel
Left = 1
Height = 25
Top = 394
Width = 332
Align = alBottom
ClientHeight = 25
ClientWidth = 332
TabOrder = 2
object ProgressBar: TProgressBar
Left = 6
Height = 13
Top = 5
Width = 70
Anchors = [akTop, akLeft, akBottom]
Smooth = True
Step = 5
Style = pbstMarquee
TabOrder = 0
Visible = False
end
object chkAutoCopy: TCheckBox
Left = 186
Height = 19
Top = 3
Width = 142
Anchors = [akTop, akRight]
Caption = 'Auto copy to clipboard'
TabOrder = 1
end
end
end
object PopupClear: TPopupMenu
Left = 256
Top = 216
object MenuItem3: TMenuItem
Caption = 'Clear all'
OnClick = MenuItem3Click
end
object MenuItem1: TMenuItem
Caption = 'Clear Question'
OnClick = MenuItem1Click
end
object MenuItem2: TMenuItem
Caption = 'Clear Answer'
OnClick = MenuItem2Click
end
end
end