object frmEditElement: TfrmEditElement
  Left = 376
  Height = 445
  Top = 163
  Width = 379
  HorzScrollBar.Page = 378
  VertScrollBar.Page = 444
  BorderStyle = bsDialog
  Caption = 'Edit Element'
  ClientHeight = 445
  ClientWidth = 379
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  OnCreate = FormCreate
  OnShow = FormShow
  Position = poScreenCenter
  object Label1: TLabel
    Left = 8
    Height = 15
    Top = 136
    Width = 72
    Caption = 'Day Offset:'
    ParentColor = False
  end
  object Label2: TLabel
    Left = 12
    Height = 15
    Top = 16
    Width = 48
    Caption = 'Name: '
    ParentColor = False
  end
  object rgItemType: TRadioGroup
    Left = 12
    Height = 81
    Top = 44
    Width = 349
    AutoFill = True
    Caption = 'Item Type '
    ChildSizing.LeftRightSpacing = 6
    ChildSizing.TopBottomSpacing = 6
    ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
    ChildSizing.EnlargeVertical = crsHomogenousChildResize
    ChildSizing.ShrinkHorizontal = crsScaleChilds
    ChildSizing.ShrinkVertical = crsScaleChilds
    ChildSizing.Layout = cclLeftToRightThenTopToBottom
    ChildSizing.ControlsPerLine = 4
    ClientHeight = 61
    ClientWidth = 345
    Columns = 4
    ItemIndex = 0
    Items.Strings = (
      'DayView'
      'WeekView'
      'MonthView'
      'Calendar'
      'Shape'
      'Caption'
      'Tasks'
      'Contacts'
    )
    OnClick = rgItemTypeClick
    TabOrder = 1
  end
  object rgDayOffset: TRadioGroup
    Left = 100
    Height = 37
    Top = 136
    Width = 261
    AutoFill = True
    Caption = ' Day Offset Unit '
    ChildSizing.LeftRightSpacing = 6
    ChildSizing.TopBottomSpacing = 6
    ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
    ChildSizing.EnlargeVertical = crsHomogenousChildResize
    ChildSizing.ShrinkHorizontal = crsScaleChilds
    ChildSizing.ShrinkVertical = crsScaleChilds
    ChildSizing.Layout = cclLeftToRightThenTopToBottom
    ChildSizing.ControlsPerLine = 4
    ClientHeight = 17
    ClientWidth = 257
    Columns = 4
    ItemIndex = 0
    Items.Strings = (
      'Day'
      'Week'
      'Month'
      'Year'
    )
    TabOrder = 2
  end
  object btnOk: TButton
    Left = 212
    Height = 25
    Top = 412
    Width = 75
    Caption = 'OK'
    Default = True
    OnClick = btnOkClick
    TabOrder = 6
  end
  object btnCancel: TButton
    Left = 292
    Height = 25
    Top = 412
    Width = 75
    Cancel = True
    Caption = 'Cancel'
    OnClick = btnCancelClick
    TabOrder = 7
  end
  object edName: TEdit
    Left = 56
    Height = 21
    Top = 12
    Width = 241
    TabOrder = 0
  end
  object btnShape: TButton
    Left = 44
    Height = 25
    Top = 412
    Width = 75
    Caption = 'Shape...'
    Enabled = False
    OnClick = btnShapeClick
    TabOrder = 5
  end
  object gbVisual: TGroupBox
    Left = 12
    Height = 121
    Top = 184
    Width = 357
    Caption = ' Visual '
    ClientHeight = 101
    ClientWidth = 353
    TabOrder = 3
    object Label3: TLabel
      Left = 172
      Height = 15
      Top = 20
      Width = 28
      Caption = 'Top:'
      ParentColor = False
    end
    object Label4: TLabel
      Left = 172
      Height = 15
      Top = 48
      Width = 29
      Caption = 'Left:'
      ParentColor = False
    end
    object Label5: TLabel
      Left = 259
      Height = 15
      Top = 20
      Width = 47
      Caption = 'Height:'
      ParentColor = False
    end
    object Label6: TLabel
      Left = 263
      Height = 15
      Top = 48
      Width = 40
      Caption = 'Width:'
      ParentColor = False
    end
    object rgMeasurement: TRadioGroup
      Left = 76
      Height = 80
      Top = 20
      Width = 89
      AutoFill = True
      Caption = ' Measurement '
      ChildSizing.LeftRightSpacing = 6
      ChildSizing.TopBottomSpacing = 6
      ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
      ChildSizing.EnlargeVertical = crsHomogenousChildResize
      ChildSizing.ShrinkHorizontal = crsScaleChilds
      ChildSizing.ShrinkVertical = crsScaleChilds
      ChildSizing.Layout = cclLeftToRightThenTopToBottom
      ChildSizing.ControlsPerLine = 1
      ClientHeight = 60
      ClientWidth = 85
      ItemIndex = 1
      Items.Strings = (
        'Pixels'
        'Percent'
        'Inches'
      )
      OnClick = rgMeasurementClick
      TabOrder = 1
    end
    object rgRotation: TRadioGroup
      Left = 8
      Height = 93
      Top = 20
      Width = 61
      AutoFill = True
      Caption = ' Rotation '
      ChildSizing.LeftRightSpacing = 6
      ChildSizing.TopBottomSpacing = 6
      ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
      ChildSizing.EnlargeVertical = crsHomogenousChildResize
      ChildSizing.ShrinkHorizontal = crsScaleChilds
      ChildSizing.ShrinkVertical = crsScaleChilds
      ChildSizing.Layout = cclLeftToRightThenTopToBottom
      ChildSizing.ControlsPerLine = 1
      ClientHeight = 73
      ClientWidth = 57
      ItemIndex = 0
      Items.Strings = (
        '0'
        '90'
        '180'
        '270'
      )
      TabOrder = 0
    end
    object edTop: TEdit
      Left = 197
      Height = 21
      Top = 16
      Width = 40
      OnEnter = PosEditEnter
      OnExit = PosEditExit
      TabOrder = 2
      Text = '0.00'
    end
    object edLeft: TEdit
      Left = 197
      Height = 21
      Top = 44
      Width = 40
      OnEnter = PosEditEnter
      OnExit = PosEditExit
      TabOrder = 3
      Text = '0.00'
    end
    object edHeight: TEdit
      Left = 296
      Height = 21
      Top = 16
      Width = 40
      OnEnter = PosEditEnter
      OnExit = PosEditExit
      TabOrder = 4
      Text = '0.00'
    end
    object edWidth: TEdit
      Left = 296
      Height = 21
      Top = 44
      Width = 40
      OnEnter = PosEditEnter
      OnExit = PosEditExit
      TabOrder = 5
      Text = '0.00'
    end
    object chkVisible: TCheckBox
      Left = 228
      Height = 23
      Top = 80
      Width = 65
      Caption = 'Visible'
      TabOrder = 6
    end
    object udTop: TUpDown
      Left = 237
      Height = 21
      Top = 16
      Width = 12
      TabOrder = 7
      OnClick = UpDownClick
    end
    object udLeft: TUpDown
      Left = 237
      Height = 21
      Top = 44
      Width = 12
      TabOrder = 8
      OnClick = UpDownClick
    end
    object udHeight: TUpDown
      Left = 336
      Height = 21
      Top = 16
      Width = 12
      TabOrder = 9
      OnClick = UpDownClick
    end
    object udWidth: TUpDown
      Left = 336
      Height = 21
      Top = 44
      Width = 12
      TabOrder = 10
      OnClick = UpDownClick
    end
  end
  object gbCaption: TGroupBox
    Left = 12
    Height = 93
    Top = 316
    Width = 357
    Caption = ' Caption '
    ClientHeight = 73
    ClientWidth = 353
    TabOrder = 4
    object lbCaptionText: TLabel
      Left = 16
      Height = 15
      Top = 24
      Width = 36
      Caption = 'Text: '
      ParentColor = False
    end
    object btnCaptionFont: TButton
      Left = 24
      Height = 25
      Top = 48
      Width = 75
      Caption = 'Font...'
      OnClick = btnCaptionFontClick
      TabOrder = 1
    end
    object edCaptionText: TEdit
      Left = 52
      Height = 21
      Top = 20
      Width = 293
      OnChange = edCaptionTextChange
      TabOrder = 0
    end
  end
  object edOffset: TEdit
    Left = 20
    Height = 21
    Top = 156
    Width = 54
    OnKeyDown = nil
    TabOrder = 8
    Text = '0'
  end
  object udOffset: TUpDown
    Left = 74
    Height = 21
    Top = 156
    Width = 11
    Associate = edOffset
    TabOrder = 9
  end
  object FontDialog1: TFontDialog
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    left = 4
    top = 308
  end
end
