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

object frmEditFormat: TfrmEditFormat
  Left = 403
  Height = 189
  Top = 199
  Width = 329
  HorzScrollBar.Page = 328
  VertScrollBar.Page = 188
  BorderStyle = bsDialog
  Caption = 'Edit Format'
  ClientHeight = 189
  ClientWidth = 329
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  OnShow = FormShow
  Position = poScreenCenter
  object Label1: TLabel
    Left = 12
    Height = 15
    Top = 76
    Width = 99
    Caption = 'Day Increment:'
    ParentColor = False
  end
  object Label2: TLabel
    Left = 12
    Height = 15
    Top = 44
    Width = 81
    Caption = 'Description: '
    ParentColor = False
  end
  object Label3: TLabel
    Left = 12
    Height = 15
    Top = 16
    Width = 48
    Caption = 'Name: '
    ParentColor = False
  end
  object btnOk: TButton
    Left = 160
    Height = 25
    Top = 156
    Width = 75
    Caption = 'OK'
    Default = True
    OnClick = btnOkClick
    TabOrder = 3
  end
  object btnCancel: TButton
    Left = 240
    Height = 25
    Top = 156
    Width = 75
    Cancel = True
    Caption = 'Cancel'
    OnClick = btnCancelClick
    TabOrder = 4
  end
  object rgDayIncrement: TRadioGroup
    Left = 16
    Height = 37
    Top = 104
    Width = 293
    AutoFill = True
    Caption = ' Day Increment 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 = 289
    Columns = 4
    ItemIndex = 0
    Items.Strings = (
      'Day'
      'Week'
      'Month'
      'Year'
    )
    TabOrder = 2
  end
  object edDescription: TEdit
    Left = 80
    Height = 21
    Top = 40
    Width = 241
    TabOrder = 1
  end
  object edName: TEdit
    Left = 56
    Height = 21
    Top = 12
    Width = 265
    TabOrder = 0
  end
  object udIncrement: TUpDown
    Left = 150
    Height = 21
    Top = 72
    Width = 16
    Associate = edIncrement
    Max = 365
    TabOrder = 5
  end
  object edIncrement: TEdit
    Left = 96
    Height = 21
    Top = 72
    Width = 54
    OnKeyDown = nil
    TabOrder = 6
    Text = '0'
  end
end