qpropstorageediteh.xfm

delphi 比较好用的控件

object PropStorageEditEhForm: TPropStorageEditEhForm
  Left = 280
  Top = 104
  ActiveControl = TreeView1
  AutoScroll = False
  BorderIcons = [biSystemMenu, biMaximize]
  Caption = 'Editing properties list'
  ClientHeight = 374
  ClientWidth = 555
  Color = clButton
  Constraints.MinHeight = 320
  Constraints.MinWidth = 320
  Font.Color = clText
  Font.Height = 10
  Font.Name = 'MS Sans Serif'
  Font.Pitch = fpVariable
  Font.Style = []
  Font.Weight = 40
  ParentFont = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 13
  TextWidth = 6
  object spAddProp: TSpeedButton
    Left = 268
    Top = 136
    Width = 22
    Height = 22
    Hint = 'Add property'
    Caption = '>'
    ParentShowHint = False
    ShowHint = True
    OnClick = spAddPropClick
  end
  object sbRemoveAllProps: TSpeedButton
    Left = 268
    Top = 190
    Width = 22
    Height = 22
    Hint = 'Remove all properties'
    Caption = '<<'
    ParentShowHint = False
    ShowHint = True
    OnClick = sbRemoveAllPropsClick
  end
  object sbRemoveProp: TSpeedButton
    Left = 268
    Top = 163
    Width = 22
    Height = 22
    Hint = 'Remove property'
    Caption = '<'
    ParentShowHint = False
    ShowHint = True
    OnClick = sbRemovePropClick
  end
  object Bevel1: TBevel
    Left = 15
    Top = 333
    Width = 522
    Height = 2
    Anchors = [akLeft, akRight, akBottom]
  end
  object spSynchTrees: TSpeedButton
    Left = 268
    Top = 218
    Width = 22
    Height = 22
    Hint = 'Synchronize trees'
    Caption = '<>'
    ParentShowHint = False
    ShowHint = True
    OnClick = spSynchTreesClick
  end
  object lCompsAndProps: TLabel
    Left = 12
    Top = 60
    Width = 123
    Height = 13
    Caption = 'Component properties'
    Font.Color = clText
    Font.Height = 12
    Font.Name = 'MS Sans Serif'
    Font.Pitch = fpVariable
    Font.Style = [fsBold]
    ParentFont = False
  end
  object lStoredProps: TLabel
    Left = 302
    Top = 60
    Width = 97
    Height = 13
    Caption = 'Stored properties'
    Font.Color = clText
    Font.Height = 12
    Font.Name = 'MS Sans Serif'
    Font.Pitch = fpVariable
    Font.Style = [fsBold]
    ParentFont = False
  end
  object TreeView1: TTreeView
    Left = 11
    Top = 77
    Width = 244
    Height = 250
    Anchors = [akLeft, akTop, akBottom]
    Columns = <>
    Images = ImageList1
    Indent = 19
    ReadOnly = True
    TabOrder = 0
    OnChange = TreeView1Change
    OnDeletion = TreeView1Deletion
    OnExpanding = TreeView1Expanding
    OnGetSelectedIndex = TreeView1GetSelectedIndex
    OnMouseDown = TreeView1MouseDown
    OnMouseMove = TreeView1MouseMove
    OnMouseUp = TreeView1MouseUp
  end
  object TreeView2: TTreeView
    Left = 300
    Top = 75
    Width = 244
    Height = 250
    Anchors = [akTop, akRight, akBottom]
    Columns = <>
    Indent = 19
    ReadOnly = True
    Sorted = True
    SortType = stText
    TabOrder = 1
    OnChange = TreeView1Change
    OnMouseDown = TreeView2MouseDown
  end
  object bOk: TButton
    Left = 377
    Top = 343
    Width = 76
    Height = 24
    Anchors = [akRight, akBottom]
    Caption = 'OK'
    Default = True
    ModalResult = 1
    TabOrder = 2
  end
  object bCancel: TButton
    Left = 458
    Top = 343
    Width = 76
    Height = 24
    Anchors = [akRight, akBottom]
    Cancel = True
    Caption = 'Cancel'
    ModalResult = 2
    TabOrder = 3
  end
  object cbPredifinedProps: TCheckListBox
    Left = 12
    Top = 4
    Width = 532
    Height = 49
    Anchors = [akLeft, akTop, akRight]
    Columns = 3
    ItemHeight = 13
    TabOrder = 4
    OnClickCheck = cbPredifinedPropsClickCheck
  end
  object Edit1: TEdit
    Left = 11
    Top = 345
    Width = 87
    Height = 21
    Anchors = [akLeft, akBottom]
    TabOrder = 5
    Text = 'Edit1'
    Visible = False
  end
  object Edit2: TEdit
    Left = 104
    Top = 346
    Width = 261
    Height = 21
    Anchors = [akLeft, akBottom]
    TabOrder = 6
    Text = 'Edit2'
    Visible = False
  end
  object ImageList1: TImageList
    Left = 22
    Top = 102
    Bitmap = {
      494D474C0100010010000000100000000D000000424D36300000000000003600
      0000280000004000000040000000010018000000000000300000120B0000120B
      00000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF