-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathUnit2.dfm
More file actions
237 lines (237 loc) · 5.17 KB
/
Copy pathUnit2.dfm
File metadata and controls
237 lines (237 loc) · 5.17 KB
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
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
object MainForm: TMainForm
Left = 0
Top = 0
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = '451003 '#1050#1083#1080#1084#1080#1085#1090#1080#1086#1085#1072#1082' '#1042#1103#1095#1077#1089#1083#1072#1074' - 11 '#1042#1072#1088#1080#1072#1085#1090
ClientHeight = 441
ClientWidth = 353
Color = clBtnHighlight
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Segoe UI'
Font.Style = []
Menu = MainMenu
Position = poDesktopCenter
TextHeight = 15
object lbTask: TLabel
Left = 8
Top = 2
Width = 169
Height = 17
Caption = '- '#1050#1088#1080#1087#1090#1086#1089#1080#1089#1090#1077#1084#1072' '#1056#1072#1073#1080#1085#1072
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Segoe UI'
Font.Style = [fsBold, fsItalic, fsUnderline]
ParentFont = False
WordWrap = True
end
object lbSrcText: TLabel
Left = 8
Top = 191
Width = 91
Height = 15
Caption = #1048#1089#1093#1086#1076#1085#1099#1081' '#1092#1072#1081#1083':'
end
object lbDestText: TLabel
Left = 8
Top = 299
Width = 132
Height = 15
Caption = #1056#1077#1079#1091#1083#1100#1090#1080#1088#1091#1102#1097#1080#1081' '#1092#1072#1081#1083':'
end
object lbP: TLabel
Left = 8
Top = 25
Width = 10
Height = 15
Caption = 'p:'
end
object lbOpen: TLabel
Left = 8
Top = 83
Width = 93
Height = 15
Caption = #1054#1090#1082#1088#1099#1090#1099#1081' '#1082#1083#1102#1095':'
end
object lbQ: TLabel
Left = 8
Top = 54
Width = 10
Height = 15
Caption = 'q:'
end
object lbB: TLabel
Left = 88
Top = 54
Width = 10
Height = 15
Caption = 'd:'
end
object lbClose: TLabel
Left = 183
Top = 83
Width = 92
Height = 15
Caption = #1047#1072#1082#1088#1099#1090#1099#1081' '#1082#1083#1102#1095':'
end
object btFile: TButton
Left = 183
Top = 25
Width = 153
Height = 44
Caption = #1055#1088#1086#1095#1080#1090#1072#1090#1100' '#1089' '#1092#1072#1081#1083#1072
TabOrder = 0
OnClick = btFileClick
end
object reSrcText: TRichEdit
Left = 8
Top = 212
Width = 337
Height = 81
Font.Charset = 254
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Segoe UI'
Font.Style = []
ParentFont = False
ReadOnly = True
ScrollBars = ssVertical
TabOrder = 1
OnChange = reSrcTextChange
end
object reDestText: TRichEdit
Left = 8
Top = 320
Width = 327
Height = 81
Font.Charset = 254
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Segoe UI'
Font.Style = []
ParentFont = False
ReadOnly = True
ScrollBars = ssVertical
TabOrder = 2
end
object edP: TEdit
Left = 24
Top = 25
Width = 57
Height = 23
MaxLength = 33
NumbersOnly = True
TabOrder = 3
end
object btCipher: TButton
Left = 8
Top = 407
Width = 105
Height = 25
Caption = #1064#1080#1092#1088#1086#1074#1072#1090#1100
TabOrder = 4
OnClick = btCipherClick
end
object btRecipher: TButton
Left = 119
Top = 407
Width = 105
Height = 25
Caption = #1044#1077#1096#1080#1092#1088#1086#1074#1072#1090#1100
TabOrder = 5
OnClick = btDecipherClick
end
object btClear: TButton
Left = 230
Top = 407
Width = 105
Height = 25
Caption = #1054#1095#1080#1089#1090#1080#1090#1100
TabOrder = 6
OnClick = btClearClick
end
object reOpenKey: TRichEdit
Left = 8
Top = 104
Width = 169
Height = 81
Font.Charset = 254
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Segoe UI'
Font.Style = []
ParentFont = False
ReadOnly = True
ScrollBars = ssVertical
TabOrder = 7
end
object edQ: TEdit
Left = 24
Top = 54
Width = 57
Height = 23
MaxLength = 33
NumbersOnly = True
TabOrder = 8
end
object edB: TEdit
Left = 104
Top = 54
Width = 57
Height = 23
MaxLength = 33
NumbersOnly = True
TabOrder = 9
end
object reCloseKey: TRichEdit
Left = 183
Top = 104
Width = 162
Height = 81
Font.Charset = 254
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Segoe UI'
Font.Style = []
ParentFont = False
ReadOnly = True
ScrollBars = ssVertical
TabOrder = 10
end
object MainMenu: TMainMenu
Left = 360
Top = 8
object N1: TMenuItem
Caption = #1060#1072#1081#1083
object N3: TMenuItem
Caption = #1054#1090#1082#1088#1099#1090#1100
OnClick = N3Click
end
object N4: TMenuItem
Caption = #1057#1086#1093#1088#1072#1085#1080#1090#1100
OnClick = N4Click
end
object N5: TMenuItem
Caption = '-'
end
object N6: TMenuItem
Caption = #1047#1072#1082#1088#1099#1090#1100
end
end
object N2: TMenuItem
Caption = #1048#1085#1089#1090#1088#1091#1082#1094#1080#1103
end
end
object OpenTextFileDialog1: TOpenTextFileDialog
Left = 360
Top = 72
end
object SaveTextFileDialog1: TSaveTextFileDialog
Left = 360
Top = 136
end
end