@@ -4,14 +4,15 @@ object Main: TMain
44 BorderIcons = [biSystemMenu, biMinimize]
55 BorderStyle = bsSingle
66 Caption = ' App'
7- ClientHeight = 320
7+ ClientHeight = 323
88 ClientWidth = 409
99 Color = clBtnFace
1010 Font.Charset = RUSSIAN_CHARSET
1111 Font.Color = clWindowText
1212 Font.Height = -11
1313 Font.Name = ' MS Sans Serif'
1414 Font.Style = []
15+ Menu = MainMenu1
1516 OldCreateOrder = False
1617 Position = poScreenCenter
1718 OnClose = FormClose
@@ -86,7 +87,6 @@ object Main: TMain
8687 ItemHeight = 13
8788 ParentFont = False
8889 ParentShowHint = False
89- PopupMenu = PopupMenu
9090 ShowHint = True
9191 TabOrder = 0
9292 TabWidth = 100
@@ -133,29 +133,16 @@ object Main: TMain
133133 end
134134 object StatusBar: TStatusBar
135135 Left = 0
136- Top = 301
136+ Top = 304
137137 Width = 409
138138 Height = 19
139139 Panels = <>
140140 SimplePanel = True
141- OnClick = StatusBarClick
142141 end
143142 object OpenDialog: TOpenDialog
144143 Filter = ' |*.exe'
145- Left = 16
146- Top = 32
147- end
148- object PopupMenu: TPopupMenu
149144 Left = 48
150145 Top = 32
151- object ImportBtn: TMenuItem
152- Caption = #1048 #1084 #1087 #1086 #1088 #1090
153- OnClick = ImportBtnClick
154- end
155- object ExportBtn: TMenuItem
156- Caption = #1069 #1082 #1089 #1087 #1086 #1088 #1090
157- OnClick = ExportBtnClick
158- end
159146 end
160147 object ImportDialog: TOpenDialog
161148 Filter = ' Firewall Easy|*.fer'
@@ -168,4 +155,26 @@ object Main: TMain
168155 Left = 112
169156 Top = 32
170157 end
158+ object MainMenu1: TMainMenu
159+ Left = 16
160+ Top = 32
161+ object RulesItem: TMenuItem
162+ Caption = #1055 #1088 #1072 #1074 #1080 #1083 #1072
163+ object ImportBtn: TMenuItem
164+ Caption = #1048 #1084 #1087 #1086 #1088 #1090
165+ OnClick = ImportBtnClick
166+ end
167+ object ExportBtn: TMenuItem
168+ Caption = #1069 #1082 #1089 #1087 #1086 #1088 #1090
169+ OnClick = ExportBtnClick
170+ end
171+ end
172+ object HelpItem: TMenuItem
173+ Caption = #1057 #1087 #1088 #1072 #1074 #1082 #1072
174+ object AboutBtn: TMenuItem
175+ Caption = #1054 ' ' #1087 #1088 #1086 #1075 #1088 #1072 #1084 #1084 #1077 ' ...'
176+ OnClick = AboutBtnClick
177+ end
178+ end
179+ end
171180end
0 commit comments