TI2/Unit2.dfm at main · Slavonis/TI2 · 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
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 = 458
  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 = 172
    Height = 17
    Caption = '- '#1055#1086#1090#1086#1082#1086#1074#1086#1077' '#1096#1080#1092#1088#1086#1074#1072#1085#1080#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 = 209
    Width = 91
    Height = 15
    Caption = #1048#1089#1093#1086#1076#1085#1099#1081' '#1092#1072#1081#1083':'
  end
  object lbDestText: TLabel
    Left = 8
    Top = 317
    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 lbKey: TLabel
    Left = 8
    Top = 41
    Width = 34
    Height = 15
    Caption = #1050#1083#1102#1095':'
  end
  object lbKeyText: TLabel
    Left = 8
    Top = 101
    Width = 138
    Height = 15
    Caption = #1057#1075#1077#1085#1077#1088#1080#1088#1086#1074#1072#1085#1085#1099#1081' '#1082#1083#1102#1095':'
  end
  object btFile: TButton
    Left = 186
    Top = 8
    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 = 230
    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 = 1
    OnChange = reSrcTextChange
  end
  object reDestText: TRichEdit
    Left = 8
    Top = 342
    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 edKey: TEdit
    Left = 8
    Top = 62
    Width = 327
    Height = 23
    MaxLength = 33
    NumbersOnly = True
    TabOrder = 3
    OnKeyPress = edKeyKeyPress
  end
  object btCipher: TButton
    Left = 8
    Top = 429
    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 = 429
    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 = 429
    Width = 105
    Height = 25
    Caption = #1054#1095#1080#1089#1090#1080#1090#1100
    TabOrder = 6
    OnClick = btClearClick
  end
  object reGenKey: TRichEdit
    Left = 8
    Top = 122
    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 = 7
  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