TI1/Unit2.dfm at main · Slavonis/TI1 · GitHub

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
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' - 8 '#1042#1072#1088#1080#1072#1085#1090
  ClientHeight = 383
  ClientWidth = 345
  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 lbMethod: TLabel
    Left = 8
    Top = 59
    Width = 82
    Height = 15
    Caption = #1042#1099#1073#1086#1088' '#1084#1077#1090#1086#1076#1072':'
  end
  object lbTask: TLabel
    Left = 8
    Top = 2
    Width = 343
    Height = 51
    Caption =
      '- '#1052#1077#1090#1086#1076' '#1076#1077#1094#1080#1084#1072#1094#1080#1081' '#1090#1077#1082#1089#1090' '#1085#1072' '#1088#1091#1089#1089#1082#1086#1084' '#1103#1079#1099#1082#1077';'#13#10'- '#1040#1083#1075#1086#1088#1080#1090#1084' '#1042#1080#1078#1077#1085#1077#1088#1072', ' +
      #1089#1072#1084#1086#1075#1077#1085#1077#1088#1080#1088#1091#1102#1097#1080#1081#1089#1103' '#1082#1083#1102#1095', '#1090#1077#1082#1089#1090' '#1085#1072' '#1088#1091#1089#1089#1082#1086#1084' '#1103#1079#1099#1082#1077'.'
    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 = 133
    Width = 90
    Height = 15
    Caption = #1048#1089#1093#1086#1076#1085#1099#1081' '#1090#1077#1082#1089#1090':'
  end
  object lbDestText: TLabel
    Left = 8
    Top = 241
    Width = 131
    Height = 15
    Caption = #1056#1077#1079#1091#1083#1100#1090#1080#1088#1091#1102#1097#1080#1081' '#1090#1077#1082#1089#1090':'
  end
  object lbKey: TLabel
    Left = 8
    Top = 109
    Width = 34
    Height = 15
    Caption = #1050#1083#1102#1095':'
  end
  object lbKeyHint: TLabel
    Left = 142
    Top = 112
    Width = 120
    Height = 15
    Caption = '- '#1074#1079#1072#1080#1084#1085#1086' '#1087#1088#1086#1089#1090#1099#1077' 33'
  end
  object cbMethod: TComboBox
    Left = 8
    Top = 80
    Width = 145
    Height = 23
    Style = csDropDownList
    Ctl3D = True
    ItemIndex = 0
    ParentCtl3D = False
    TabOrder = 0
    Text = #1044#1077#1094#1080#1084#1072#1094#1080#1081
    OnChange = cbMethodChange
    Items.Strings = (
      #1044#1077#1094#1080#1084#1072#1094#1080#1081
      #1042#1080#1078#1085#1077#1088#1072)
  end
  object btFile: TButton
    Left = 182
    Top = 59
    Width = 153
    Height = 44
    Caption = #1055#1088#1086#1095#1080#1090#1072#1090#1100' '#1089' '#1092#1072#1081#1083#1072
    TabOrder = 1
    OnClick = btFileClick
  end
  object reSrcText: TRichEdit
    Left = 8
    Top = 152
    Width = 327
    Height = 81
    Font.Charset = 254
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Segoe UI'
    Font.Style = []
    ParentFont = False
    ScrollBars = ssVertical
    TabOrder = 2
    OnChange = reSrcTextChange
  end
  object reDestText: TRichEdit
    Left = 8
    Top = 260
    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 = 3
  end
  object edKey: TEdit
    Left = 48
    Top = 109
    Width = 65
    Height = 23
    NumbersOnly = True
    TabOrder = 5
    Text = '1'
  end
  object udKey: TUpDown
    Left = 113
    Top = 109
    Width = 23
    Height = 23
    Associate = edKey
    Min = 1
    Max = 32
    Position = 1
    TabOrder = 4
    OnChanging = udKeyChanging
    OnClick = udKeyClick
  end
  object btCipher: TButton
    Left = 8
    Top = 347
    Width = 105
    Height = 25
    Caption = #1064#1080#1092#1088#1086#1074#1072#1090#1100
    TabOrder = 6
    OnClick = btCipherClick
  end
  object btRecipher: TButton
    Left = 119
    Top = 347
    Width = 105
    Height = 25
    Caption = #1044#1077#1096#1080#1092#1088#1086#1074#1072#1090#1100
    TabOrder = 7
    OnClick = btDecipherClick
  end
  object btClear: TButton
    Left = 230
    Top = 347
    Width = 105
    Height = 25
    Caption = #1054#1095#1080#1089#1090#1080#1090#1100
    TabOrder = 8
    OnClick = btClearClick
  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
    Filter = 'TextFile(*.txt)|*.txt'
    Left = 360
    Top = 72
  end
  object SaveTextFileDialog1: TSaveTextFileDialog
    Filter = 'TextFile(*.txt)|*.txt'
    Left = 360
    Top = 136
  end
end