object MainF: TMainF Left = 290 Height = 707 Top = 170 Width = 728 Caption = 'MainF' ClientHeight = 687 ClientWidth = 728 Menu = MainF_Menu OnCreate = FormCreate OnShow = FormShow Position = poScreenCenter LCLVersion = '1.2.4.0' object MainFPager: TPageControl AnchorSideLeft.Control = Owner AnchorSideTop.Control = Owner AnchorSideRight.Control = Owner AnchorSideRight.Side = asrBottom AnchorSideBottom.Control = Owner AnchorSideBottom.Side = asrBottom Left = 3 Height = 681 Top = 3 Width = 722 ActivePage = CraftCalcSheet Anchors = [akTop, akLeft, akRight, akBottom] BorderSpacing.Left = 3 BorderSpacing.Top = 3 BorderSpacing.Right = 3 BorderSpacing.Bottom = 3 TabIndex = 0 TabOrder = 0 object CraftCalcSheet: TTabSheet Caption = 'Калькулятор крафта' ClientHeight = 653 ClientWidth = 714 object ServerTypeLab: TLabel AnchorSideLeft.Control = CraftCalcSheet AnchorSideBottom.Control = ServerTypeCB AnchorSideBottom.Side = asrCenter Left = 6 Height = 15 Top = 9 Width = 71 Anchors = [akLeft, akBottom] BorderSpacing.Left = 6 Caption = 'Тип сервера:' ParentColor = False end object ServerTypeCB: TComboBox AnchorSideLeft.Control = ServerTypeLab AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = CraftCalcSheet Left = 84 Height = 23 Top = 6 Width = 484 BorderSpacing.Left = 7 BorderSpacing.Top = 6 ItemHeight = 15 OnChange = ServerTypeCBChange Style = csDropDownList TabOrder = 0 end object RecipeCB: TComboBox AnchorSideLeft.Control = ServerTypeCB AnchorSideTop.Control = ServerTypeCB AnchorSideTop.Side = asrBottom Left = 84 Height = 23 Top = 39 Width = 484 BorderSpacing.Top = 10 ItemHeight = 15 OnChange = RecipeCBChange Style = csDropDownList TabOrder = 1 end object RecipeLab: TLabel AnchorSideLeft.Control = ServerTypeLab AnchorSideBottom.Control = RecipeCB AnchorSideBottom.Side = asrCenter Left = 6 Height = 15 Top = 42 Width = 41 Anchors = [akLeft, akBottom] Caption = 'Рецепт:' ParentColor = False end object RegsVLEditor: TValueListEditor AnchorSideLeft.Control = RecipeCB AnchorSideTop.Control = RecipeCB AnchorSideTop.Side = asrBottom Left = 84 Height = 120 Top = 72 Width = 484 BorderSpacing.Top = 10 DefaultColWidth = 264 FixedCols = 0 RowCount = 2 TabOrder = 2 Strings.Strings = ( '' ) TitleCaptions.Strings = ( 'Реагент' 'Максимальное количество' ) ColWidths = ( 264 216 ) end object AlreadyDoneEd: TEdit AnchorSideLeft.Control = AlreadyDoneLab AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = RegsVLEditor AnchorSideTop.Side = asrBottom AnchorSideRight.Control = RegsVLEditor AnchorSideRight.Side = asrBottom Left = 128 Height = 23 Top = 202 Width = 60 BorderSpacing.Left = 7 BorderSpacing.Top = 10 TabOrder = 3 Text = '0' end object AlreadyDoneLab: TLabel AnchorSideBottom.Control = AlreadyDoneEd AnchorSideBottom.Side = asrCenter Left = 8 Height = 15 Top = 205 Width = 113 Anchors = [akLeft, akBottom] Caption = 'Сколько % уже есть:' ParentColor = False end object CalcBut: TButton AnchorSideLeft.Control = AlreadyDoneEd AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = RegsVLEditor AnchorSideTop.Side = asrBottom Left = 198 Height = 25 Top = 199 Width = 203 BorderSpacing.Left = 10 BorderSpacing.Top = 7 Caption = 'Считать!' OnClick = CalcButClick TabOrder = 4 end object ResultsGrid: TStringGrid AnchorSideLeft.Control = CraftCalcSheet AnchorSideTop.Control = CalcBut AnchorSideTop.Side = asrBottom AnchorSideRight.Control = CraftCalcSheet AnchorSideRight.Side = asrBottom AnchorSideBottom.Control = CraftCalcSheet AnchorSideBottom.Side = asrBottom Left = 4 Height = 410 Top = 239 Width = 706 Anchors = [akTop, akLeft, akRight, akBottom] BorderSpacing.Left = 4 BorderSpacing.Top = 15 BorderSpacing.Right = 4 BorderSpacing.Bottom = 4 TabOrder = 5 OnHeaderClick = ResultsGridHeaderClick end object ShowBadResultsChB: TCheckBox AnchorSideLeft.Control = CalcBut AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = CalcBut AnchorSideTop.Side = asrCenter Left = 411 Height = 19 Top = 202 Width = 233 BorderSpacing.Left = 10 Caption = 'Показывать неоптимальные варианты' OnClick = ShowBadResultsChBClick TabOrder = 6 end end end object MainF_Menu: TMainMenu left = 680 top = 16 object FileMenu: TMenuItem Caption = 'Файл' object DebugMenu: TMenuItem Caption = 'Тестировать (если не знаете зачем - не нажимайте!)' OnClick = DebugMenuClick end object DelimMenu1: TMenuItem Caption = '-' end object ExitMenu: TMenuItem Caption = 'Выход' OnClick = ExitMenuClick end end object HelpMenu: TMenuItem Caption = 'Справка' object ManualMenu: TMenuItem Caption = 'Почитать инструкцию...' OnClick = ManualMenuClick end object DelimMenu2: TMenuItem Caption = '-' end object AboutMenu: TMenuItem Caption = 'О программе...' OnClick = AboutMenuClick end end end end