lazarus-ccr/components/tvplanit/source/vpedelem.lfm

object frmEditElement: TfrmEditElement
  Left = 288
  Height = 447
  Top = 321
  Width = 473
  HorzScrollBar.Page = 378
  VertScrollBar.Page = 444
  AutoSize = True
  BorderStyle = bsDialog
  Caption = 'Edit Element'
  ClientHeight = 447
  ClientWidth = 473
  OnCreate = FormCreate
  OnShow = FormShow
  Position = poScreenCenter
  object gbVisual: TGroupBox
    Left = 12
    Height = 144
    Top = 196
    Width = 449
    Align = alTop
    AutoSize = True
    BorderSpacing.Left = 12
    BorderSpacing.Top = 12
    BorderSpacing.Right = 12
    Caption = ' Visual '
    ClientHeight = 124
    ClientWidth = 445
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 3
    object rgMeasurement: TRadioGroup
      AnchorSideLeft.Control = rgRotation
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = gbVisual
      Left = 104
      Height = 116
      Top = 0
      Width = 106
      AutoFill = True
      AutoSize = True
      BorderSpacing.Left = 16
      BorderSpacing.Bottom = 8
      BorderSpacing.InnerBorder = 4
      Caption = ' Measurement '
      ChildSizing.LeftRightSpacing = 16
      ChildSizing.TopBottomSpacing = 6
      ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
      ChildSizing.EnlargeVertical = crsHomogenousChildResize
      ChildSizing.ShrinkHorizontal = crsScaleChilds
      ChildSizing.ShrinkVertical = crsScaleChilds
      ChildSizing.Layout = cclLeftToRightThenTopToBottom
      ChildSizing.ControlsPerLine = 1
      ClientHeight = 96
      ClientWidth = 102
      ItemIndex = 1
      Items.Strings = (
        'Pixels'
        'Percent'
        'Inches'
        'cm'
      )
      OnClick = rgMeasurementClick
      ParentFont = False
      TabOrder = 1
    end
    object rgRotation: TRadioGroup
      AnchorSideLeft.Control = gbVisual
      AnchorSideTop.Control = gbVisual
      Left = 8
      Height = 116
      Top = 0
      Width = 80
      AutoFill = True
      AutoSize = True
      BorderSpacing.Left = 8
      BorderSpacing.Bottom = 8
      BorderSpacing.InnerBorder = 4
      Caption = ' Rotation '
      ChildSizing.LeftRightSpacing = 16
      ChildSizing.TopBottomSpacing = 6
      ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
      ChildSizing.EnlargeVertical = crsHomogenousChildResize
      ChildSizing.ShrinkHorizontal = crsScaleChilds
      ChildSizing.ShrinkVertical = crsScaleChilds
      ChildSizing.Layout = cclLeftToRightThenTopToBottom
      ChildSizing.ControlsPerLine = 1
      ClientHeight = 96
      ClientWidth = 76
      ItemIndex = 0
      Items.Strings = (
        '0'
        '90'
        '180'
        '270'
      )
      ParentFont = False
      TabOrder = 0
    end
    object HeightWidthPanel: TPanel
      AnchorSideLeft.Control = TopLeftPanel
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = rgMeasurement
      AnchorSideTop.Side = asrCenter
      AnchorSideBottom.Side = asrBottom
      Left = 334
      Height = 54
      Top = 31
      Width = 99
      AutoSize = True
      BorderSpacing.Left = 16
      BorderSpacing.Top = 10
      BorderSpacing.Right = 12
      BevelOuter = bvNone
      ClientHeight = 54
      ClientWidth = 99
      ParentFont = False
      TabOrder = 2
      object LblHeight: TLabel
        AnchorSideTop.Control = edHeight
        AnchorSideTop.Side = asrCenter
        AnchorSideRight.Control = edHeight
        Left = 0
        Height = 15
        Top = 4
        Width = 39
        Anchors = [akTop, akRight]
        BorderSpacing.Right = 8
        Caption = 'Height:'
        Color = clDefault
        FocusControl = edHeight
        ParentColor = False
      end
      object edHeight: TEdit
        AnchorSideTop.Control = BevelHeightWidth
        AnchorSideTop.Side = asrBottom
        AnchorSideRight.Control = udHeight
        AnchorSideBottom.Control = BevelHeightWidth
        Left = 47
        Height = 23
        Top = 0
        Width = 40
        Anchors = [akRight, akBottom]
        OnEnter = PosEditEnter
        OnExit = PosEditExit
        TabOrder = 0
        Text = '0.00'
      end
      object udHeight: TUpDown
        AnchorSideTop.Control = edHeight
        AnchorSideTop.Side = asrCenter
        AnchorSideRight.Control = HeightWidthPanel
        AnchorSideRight.Side = asrBottom
        Left = 87
        Height = 23
        Top = 0
        Width = 12
        Anchors = [akTop, akRight]
        Associate = edHeight
        Min = 0
        OnClick = UpDownClick
        Position = 0
        TabOrder = 1
      end
      object LblWidth: TLabel
        AnchorSideTop.Control = edWidth
        AnchorSideTop.Side = asrCenter
        AnchorSideRight.Control = edWidth
        Left = 4
        Height = 15
        Top = 35
        Width = 35
        Anchors = [akTop, akRight]
        BorderSpacing.Right = 8
        Caption = 'Width:'
        Color = clDefault
        FocusControl = edWidth
        ParentColor = False
      end
      object edWidth: TEdit
        AnchorSideTop.Control = BevelHeightWidth
        AnchorSideTop.Side = asrBottom
        AnchorSideRight.Control = udWidth
        Left = 47
        Height = 23
        Top = 31
        Width = 40
        Anchors = [akTop, akRight]
        OnEnter = PosEditEnter
        OnExit = PosEditExit
        TabOrder = 2
        Text = '0.00'
      end
      object udWidth: TUpDown
        AnchorSideTop.Control = edWidth
        AnchorSideTop.Side = asrCenter
        AnchorSideRight.Control = HeightWidthPanel
        AnchorSideRight.Side = asrBottom
        Left = 87
        Height = 23
        Top = 31
        Width = 12
        Anchors = [akTop, akRight]
        Associate = edWidth
        Min = 0
        OnClick = UpDownClick
        Position = 0
        TabOrder = 3
      end
      object BevelHeightWidth: TBevel
        AnchorSideLeft.Control = HeightWidthPanel
        AnchorSideTop.Control = HeightWidthPanel
        AnchorSideTop.Side = asrCenter
        AnchorSideRight.Control = HeightWidthPanel
        AnchorSideRight.Side = asrBottom
        Left = 0
        Height = 8
        Top = 23
        Width = 99
        Anchors = [akTop, akLeft, akRight]
      end
    end
    object TopLeftPanel: TPanel
      AnchorSideLeft.Control = rgMeasurement
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = rgMeasurement
      AnchorSideTop.Side = asrCenter
      Left = 226
      Height = 54
      Top = 31
      Width = 92
      AutoSize = True
      BorderSpacing.Left = 16
      BevelOuter = bvNone
      ClientHeight = 54
      ClientWidth = 92
      ParentFont = False
      TabOrder = 3
      object BevelTopLeft: TBevel
        AnchorSideTop.Control = TopLeftPanel
        AnchorSideTop.Side = asrCenter
        AnchorSideRight.Control = TopLeftPanel
        AnchorSideRight.Side = asrBottom
        Left = 0
        Height = 8
        Top = 23
        Width = 92
        Anchors = [akTop, akLeft, akRight]
      end
      object LblTop: TLabel
        AnchorSideTop.Control = edTop
        AnchorSideTop.Side = asrCenter
        AnchorSideRight.Control = edTop
        Left = 2
        Height = 15
        Top = 4
        Width = 22
        Anchors = [akTop, akRight]
        BorderSpacing.Left = 1
        BorderSpacing.Right = 8
        Caption = 'Top:'
        Color = clDefault
        FocusControl = edTop
        ParentColor = False
      end
      object edTop: TEdit
        AnchorSideRight.Control = udTop
        AnchorSideBottom.Control = BevelTopLeft
        Left = 32
        Height = 23
        Top = 0
        Width = 48
        Anchors = [akRight, akBottom]
        OnEnter = PosEditEnter
        OnExit = PosEditExit
        TabOrder = 0
        Text = '0.00'
      end
      object udTop: TUpDown
        AnchorSideLeft.Side = asrBottom
        AnchorSideTop.Side = asrCenter
        AnchorSideRight.Control = TopLeftPanel
        AnchorSideRight.Side = asrBottom
        Left = 80
        Height = 23
        Top = 0
        Width = 12
        Anchors = [akTop, akRight]
        Associate = edTop
        Min = 0
        OnClick = UpDownClick
        Position = 0
        TabOrder = 1
      end
      object udLeft: TUpDown
        AnchorSideLeft.Side = asrBottom
        AnchorSideTop.Control = edLeft
        AnchorSideTop.Side = asrCenter
        AnchorSideRight.Control = TopLeftPanel
        AnchorSideRight.Side = asrBottom
        Left = 80
        Height = 23
        Top = 31
        Width = 12
        Anchors = [akTop, akRight]
        Associate = edLeft
        Min = 0
        OnClick = UpDownClick
        Position = 0
        TabOrder = 2
      end
      object edLeft: TEdit
        AnchorSideTop.Side = asrBottom
        AnchorSideRight.Control = udLeft
        Left = 32
        Height = 23
        Top = 31
        Width = 48
        Anchors = [akTop, akRight]
        OnEnter = PosEditEnter
        OnExit = PosEditExit
        TabOrder = 3
        Text = '0.00'
      end
      object LblLeft: TLabel
        AnchorSideTop.Control = edLeft
        AnchorSideTop.Side = asrCenter
        AnchorSideRight.Control = edLeft
        Left = 1
        Height = 15
        Top = 35
        Width = 23
        Anchors = [akTop, akRight]
        BorderSpacing.Left = 1
        BorderSpacing.Right = 8
        Caption = 'Left:'
        Color = clDefault
        FocusControl = edLeft
        ParentColor = False
      end
    end
    object chkVisible: TCheckBox
      AnchorSideLeft.Control = TopLeftPanel
      AnchorSideRight.Control = TopLeftPanel
      AnchorSideRight.Side = asrBottom
      AnchorSideBottom.Control = rgMeasurement
      AnchorSideBottom.Side = asrBottom
      Left = 266
      Height = 19
      Top = 97
      Width = 52
      Alignment = taLeftJustify
      Anchors = [akRight, akBottom]
      Caption = 'Visible'
      ParentFont = False
      TabOrder = 4
    end
  end
  object gbCaption: TGroupBox
    Left = 12
    Height = 54
    Top = 352
    Width = 449
    Align = alTop
    AutoSize = True
    BorderSpacing.Left = 12
    BorderSpacing.Top = 12
    BorderSpacing.Right = 12
    BorderSpacing.Bottom = 6
    Caption = ' Caption '
    ClientHeight = 34
    ClientWidth = 445
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 4
    object lblCaptionText: TLabel
      AnchorSideLeft.Control = gbCaption
      AnchorSideTop.Control = edCaptionText
      AnchorSideTop.Side = asrCenter
      Left = 8
      Height = 15
      Top = 6
      Width = 27
      BorderSpacing.Left = 8
      Caption = 'Text: '
      Color = clDefault
      FocusControl = edCaptionText
      ParentColor = False
      ParentFont = False
    end
    object btnCaptionFont: TButton
      AnchorSideTop.Control = edCaptionText
      AnchorSideTop.Side = asrCenter
      AnchorSideRight.Control = gbCaption
      AnchorSideRight.Side = asrBottom
      Left = 378
      Height = 25
      Top = 1
      Width = 59
      Anchors = [akTop, akRight]
      AutoSize = True
      BorderSpacing.Right = 8
      BorderSpacing.Bottom = 8
      Caption = 'Font...'
      OnClick = btnCaptionFontClick
      ParentFont = False
      TabOrder = 1
    end
    object edCaptionText: TEdit
      AnchorSideLeft.Control = lblCaptionText
      AnchorSideLeft.Side = asrBottom
      AnchorSideRight.Control = btnCaptionFont
      Left = 43
      Height = 23
      Top = 2
      Width = 331
      Anchors = [akTop, akLeft, akRight]
      BorderSpacing.Left = 8
      BorderSpacing.Top = 2
      BorderSpacing.Right = 4
      BorderSpacing.Bottom = 8
      OnChange = edCaptionTextChange
      ParentFont = False
      TabOrder = 0
    end
  end
  object Panel1: TPanel
    Left = 12
    Height = 23
    Top = 8
    Width = 449
    Align = alTop
    AutoSize = True
    BorderSpacing.Left = 12
    BorderSpacing.Top = 8
    BorderSpacing.Right = 12
    BorderSpacing.Bottom = 8
    BevelOuter = bvNone
    ClientHeight = 23
    ClientWidth = 449
    TabOrder = 0
    object lblName: TLabel
      AnchorSideTop.Control = edName
      AnchorSideTop.Side = asrCenter
      Left = 0
      Height = 15
      Top = 4
      Width = 38
      Caption = 'Name: '
      Color = clDefault
      ParentColor = False
    end
    object edName: TEdit
      AnchorSideLeft.Control = lblName
      AnchorSideLeft.Side = asrBottom
      Left = 42
      Height = 23
      Top = 0
      Width = 407
      Align = alRight
      Anchors = [akTop, akLeft, akRight, akBottom]
      BorderSpacing.Left = 4
      TabOrder = 0
    end
  end
  object Panel2: TPanel
    Left = 12
    Height = 51
    Top = 133
    Width = 451
    Align = alTop
    AutoSize = True
    BorderSpacing.Left = 12
    BorderSpacing.Top = 12
    BorderSpacing.Right = 10
    BevelOuter = bvNone
    ClientHeight = 51
    ClientWidth = 451
    TabOrder = 2
    object gbDayOffset: TGroupBox
      AnchorSideTop.Control = Panel2
      AnchorSideBottom.Control = rgDayOffsetUnit
      AnchorSideBottom.Side = asrBottom
      Left = 0
      Height = 51
      Top = 0
      Width = 96
      Anchors = [akTop, akLeft, akBottom]
      AutoSize = True
      Caption = 'Day Offset'
      ClientHeight = 31
      ClientWidth = 92
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      object edOffset: TEdit
        AnchorSideLeft.Control = gbDayOffset
        AnchorSideTop.Control = gbDayOffset
        Left = 8
        Height = 23
        Top = 3
        Width = 64
        Alignment = taRightJustify
        BorderSpacing.Left = 8
        BorderSpacing.Top = 3
        BorderSpacing.Bottom = 8
        ParentFont = False
        TabOrder = 0
        Text = '0'
      end
      object udOffset: TUpDown
        AnchorSideLeft.Control = edOffset
        AnchorSideLeft.Side = asrBottom
        AnchorSideTop.Control = edOffset
        AnchorSideTop.Side = asrCenter
        Left = 72
        Height = 23
        Top = 3
        Width = 12
        Associate = edOffset
        BorderSpacing.Right = 8
        BorderSpacing.Bottom = 8
        Min = 0
        Position = 0
        TabOrder = 1
      end
    end
    object rgDayOffsetUnit: TRadioGroup
      AnchorSideLeft.Control = gbDayOffset
      AnchorSideLeft.Side = asrBottom
      AnchorSideRight.Control = Panel2
      AnchorSideRight.Side = asrBottom
      Left = 108
      Height = 51
      Top = 0
      Width = 343
      Anchors = [akTop, akLeft, akRight]
      AutoFill = True
      AutoSize = True
      BorderSpacing.Left = 12
      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 = 31
      ClientWidth = 339
      Columns = 4
      ItemIndex = 0
      Items.Strings = (
        'Day'
        'Week'
        'Month'
        'Year'
      )
      ParentFont = False
      TabOrder = 1
    end
  end
  object ButtonPanel: TPanel
    Left = 0
    Height = 25
    Top = 414
    Width = 461
    Align = alTop
    AutoSize = True
    BorderSpacing.Top = 8
    BorderSpacing.Right = 12
    BorderSpacing.Bottom = 8
    BevelOuter = bvNone
    ClientHeight = 25
    ClientWidth = 461
    TabOrder = 5
    object btnShape: TButton
      AnchorSideLeft.Control = ButtonPanel
      Left = 12
      Height = 25
      Top = 0
      Width = 67
      AutoSize = True
      BorderSpacing.Left = 12
      Caption = 'Shape...'
      Enabled = False
      OnClick = btnShapeClick
      TabOrder = 0
    end
    object btnOk: TButton
      Left = 324
      Height = 25
      Top = 0
      Width = 71
      Align = alRight
      BorderSpacing.Right = 4
      Caption = 'OK'
      OnClick = btnOkClick
      TabOrder = 1
    end
    object btnCancel: TButton
      Left = 399
      Height = 25
      Top = 0
      Width = 62
      Align = alRight
      AutoSize = True
      Caption = 'Cancel'
      OnClick = btnCancelClick
      TabOrder = 2
    end
  end
  object ItemTypePanel: TPanel
    Left = 12
    Height = 78
    Top = 43
    Width = 451
    Align = alTop
    AutoSize = True
    BorderSpacing.Left = 12
    BorderSpacing.Top = 12
    BorderSpacing.Right = 10
    BevelOuter = bvNone
    ClientHeight = 78
    ClientWidth = 451
    TabOrder = 1
    object rgItemType: TRadioGroup
      Left = 0
      Height = 78
      Top = 0
      Width = 451
      Align = alClient
      AutoFill = True
      BorderSpacing.InnerBorder = 4
      Caption = 'Item Type '
      ChildSizing.LeftRightSpacing = 16
      ChildSizing.TopBottomSpacing = 6
      ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
      ChildSizing.EnlargeVertical = crsHomogenousChildResize
      ChildSizing.ShrinkHorizontal = crsScaleChilds
      ChildSizing.ShrinkVertical = crsScaleChilds
      ChildSizing.Layout = cclLeftToRightThenTopToBottom
      ChildSizing.ControlsPerLine = 4
      ClientHeight = 58
      ClientWidth = 447
      Columns = 4
      ItemIndex = 0
      Items.Strings = (
        'DayView'
        'WeekView'
        'MonthView'
        'Calendar'
        'Shape'
        'Caption'
        'Tasks'
        'Contacts'
      )
      OnClick = rgItemTypeClick
      ParentFont = False
      TabOrder = 0
    end
  end
  object FontDialog1: TFontDialog
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    MinFontSize = 0
    MaxFontSize = 0
    Left = 536
    Top = 304
  end
end