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

object frmEditElement: TfrmEditElement
  Left = 288
  Height = 446
  Top = 321
  Width = 487
  HorzScrollBar.Page = 378
  VertScrollBar.Page = 444
  AutoSize = True
  BorderStyle = bsDialog
  Caption = 'Edit Element'
  ClientHeight = 446
  ClientWidth = 487
  OnCreate = FormCreate
  OnShow = FormShow
  Position = poScreenCenter
  LCLVersion = '2.3.0.0'
  object gbCaption: TGroupBox
    Left = 12
    Height = 54
    Top = 351
    Width = 463
    Align = alTop
    AutoSize = True
    BorderSpacing.Left = 12
    BorderSpacing.Top = 12
    BorderSpacing.Right = 12
    BorderSpacing.Bottom = 6
    Caption = ' Caption '
    ClientHeight = 34
    ClientWidth = 459
    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: '
      FocusControl = edCaptionText
      ParentColor = False
      ParentFont = False
    end
    object btnCaptionFont: TButton
      AnchorSideTop.Control = edCaptionText
      AnchorSideTop.Side = asrCenter
      AnchorSideRight.Control = gbCaption
      AnchorSideRight.Side = asrBottom
      Left = 392
      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 = 345
      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 = 463
    Align = alTop
    AutoSize = True
    BorderSpacing.Left = 12
    BorderSpacing.Top = 8
    BorderSpacing.Right = 12
    BorderSpacing.Bottom = 8
    BevelOuter = bvNone
    ClientHeight = 23
    ClientWidth = 463
    TabOrder = 0
    object lblName: TLabel
      AnchorSideTop.Control = edName
      AnchorSideTop.Side = asrCenter
      Left = 0
      Height = 15
      Top = 4
      Width = 38
      Caption = 'Name: '
      ParentColor = False
    end
    object edName: TEdit
      AnchorSideLeft.Control = lblName
      AnchorSideLeft.Side = asrBottom
      Left = 42
      Height = 23
      Top = 0
      Width = 421
      Align = alRight
      Anchors = [akTop, akLeft, akRight, akBottom]
      BorderSpacing.Left = 4
      TabOrder = 0
    end
  end
  object DayOffsetPanel: TPanel
    Left = 12
    Height = 51
    Top = 152
    Width = 465
    Align = alTop
    AutoSize = True
    BorderSpacing.Left = 12
    BorderSpacing.Top = 12
    BorderSpacing.Right = 10
    BevelOuter = bvNone
    ClientHeight = 51
    ClientWidth = 465
    TabOrder = 2
    object gbDayOffset: TGroupBox
      AnchorSideTop.Control = DayOffsetPanel
      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 = DayOffsetPanel
      AnchorSideRight.Side = asrBottom
      Left = 112
      Height = 51
      Top = 0
      Width = 353
      Anchors = [akTop, akLeft, akRight]
      AutoFill = True
      AutoSize = True
      BorderSpacing.Left = 16
      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 = 349
      Columns = 4
      ItemIndex = 0
      Items.Strings = (
        'Day'
        'Week'
        'Month'
        'Year'
      )
      ParentFont = False
      TabOrder = 1
    end
  end
  object ButtonPanel: TPanel
    Left = 12
    Height = 25
    Top = 413
    Width = 463
    Align = alTop
    BorderSpacing.Left = 12
    BorderSpacing.Top = 8
    BorderSpacing.Right = 12
    BorderSpacing.Bottom = 8
    BevelOuter = bvNone
    ClientHeight = 25
    ClientWidth = 463
    TabOrder = 5
    object btnShape: TButton
      Left = 0
      Height = 25
      Top = 0
      Width = 67
      Align = alLeft
      AutoSize = True
      Caption = 'Shape...'
      Enabled = False
      OnClick = btnShapeClick
      TabOrder = 0
    end
    object btnOk: TButton
      Left = 355
      Height = 25
      Top = 0
      Width = 42
      Align = alRight
      AutoSize = True
      BorderSpacing.Right = 4
      Caption = 'OK'
      OnClick = btnOkClick
      TabOrder = 1
    end
    object btnCancel: TButton
      Left = 401
      Height = 25
      Top = 0
      Width = 62
      Align = alRight
      AutoSize = True
      Caption = 'Cancel'
      OnClick = btnCancelClick
      TabOrder = 2
    end
  end
  object ItemTypePanel: TPanel
    Left = 12
    Height = 97
    Top = 43
    Width = 465
    Align = alTop
    AutoSize = True
    BorderSpacing.Left = 12
    BorderSpacing.Top = 12
    BorderSpacing.Right = 10
    BevelOuter = bvNone
    ClientHeight = 97
    ClientWidth = 465
    TabOrder = 1
    object rgItemType: TRadioGroup
      Left = 0
      Height = 97
      Top = 0
      Width = 465
      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 = 3
      ClientHeight = 77
      ClientWidth = 461
      Columns = 3
      ItemIndex = 0
      Items.Strings = (
        'DayView'
        'WeekView'
        'MonthView'
        'Calendar'
        'Shape'
        'Caption'
        'Tasks'
        'Contacts'
        'GanttView'
      )
      OnClick = rgItemTypeClick
      ParentFont = False
      TabOrder = 0
    end
  end
  object PositionPanel: TPanel
    Left = 12
    Height = 124
    Top = 215
    Width = 475
    Align = alTop
    AutoSize = True
    BorderSpacing.Left = 12
    BorderSpacing.Top = 12
    BevelOuter = bvNone
    ClientHeight = 124
    ClientWidth = 475
    TabOrder = 3
    object rgRotation: TRadioGroup
      AnchorSideLeft.Control = PositionPanel
      AnchorSideTop.Control = PositionPanel
      Left = 0
      Height = 116
      Top = 0
      Width = 85
      AutoFill = True
      AutoSize = True
      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 = 81
      ItemIndex = 0
      Items.Strings = (
        '0°'
        '90°'
        '180°'
        '270°'
      )
      ParentFont = False
      TabOrder = 0
    end
    object gbPosition: TGroupBox
      AnchorSideLeft.Control = rgRotation
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = rgRotation
      AnchorSideBottom.Control = rgRotation
      AnchorSideBottom.Side = asrBottom
      Left = 101
      Height = 116
      Top = 0
      Width = 362
      Anchors = [akTop, akLeft, akBottom]
      AutoSize = True
      BorderSpacing.Left = 16
      BorderSpacing.Right = 12
      Caption = 'Position'
      ClientHeight = 96
      ClientWidth = 358
      TabOrder = 1
      object TopLeftPanel: TPanel
        AnchorSideLeft.Control = gbPosition
        AnchorSideTop.Control = gbPosition
        Left = 16
        Height = 55
        Top = 4
        Width = 104
        AutoSize = True
        BorderSpacing.Left = 16
        BorderSpacing.Top = 4
        BevelOuter = bvNone
        ClientHeight = 55
        ClientWidth = 104
        ParentFont = False
        TabOrder = 0
        object BevelTopLeft: TBevel
          AnchorSideTop.Control = TopLeftPanel
          AnchorSideTop.Side = asrCenter
          AnchorSideRight.Control = TopLeftPanel
          AnchorSideRight.Side = asrBottom
          Left = 32
          Height = 8
          Top = 23
          Width = 72
          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:'
          FocusControl = edTop
          ParentColor = False
        end
        object edTop: TEdit
          AnchorSideRight.Control = udTop
          AnchorSideBottom.Control = BevelTopLeft
          Left = 32
          Height = 23
          Top = 0
          Width = 60
          Alignment = taRightJustify
          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 = 92
          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 = 92
          Height = 23
          Top = 32
          Width = 12
          Anchors = [akTop, akRight]
          Associate = edLeft
          Min = 0
          OnClick = UpDownClick
          Position = 0
          TabOrder = 3
        end
        object edLeft: TEdit
          AnchorSideLeft.Control = edTop
          AnchorSideTop.Side = asrBottom
          AnchorSideRight.Control = udLeft
          Left = 32
          Height = 23
          Top = 32
          Width = 60
          Alignment = taRightJustify
          Anchors = [akTop, akRight]
          OnEnter = PosEditEnter
          OnExit = PosEditExit
          TabOrder = 2
          Text = '0.00'
        end
        object LblLeft: TLabel
          AnchorSideTop.Control = edLeft
          AnchorSideTop.Side = asrCenter
          AnchorSideRight.Control = edLeft
          Left = 1
          Height = 15
          Top = 36
          Width = 23
          Anchors = [akTop, akRight]
          BorderSpacing.Left = 1
          BorderSpacing.Right = 8
          Caption = 'Left:'
          FocusControl = edLeft
          ParentColor = False
        end
      end
      object HeightWidthPanel: TPanel
        AnchorSideLeft.Control = TopLeftPanel
        AnchorSideLeft.Side = asrBottom
        AnchorSideTop.Control = TopLeftPanel
        AnchorSideBottom.Side = asrBottom
        Left = 136
        Height = 54
        Top = 4
        Width = 119
        AutoSize = True
        BorderSpacing.Left = 16
        BorderSpacing.Right = 12
        BevelOuter = bvNone
        ClientHeight = 54
        ClientWidth = 119
        ParentFont = False
        TabOrder = 1
        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:'
          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 = 60
          Alignment = taRightJustify
          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 = 107
          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:'
          FocusControl = edWidth
          ParentColor = False
        end
        object edWidth: TEdit
          AnchorSideTop.Control = BevelHeightWidth
          AnchorSideTop.Side = asrBottom
          AnchorSideRight.Control = udWidth
          Left = 47
          Height = 23
          Top = 31
          Width = 60
          Alignment = taRightJustify
          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 = 107
          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 = 119
          Anchors = [akTop, akLeft, akRight]
        end
      end
      object chkVisible: TCheckBox
        AnchorSideLeft.Control = BevelTopLeft1
        AnchorSideLeft.Side = asrCenter
        AnchorSideTop.Side = asrBottom
        AnchorSideRight.Side = asrBottom
        AnchorSideBottom.Control = gbPosition
        AnchorSideBottom.Side = asrBottom
        Left = 109
        Height = 19
        Top = 73
        Width = 52
        Anchors = [akLeft, akBottom]
        BorderSpacing.Bottom = 4
        Caption = 'Visible'
        ParentFont = False
        TabOrder = 2
      end
      object Panel2: TPanel
        AnchorSideLeft.Control = HeightWidthPanel
        AnchorSideLeft.Side = asrBottom
        AnchorSideTop.Control = gbPosition
        AnchorSideBottom.Control = gbPosition
        AnchorSideBottom.Side = asrBottom
        Left = 287
        Height = 94
        Top = 0
        Width = 59
        Anchors = [akTop, akLeft, akBottom]
        AutoSize = True
        BorderSpacing.Left = 32
        BorderSpacing.Right = 12
        BorderSpacing.Bottom = 2
        Caption = 'Panel2'
        ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
        ChildSizing.EnlargeVertical = crsHomogenousChildResize
        ChildSizing.ShrinkHorizontal = crsHomogenousChildResize
        ChildSizing.ShrinkVertical = crsHomogenousChildResize
        ChildSizing.Layout = cclLeftToRightThenTopToBottom
        ChildSizing.ControlsPerLine = 1
        ClientHeight = 94
        ClientWidth = 59
        TabOrder = 3
        object rbPixels: TRadioButton
          Left = 0
          Height = 24
          Top = 0
          Width = 59
          Caption = 'Pixels'
          OnChange = MeasurementUnitChange
          TabOrder = 0
        end
        object rbPercent: TRadioButton
          Left = 0
          Height = 24
          Top = 24
          Width = 59
          Caption = 'Percent'
          Checked = True
          OnChange = MeasurementUnitChange
          TabOrder = 1
          TabStop = True
        end
        object rbInches: TRadioButton
          Left = 0
          Height = 24
          Top = 48
          Width = 59
          Caption = 'Inches'
          OnChange = MeasurementUnitChange
          TabOrder = 2
        end
        object rbCentimeters: TRadioButton
          Left = 0
          Height = 22
          Top = 72
          Width = 59
          Caption = 'cm'
          OnChange = MeasurementUnitChange
          TabOrder = 3
        end
      end
      object BevelTopLeft1: TBevel
        AnchorSideLeft.Control = TopLeftPanel
        AnchorSideRight.Control = HeightWidthPanel
        AnchorSideRight.Side = asrBottom
        Left = 16
        Height = 8
        Top = 64
        Width = 239
        Anchors = [akTop, akLeft, akRight]
        Shape = bsSpacer
      end
    end
  end
  object FontDialog1: TFontDialog
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    MinFontSize = 0
    MaxFontSize = 0
    Left = 192
    Top = 352
  end
end