d_frmpropsunit.dfm

delphi 运行期间窗体设计

object frmProps: TfrmProps
  Left = 633
  Top = 475
  Width = 233
  Height = 306
  BorderStyle = bsSizeToolWin
  Caption = 'Properties'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  Visible = True
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object LMDObjectComboBox1: TLMDObjectComboBox
    Left = 0
    Top = 0
    Width = 225
    Height = 21
    ShowFocus = False
    Anchors = [akLeft, akTop, akRight]
    TabOrder = 0
  end
  object LMDPropertyInspector1: TLMDPropertyInspector
    Left = 0
    Top = 22
    Width = 225
    Height = 257
    ArrangeKind = akByCategory
    GridVisible = False
    GutterVisible = True
    CursorVisible = True
    SelectionStyle = ssFlat
    FlatSelectionBackgroundColor = 14408667
    FlatSelectionColor = clBlack
    CategoryBackgroundColor = 14408667
    CategoryFont.Charset = DEFAULT_CHARSET
    CategoryFont.Color = clMaroon
    CategoryFont.Height = -11
    CategoryFont.Name = 'MS Sans Serif'
    CategoryFont.Style = [fsBold]
    Splitter = 113
    Anchors = [akLeft, akTop, akRight, akBottom]
    Color = clWindow
    TabOrder = 1
    OnFilterProp = LMDPropertyInspector1FilterProp
    OnGetCaptionColor = LMDPropertyInspector1GetCaptionColor
  end
  object PopupMenu1: TPopupMenu
    Left = 76
    Top = 229
    object ArrangebyCategories1: TMenuItem
      Caption = 'Arrange by Categories'
      Checked = True
      GroupIndex = 5
      RadioItem = True
      OnClick = ArrangebyCategories1Click
    end
    object ArrangebyName1: TMenuItem
      Caption = 'Arrange by Name'
      GroupIndex = 5
      RadioItem = True
      OnClick = ArrangebyName1Click
    end
  end
end