pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

tvplanit: Improved layout of printformat element editor in VpEdElem

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8512 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-10-03 22:26:21 +00:00
parent f5d94166a0
commit a35403bb3f
4 changed files with 517 additions and 414 deletions
Download Patch File Download Diff File Expand all files Collapse all files

809
components/tvplanit/source/vpedelem.lfm
View File

@@ -1,366 +1,23 @@
object frmEditElement: TfrmEditElement
Left = 288
Height = 466
Height = 446
Top = 321
Width = 473
Width = 455
HorzScrollBar.Page = 378
VertScrollBar.Page = 444
AutoSize = True
BorderStyle = bsDialog
Caption = 'Edit Element'
ClientHeight = 466
ClientWidth = 473
ClientHeight = 446
ClientWidth = 455
OnCreate = FormCreate
OnShow = FormShow
Position = poScreenCenter
object gbVisual: TGroupBox
Left = 12
Height = 144
Top = 215
Width = 449
Align = alTop
AutoSize = True
BorderSpacing.Left = 12
BorderSpacing.Top = 12
BorderSpacing.Right = 12
Caption = ' Visual '
ClientHeight = 124
ClientWidth = 445
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
object rgMeasurement: TRadioGroup
AnchorSideLeft.Control = rgRotation
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = gbVisual
Left = 104
Height = 116
Top = 0
Width = 106
AutoFill = True
AutoSize = True
BorderSpacing.Left = 16
BorderSpacing.Bottom = 8
BorderSpacing.InnerBorder = 4
Caption = ' Measurement '
ChildSizing.LeftRightSpacing = 16
ChildSizing.TopBottomSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 96
ClientWidth = 102
ItemIndex = 1
Items.Strings = (
'Pixels'
'Percent'
'Inches'
'cm'
)
OnClick = rgMeasurementClick
ParentFont = False
TabOrder = 1
end
object rgRotation: TRadioGroup
AnchorSideLeft.Control = gbVisual
AnchorSideTop.Control = gbVisual
Left = 8
Height = 116
Top = 0
Width = 80
AutoFill = True
AutoSize = True
BorderSpacing.Left = 8
BorderSpacing.Bottom = 8
BorderSpacing.InnerBorder = 4
Caption = ' Rotation '
ChildSizing.LeftRightSpacing = 16
ChildSizing.TopBottomSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 96
ClientWidth = 76
ItemIndex = 0
Items.Strings = (
'0'
'90'
'180'
'270'
)
ParentFont = False
TabOrder = 0
end
object HeightWidthPanel: TPanel
AnchorSideLeft.Control = TopLeftPanel
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = rgMeasurement
AnchorSideTop.Side = asrCenter
AnchorSideBottom.Side = asrBottom
Left = 334
Height = 54
Top = 31
Width = 99
AutoSize = True
BorderSpacing.Left = 16
BorderSpacing.Top = 10
BorderSpacing.Right = 12
BevelOuter = bvNone
ClientHeight = 54
ClientWidth = 99
ParentFont = False
TabOrder = 2
object LblHeight: TLabel
AnchorSideTop.Control = edHeight
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = edHeight
Left = 0
Height = 15
Top = 4
Width = 39
Anchors = [akTop, akRight]
BorderSpacing.Right = 8
Caption = 'Height:'
Color = clDefault
FocusControl = edHeight
ParentColor = False
end
object edHeight: TEdit
AnchorSideTop.Control = BevelHeightWidth
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = udHeight
AnchorSideBottom.Control = BevelHeightWidth
Left = 47
Height = 23
Top = 0
Width = 40
Anchors = [akRight, akBottom]
OnEnter = PosEditEnter
OnExit = PosEditExit
TabOrder = 0
Text = '0.00'
end
object udHeight: TUpDown
AnchorSideTop.Control = edHeight
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = HeightWidthPanel
AnchorSideRight.Side = asrBottom
Left = 87
Height = 23
Top = 0
Width = 12
Anchors = [akTop, akRight]
Associate = edHeight
Min = 0
OnClick = UpDownClick
Position = 0
TabOrder = 1
end
object LblWidth: TLabel
AnchorSideTop.Control = edWidth
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = edWidth
Left = 4
Height = 15
Top = 35
Width = 35
Anchors = [akTop, akRight]
BorderSpacing.Right = 8
Caption = 'Width:'
Color = clDefault
FocusControl = edWidth
ParentColor = False
end
object edWidth: TEdit
AnchorSideTop.Control = BevelHeightWidth
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = udWidth
Left = 47
Height = 23
Top = 31
Width = 40
Anchors = [akTop, akRight]
OnEnter = PosEditEnter
OnExit = PosEditExit
TabOrder = 2
Text = '0.00'
end
object udWidth: TUpDown
AnchorSideTop.Control = edWidth
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = HeightWidthPanel
AnchorSideRight.Side = asrBottom
Left = 87
Height = 23
Top = 31
Width = 12
Anchors = [akTop, akRight]
Associate = edWidth
Min = 0
OnClick = UpDownClick
Position = 0
TabOrder = 3
end
object BevelHeightWidth: TBevel
AnchorSideLeft.Control = HeightWidthPanel
AnchorSideTop.Control = HeightWidthPanel
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = HeightWidthPanel
AnchorSideRight.Side = asrBottom
Left = 0
Height = 8
Top = 23
Width = 99
Anchors = [akTop, akLeft, akRight]
end
end
object TopLeftPanel: TPanel
AnchorSideLeft.Control = rgMeasurement
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = rgMeasurement
AnchorSideTop.Side = asrCenter
Left = 226
Height = 54
Top = 31
Width = 92
AutoSize = True
BorderSpacing.Left = 16
BevelOuter = bvNone
ClientHeight = 54
ClientWidth = 92
ParentFont = False
TabOrder = 3
object BevelTopLeft: TBevel
AnchorSideTop.Control = TopLeftPanel
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = TopLeftPanel
AnchorSideRight.Side = asrBottom
Left = 0
Height = 8
Top = 23
Width = 92
Anchors = [akTop, akLeft, akRight]
end
object LblTop: TLabel
AnchorSideTop.Control = edTop
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = edTop
Left = 2
Height = 15
Top = 4
Width = 22
Anchors = [akTop, akRight]
BorderSpacing.Left = 1
BorderSpacing.Right = 8
Caption = 'Top:'
Color = clDefault
FocusControl = edTop
ParentColor = False
end
object edTop: TEdit
AnchorSideRight.Control = udTop
AnchorSideBottom.Control = BevelTopLeft
Left = 32
Height = 23
Top = 0
Width = 48
Anchors = [akRight, akBottom]
OnEnter = PosEditEnter
OnExit = PosEditExit
TabOrder = 0
Text = '0.00'
end
object udTop: TUpDown
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = TopLeftPanel
AnchorSideRight.Side = asrBottom
Left = 80
Height = 23
Top = 0
Width = 12
Anchors = [akTop, akRight]
Associate = edTop
Min = 0
OnClick = UpDownClick
Position = 0
TabOrder = 1
end
object udLeft: TUpDown
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = edLeft
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = TopLeftPanel
AnchorSideRight.Side = asrBottom
Left = 80
Height = 23
Top = 31
Width = 12
Anchors = [akTop, akRight]
Associate = edLeft
Min = 0
OnClick = UpDownClick
Position = 0
TabOrder = 2
end
object edLeft: TEdit
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = udLeft
Left = 32
Height = 23
Top = 31
Width = 48
Anchors = [akTop, akRight]
OnEnter = PosEditEnter
OnExit = PosEditExit
TabOrder = 3
Text = '0.00'
end
object LblLeft: TLabel
AnchorSideTop.Control = edLeft
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = edLeft
Left = 1
Height = 15
Top = 35
Width = 23
Anchors = [akTop, akRight]
BorderSpacing.Left = 1
BorderSpacing.Right = 8
Caption = 'Left:'
Color = clDefault
FocusControl = edLeft
ParentColor = False
end
end
object chkVisible: TCheckBox
AnchorSideLeft.Control = TopLeftPanel
AnchorSideRight.Control = TopLeftPanel
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = rgMeasurement
AnchorSideBottom.Side = asrBottom
Left = 266
Height = 19
Top = 97
Width = 52
Alignment = taLeftJustify
Anchors = [akRight, akBottom]
Caption = 'Visible'
ParentFont = False
TabOrder = 4
end
end
object gbCaption: TGroupBox
Left = 12
Height = 54
Top = 371
Width = 449
Top = 351
Width = 431
Align = alTop
AutoSize = True
BorderSpacing.Left = 12
@@ -369,7 +26,7 @@ object frmEditElement: TfrmEditElement
BorderSpacing.Bottom = 6
Caption = ' Caption '
ClientHeight = 34
ClientWidth = 445
ClientWidth = 427
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
@@ -393,7 +50,7 @@ object frmEditElement: TfrmEditElement
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = gbCaption
AnchorSideRight.Side = asrBottom
Left = 378
Left = 360
Height = 25
Top = 1
Width = 59
@@ -413,7 +70,7 @@ object frmEditElement: TfrmEditElement
Left = 43
Height = 23
Top = 2
Width = 331
Width = 313
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 8
BorderSpacing.Top = 2
@@ -428,7 +85,7 @@ object frmEditElement: TfrmEditElement
Left = 12
Height = 23
Top = 8
Width = 449
Width = 431
Align = alTop
AutoSize = True
BorderSpacing.Left = 12
@@ -437,7 +94,7 @@ object frmEditElement: TfrmEditElement
BorderSpacing.Bottom = 8
BevelOuter = bvNone
ClientHeight = 23
ClientWidth = 449
ClientWidth = 431
TabOrder = 0
object lblName: TLabel
AnchorSideTop.Control = edName
@@ -456,7 +113,7 @@ object frmEditElement: TfrmEditElement
Left = 42
Height = 23
Top = 0
Width = 407
Width = 389
Align = alRight
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 4
@@ -467,7 +124,7 @@ object frmEditElement: TfrmEditElement
Left = 12
Height = 51
Top = 152
Width = 451
Width = 433
Align = alTop
AutoSize = True
BorderSpacing.Left = 12
@@ -475,7 +132,7 @@ object frmEditElement: TfrmEditElement
BorderSpacing.Right = 10
BevelOuter = bvNone
ClientHeight = 51
ClientWidth = 451
ClientWidth = 433
TabOrder = 2
object gbDayOffset: TGroupBox
AnchorSideTop.Control = DayOffsetPanel
@@ -530,14 +187,14 @@ object frmEditElement: TfrmEditElement
AnchorSideLeft.Side = asrBottom
AnchorSideRight.Control = DayOffsetPanel
AnchorSideRight.Side = asrBottom
Left = 108
Left = 112
Height = 51
Top = 0
Width = 343
Width = 321
Anchors = [akTop, akLeft, akRight]
AutoFill = True
AutoSize = True
BorderSpacing.Left = 12
BorderSpacing.Left = 16
Caption = ' Day Offset Unit '
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
@@ -548,7 +205,7 @@ object frmEditElement: TfrmEditElement
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 4
ClientHeight = 31
ClientWidth = 339
ClientWidth = 317
Columns = 4
ItemIndex = 0
Items.Strings = (
@@ -562,45 +219,45 @@ object frmEditElement: TfrmEditElement
end
end
object ButtonPanel: TPanel
Left = 0
Left = 12
Height = 25
Top = 433
Width = 461
Top = 413
Width = 431
Align = alTop
AutoSize = True
BorderSpacing.Left = 12
BorderSpacing.Top = 8
BorderSpacing.Right = 12
BorderSpacing.Bottom = 8
BevelOuter = bvNone
ClientHeight = 25
ClientWidth = 461
ClientWidth = 431
TabOrder = 5
object btnShape: TButton
AnchorSideLeft.Control = ButtonPanel
Left = 12
Left = 0
Height = 25
Top = 0
Width = 67
Align = alLeft
AutoSize = True
BorderSpacing.Left = 12
Caption = 'Shape...'
Enabled = False
OnClick = btnShapeClick
TabOrder = 0
end
object btnOk: TButton
Left = 324
Left = 323
Height = 25
Top = 0
Width = 71
Width = 42
Align = alRight
AutoSize = True
BorderSpacing.Right = 4
Caption = 'OK'
OnClick = btnOkClick
TabOrder = 1
end
object btnCancel: TButton
Left = 399
Left = 369
Height = 25
Top = 0
Width = 62
@@ -615,7 +272,7 @@ object frmEditElement: TfrmEditElement
Left = 12
Height = 97
Top = 43
Width = 451
Width = 433
Align = alTop
AutoSize = True
BorderSpacing.Left = 12
@@ -623,13 +280,13 @@ object frmEditElement: TfrmEditElement
BorderSpacing.Right = 10
BevelOuter = bvNone
ClientHeight = 97
ClientWidth = 451
ClientWidth = 433
TabOrder = 1
object rgItemType: TRadioGroup
Left = 0
Height = 97
Top = 0
Width = 451
Width = 433
Align = alClient
AutoFill = True
BorderSpacing.InnerBorder = 4
@@ -643,7 +300,7 @@ object frmEditElement: TfrmEditElement
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 3
ClientHeight = 77
ClientWidth = 447
ClientWidth = 429
Columns = 3
ItemIndex = 0
Items.Strings = (
@@ -662,12 +319,408 @@ object frmEditElement: TfrmEditElement
TabOrder = 0
end
end
object PositionPanel: TPanel
Left = 12
Height = 124
Top = 215
Width = 443
Align = alTop
AutoSize = True
BorderSpacing.Left = 12
BorderSpacing.Top = 12
BevelOuter = bvNone
ClientHeight = 124
ClientWidth = 443
TabOrder = 3
object rgRotation: TRadioGroup
AnchorSideLeft.Control = PositionPanel
AnchorSideTop.Control = PositionPanel
Left = 0
Height = 116
Top = 0
Width = 85
AutoFill = True
AutoSize = True
BorderSpacing.Bottom = 8
BorderSpacing.InnerBorder = 4
Caption = ' Rotation '
ChildSizing.LeftRightSpacing = 16
ChildSizing.TopBottomSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 96
ClientWidth = 81
ItemIndex = 0
Items.Strings = (
'0°'
'90°'
'180°'
'270°'
)
ParentFont = False
TabOrder = 0
end
object gbPosition: TGroupBox
AnchorSideLeft.Control = rgRotation
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = rgRotation
AnchorSideBottom.Control = rgRotation
AnchorSideBottom.Side = asrBottom
Left = 101
Height = 116
Top = 0
Width = 330
Anchors = [akTop, akLeft, akBottom]
AutoSize = True
BorderSpacing.Left = 16
BorderSpacing.Right = 12
Caption = 'Position'
ClientHeight = 96
ClientWidth = 326
TabOrder = 1
object TopLeftPanel: TPanel
AnchorSideLeft.Control = gbPosition
AnchorSideTop.Control = gbPosition
Left = 16
Height = 54
Top = 4
Width = 92
AutoSize = True
BorderSpacing.Left = 16
BorderSpacing.Top = 4
BevelOuter = bvNone
ClientHeight = 54
ClientWidth = 92
ParentFont = False
TabOrder = 0
object BevelTopLeft: TBevel
AnchorSideTop.Control = TopLeftPanel
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = TopLeftPanel
AnchorSideRight.Side = asrBottom
Left = 0
Height = 8
Top = 23
Width = 92
Anchors = [akTop, akLeft, akRight]
end
object LblTop: TLabel
AnchorSideTop.Control = edTop
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = edTop
Left = 2
Height = 15
Top = 4
Width = 22
Anchors = [akTop, akRight]
BorderSpacing.Left = 1
BorderSpacing.Right = 8
Caption = 'Top:'
Color = clDefault
FocusControl = edTop
ParentColor = False
end
object edTop: TEdit
AnchorSideRight.Control = udTop
AnchorSideBottom.Control = BevelTopLeft
Left = 32
Height = 23
Top = 0
Width = 48
Anchors = [akRight, akBottom]
OnEnter = PosEditEnter
OnExit = PosEditExit
TabOrder = 0
Text = '0.00'
end
object udTop: TUpDown
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = TopLeftPanel
AnchorSideRight.Side = asrBottom
Left = 80
Height = 23
Top = 0
Width = 12
Anchors = [akTop, akRight]
Associate = edTop
Min = 0
OnClick = UpDownClick
Position = 0
TabOrder = 1
end
object udLeft: TUpDown
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = edLeft
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = TopLeftPanel
AnchorSideRight.Side = asrBottom
Left = 80
Height = 23
Top = 31
Width = 12
Anchors = [akTop, akRight]
Associate = edLeft
Min = 0
OnClick = UpDownClick
Position = 0
TabOrder = 3
end
object edLeft: TEdit
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = udLeft
Left = 32
Height = 23
Top = 31
Width = 48
Anchors = [akTop, akRight]
OnEnter = PosEditEnter
OnExit = PosEditExit
TabOrder = 2
Text = '0.00'
end
object LblLeft: TLabel
AnchorSideTop.Control = edLeft
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = edLeft
Left = 1
Height = 15
Top = 35
Width = 23
Anchors = [akTop, akRight]
BorderSpacing.Left = 1
BorderSpacing.Right = 8
Caption = 'Left:'
Color = clDefault
FocusControl = edLeft
ParentColor = False
end
end
object HeightWidthPanel: TPanel
AnchorSideLeft.Control = TopLeftPanel
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = TopLeftPanel
AnchorSideBottom.Side = asrBottom
Left = 124
Height = 54
Top = 4
Width = 99
AutoSize = True
BorderSpacing.Left = 16
BorderSpacing.Right = 12
BevelOuter = bvNone
ClientHeight = 54
ClientWidth = 99
ParentFont = False
TabOrder = 1
object LblHeight: TLabel
AnchorSideTop.Control = edHeight
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = edHeight
Left = 0
Height = 15
Top = 4
Width = 39
Anchors = [akTop, akRight]
BorderSpacing.Right = 8
Caption = 'Height:'
Color = clDefault
FocusControl = edHeight
ParentColor = False
end
object edHeight: TEdit
AnchorSideTop.Control = BevelHeightWidth
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = udHeight
AnchorSideBottom.Control = BevelHeightWidth
Left = 47
Height = 23
Top = 0
Width = 40
Anchors = [akRight, akBottom]
OnEnter = PosEditEnter
OnExit = PosEditExit
TabOrder = 0
Text = '0.00'
end
object udHeight: TUpDown
AnchorSideTop.Control = edHeight
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = HeightWidthPanel
AnchorSideRight.Side = asrBottom
Left = 87
Height = 23
Top = 0
Width = 12
Anchors = [akTop, akRight]
Associate = edHeight
Min = 0
OnClick = UpDownClick
Position = 0
TabOrder = 1
end
object LblWidth: TLabel
AnchorSideTop.Control = edWidth
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = edWidth
Left = 4
Height = 15
Top = 35
Width = 35
Anchors = [akTop, akRight]
BorderSpacing.Right = 8
Caption = 'Width:'
Color = clDefault
FocusControl = edWidth
ParentColor = False
end
object edWidth: TEdit
AnchorSideTop.Control = BevelHeightWidth
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = udWidth
Left = 47
Height = 23
Top = 31
Width = 40
Anchors = [akTop, akRight]
OnEnter = PosEditEnter
OnExit = PosEditExit
TabOrder = 2
Text = '0.00'
end
object udWidth: TUpDown
AnchorSideTop.Control = edWidth
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = HeightWidthPanel
AnchorSideRight.Side = asrBottom
Left = 87
Height = 23
Top = 31
Width = 12
Anchors = [akTop, akRight]
Associate = edWidth
Min = 0
OnClick = UpDownClick
Position = 0
TabOrder = 3
end
object BevelHeightWidth: TBevel
AnchorSideLeft.Control = HeightWidthPanel
AnchorSideTop.Control = HeightWidthPanel
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = HeightWidthPanel
AnchorSideRight.Side = asrBottom
Left = 0
Height = 8
Top = 23
Width = 99
Anchors = [akTop, akLeft, akRight]
end
end
object chkVisible: TCheckBox
AnchorSideLeft.Control = BevelTopLeft1
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = gbPosition
AnchorSideBottom.Side = asrBottom
Left = 93
Height = 19
Top = 73
Width = 52
Anchors = [akLeft, akBottom]
BorderSpacing.Bottom = 4
Caption = 'Visible'
ParentFont = False
TabOrder = 2
end
object Panel2: TPanel
AnchorSideLeft.Control = HeightWidthPanel
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = gbPosition
AnchorSideBottom.Control = gbPosition
AnchorSideBottom.Side = asrBottom
Left = 255
Height = 94
Top = 0
Width = 59
Anchors = [akTop, akLeft, akBottom]
AutoSize = True
BorderSpacing.Left = 32
BorderSpacing.Right = 12
BorderSpacing.Bottom = 2
Caption = 'Panel2'
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsHomogenousChildResize
ChildSizing.ShrinkVertical = crsHomogenousChildResize
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 94
ClientWidth = 59
TabOrder = 3
object rbPixels: TRadioButton
Left = 0
Height = 24
Top = 0
Width = 59
Caption = 'Pixels'
OnChange = MeasurementUnitChange
TabOrder = 0
end
object rbPercent: TRadioButton
Left = 0
Height = 24
Top = 24
Width = 59
Caption = 'Percent'
Checked = True
OnChange = MeasurementUnitChange
TabOrder = 1
TabStop = True
end
object rbInches: TRadioButton
Left = 0
Height = 24
Top = 48
Width = 59
Caption = 'Inches'
OnChange = MeasurementUnitChange
TabOrder = 2
end
object rbCentimeters: TRadioButton
Left = 0
Height = 22
Top = 72
Width = 59
Caption = 'cm'
OnChange = MeasurementUnitChange
TabOrder = 3
end
end
object BevelTopLeft1: TBevel
AnchorSideLeft.Control = TopLeftPanel
AnchorSideRight.Control = HeightWidthPanel
AnchorSideRight.Side = asrBottom
Left = 16
Height = 8
Top = 64
Width = 207
Anchors = [akTop, akLeft, akRight]
Shape = bsSpacer
end
end
end
object FontDialog1: TFontDialog
Font.Height = -11
Font.Name = 'MS Sans Serif'
MinFontSize = 0
MaxFontSize = 0
Left = 536
Top = 304
Left = 192
Top = 352
end
end