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

object frmEditShape: TfrmEditShape
  Left = 663
  Height = 267
  Top = 242
  Width = 446
  HorzScrollBar.Page = 362
  VertScrollBar.Page = 313
  AutoSize = True
  BorderStyle = bsDialog
  Caption = 'Edit Shape'
  ClientHeight = 267
  ClientWidth = 446
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  Position = poScreenCenter
  ShowHint = True
  LCLVersion = '1.6.4.0'
  object gbBrush: TGroupBox
    AnchorSideLeft.Control = gbPen
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = gbPen
    AnchorSideRight.Side = asrBottom
    Left = 216
    Height = 82
    Top = 80
    Width = 188
    AutoSize = True
    BorderSpacing.Left = 12
    BorderSpacing.Right = 12
    Caption = ' Brush '
    ClientHeight = 62
    ClientWidth = 184
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 2
    object lblBrushStyle: TLabel
      AnchorSideTop.Control = cbBrushStyle
      AnchorSideTop.Side = asrCenter
      AnchorSideRight.Control = cbBrushStyle
      Left = 12
      Height = 15
      Top = 32
      Width = 28
      Anchors = [akTop, akRight]
      BorderSpacing.Left = 8
      BorderSpacing.Right = 8
      Caption = 'Style:'
      FocusControl = cbBrushStyle
      ParentColor = False
      ParentFont = False
    end
    object cbBrushStyle: TComboBox
      AnchorSideLeft.Control = cbBrushColor
      AnchorSideTop.Control = lblBrushColor
      AnchorSideTop.Side = asrBottom
      AnchorSideRight.Control = cbBrushColor
      AnchorSideRight.Side = asrBottom
      Left = 48
      Height = 21
      Top = 29
      Width = 128
      Anchors = [akTop, akLeft, akRight]
      BorderSpacing.Top = 8
      BorderSpacing.Bottom = 12
      ItemHeight = 15
      OnChange = cbBrushStyleChange
      OnDrawItem = cbBrushStyleDrawItem
      ParentFont = False
      Style = csOwnerDrawFixed
      TabOrder = 0
    end
    object lblBrushColor: TLabel
      AnchorSideTop.Control = cbBrushColor
      AnchorSideTop.Side = asrCenter
      AnchorSideRight.Control = cbBrushColor
      Left = 8
      Height = 15
      Top = 6
      Width = 32
      Anchors = [akTop, akRight]
      BorderSpacing.Left = 8
      BorderSpacing.Right = 8
      Caption = 'Color:'
      FocusControl = cbBrushColor
      ParentColor = False
      ParentFont = False
    end
    object cbBrushColor: TColorBox
      AnchorSideTop.Control = gbBrush
      AnchorSideRight.Control = gbBrush
      AnchorSideRight.Side = asrBottom
      Left = 48
      Height = 22
      Top = 2
      Width = 128
      Style = [cbStandardColors, cbExtendedColors, cbPrettyNames, cbCustomColors]
      Anchors = [akTop, akRight]
      BorderSpacing.Top = 2
      BorderSpacing.Right = 8
      ItemHeight = 16
      OnChange = cbBrushColorChange
      ParentFont = False
      TabOrder = 1
    end
  end
  object gbPen: TGroupBox
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = gbShapes
    AnchorSideTop.Side = asrBottom
    Left = 12
    Height = 147
    Top = 80
    Width = 192
    AutoSize = True
    BorderSpacing.Left = 12
    BorderSpacing.Top = 8
    BorderSpacing.Bottom = 12
    Caption = ' Pen '
    ClientHeight = 127
    ClientWidth = 188
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
    object lblPenStyle: TLabel
      AnchorSideTop.Control = cbPenStyle
      AnchorSideTop.Side = asrCenter
      AnchorSideRight.Control = cbPenStyle
      Left = 15
      Height = 15
      Top = 35
      Width = 28
      Anchors = [akTop, akRight]
      BorderSpacing.Left = 8
      BorderSpacing.Right = 8
      Caption = 'Style:'
      FocusControl = cbPenStyle
      ParentColor = False
      ParentFont = False
    end
    object lblPenWidth: TLabel
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = edPenWidth
      AnchorSideTop.Side = asrCenter
      AnchorSideRight.Control = edPenWidth
      Left = 8
      Height = 15
      Top = 65
      Width = 35
      Anchors = [akTop, akRight]
      BorderSpacing.Left = 8
      BorderSpacing.Right = 8
      Caption = 'Width:'
      FocusControl = edPenWidth
      ParentColor = False
      ParentFont = False
    end
    object lblPenMode: TLabel
      AnchorSideTop.Control = cbPenMode
      AnchorSideTop.Side = asrCenter
      AnchorSideRight.Control = cbPenMode
      Left = 9
      Height = 15
      Top = 96
      Width = 34
      Anchors = [akTop, akRight]
      BorderSpacing.Left = 8
      BorderSpacing.Right = 8
      Caption = 'Mode:'
      FocusControl = cbPenMode
      ParentColor = False
      ParentFont = False
    end
    object cbPenStyle: TComboBox
      AnchorSideLeft.Control = cbPenColor
      AnchorSideTop.Control = cbPenColor
      AnchorSideTop.Side = asrBottom
      AnchorSideRight.Control = cbPenColor
      AnchorSideRight.Side = asrBottom
      Left = 51
      Height = 21
      Top = 32
      Width = 129
      Anchors = [akTop, akLeft, akRight]
      BorderSpacing.Top = 8
      ItemHeight = 15
      OnChange = cbPenStyleChange
      OnDrawItem = cbPenStyleDrawItem
      ParentFont = False
      ReadOnly = True
      Style = csOwnerDrawFixed
      TabOrder = 1
    end
    object cbPenMode: TComboBox
      AnchorSideLeft.Control = cbPenColor
      AnchorSideTop.Control = edPenWidth
      AnchorSideTop.Side = asrBottom
      AnchorSideRight.Control = cbPenColor
      AnchorSideRight.Side = asrBottom
      Left = 51
      Height = 23
      Top = 92
      Width = 129
      Anchors = [akTop, akLeft, akRight]
      BorderSpacing.Top = 8
      BorderSpacing.Bottom = 12
      ItemHeight = 15
      ParentFont = False
      TabOrder = 4
    end
    object udPenWidth: TUpDown
      AnchorSideLeft.Control = edPenWidth
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = edPenWidth
      AnchorSideTop.Side = asrCenter
      Left = 104
      Height = 23
      Top = 61
      Width = 12
      Associate = edPenWidth
      Min = 0
      Position = 0
      TabOrder = 3
      Wrap = False
    end
    object edPenWidth: TEdit
      AnchorSideLeft.Control = cbPenStyle
      AnchorSideTop.Control = cbPenStyle
      AnchorSideTop.Side = asrBottom
      Left = 51
      Height = 23
      Top = 61
      Width = 53
      Alignment = taRightJustify
      BorderSpacing.Top = 8
      OnChange = edPenWidthChange
      ParentFont = False
      TabOrder = 2
      Text = '0'
    end
    object cbPenColor: TColorBox
      AnchorSideTop.Control = gbPen
      AnchorSideRight.Control = gbPen
      AnchorSideRight.Side = asrBottom
      Left = 51
      Height = 22
      Top = 2
      Width = 129
      Style = [cbStandardColors, cbExtendedColors, cbPrettyNames, cbCustomColors]
      Anchors = [akTop, akRight]
      BorderSpacing.Top = 2
      BorderSpacing.Right = 8
      ItemHeight = 16
      OnChange = cbPenColorChange
      ParentFont = False
      TabOrder = 0
    end
    object lblPenColor: TLabel
      AnchorSideTop.Control = cbPenColor
      AnchorSideTop.Side = asrCenter
      AnchorSideRight.Control = cbPenColor
      Left = 14
      Height = 15
      Top = 6
      Width = 29
      Anchors = [akTop, akRight]
      BorderSpacing.Left = 8
      BorderSpacing.Right = 8
      Caption = 'Color'
      FocusControl = cbPenColor
      ParentColor = False
      ParentFont = False
    end
  end
  object gbShapes: TGroupBox
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = Owner
    AnchorSideRight.Control = gbBrush
    AnchorSideRight.Side = asrBottom
    Left = 12
    Height = 64
    Top = 8
    Width = 392
    Anchors = [akTop, akLeft, akRight]
    BorderSpacing.Left = 12
    BorderSpacing.Top = 8
    Caption = 'gbShapes'
    ChildSizing.HorizontalSpacing = 8
    ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
    ChildSizing.EnlargeVertical = crsHomogenousChildResize
    ChildSizing.ShrinkHorizontal = crsHomogenousChildResize
    ChildSizing.Layout = cclLeftToRightThenTopToBottom
    ChildSizing.ControlsPerLine = 8
    ClientHeight = 44
    ClientWidth = 388
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
    object SpeedButton1: TSpeedButton
      Left = 8
      Height = 36
      Top = 0
      Width = 40
      BorderSpacing.Left = 8
      BorderSpacing.Bottom = 8
      Down = True
      GroupIndex = 1
    end
    object SpeedButton2: TSpeedButton
      Left = 56
      Height = 36
      Top = 0
      Width = 40
      GroupIndex = 1
    end
    object SpeedButton3: TSpeedButton
      Left = 104
      Height = 36
      Top = 0
      Width = 40
      GroupIndex = 1
    end
    object SpeedButton4: TSpeedButton
      Left = 152
      Height = 36
      Top = 0
      Width = 40
      GroupIndex = 1
    end
    object SpeedButton5: TSpeedButton
      Left = 200
      Height = 36
      Top = 0
      Width = 40
      GroupIndex = 1
    end
    object SpeedButton6: TSpeedButton
      Left = 248
      Height = 36
      Top = 0
      Width = 40
      GroupIndex = 1
    end
    object SpeedButton7: TSpeedButton
      Left = 296
      Height = 36
      Top = 0
      Width = 40
      GroupIndex = 1
    end
    object SpeedButton8: TSpeedButton
      Left = 344
      Height = 36
      Top = 0
      Width = 36
      BorderSpacing.Right = 8
      BorderSpacing.Bottom = 8
      GroupIndex = 1
    end
  end
  object ButtonPanel: TPanel
    AnchorSideRight.Control = gbBrush
    AnchorSideRight.Side = asrBottom
    AnchorSideBottom.Control = gbPen
    AnchorSideBottom.Side = asrBottom
    Left = 284
    Height = 25
    Top = 202
    Width = 120
    Anchors = [akRight, akBottom]
    AutoSize = True
    BevelOuter = bvNone
    ClientHeight = 25
    ClientWidth = 120
    TabOrder = 3
    object btnOk: TButton
      Left = 8
      Height = 25
      Top = 0
      Width = 42
      Align = alRight
      AutoSize = True
      BorderSpacing.Left = 8
      Caption = 'OK'
      Default = True
      OnClick = btnOkClick
      TabOrder = 0
    end
    object btnCancel: TButton
      Left = 58
      Height = 25
      Top = 0
      Width = 62
      Align = alRight
      AutoSize = True
      BorderSpacing.Left = 8
      Cancel = True
      Caption = 'Cancel'
      OnClick = btnCancelClick
      TabOrder = 1
    end
  end
end