Chip 2001 September/Chip_2001-09_cd1.bin/zkuste/delphi/kolekce/d56/RMCTL.ZIP/rmInspectorEdit.dfm/rmInspectorEdit.txt

Text File | 2001-06-22 | 10.7 KB | 432 lines

object frmInspectorEditor: TfrmInspectorEditor
  Left = 443
  Top = 315
  BorderStyle = bsDialog
  Caption = 'rmInspector Editor'
  ClientHeight = 293
  ClientWidth = 558
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel3: TPanel
    Left = 0
    Top = 259
    Width = 558
    Height = 34
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 0
    object btnCancel: TButton
      Left = 479
      Top = 5
      Width = 75
      Height = 25
      Cancel = True
      Caption = '&Cancel'
      ModalResult = 2
      TabOrder = 0
    end
    object btnOK: TButton
      Left = 399
      Top = 5
      Width = 75
      Height = 25
      Caption = '&OK'
      ModalResult = 1
      TabOrder = 1
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 558
    Height = 259
    Align = alClient
    BevelOuter = bvNone
    BorderWidth = 2
    TabOrder = 1
    object Panel2: TPanel
      Left = 281
      Top = 2
      Width = 275
      Height = 255
      Align = alClient
      BevelInner = bvRaised
      BevelOuter = bvLowered
      TabOrder = 0
      object Label2: TLabel
        Left = 2
        Top = 2
        Width = 271
        Height = 17
        Align = alTop
        AutoSize = False
        Caption = '  Item Properties:'
        Layout = tlCenter
      end
      object Panel5: TPanel
        Left = 2
        Top = 19
        Width = 271
        Height = 234
        Align = alClient
        BevelInner = bvLowered
        BevelOuter = bvNone
        BorderWidth = 3
        Caption = 'Panel5'
        TabOrder = 0
        object rmTabSet1: TrmTabSet
          Left = 4
          Top = 209
          Width = 263
          Height = 21
          Align = alBottom
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Tabs.Strings = (
            'Standard'
            'Specific')
          TabIndex = 0
          TabType = ttWin2k
          OnChange = rmTabSet1Change
        end
        object Notebook1: TNotebook
          Left = 4
          Top = 4
          Width = 263
          Height = 205
          Align = alClient
          Color = clBtnFace
          ParentColor = False
          TabOrder = 1
          object TPage
            Left = 0
            Top = 0
            Caption = 'Standard'
            object Label10: TLabel
              Left = 6
              Top = 29
              Width = 62
              Height = 13
              Caption = '&Object Name'
              FocusControl = itemName
            end
            object Label7: TLabel
              Left = 6
              Top = 67
              Width = 47
              Height = 13
              Caption = 'Item &Text'
              FocusControl = ItemText
            end
            object Label8: TLabel
              Left = 6
              Top = 105
              Width = 55
              Height = 13
              Caption = 'Initial &Value'
              FocusControl = ItemValue
            end
            object Label9: TLabel
              Left = 6
              Top = 144
              Width = 68
              Height = 13
              Caption = 'Inspector &Hint'
              FocusControl = ItemDesc
            end
            object ItemType: TrmLabel
              Left = 60
              Top = 6
              Width = 196
              Height = 19
              Alignment = taCenter
              Layout = rmtlCenter
              BorderStyle = rmbsSunken
            end
            object Label12: TLabel
              Left = 8
              Top = 9
              Width = 49
              Height = 13
              Caption = 'Item Type'
            end
            object itemName: TEdit
              Left = 4
              Top = 44
              Width = 252
              Height = 21
              TabOrder = 0
              OnEnter = itemNameEnter
              OnExit = itemNameExit
            end
            object ItemText: TEdit
              Left = 4
              Top = 82
              Width = 252
              Height = 21
              TabOrder = 1
              OnEnter = ItemTextEnter
              OnExit = ItemTextExit
            end
            object ItemValue: TEdit
              Left = 4
              Top = 120
              Width = 252
              Height = 21
              TabOrder = 2
              OnEnter = ItemValueEnter
              OnExit = ItemValueExit
            end
            object ItemDesc: TEdit
              Left = 4
              Top = 159
              Width = 252
              Height = 21
              TabOrder = 3
            end
          end
          object TPage
            Left = 0
            Top = 0
            Caption = 'Specific_TrmStringInspectorItem'
            object Label3: TLabel
              Left = 8
              Top = 13
              Width = 97
              Height = 13
              Caption = 'Password Character'
            end
            object Label4: TLabel
              Left = 49
              Top = 40
              Width = 56
              Height = 13
              Caption = 'Max Length'
            end
            object edtStrPassChar: TEdit
              Left = 110
              Top = 10
              Width = 46
              Height = 21
              TabOrder = 0
              Text = '#0'
              OnEnter = edtStrPassCharEnter
              OnExit = edtStrPassCharExit
            end
            object edtStrMaxLen: TEdit
              Left = 110
              Top = 37
              Width = 46
              Height = 21
              TabOrder = 1
              Text = '0'
              OnEnter = edtStrMaxLenEnter
              OnExit = edtStrMaxLenExit
            end
          end
          object TPage
            Left = 0
            Top = 0
            Caption = 'Specific_TrmComplexInspectorItem'
            object Label13: TLabel
              Left = 76
              Top = 94
              Width = 115
              Height = 13
              Caption = 'No Additional Properties'
            end
          end
          object TPage
            Left = 0
            Top = 0
            Caption = 'Specific_TrmComboInspectorItem'
            object Label5: TLabel
              Left = 8
              Top = 5
              Width = 31
              Height = 13
              Caption = 'Items:'
            end
            object mCmbItems: TMemo
              Left = 6
              Top = 23
              Width = 250
              Height = 176
              ScrollBars = ssVertical
              TabOrder = 0
              OnEnter = mCmbItemsEnter
              OnExit = mCmbItemsExit
            end
          end
          object TPage
            Left = 0
            Top = 0
            Caption = 'Specific_TrmIntegerInspectorItem'
            object Panel7: TPanel
              Left = 6
              Top = 12
              Width = 252
              Height = 69
              BevelInner = bvLowered
              TabOrder = 1
              object Label6: TLabel
                Left = 14
                Top = 15
                Width = 45
                Height = 13
                Caption = 'Min Value'
                Enabled = False
              end
              object Label11: TLabel
                Left = 10
                Top = 40
                Width = 49
                Height = 13
                Caption = 'Max Value'
                Enabled = False
              end
              object edtIntMinVal: TEdit
                Left = 62
                Top = 12
                Width = 83
                Height = 21
                Enabled = False
                TabOrder = 0
                Text = '0'
                OnEnter = edtIntMinValEnter
                OnExit = edtIntMinValExit
              end
              object edtIntMaxVal: TEdit
                Left = 62
                Top = 37
                Width = 83
                Height = 21
                Enabled = False
                TabOrder = 1
                Text = '1'
                OnEnter = edtIntMaxValEnter
                OnExit = edtIntMaxValExit
              end
            end
            object cbxIntUseRanges: TCheckBox
              Left = 15
              Top = 4
              Width = 76
              Height = 17
              Caption = 'Use Ranges'
              TabOrder = 0
              OnClick = cbxIntUseRangesClick
            end
          end
          object TPage
            Left = 0
            Top = 0
            Caption = 'Specific_TrmDateInspectorItem'
            object Label14: TLabel
              Left = 10
              Top = 17
              Width = 60
              Height = 13
              Caption = 'Date Format'
            end
            object edtDateformat: TEdit
              Left = 73
              Top = 14
              Width = 118
              Height = 21
              TabOrder = 0
              OnEnter = edtDateformatEnter
              OnExit = edtDateformatExit
            end
          end
        end
      end
    end
    object Panel6: TPanel
      Left = 2
      Top = 2
      Width = 279
      Height = 255
      Align = alLeft
      BevelOuter = bvNone
      Caption = 'Panel2'
      TabOrder = 1
      object Label1: TLabel
        Left = 5
        Top = 6
        Width = 80
        Height = 13
        Caption = '&Inspector Items:'
        FocusControl = rmInspector1
      end
      object rmInspector1: TrmInspector
        Left = 1
        Top = 23
        Width = 190
        Height = 227
        Readonly = True
        ToolTip = False
        TabOrder = 0
        BorderStyle = bsSingle
        SplitPos = 95
        OnItemIndexChanging = rmInspector1ItemIndexChanging
        OnItemIndexChanged = rmInspector1ItemIndexChanged
      end
      object btnNew: TButton
        Left = 195
        Top = 23
        Width = 77
        Height = 25
        Action = actNewItem
        TabOrder = 1
      end
      object btnNewSub: TButton
        Left = 195
        Top = 50
        Width = 77
        Height = 25
        Action = actNewSubItem
        TabOrder = 2
      end
      object btnDelete: TButton
        Left = 195
        Top = 77
        Width = 77
        Height = 25
        Action = actDeleteItem
        TabOrder = 3
      end
    end
  end
  object ActionList1: TActionList
    Left = 230
    Top = 128
    object actNewItem: TAction
      Caption = '&New Item'
      OnExecute = actNewExecute
    end
    object actNewSubItem: TAction
      Caption = 'New &Sub-Item'
      OnExecute = actNewSubExecute
      OnUpdate = actNewSubItemUpdate
    end
    object actDeleteItem: TAction
      Caption = '&Delete Item'
      OnExecute = btnDeleteClick
      OnUpdate = actDeleteItemUpdate
    end
  end
end