ru.malik.elaborarer.avtoo.browser.mainform.lfm

Переключить прокрутку окна
Загрузить этот исходный код

object MainForm: TMainForm
  Left = 0
  Height = 720
  Top = 0
  Width = 1280
  Caption = 'Обозреватель кода ПВТ-ОО'
  ClientHeight = 720
  ClientWidth = 1280
  Constraints.MinHeight = 600
  Constraints.MinWidth = 1140
  DockSite = True
  Menu = mainMenu
  Position = poDefault
  ShowHint = True
  UseDockManager = True
  LCLVersion = '4.8.0.0'
  OnCloseQuery = formCloseQuery
  OnDockDrop = siteDockDrop
  OnDockOver = siteDockOver
  OnGetSiteInfo = siteDockInfo
  OnResize = formResize
  OnShow = formShow
  object classpathWidget: TPanel
    Left = 0
    Height = 90
    Top = 0
    Width = 180
    BevelOuter = bvNone
    ClientHeight = 90
    ClientWidth = 180
    Constraints.MinHeight = 90
    Constraints.MinWidth = 180
    DockSite = True
    DragKind = dkDock
    TabOrder = 0
    UseDockManager = False
    OnDockDrop = siteDockDrop
    OnDockOver = siteDockOver
    OnEndDock = widgetDockEnd
    OnGetSiteInfo = siteDockInfo
    OnStartDock = widgetDockBegin
    object classpathTitle: TLabel
      Left = 0
      Height = 15
      Top = 0
      Width = 180
      Align = alTop
      Caption = 'Параметры и зависимости'
      Color = clHighlight
      Font.Color = clHighlightText
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      Transparent = False
      OnMouseDown = titlePointerPressed
    end
    object classpathActions: TPanel
      Left = 0
      Height = 28
      Top = 17
      Width = 180
      Align = alTop
      BorderSpacing.Top = 2
      BevelOuter = bvNone
      ClientHeight = 28
      ClientWidth = 180
      TabOrder = 0
      object classpathSelectButton: TBitBtn
        Left = 92
        Height = 28
        Hint = 'Выбрать указанный файл .classpath'
        Top = 0
        Width = 28
        Align = alRight
        BorderSpacing.Left = 2
        Spacing = 0
        TabOrder = 1
        OnClick = commandAction
        OnEnter = widgetEnter
        OnExit = widgetLeave
      end
      object classpathOpenButton: TSpeedButton
        Left = 122
        Height = 28
        Top = 0
        Width = 28
        Action = classpathOpenAction
        Align = alRight
        BorderSpacing.Left = 2
        ShowCaption = False
      end
      object classpathOthers: TSpeedButton
        Left = 152
        Height = 28
        Hint = 'Открыть меню'
        Top = 0
        Width = 28
        Align = alRight
        BorderSpacing.Left = 2
        ShowCaption = False
        OnClick = commandAction
      end
      object classpathFile: TEdit
        Left = 0
        Height = 28
        Hint = 'Укажите файл .classpath'
        Top = 0
        Width = 90
        Align = alClient
        TabOrder = 0
        OnEnter = widgetEnter
        OnExit = widgetLeave
      end
    end
    object classpathList: TListBox
      Left = 0
      Height = 43
      Top = 47
      Width = 180
      Align = alClient
      BorderSpacing.Top = 2
      ItemHeight = 0
      Options = []
      PopupMenu = classpathMenu
      Style = lbOwnerDrawFixed
      TabOrder = 1
      OnDrawItem = listPaintItem
      OnEnter = widgetEnter
      OnExit = widgetLeave
      OnSelectionChange = classpathSelect
    end
  end
  object librariesWidget: TPanel
    Left = 180
    Height = 90
    Top = 0
    Width = 180
    BevelOuter = bvNone
    ClientHeight = 90
    ClientWidth = 180
    Constraints.MinHeight = 90
    Constraints.MinWidth = 180
    DockSite = True
    DragKind = dkDock
    TabOrder = 1
    UseDockManager = False
    OnDockDrop = siteDockDrop
    OnDockOver = siteDockOver
    OnEndDock = widgetDockEnd
    OnGetSiteInfo = siteDockInfo
    OnStartDock = widgetDockBegin
    object librariesTitle: TLabel
      Left = 0
      Height = 15
      Top = 0
      Width = 180
      Align = alTop
      Caption = 'Библиотеки'
      Color = clHighlight
      Font.Color = clHighlightText
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      Transparent = False
      OnMouseDown = titlePointerPressed
    end
    object librariesActions: TPanel
      Left = 0
      Height = 28
      Top = 17
      Width = 180
      Align = alTop
      BorderSpacing.Top = 2
      BevelOuter = bvNone
      ClientHeight = 28
      ClientWidth = 180
      TabOrder = 0
      object librariesCollapseAllButton: TSpeedButton
        Left = 122
        Height = 28
        Top = 0
        Width = 28
        Action = librariesCollapseAllAction
        Align = alRight
        BorderSpacing.Left = 2
        ShowCaption = False
      end
      object librariesOthers: TSpeedButton
        Left = 152
        Height = 28
        Hint = 'Открыть меню'
        Top = 0
        Width = 28
        Align = alRight
        BorderSpacing.Left = 2
        ShowCaption = False
        OnClick = commandAction
      end
    end
    object librariesTree: TTreeView
      Left = 0
      Height = 43
      Top = 47
      Width = 180
      Align = alClient
      BorderSpacing.Top = 2
      BackgroundColor = clDefault
      Color = clDefault
      HideSelection = False
      Indent = 16
      PopupMenu = librariesMenu
      ReadOnly = True
      ScrollBars = ssAutoBoth
      SelectionFontColor = clHighlightText
      SelectionFontColorUsed = True
      StateImages = icons
      TabOrder = 1
      Options = [tvoAutoItemHeight, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
      TreeLinePenStyle = psClear
      OnEnter = widgetEnter
      OnExit = widgetLeave
      OnKeyDown = treeKeyPressed
      OnSelectionChanged = librariesSelect
    end
  end
  object typesWidget: TPanel
    Left = 360
    Height = 90
    Top = 0
    Width = 180
    BevelOuter = bvNone
    ClientHeight = 90
    ClientWidth = 180
    Constraints.MinHeight = 90
    Constraints.MinWidth = 180
    DockSite = True
    DragKind = dkDock
    TabOrder = 2
    UseDockManager = False
    OnDockDrop = siteDockDrop
    OnDockOver = siteDockOver
    OnEndDock = widgetDockEnd
    OnGetSiteInfo = siteDockInfo
    OnStartDock = widgetDockBegin
    object typesTitle: TLabel
      Left = 0
      Height = 15
      Top = 0
      Width = 180
      Align = alTop
      Caption = 'Типы'
      Color = clHighlight
      Font.Color = clHighlightText
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      Transparent = False
      OnMouseDown = titlePointerPressed
    end
    object typesActions: TPanel
      Left = 0
      Height = 28
      Top = 17
      Width = 180
      Align = alTop
      BorderSpacing.Top = 2
      BevelOuter = bvNone
      ClientHeight = 28
      ClientWidth = 180
      TabOrder = 0
      object typesCollapseAllButton: TSpeedButton
        Left = 92
        Height = 28
        Top = 0
        Width = 28
        Action = typesCollapseAllAction
        Align = alRight
        BorderSpacing.Left = 2
        ShowCaption = False
      end
      object typesForcePublicButton: TSpeedButton
        Left = 122
        Height = 28
        Top = 0
        Width = 28
        Action = typesForcePublicAction
        Align = alRight
        AllowAllUp = True
        BorderSpacing.Left = 2
        GroupIndex = 1
        ShowCaption = False
      end
      object typesOthers: TSpeedButton
        Left = 152
        Height = 28
        Hint = 'Открыть меню'
        Top = 0
        Width = 28
        Align = alRight
        BorderSpacing.Left = 2
        ShowCaption = False
        OnClick = commandAction
      end
    end
    object typesTree: TTreeView
      Left = 0
      Height = 43
      Top = 47
      Width = 180
      Align = alClient
      BorderSpacing.Top = 2
      BackgroundColor = clDefault
      Color = clDefault
      HideSelection = False
      Indent = 16
      PopupMenu = typesMenu
      ReadOnly = True
      ScrollBars = ssAutoBoth
      SelectionFontColor = clHighlightText
      SelectionFontColorUsed = True
      StateImages = icons
      TabOrder = 1
      Options = [tvoAutoItemHeight, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
      TreeLinePenStyle = psClear
      OnEnter = widgetEnter
      OnExit = widgetLeave
      OnKeyDown = treeKeyPressed
      OnSelectionChanged = typesSelect
    end
  end
  object membersWidget: TPanel
    Left = 540
    Height = 90
    Top = 0
    Width = 180
    BevelOuter = bvNone
    ClientHeight = 90
    ClientWidth = 180
    Constraints.MinHeight = 90
    Constraints.MinWidth = 180
    DockSite = True
    DragKind = dkDock
    TabOrder = 3
    UseDockManager = False
    OnDockDrop = siteDockDrop
    OnDockOver = siteDockOver
    OnEndDock = widgetDockEnd
    OnGetSiteInfo = siteDockInfo
    OnStartDock = widgetDockBegin
    object membersTitle: TLabel
      Left = 0
      Height = 15
      Top = 0
      Width = 180
      Align = alTop
      Caption = 'Члены'
      Color = clHighlight
      Font.Color = clHighlightText
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      Transparent = False
      OnMouseDown = titlePointerPressed
    end
    object membersActions: TPanel
      Left = 0
      Height = 28
      Top = 17
      Width = 180
      Align = alTop
      BorderSpacing.Top = 2
      BevelOuter = bvNone
      ClientHeight = 28
      ClientWidth = 180
      TabOrder = 0
      object membersSortButton: TSpeedButton
        Left = 2
        Height = 28
        Top = 0
        Width = 28
        Action = membersSortAction
        Align = alRight
        AllowAllUp = True
        BorderSpacing.Left = 2
        GroupIndex = 1
        ShowCaption = False
      end
      object membersHideFieldsButton: TSpeedButton
        Left = 32
        Height = 28
        Top = 0
        Width = 28
        Action = membersHideFieldsAction
        Align = alRight
        AllowAllUp = True
        BorderSpacing.Left = 2
        GroupIndex = 2
        ShowCaption = False
      end
      object membersHideStaticsButton: TSpeedButton
        Left = 62
        Height = 28
        Top = 0
        Width = 28
        Action = membersHideStaticsAction
        Align = alRight
        AllowAllUp = True
        BorderSpacing.Left = 2
        GroupIndex = 3
        ShowCaption = False
      end
      object membersForcePublicButton: TSpeedButton
        Left = 92
        Height = 28
        Top = 0
        Width = 28
        Action = membersForcePublicAction
        Align = alRight
        AllowAllUp = True
        BorderSpacing.Left = 2
        GroupIndex = 4
        ShowCaption = False
      end
      object membersShowInheritedButton: TSpeedButton
        Left = 122
        Height = 28
        Top = 0
        Width = 28
        Action = membersShowInheritedAction
        Align = alRight
        AllowAllUp = True
        BorderSpacing.Left = 2
        GroupIndex = 5
        ShowCaption = False
      end
      object membersOthers: TSpeedButton
        Left = 152
        Height = 28
        Hint = 'Открыть меню'
        Top = 0
        Width = 28
        Align = alRight
        BorderSpacing.Left = 2
        ShowCaption = False
        OnClick = commandAction
      end
    end
    object membersList: TListBox
      Left = 0
      Height = 43
      Top = 47
      Width = 180
      Align = alClient
      BorderSpacing.Top = 2
      ItemHeight = 0
      Options = []
      PopupMenu = membersMenu
      Style = lbOwnerDrawFixed
      TabOrder = 1
      OnDrawItem = listPaintItem
      OnEnter = widgetEnter
      OnExit = widgetLeave
      OnSelectionChange = membersSelect
    end
  end
  object documentationWidget: TPanel
    Left = 720
    Height = 90
    Top = 0
    Width = 180
    BevelOuter = bvNone
    ClientHeight = 90
    ClientWidth = 180
    Constraints.MinHeight = 90
    Constraints.MinWidth = 180
    DockSite = True
    DragKind = dkDock
    TabOrder = 4
    UseDockManager = False
    OnDockDrop = siteDockDrop
    OnDockOver = siteDockOver
    OnEndDock = widgetDockEnd
    OnGetSiteInfo = siteDockInfo
    OnStartDock = widgetDockBegin
    object documentationTitle: TLabel
      Left = 0
      Height = 15
      Top = 0
      Width = 180
      Align = alTop
      Caption = 'Документация'
      Color = clHighlight
      Font.Color = clHighlightText
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      Transparent = False
      OnMouseDown = titlePointerPressed
    end
    object documentationBorder: TPanel
      Left = 0
      Height = 73
      Top = 17
      Width = 180
      Align = alClient
      BorderSpacing.Top = 2
      BevelOuter = bvNone
      BorderStyle = bsSingle
      ClientHeight = 69
      ClientWidth = 176
      TabOrder = 0
      object documentationView: THtmlViewer
        Cursor = crDefault
        Left = 0
        Height = 69
        Top = 0
        Width = 176
        BorderStyle = htNone
        DefBackground = clWindow
        DefFontColor = clWindowText
        DefFontName = 'sans-serif'
        HistoryMaxCount = 0
        HtOptions = [htOverLinksActive, htPrintTableBackground, htPrintMonochromeBlack]
        ImageCacheCount = 0
        MarginHeight = 0
        MarginWidth = 0
        NoSelect = False
        PrintMarginBottom = 2
        PrintMarginLeft = 2
        PrintMarginRight = 2
        PrintMarginTop = 2
        PrintScale = 1
        VisitedMaxCount = 0
        OnHotSpotClick = documentationSelect
        OnImageRequest = documentationCreateImageStream
        OnImageRequested = documentationDestroyImageStream
        Align = alClient
        PopupMenu = documentationMenu
        TabOrder = 0
        OnKeyDown = documentationKeyPressed
        OnMouseMove = documentationPointerDragged
      end
    end
  end
  object messagesWidget: TPanel
    Left = 900
    Height = 90
    Top = 0
    Width = 180
    BevelOuter = bvNone
    ClientHeight = 90
    ClientWidth = 180
    Constraints.MinHeight = 90
    Constraints.MinWidth = 180
    DockSite = True
    DragKind = dkDock
    TabOrder = 5
    UseDockManager = False
    OnDockDrop = siteDockDrop
    OnDockOver = siteDockOver
    OnEndDock = widgetDockEnd
    OnGetSiteInfo = siteDockInfo
    OnStartDock = widgetDockBegin
    object messagesTitlle: TLabel
      Left = 0
      Height = 15
      Top = 0
      Width = 180
      Align = alTop
      Caption = 'Сообщения'
      Color = clHighlight
      Font.Color = clHighlightText
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      Transparent = False
      OnMouseDown = titlePointerPressed
    end
    object messagesView: TMemo
      Left = 0
      Height = 73
      Top = 17
      Width = 180
      Align = alClient
      BorderSpacing.Top = 2
      ReadOnly = True
      ScrollBars = ssAutoBoth
      TabOrder = 0
    end
  end
  object compilePanel: TPanel
    Left = 0
    Height = 64
    Top = 0
    Width = 320
    BevelInner = bvRaised
    ClientHeight = 64
    ClientWidth = 320
    Color = 15658734
    ParentBackground = False
    ParentColor = False
    TabOrder = 7
    Visible = False
    object compileIcon: TImage
      Left = 8
      Height = 48
      Top = 8
      Width = 48
    end
    object compileStatus: TLabel
      Left = 64
      Height = 48
      Top = 8
      Width = 248
      AutoSize = False
      Caption = 'Выполняется быстрая компиляция…'#13#10'Пожалуйста, подождите…'
      Font.Style = [fsBold]
      Layout = tlCenter
      ParentFont = False
      WordWrap = True
    end
  end
  object status: TStatusBar
    Left = 0
    Height = 23
    Top = 697
    Width = 1280
    Panels = <>
  end
  object actions: TActionList
    object classpathSelectAction: TAction
      Category = 'classpath'
      Caption = '&Выбрать'
      Hint = 'Выбрать указанный файл .classpath'
      OnExecute = commandAction
    end
    object classpathOpenAction: TAction
      Category = 'classpath'
      Caption = '&Открыть…'
      Hint = 'Открыть файл .classpath'
      OnExecute = commandAction
    end
    object librariesFlatViewAction: TAction
      Category = 'libraries'
      AutoCheck = True
      Caption = '&Список пакетов'
      Checked = True
      GroupIndex = 1
      Hint = 'Показывать пакеты в виде списка из полных имён'
      OnExecute = commandAction
    end
    object librariesTreeViewAction: TAction
      Tag = 1
      Category = 'libraries'
      AutoCheck = True
      Caption = '&Иерархия пакетов'
      GroupIndex = 1
      Hint = 'Показывать пакеты в виде иерархии из коротких имён'
      OnExecute = commandAction
    end
    object librariesCollapseAllAction: TAction
      Category = 'libraries'
      Caption = 'Свернуть &всё'
      Hint = 'Свернуть всё'
      OnExecute = commandAction
    end
    object typesShowPublicAction: TAction
      Tag = 6
      Category = 'types'
      AutoCheck = True
      Caption = '&Открытые'
      GroupIndex = 3
      Hint = 'Показывать открытые (public) типы'
      OnExecute = commandAction
    end
    object typesShowPackageAction: TAction
      Tag = 3
      Category = 'types'
      AutoCheck = True
      Caption = '&Пакетные'
      GroupIndex = 3
      Hint = 'Показывать пакетные (package) типы'
      OnExecute = commandAction
    end
    object typesShowTextAction: TAction
      Category = 'types'
      AutoCheck = True
      Caption = '&Текстовые'
      Checked = True
      GroupIndex = 3
      Hint = 'Показывать текстовые (без указания видимости) типы'
      OnExecute = commandAction
    end
    object typesListViewAction: TAction
      Category = 'types'
      AutoCheck = True
      Caption = '&Список типов'
      Checked = True
      GroupIndex = 2
      Hint = 'Показывать типы в виде списка'
      OnExecute = commandAction
    end
    object typesTreeViewAction: TAction
      Tag = 1
      Category = 'types'
      AutoCheck = True
      Caption = '&Иерархия типов'
      GroupIndex = 2
      Hint = 'Показывать иерархию наследования типов'
      OnExecute = commandAction
    end
    object typesCollapseAllAction: TAction
      Category = 'types'
      Caption = 'Свернуть &всё'
      Hint = 'Свернуть всё'
      OnExecute = commandAction
    end
    object typesForcePublicAction: TAction
      Category = 'types'
      AutoCheck = True
      Caption = 'Показать открытые'
      Hint = 'Показывать открытые (public) типы'
      OnExecute = commandAction
    end
    object membersShowPublicAction: TAction
      Tag = 6
      Category = 'members'
      AutoCheck = True
      Caption = '&Открытые'
      GroupIndex = 4
      Hint = 'Показывать открытые (public) члены'
      OnExecute = commandAction
    end
    object membersShowProtectedAction: TAction
      Tag = 5
      Category = 'members'
      AutoCheck = True
      Caption = '&Защищённые'
      GroupIndex = 4
      Hint = 'Показывать защищённые (protected) члены'
      OnExecute = commandAction
    end
    object membersShowPackageAction: TAction
      Tag = 3
      Category = 'members'
      AutoCheck = True
      Caption = '&Пакетные'
      GroupIndex = 4
      Hint = 'Показывать пакетные (package) члены'
      OnExecute = commandAction
    end
    object membersShowTextAction: TAction
      Tag = 1
      Category = 'members'
      AutoCheck = True
      Caption = '&Текстовые'
      GroupIndex = 4
      Hint = 'Показывать текстовые (без указания видимости) члены'
      OnExecute = commandAction
    end
    object membersShowPrivateAction: TAction
      Category = 'members'
      AutoCheck = True
      Caption = 'За&крытые'
      Checked = True
      GroupIndex = 4
      Hint = 'Показывать закрытые (private) члены'
      OnExecute = commandAction
    end
    object membersShowSyntheticAction: TAction
      Tag = -1
      Category = 'members'
      AutoCheck = True
      Caption = '&Добавленные компилятором'
      GroupIndex = 4
      Hint = 'Показывать все члены, в том числе добавленные компилятором'
      OnExecute = commandAction
    end
    object membersHideFieldsAction: TAction
      Category = 'members'
      AutoCheck = True
      Caption = 'Скрыть по&ля'
      Hint = 'Скрывать поля'
      OnExecute = commandAction
    end
    object membersHideStaticsAction: TAction
      Category = 'members'
      AutoCheck = True
      Caption = 'Скрыть &статичные'
      Hint = 'Скрывать статичные члены'
      OnExecute = commandAction
    end
    object membersShowInheritedAction: TAction
      Category = 'members'
      AutoCheck = True
      Caption = 'Показать у&наследованные'
      Hint = 'Показывать унаследованные члены'
      OnExecute = commandAction
    end
    object membersShowCanonicalAction: TAction
      Category = 'members'
      AutoCheck = True
      Caption = 'Канонические &имена типов'
      Hint = 'Показывать полные имена типов (с указанием пакета)'
      OnExecute = commandAction
    end
    object membersSimpleIconsAction: TAction
      Category = 'members'
      AutoCheck = True
      Caption = 'П&ростые значки'
      Hint = 'Показывать простые значки (только видимость и разновидность)'
      OnExecute = commandAction
    end
    object membersSortAction: TAction
      Category = 'members'
      AutoCheck = True
      Caption = 'Сортировать по &алфавиту'
      Hint = 'Сортировать члены по названию и разновидности'
      OnExecute = commandAction
    end
    object membersForcePublicAction: TAction
      Category = 'members'
      AutoCheck = True
      Caption = 'Показать открытые'
      Hint = 'Показывать открытые (public) члены'
      OnExecute = commandAction
    end
    object documentationCopyAction: TAction
      Category = 'documentation'
      Caption = '&Копировать'
      Enabled = False
      OnExecute = commandAction
    end
    object documentationSelectAllAction: TAction
      Category = 'documentation'
      Caption = 'В&ыделить всё'
      OnExecute = commandAction
    end
  end
  object mainMenu: TMainMenu
    object projectMenu: TMenuItem
      Caption = '&Проект'
      object projectOpen: TMenuItem
        Caption = '&Открыть каталог проекта…'
        ShortCut = 16463
        OnClick = commandAction
      end
      object projectRecentMenu: TMenuItem
        Caption = 'Открыть &недавний'
        Enabled = False
        object projectRecentSeparator: TMenuItem
          Caption = '-'
        end
        object projectRecentClear: TMenuItem
          Caption = 'О&чистить историю недавних проектов'
          OnClick = commandAction
        end
      end
      object menuSeparator000: TMenuItem
        Caption = '-'
      end
      object projectRefresh: TMenuItem
        Caption = 'Обно&вить'
        ShortCut = 116
        OnClick = commandAction
      end
      object projectAutoRefresh: TMenuItem
        AutoCheck = True
        Caption = '&Автообновление'
        OnClick = commandAction
      end
      object menuSeparator001: TMenuItem
        Caption = '-'
      end
      object projectExit: TMenuItem
        Caption = 'В&ыход'
        OnClick = commandAction
      end
    end
    object filtersMenu: TMenuItem
      Caption = '&Фильтры'
      object filtersPublic: TMenuItem
        Caption = '&Открытые элементы (public)'
        OnClick = commandAction
      end
      object filtersProtected: TMenuItem
        Caption = '&Защищённые элементы (protected)'
        OnClick = commandAction
      end
      object filtersPackage: TMenuItem
        Caption = '&Пакетные элементы (package)'
        OnClick = commandAction
      end
      object filtersText: TMenuItem
        Caption = '&Текстовые элементы'
        OnClick = commandAction
      end
      object filtersPrivate: TMenuItem
        Caption = 'За&крытые элементы (private)'
        OnClick = commandAction
      end
      object menuSeparator002: TMenuItem
        Caption = '-'
      end
      object filtersVisibleFrom: TMenuItem
        Caption = 'Видимые &из…'
        ShortCut = 16454
        ShowAlwaysCheckable = True
        OnClick = commandAction
      end
      object filtersResetVisibility: TMenuItem
        Caption = 'Сбросить ви&димость'
        Enabled = False
        ShortCut = 16467
        OnClick = commandAction
      end
      object menuSeparator003: TMenuItem
        Caption = '-'
      end
      object filtersResetAll: TMenuItem
        Caption = 'Сбросить &все'
        ShortCut = 16466
        OnClick = commandAction
      end
    end
    object helpMenu: TMenuItem
      Caption = '&Справка'
      object helpAboutApp: TMenuItem
        Caption = 'О &программе…'
        OnClick = commandAction
      end
    end
  end
  object projectOpenDialog: TSelectDirectoryDialog
    Title = 'Выберите каталог проекта ПВТ-ОО'
    Options = [ofHideReadOnly, ofNoChangeDir, ofPathMustExist, ofNoNetworkButton, ofEnableSizing, ofViewDetail]
    OptionsEx = [ofForceFileSystem]
  end
  object pageContainerMenu: TPopupMenu
    object pageContainerTabPositionTop: TMenuItem
      AutoCheck = True
      Caption = 'Вкладки с&верху'
      Checked = True
      GroupIndex = 1
      RadioItem = True
      OnClick = commandAction
    end
    object pageContainerTabPositionBottom: TMenuItem
      Tag = 1
      AutoCheck = True
      Caption = 'Вкладки с&низу'
      GroupIndex = 1
      RadioItem = True
      OnClick = commandAction
    end
    object pageContainerTabPositionLeft: TMenuItem
      Tag = 2
      AutoCheck = True
      Caption = 'Вкладки с&лева'
      GroupIndex = 1
      RadioItem = True
      OnClick = commandAction
    end
    object pageContainerTabPositionRight: TMenuItem
      Tag = 3
      AutoCheck = True
      Caption = 'Вкладки с&права'
      GroupIndex = 1
      RadioItem = True
      OnClick = commandAction
    end
  end
  object classpathMenu: TPopupMenu
    Alignment = paRight
    object classpathSelectItem: TMenuItem
      Action = classpathSelectAction
    end
    object classpathOpenItem: TMenuItem
      Action = classpathOpenAction
    end
  end
  object classpathOpenDialog: TOpenDialog
    Title = 'Выберите файл параметров и зависимостей проекта'
    Filter = 'Параметры и зависимости (*.classpath)|*.classpath'
    Options = [ofHideReadOnly, ofNoChangeDir, ofFileMustExist, ofNoNetworkButton, ofEnableSizing, ofDontAddToRecent, ofViewDetail]
    OptionsEx = [ofForceFileSystem]
  end
  object librariesMenu: TPopupMenu
    Alignment = paRight
    object librariesFlatViewItem: TMenuItem
      Action = librariesFlatViewAction
      AutoCheck = True
      GroupIndex = 1
      RadioItem = True
    end
    object librariesTreeViewItem: TMenuItem
      Action = librariesTreeViewAction
      AutoCheck = True
      GroupIndex = 1
      RadioItem = True
    end
    object menuSeparator004: TMenuItem
      Caption = '-'
    end
    object librariesCollapseAllItem: TMenuItem
      Action = librariesCollapseAllAction
    end
  end
  object typesMenu: TPopupMenu
    Alignment = paRight
    object typesShowPublicItem: TMenuItem
      Action = typesShowPublicAction
      AutoCheck = True
      GroupIndex = 3
      RadioItem = True
    end
    object typesShowPackageItem: TMenuItem
      Action = typesShowPackageAction
      AutoCheck = True
      GroupIndex = 3
      RadioItem = True
    end
    object typesShowTextItem: TMenuItem
      Action = typesShowTextAction
      AutoCheck = True
      GroupIndex = 3
      RadioItem = True
    end
    object menuSeparator005: TMenuItem
      Caption = '-'
    end
    object typesListViewItem: TMenuItem
      Action = typesListViewAction
      AutoCheck = True
      GroupIndex = 2
      RadioItem = True
    end
    object typesTreeViewItem: TMenuItem
      Action = typesTreeViewAction
      AutoCheck = True
      GroupIndex = 2
      RadioItem = True
    end
    object menuSeparator006: TMenuItem
      Caption = '-'
    end
    object typesCollapseAllItem: TMenuItem
      Action = typesCollapseAllAction
    end
  end
  object membersMenu: TPopupMenu
    Alignment = paRight
    object membersShowPublicItem: TMenuItem
      Action = membersShowPublicAction
      AutoCheck = True
      GroupIndex = 4
      RadioItem = True
    end
    object membersShowProtectedItem: TMenuItem
      Action = membersShowProtectedAction
      AutoCheck = True
      GroupIndex = 4
      RadioItem = True
    end
    object membersShowPackageItem: TMenuItem
      Action = membersShowPackageAction
      AutoCheck = True
      GroupIndex = 4
      RadioItem = True
    end
    object membersShowTextItem: TMenuItem
      Action = membersShowTextAction
      AutoCheck = True
      GroupIndex = 4
      RadioItem = True
    end
    object membersShowPrivateItem: TMenuItem
      Action = membersShowPrivateAction
      AutoCheck = True
      GroupIndex = 4
      RadioItem = True
    end
    object membersShowSyntheticItem: TMenuItem
      Action = membersShowSyntheticAction
      AutoCheck = True
      GroupIndex = 4
      RadioItem = True
    end
    object menuSeparator007: TMenuItem
      Caption = '-'
    end
    object membersHideFieldsItem: TMenuItem
      Action = membersHideFieldsAction
      AutoCheck = True
    end
    object membersHideStaticsItem: TMenuItem
      Action = membersHideStaticsAction
      AutoCheck = True
    end
    object membersShowInheritedItem: TMenuItem
      Action = membersShowInheritedAction
      AutoCheck = True
    end
    object menuSeparator008: TMenuItem
      Caption = '-'
    end
    object membersShowCanonicalItem: TMenuItem
      Action = membersShowCanonicalAction
      AutoCheck = True
    end
    object membersSimpleIconsItem: TMenuItem
      Action = membersSimpleIconsAction
      AutoCheck = True
    end
    object menuSeparator009: TMenuItem
      Caption = '-'
    end
    object membersSortItem: TMenuItem
      Action = membersSortAction
      AutoCheck = True
    end
  end
  object documentationMenu: TPopupMenu
    object documentationCopyItem: TMenuItem
      Action = documentationCopyAction
    end
    object menuSeparator010: TMenuItem
      Caption = '-'
    end
    object documentationSelectAllItem: TMenuItem
      Action = documentationSelectAllAction
    end
  end
  object icons: TImageList
    DrawingStyle = dsTransparent
  end
  object compileTimer: TTimer
    Enabled = False
    Interval = 40
    OnTimer = compileIconUpdate
  end
  object startupTimer: TTimer
    Enabled = False
    Interval = 40
    OnTimer = compileStartup
  end
end