mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-05 04:43:52 +02:00
558 lines
17 KiB
Plaintext
558 lines
17 KiB
Plaintext
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
|