fprofiles.dfm

siMail, siMail, siMail, siMail

object frmProfiles: TfrmProfiles
  Left = 387
  Top = 496
  BorderStyle = bsDialog
  Caption = 'Manage profiles'
  ClientHeight = 219
  ClientWidth = 330
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  ShowHint = True
  OnHide = FormHide
  OnShortCut = FormShortCut
  OnShow = FormShow
  DesignSize = (
    330
    219)
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 8
    Width = 37
    Height = 13
    Caption = '&Profiles:'
    FocusControl = lstProfiles
    Transparent = True
  end
  object Bevel1: TBevel
    Left = 8
    Top = 176
    Width = 313
    Height = 8
    Shape = bsTopLine
  end
  object lstProfiles: TListBox
    Left = 8
    Top = 24
    Width = 225
    Height = 145
    ItemHeight = 13
    Sorted = True
    TabOrder = 0
    OnClick = lstProfilesClick
    OnDblClick = lstProfilesDblClick
  end
  object cmdNew: TButton
    Left = 248
    Top = 24
    Width = 75
    Height = 25
    Action = actNew
    TabOrder = 1
  end
  object cmdDelete: TButton
    Left = 247
    Top = 88
    Width = 75
    Height = 25
    Action = actDelete
    TabOrder = 2
  end
  object cmdClose: TButton
    Left = 247
    Top = 184
    Width = 75
    Height = 25
    Hint = 'Close window'
    Anchors = [akTop, akRight]
    Caption = '&Close'
    TabOrder = 5
    OnClick = cmdCloseClick
  end
  object cmdEdit: TButton
    Left = 247
    Top = 56
    Width = 75
    Height = 25
    Action = actEdit
    TabOrder = 3
  end
  object cmdUse: TButton
    Left = 8
    Top = 184
    Width = 75
    Height = 25
    Hint = 'Use selected profile'
    Caption = '&Use'
    Enabled = False
    TabOrder = 4
    OnClick = cmdUseClick
  end
  object ActionList1: TActionList
    Left = 200
    Top = 184
    object actNew: TAction
      Caption = '&New ...'
      Hint = 'Create new profile'
      OnExecute = actNewExecute
      OnUpdate = actNewUpdate
    end
    object actEdit: TAction
      Caption = '&Edit...'
      Hint = 'Edit profile settings'
      OnExecute = actEditExecute
      OnUpdate = actEditUpdate
    end
    object actDelete: TAction
      Caption = '&Delete'
      Hint = 'Delete profile'
      OnExecute = actDeleteExecute
      OnUpdate = actDeleteUpdate
    end
  end
end