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

object frmEditShape: TfrmEditShape
  Left = 455
  Height = 314
  Top = 209
  Width = 363
  HorzScrollBar.Page = 362
  VertScrollBar.Page = 313
  BorderStyle = bsDialog
  Caption = 'Edit Shape'
  ClientHeight = 314
  ClientWidth = 363
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  OnCreate = FormCreate
  Position = poScreenCenter
  object rgShapeType: TRadioGroup
    Left = 8
    Height = 84
    Top = 8
    Width = 345
    AutoFill = True
    Caption = ' Shape '
    ChildSizing.LeftRightSpacing = 6
    ChildSizing.TopBottomSpacing = 6
    ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
    ChildSizing.EnlargeVertical = crsHomogenousChildResize
    ChildSizing.ShrinkHorizontal = crsScaleChilds
    ChildSizing.ShrinkVertical = crsScaleChilds
    ChildSizing.Layout = cclLeftToRightThenTopToBottom
    ChildSizing.ControlsPerLine = 3
    ClientHeight = 66
    ClientWidth = 341
    Columns = 3
    ItemIndex = 0
    Items.Strings = (
      'Rectangle'
      'TopLine'
      'BottomLine'
      'LeftLine'
      'RightLine'
      'TLToBRLine'
      'BLToTRLine'
      'Ellipse'
    )
    TabOrder = 0
  end
  object btnOk: TButton
    Left = 192
    Height = 25
    Top = 280
    Width = 75
    Caption = 'OK'
    Default = True
    OnClick = btnOkClick
    TabOrder = 3
  end
  object btnCancel: TButton
    Left = 272
    Height = 25
    Top = 280
    Width = 75
    Cancel = True
    Caption = 'Cancel'
    OnClick = btnCancelClick
    TabOrder = 4
  end
  object gbBrush: TGroupBox
    Left = 188
    Height = 165
    Top = 92
    Width = 165
    Caption = ' Brush '
    ClientHeight = 147
    ClientWidth = 161
    TabOrder = 2
    object Label1: TLabel
      Left = 6
      Height = 14
      Top = 112
      Width = 29
      Caption = 'Style:'
      ParentColor = False
    end
    object cbBrushStyle: TComboBox
      Left = 42
      Height = 22
      Top = 108
      Width = 97
      AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
      ItemHeight = 16
      OnDrawItem = cbBrushStyleDrawItem
      Style = csOwnerDrawFixed
      TabOrder = 0
    end
  end
  object gbPen: TGroupBox
    Left = 8
    Height = 205
    Top = 100
    Width = 165
    Caption = ' Pen '
    ClientHeight = 187
    ClientWidth = 161
    TabOrder = 1
    object Label2: TLabel
      Left = 8
      Height = 14
      Top = 104
      Width = 29
      Caption = 'Style:'
      ParentColor = False
    end
    object Label3: TLabel
      Left = 8
      Height = 14
      Top = 132
      Width = 33
      Caption = 'Width:'
      ParentColor = False
    end
    object Label4: TLabel
      Left = 8
      Height = 14
      Top = 160
      Width = 31
      Caption = 'Mode:'
      ParentColor = False
    end
    object cbPenStyle: TComboBox
      Left = 44
      Height = 19
      Top = 100
      Width = 105
      AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
      ItemHeight = 13
      OnDrawItem = cbPenStyleDrawItem
      Style = csOwnerDrawFixed
      TabOrder = 0
    end
    object cbPenMode: TComboBox
      Left = 44
      Height = 21
      Top = 156
      Width = 105
      AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
      ItemHeight = 13
      TabOrder = 1
    end
    object udPenWidth: TUpDown
      Left = 98
      Height = 21
      Top = 128
      Width = 11
      Associate = edPenWidth
      TabOrder = 3
    end
    object edPenWidth: TEdit
      Left = 44
      Height = 21
      Top = 128
      Width = 54
      OnKeyDown = nil
      TabOrder = 2
      Text = '0'
    end
  end
end