fcontact.dfm

siMail, siMail, siMail, siMail

        Text = 'Custom field 1'
      end
      object txtCustomLabel2: TEdit
        Left = 8
        Top = 80
        Width = 129
        Height = 21
        MaxLength = 64
        TabOrder = 4
        Text = 'Custom field 2'
      end
      object lstChat: TVirtualStringTree
        Left = 144
        Top = 152
        Width = 306
        Height = 165
        Hint = 'Click on item to edit'
        Colors.FocusedSelectionColor = 13613489
        Colors.SelectionRectangleBlendColor = 13613489
        Colors.UnfocusedSelectionColor = 15396334
        Colors.UnfocusedSelectionBorderColor = 13751260
        DefaultNodeHeight = 19
        Header.AutoSizeIndex = 2
        Header.Font.Charset = DEFAULT_CHARSET
        Header.Font.Color = clWindowText
        Header.Font.Height = -11
        Header.Font.Name = 'MS Sans Serif'
        Header.Font.Style = []
        Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoShowSortGlyphs, hoVisible]
        Header.Style = hsFlatButtons
        Images = ilChat
        Margin = 2
        ParentBackground = False
        TabOrder = 10
        TextMargin = 2
        TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScroll, toAutoScrollOnExpand, toAutoTristateTracking, toAutoDeleteMovedNodes]
        TreeOptions.MiscOptions = [toEditable, toFullRepaintOnResize, toGridExtensions, toReportMode, toToggleOnDblClick, toWheelPanning]
        TreeOptions.PaintOptions = [toHideFocusRect, toShowButtons, toShowHorzGridLines, toShowTreeLines, toShowVertGridLines, toThemeAware, toUseBlendedImages]
        TreeOptions.SelectionOptions = [toDisableDrawSelection, toExtendedFocus, toMultiSelect]
        TreeOptions.StringOptions = []
        OnAfterCellPaint = lstChatAfterCellPaint
        OnClick = lstChatClick
        OnCreateEditor = lstChatCreateEditor
        OnEdited = lstChatEdited
        OnEditing = lstChatEditing
        OnGetText = lstChatGetText
        OnGetNodeDataSize = lstChatGetNodeDataSize
        Columns = <
          item
            MaxWidth = 16
            MinWidth = 16
            Position = 0
            Width = 16
          end
          item
            MinWidth = 140
            Position = 1
            Width = 160
            WideText = 'Chat application'
          end
          item
            MinWidth = 120
            Position = 2
            Width = 130
            WideText = 'ID'
          end>
      end
      object cmdChatNew: TButton
        Left = 464
        Top = 152
        Width = 105
        Height = 25
        Action = actPersNew
        TabOrder = 11
      end
      object cmdChatDelete: TButton
        Left = 464
        Top = 184
        Width = 105
        Height = 25
        Action = actPersDelete
        TabOrder = 12
      end
      object txtCustomLabel3: TEdit
        Left = 8
        Top = 104
        Width = 129
        Height = 21
        MaxLength = 64
        TabOrder = 6
        Text = 'Custom field 3'
      end
      object txtCustom3: TEdit
        Left = 144
        Top = 104
        Width = 306
        Height = 21
        MaxLength = 128
        TabOrder = 7
      end
      object txtCustom4: TEdit
        Left = 144
        Top = 128
        Width = 306
        Height = 21
        MaxLength = 128
        TabOrder = 9
      end
      object txtCustomLabel4: TEdit
        Left = 8
        Top = 128
        Width = 129
        Height = 21
        MaxLength = 64
        TabOrder = 8
        Text = 'Custom field 4'
      end
      object txtChatId: TMFEdit
        Left = 456
        Top = 272
        Width = 101
        Height = 19
        Ctl3D = False
        MaxLength = 64
        ParentCtl3D = False
        TabOrder = 13
        Visible = False
        EditStyle = esCtl2D
        Keys = []
      end
      object cmboxChatApp: TMFComboEdit
        Left = 456
        Top = 248
        Width = 97
        Height = 21
        ItemHeight = 13
        TabOrder = 14
        Visible = False
        Items.Strings = (
          '')
        Keys = []
      end
    end
    object TabSheet3: TTabSheet
      Caption = 'Work'
      ImageIndex = 2
      object Label16: TLabel
        Left = 8
        Top = 12
        Width = 76
        Height = 13
        Caption = '&Company name:'
        FocusControl = txtWorkCompany
        Transparent = True
      end
      object Label17: TLabel
        Left = 8
        Top = 36
        Width = 39
        Height = 13
        Caption = '&Job title:'
        FocusControl = txtWorkJobTitle
        Transparent = True
      end
      object Label18: TLabel
        Left = 8
        Top = 60
        Width = 58
        Height = 13
        Caption = '&Department:'
        FocusControl = txtWorkDepartment
        Transparent = True
      end
      object Label20: TLabel
        Left = 456
        Top = 84
        Width = 21
        Height = 13
        Caption = '&Ext.:'
        FocusControl = txtWorkExtension
        Transparent = True
      end
      object Label19: TLabel
        Left = 8
        Top = 84
        Width = 54
        Height = 13
        Caption = '&Telephone:'
        FocusControl = txtWorkTelephone
        Transparent = True
      end
      object Label21: TLabel
        Left = 8
        Top = 108
        Width = 56
        Height = 13
        Caption = '&Mobile/Cell:'
        FocusControl = txtWorkMobile
        Transparent = True
      end
      object Label22: TLabel
        Left = 8
        Top = 132
        Width = 20
        Height = 13
        Caption = '&Fax:'
        FocusControl = txtWorkFax
        Transparent = True
      end
      object Label25: TLabel
        Left = 8
        Top = 156
        Width = 51
        Height = 13
        Caption = '&Pager No.:'
        FocusControl = txtWorkPager
        Transparent = True
      end
      object Label26: TLabel
        Left = 8
        Top = 180
        Width = 71
        Height = 13
        Caption = 'Street &address:'
        FocusControl = txtWorkStreet
        Transparent = True
      end
      object Label27: TLabel
        Left = 8
        Top = 228
        Width = 20
        Height = 13
        Caption = '&ZIP:'
        FocusControl = txtWorkZIP
        Transparent = True
      end
      object Label31: TLabel
        Left = 8
        Top = 252
        Width = 75
        Height = 13
        Caption = '&State/Province:'
        FocusControl = txtWorkState
        Transparent = True
      end
      object Label32: TLabel
        Left = 8
        Top = 274
        Width = 39
        Height = 13
        Caption = '&Country:'
        FocusControl = txtWorkCountry
        Transparent = True
      end
      object Label33: TLabel
        Left = 8
        Top = 300
        Width = 55
        Height = 13
        Caption = '&Homepage:'
        FocusControl = txtWorkHomepage
        Transparent = True
      end
      object txtWorkDepartment: TEdit
        Left = 144
        Top = 56
        Width = 306
        Height = 21
        MaxLength = 128
        TabOrder = 2
      end
      object txtWorkJobTitle: TEdit
        Left = 144
        Top = 32
        Width = 306
        Height = 21
        MaxLength = 128
        TabOrder = 1
      end
      object txtWorkCompany: TEdit
        Left = 144
        Top = 8
        Width = 306
        Height = 21
        MaxLength = 128
        TabOrder = 0
      end
      object txtWorkExtension: TEdit
        Left = 504
        Top = 80
        Width = 105
        Height = 21
        MaxLength = 16
        TabOrder = 4
      end
      object txtWorkTelephone: TEdit
        Left = 144
        Top = 80
        Width = 306
        Height = 21
        MaxLength = 128
        TabOrder = 3
      end
      object txtWorkMobile: TEdit
        Left = 144