Initial import

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@338 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/tvplanit/source/vpedshape.lfm

@@ -0,0 +1,167 @@
+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