object MainForm: TMainForm
  Left = 307
  Height = 694
  Top = 164
  Width = 852
  Caption = 'Visual fpvectorial test'
  ClientHeight = 694
  ClientWidth = 852
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  ShowHint = True
  LCLVersion = '1.7'
  object GbTree: TGroupBox
    Left = 4
    Height = 686
    Top = 4
    Width = 296
    Align = alClient
    BorderSpacing.Around = 4
    Caption = 'Test shapes and objects'
    ClientHeight = 666
    ClientWidth = 292
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
    object Tree: TTreeView
      Left = 4
      Height = 654
      Top = 4
      Width = 284
      Align = alClient
      BorderSpacing.Bottom = 4
      BorderSpacing.Around = 4
      DefaultItemHeight = 18
      HideSelection = False
      ParentFont = False
      ReadOnly = True
      TabOrder = 0
      OnCustomDrawItem = TreeCustomDrawItem
      OnSelectionChanged = TreeSelectionChanged
      Options = [tvoAutoItemHeight, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
    end
  end
  object ScrollBox1: TScrollBox
    Left = 304
    Height = 694
    Top = 0
    Width = 548
    HorzScrollBar.Increment = 54
    HorzScrollBar.Page = 543
    HorzScrollBar.Smooth = True
    HorzScrollBar.Tracking = True
    VertScrollBar.Increment = 62
    VertScrollBar.Page = 627
    VertScrollBar.Smooth = True
    VertScrollBar.Tracking = True
    Align = alRight
    BorderStyle = bsNone
    ClientHeight = 694
    ClientWidth = 548
    TabOrder = 1
    object AllTestsPanel: TPanel
      Left = 4
      Height = 619
      Top = 4
      Width = 536
      Align = alTop
      AutoSize = True
      BorderSpacing.Right = 4
      BorderSpacing.Around = 4
      BevelOuter = bvNone
      ClientHeight = 619
      ClientWidth = 536
      TabOrder = 0
      object gbRenderTest: TGroupBox
        AnchorSideLeft.Control = AllTestsPanel
        AnchorSideBottom.Side = asrBottom
        Left = 0
        Height = 282
        Top = 0
        Width = 255
        Anchors = [akTop, akLeft, akRight]
        AutoSize = True
        BorderSpacing.Right = 31
        Caption = 'Render test'
        ClientHeight = 262
        ClientWidth = 251
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 0
        object Label6: TLabel
          Left = 8
          Height = 30
          Top = 2
          Width = 239
          Align = alTop
          BorderSpacing.Left = 8
          BorderSpacing.Top = 2
          BorderSpacing.Right = 4
          Caption = 'The selected shape is rendered in two coordinate systems:'
          ParentColor = False
          ParentFont = False
          WordWrap = True
        end
        object Label8: TLabel
          Left = 16
          Height = 15
          Top = 36
          Width = 231
          Align = alTop
          BorderSpacing.Left = 16
          BorderSpacing.Top = 4
          BorderSpacing.Right = 4
          Caption = 'origin at bottom/left corner (fpv default)'
          ParentColor = False
          ParentFont = False
          WordWrap = True
        end
        object Label7: TLabel
          Left = 16
          Height = 15
          Top = 55
          Width = 231
          Align = alTop
          BorderSpacing.Left = 16
          BorderSpacing.Top = 4
          BorderSpacing.Right = 4
          Caption = 'origin at top/left corner'
          ParentColor = False
          ParentFont = False
          WordWrap = True
        end
        object LblBothImagesMustMatch: TLabel
          Left = 8
          Height = 15
          Top = 74
          Width = 239
          Align = alTop
          BorderSpacing.Left = 8
          BorderSpacing.Top = 4
          BorderSpacing.Right = 4
          Caption = 'Both images must match.'
          Font.Style = [fsBold]
          ParentColor = False
          ParentFont = False
          WordWrap = True
        end
        object gbBottomLeft: TGroupBox
          AnchorSideLeft.Control = gbRenderTest
          AnchorSideTop.Control = BtnSaveAsRef
          AnchorSideTop.Side = asrBottom
          AnchorSideBottom.Side = asrBottom
          Left = 4
          Height = 128
          Top = 130
          Width = 118
          AutoSize = True
          BorderSpacing.Left = 4
          BorderSpacing.Top = 6
          BorderSpacing.Right = 4
          BorderSpacing.Bottom = 4
          Caption = 'Origin at BOTTOM'
          ClientHeight = 108
          ClientWidth = 114
          ParentFont = False
          TabOrder = 0
          object BottomLeftPaintbox: TPaintBox
            AnchorSideLeft.Control = gbBottomLeft
            AnchorSideTop.Control = gbBottomLeft
            Left = 6
            Height = 100
            Top = 2
            Width = 100
            BorderSpacing.Left = 6
            BorderSpacing.Top = 2
            BorderSpacing.Right = 4
            BorderSpacing.Bottom = 6
            OnPaint = PaintBoxPaint
          end
        end
        object gbTopLeft: TGroupBox
          AnchorSideLeft.Control = gbBottomLeft
          AnchorSideLeft.Side = asrBottom
          AnchorSideTop.Control = gbBottomLeft
          AnchorSideBottom.Control = gbRenderTest
          AnchorSideBottom.Side = asrBottom
          Left = 130
          Height = 128
          Top = 130
          Width = 114
          Anchors = [akTop, akLeft, akBottom]
          AutoSize = True
          BorderSpacing.Left = 8
          BorderSpacing.Right = 4
          BorderSpacing.Bottom = 4
          Caption = 'Origin at TOP'
          ClientHeight = 108
          ClientWidth = 110
          ParentFont = False
          TabOrder = 1
          object TopLeftPaintbox: TPaintBox
            AnchorSideLeft.Control = gbTopLeft
            AnchorSideTop.Control = gbTopLeft
            Left = 6
            Height = 100
            Top = 2
            Width = 100
            BorderSpacing.Left = 6
            BorderSpacing.Top = 2
            BorderSpacing.Right = 4
            BorderSpacing.Bottom = 6
            OnPaint = PaintBoxPaint
          end
        end
        object BtnSaveAsRef: TButton
          AnchorSideLeft.Side = asrBottom
          AnchorSideTop.Control = LblBothImagesMustMatch
          AnchorSideTop.Side = asrBottom
          AnchorSideBottom.Side = asrBottom
          Left = 16
          Height = 25
          Top = 97
          Width = 75
          BorderSpacing.Left = 16
          BorderSpacing.Top = 8
          BorderSpacing.Bottom = 8
          Caption = 'Save as ref'
          OnClick = BtnSaveAsRefClick
          ParentFont = False
          TabOrder = 2
        end
      end
      object gbReferenceImageTest: TGroupBox
        AnchorSideLeft.Control = gbRenderTest
        AnchorSideLeft.Side = asrBottom
        AnchorSideTop.Control = gbRenderTest
        AnchorSideRight.Side = asrBottom
        AnchorSideBottom.Control = gbRenderTest
        AnchorSideBottom.Side = asrBottom
        Left = 286
        Height = 282
        Top = 0
        Width = 250
        Anchors = [akTop, akLeft, akRight, akBottom]
        Caption = 'Reference image test'
        ClientHeight = 262
        ClientWidth = 246
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 1
        object Label10: TLabel
          Left = 8
          Height = 30
          Top = 2
          Width = 230
          Align = alTop
          BorderSpacing.Left = 8
          BorderSpacing.Top = 2
          BorderSpacing.Right = 8
          Caption = 'Save the bottom-origin image of the "Render test" to a bitmap file for reference.'
          ParentColor = False
          ParentFont = False
          WordWrap = True
        end
        object Label11: TLabel
          Left = 8
          Height = 30
          Top = 36
          Width = 230
          Align = alTop
          BorderSpacing.Left = 8
          BorderSpacing.Top = 4
          BorderSpacing.Right = 8
          Caption = 'This reference image is loaded for each test shape/object.'
          ParentColor = False
          ParentFont = False
          WordWrap = True
        end
        object LblRefImgMustMatch: TLabel
          Left = 8
          Height = 30
          Top = 70
          Width = 230
          Align = alTop
          BorderSpacing.Left = 8
          BorderSpacing.Top = 4
          BorderSpacing.Right = 8
          Caption = 'The reference image must match the "Render test" images.'
          Font.Style = [fsBold]
          ParentColor = False
          ParentFont = False
          WordWrap = True
        end
        object GroupBox1: TGroupBox
          AnchorSideLeft.Control = gbReferenceImageTest
          AnchorSideTop.Side = asrBottom
          AnchorSideBottom.Control = gbReferenceImageTest
          AnchorSideBottom.Side = asrBottom
          Left = 4
          Height = 128
          Top = 130
          Width = 116
          Anchors = [akLeft, akBottom]
          AutoSize = True
          BorderSpacing.Left = 4
          BorderSpacing.Top = 8
          BorderSpacing.Bottom = 4
          Caption = 'Reference image'
          ClientHeight = 108
          ClientWidth = 112
          ParentFont = False
          TabOrder = 0
          object RefImage: TImage
            AnchorSideTop.Control = GroupBox1
            Left = 6
            Height = 100
            Top = 2
            Width = 100
            BorderSpacing.Left = 6
            BorderSpacing.Top = 2
            BorderSpacing.Right = 6
            BorderSpacing.Bottom = 6
          end
        end
      end
      object gbReadWriteTest: TGroupBox
        AnchorSideLeft.Control = gbRenderTest
        AnchorSideTop.Control = gbReferenceImageTest
        AnchorSideTop.Side = asrBottom
        AnchorSideRight.Control = AllTestsPanel
        AnchorSideRight.Side = asrBottom
        Left = 0
        Height = 313
        Top = 306
        Width = 536
        Anchors = [akTop, akLeft, akRight]
        AutoSize = True
        BorderSpacing.Top = 24
        Caption = 'Read/write test'
        ClientHeight = 293
        ClientWidth = 532
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 2
        object Label13: TLabel
          Left = 8
          Height = 15
          Top = 2
          Width = 516
          Align = alTop
          BorderSpacing.Left = 8
          BorderSpacing.Top = 2
          BorderSpacing.Right = 8
          Caption = 'This test is for reading and writing of the selected shape to/from an svg or wmf file.'
          ParentColor = False
          ParentFont = False
          WordWrap = True
        end
        object LblReadWriteInstructions: TLabel
          Left = 8
          Height = 45
          Top = 72
          Width = 516
          Align = alTop
          BorderSpacing.Left = 8
          BorderSpacing.Top = 4
          BorderSpacing.Right = 8
          Caption = 'If it does not click "Ext. viewer..." to open the image in an external viewer of the operating system. If the image is displayed correctly by the external viewer there is a bug in the file reader, otherwise the bug is in the writer.'
          ParentColor = False
          ParentFont = False
          WordWrap = True
        end
        object gbWRBottomLeft: TGroupBox
          AnchorSideLeft.Control = gbReadWriteTest
          AnchorSideTop.Control = CbFileFormat
          AnchorSideTop.Side = asrBottom
          Left = 4
          Height = 129
          Top = 156
          Width = 209
          AutoSize = True
          BorderSpacing.Left = 4
          BorderSpacing.Top = 8
          BorderSpacing.Right = 4
          BorderSpacing.Bottom = 8
          Caption = 'Written with origin at BOTTOM'
          ClientHeight = 109
          ClientWidth = 205
          ParentFont = False
          TabOrder = 0
          object BtnViewBottomLeft: TButton
            AnchorSideLeft.Control = WRBottomLeftPaintbox
            AnchorSideLeft.Side = asrBottom
            AnchorSideTop.Control = gbWRBottomLeft
            AnchorSideTop.Side = asrCenter
            Left = 114
            Height = 25
            Top = 42
            Width = 87
            AutoSize = True
            BorderSpacing.Left = 8
            BorderSpacing.Right = 4
            BorderSpacing.Bottom = 6
            Caption = 'Ext viewer...'
            OnClick = BtnViewImageClick
            TabOrder = 0
          end
          object WRBottomLeftPaintbox: TPaintBox
            AnchorSideLeft.Control = gbWRBottomLeft
            AnchorSideTop.Control = gbWRBottomLeft
            Left = 6
            Height = 100
            Top = 3
            Width = 100
            BorderSpacing.Left = 6
            BorderSpacing.Top = 3
            BorderSpacing.Bottom = 6
            OnPaint = PaintBoxPaint
          end
        end
        object Label14: TLabel
          Left = 8
          Height = 30
          Top = 19
          Width = 516
          Align = alTop
          BorderSpacing.Left = 8
          BorderSpacing.Top = 2
          BorderSpacing.Right = 8
          Caption = 'After clicking "Save && load" both images (with bottom and top origin) are written to file and reloaded for display in the boxes below.'
          ParentColor = False
          ParentFont = False
          WordWrap = True
        end
        object LblBothImagesMustMatch1: TLabel
          Left = 8
          Height = 15
          Top = 53
          Width = 520
          Align = alTop
          BorderSpacing.Left = 8
          BorderSpacing.Top = 4
          BorderSpacing.Right = 4
          Caption = 'These images must match the "Render test" images.'
          Font.Style = [fsBold]
          ParentColor = False
          ParentFont = False
          WordWrap = True
        end
        object CbFileFormat: TComboBox
          AnchorSideLeft.Control = Label1
          AnchorSideLeft.Side = asrBottom
          AnchorSideTop.Control = LblReadWriteInstructions
          AnchorSideTop.Side = asrBottom
          Left = 116
          Height = 23
          Top = 125
          Width = 87
          BorderSpacing.Top = 8
          ItemHeight = 15
          ItemIndex = 0
          Items.Strings = (
            'svg'
            'wmf'
          )
          OnChange = CbFileFormatChange
          ParentFont = False
          Style = csDropDownList
          TabOrder = 1
          Text = 'svg'
        end
        object Label1: TLabel
          AnchorSideLeft.Control = LblReadWriteInstructions
          AnchorSideTop.Control = CbFileFormat
          AnchorSideTop.Side = asrCenter
          Left = 8
          Height = 15
          Top = 129
          Width = 100
          BorderSpacing.Top = 8
          BorderSpacing.Right = 8
          Caption = 'File format for test:'
          ParentColor = False
          ParentFont = False
        end
        object BtnSaveToFiles: TButton
          AnchorSideLeft.Side = asrBottom
          AnchorSideTop.Control = CbFileFormat
          AnchorSideTop.Side = asrCenter
          AnchorSideRight.Control = gbReadWriteTest
          AnchorSideRight.Side = asrBottom
          Left = 435
          Height = 25
          Top = 124
          Width = 89
          Anchors = [akTop, akRight]
          AutoSize = True
          BorderSpacing.Left = 16
          BorderSpacing.Right = 8
          BorderSpacing.Bottom = 6
          Caption = 'Save && load'
          OnClick = BtnSaveToFilesClick
          ParentFont = False
          TabOrder = 2
        end
        object gbWRTopLeft: TGroupBox
          AnchorSideLeft.Control = gbWRBottomLeft
          AnchorSideLeft.Side = asrBottom
          AnchorSideTop.Control = CbFileFormat
          AnchorSideTop.Side = asrBottom
          Left = 221
          Height = 129
          Top = 156
          Width = 212
          AutoSize = True
          BorderSpacing.Left = 8
          BorderSpacing.Top = 8
          BorderSpacing.Bottom = 8
          Caption = 'Written with origin at TOP'
          ClientHeight = 109
          ClientWidth = 208
          ParentFont = False
          TabOrder = 3
          object BtnViewTopLeft: TButton
            AnchorSideLeft.Control = WRTopLeftPaintbox
            AnchorSideLeft.Side = asrBottom
            AnchorSideTop.Control = WRTopLeftPaintbox
            AnchorSideTop.Side = asrCenter
            Left = 114
            Height = 25
            Top = 41
            Width = 90
            AutoSize = True
            BorderSpacing.Left = 8
            BorderSpacing.Right = 4
            BorderSpacing.Bottom = 6
            Caption = 'Ext. viewer...'
            OnClick = BtnViewImageClick
            TabOrder = 0
          end
          object WRTopLeftPaintbox: TPaintBox
            AnchorSideLeft.Control = gbWRTopLeft
            AnchorSideTop.Control = gbWRTopLeft
            Left = 6
            Height = 100
            Top = 3
            Width = 100
            BorderSpacing.Left = 6
            BorderSpacing.Top = 3
            BorderSpacing.Bottom = 6
            OnPaint = PaintBoxPaint
          end
        end
      end
    end
  end
end