d_lmdpi.dfm

delphi 运行期间窗体设计

object frmLMDPIDemo: TfrmLMDPIDemo
  Left = 668
  Top = 296
  BorderStyle = bsDialog
  Caption = 'Property Inspector Demo'
  ClientHeight = 603
  ClientWidth = 575
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  Scaled = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label3: TLabel
    Left = 368
    Top = 256
    Width = 108
    Height = 13
    Caption = 'Active Property: (none)'
  end
  object Label1: TLabel
    Left = 368
    Top = 272
    Width = 74
    Height = 13
    Caption = 'Current objects:'
  end
  object Label5: TLabel
    Left = 8
    Top = 488
    Width = 553
    Height = 105
    AutoSize = False
    Caption = 
      'This demo demonstrates use of TLMDPropertyInspector.'#13#10'Press butt' +
      'ons from "Edit controls" group to edit different controls. '#13#10'Pre' +
      'ss "Edit Memo1.Font" button to edit only Font of the Memo1.'#13#10'Pre' +
      'ss "Edit Label2 with FocusControl" button and try to edit FocusC' +
      'ontrol component reference property. See PropertyInspector OnGet' +
      'Components, OnGetComponent and OnGetComponentName to learn how t' +
      'o provide drop down list entries for component reference propert' +
      'ies.'#13#10'Try to filter or higlight some properties using check boxe' +
      's from "Filtering and highlighting" group'
    Color = clBtnFace
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    WordWrap = True
  end
  object LMDPropertyInspector1: TLMDPropertyInspector
    Left = 8
    Top = 8
    Width = 193
    Height = 233
    ArrangeKind = akByCategory
    GridVisible = False
    GutterVisible = True
    CursorVisible = True
    SelectionStyle = ssFlat
    FlatSelectionBackgroundColor = 15263976
    FlatSelectionColor = clWindowText
    CategoryBackgroundColor = 15263976
    CategoryFont.Charset = DEFAULT_CHARSET
    CategoryFont.Color = clMaroon
    CategoryFont.Height = -11
    CategoryFont.Name = 'MS Sans Serif'
    CategoryFont.Style = [fsBold]
    DefaultPropName = 'Color'
    Splitter = 92
    Color = clWindow
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    PopupMenu = PopupMenu1
    TabOrder = 0
    OnGetComponent = LMDPropertyInspector1GetComponent
    OnGetComponents = LMDPropertyInspector1GetComponents
    OnGetComponentName = LMDPropertyInspector1GetComponentName
    OnFilterProp = LMDPropertyInspector1FilterProp
    OnChange = LMDPropertyInspector1Change
    OnGetCaptionColor = LMDPropertyInspector1GetCaptionColor
    OnClick = LMDPropertyInspector1Click
  end
  object pnlContainer: TPanel
    Left = 208
    Top = 8
    Width = 353
    Height = 233
    BevelOuter = bvNone
    BorderStyle = bsSingle
    TabOrder = 1
    object Label2: TLabel
      Left = 24
      Top = 120
      Width = 32
      Height = 13
      Caption = 'La&bel2'
    end
    object Panel1: TPanel
      Left = 12
      Top = 13
      Width = 185
      Height = 41
      Caption = 'Panel1'
      TabOrder = 0
    end
    object CheckBox1: TCheckBox
      Left = 52
      Top = 81
      Width = 97
      Height = 17
      Caption = 'CheckBox1'
      TabOrder = 1
    end
    object Memo1: TMemo
      Left = 108
      Top = 122
      Width = 185
      Height = 89
      Lines.Strings = (
        'Memo1')
      TabOrder = 2
    end
  end
  object Memo2: TMemo
    Left = 368
    Top = 288
    Width = 193
    Height = 161
    ScrollBars = ssBoth
    TabOrder = 2
  end
  object PageControl1: TPageControl
    Left = 8
    Top = 256
    Width = 353
    Height = 225
    ActivePage = TabSheet1
    TabOrder = 3
    object TabSheet1: TTabSheet
      Caption = 'Edit controls'
      object Shape1: TShape
        Left = 128
        Top = 136
        Width = 49
        Height = 20
      end
      object Button1: TButton
        Left = 16
        Top = 16
        Width = 105
        Height = 20
        Caption = 'Edit Panel1'
        TabOrder = 0
        OnClick = Button1Click
      end
      object Button2: TButton
        Left = 16
        Top = 40
        Width = 105
        Height = 20
        Caption = 'Edit CheckBox1'
        TabOrder = 1
        OnClick = Button2Click
      end
      object Button3: TButton
        Left = 16
        Top = 64
        Width = 105
        Height = 20
        Caption = 'Edit Memo1'
        TabOrder = 2
        OnClick = Button3Click
      end
      object Button4: TButton
        Left = 16
        Top = 111
        Width = 105
        Height = 21
        Caption = 'Edit Memo1.Font'
        TabOrder = 3
        OnClick = Button4Click
      end
      object Button5: TButton
        Left = 16
        Top = 136
        Width = 105
        Height = 20
        Caption = 'Edit TShape.Brush'
        TabOrder = 4
        OnClick = Button5Click
      end
      object Button7: TButton
        Left = 16
        Top = 88
        Width = 105
        Height = 20
        Caption = 'Edit all'
        TabOrder = 5
        OnClick = Button7Click
      end
      object Button10: TButton
        Left = 16
        Top = 159
        Width = 161
        Height = 21
        Caption = 'Edit Label2 with FocusControl'
        TabOrder = 6
        OnClick = Button10Click
      end
    end
    object TabSheet4: TTabSheet
      Caption = 'Visual style'
      ImageIndex = 3
      object Label6: TLabel
        Left = 16
        Top = 120
        Width = 321
        Height = 49
        AutoSize = False
        Caption = 'Use property inspector context menu to show/hide categories.'
        Color = clBtnFace
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentColor = False
        ParentFont = False
        WordWrap = True
      end
      object Button6: TButton
        Left = 16
        Top = 24
        Width = 75
        Height = 25
        Caption = 'Old style'
        TabOrder = 0
        OnClick = Button6Click
      end
      object Button8: TButton
        Left = 16
        Top = 56
        Width = 75
        Height = 25
        Caption = 'New style'
        TabOrder = 1
        OnClick = Button8Click
      end
      object CheckBox4: TCheckBox
        Left = 104
        Top = 56
        Width = 97
        Height = 17
        Caption = 'Gutter visible'
        Checked = True
        State = cbChecked
        TabOrder = 2
        OnClick = CheckBox4Click
      end
      object CheckBox5: TCheckBox
        Left = 104
        Top = 8
        Width = 97
        Height = 17
        Caption = 'Grid visible'
        TabOrder = 3
        OnClick = CheckBox5Click
      end
      object CheckBox6: TCheckBox
        Left = 104
        Top = 32
        Width = 97
        Height = 17
        Caption = 'Cursor visible'
        Checked = True
        State = cbChecked
        TabOrder = 4
        OnClick = CheckBox6Click
      end
      object Button9: TButton
        Left = 217
        Top = 8
        Width = 113
        Height = 25
        Caption = 'Arrange by category'
        TabOrder = 5
        OnClick = Button9Click
      end
      object Button11: TButton
        Left = 216
        Top = 40
        Width = 113
        Height = 25
        Caption = 'Arrange by name'
        TabOrder = 6
        OnClick = Button11Click
      end
      object CheckBox7: TCheckBox
        Left = 104
        Top = 80
        Width = 97
        Height = 17
        Caption = 'Flat selection'
        Checked = True
        State = cbChecked
        TabOrder = 7
        OnClick = CheckBox7Click
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Filtering and highlighting'
      ImageIndex = 1
      object Label4: TLabel
        Left = 8
        Top = 64
        Width = 103
        Height = 13
        Caption = 'Type properies heare:'
      end
      object CheckBox2: TCheckBox
        Left = 8
        Top = 8
        Width = 129
        Height = 17
        Caption = 'Filter properties'
        TabOrder = 0
        OnClick = CheckBox2Click
      end
      object Memo3: TMemo
        Left = 8
        Top = 80
        Width = 137
        Height = 105
        ScrollBars = ssBoth
        TabOrder = 1
      end
      object CheckBox3: TCheckBox
        Left = 8
        Top = 32
        Width = 129
        Height = 17
        Caption = 'Highlight properties'
        TabOrder = 2
        OnClick = CheckBox3Click
      end
    end
    object TabSheet3: TTabSheet
      Caption = 'BeveInner custom property editor'
      ImageIndex = 2
      object RadioButton1: TRadioButton
        Left = 104
        Top = 48
        Width = 113
        Height = 17
        Caption = 'Standart'
        Checked = True
        TabOrder = 0
        TabStop = True
        OnClick = RadioButton1Click
      end
      object RadioButton2: TRadioButton
        Left = 104
        Top = 72
        Width = 161
        Height = 17
        Caption = 'With replaced values'
        TabOrder = 1
        OnClick = RadioButton1Click
      end
      object RadioButton3: TRadioButton
        Left = 104
        Top = 96
        Width = 113
        Height = 17
        Caption = 'With dialog'
        TabOrder = 2
        OnClick = RadioButton1Click
      end
      object RadioButton4: TRadioButton
        Left = 104
        Top = 120
        Width = 113
        Height = 17
        Caption = 'With graphics'
        TabOrder = 3
        OnClick = RadioButton1Click
      end
    end
  end
  object PopupMenu1: TPopupMenu
    AutoHotkeys = maManual
    OnPopup = PopupMenu1Popup
    Left = 152
    Top = 192
  end
end