You've already forked lazarus-ccr
tvplanit: Update VpEdElem to scale correctly in the HighDpi mode of Lazarus 1.8.
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5885 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
@ -1,42 +1,48 @@
|
||||
object frmEditElement: TfrmEditElement
|
||||
Left = 486
|
||||
Height = 449
|
||||
Top = 220
|
||||
Width = 489
|
||||
Left = 288
|
||||
Height = 516
|
||||
Top = 321
|
||||
Width = 661
|
||||
HorzScrollBar.Page = 378
|
||||
VertScrollBar.Page = 444
|
||||
AutoSize = True
|
||||
BorderStyle = bsDialog
|
||||
Caption = 'Edit Element'
|
||||
ClientHeight = 449
|
||||
ClientWidth = 489
|
||||
ClientHeight = 516
|
||||
ClientWidth = 661
|
||||
OnCreate = FormCreate
|
||||
OnShow = FormShow
|
||||
Position = poScreenCenter
|
||||
LCLVersion = '1.7'
|
||||
LCLVersion = '1.6.4.0'
|
||||
object gbVisual: TGroupBox
|
||||
Left = 12
|
||||
Height = 152
|
||||
Top = 181
|
||||
Width = 465
|
||||
Height = 144
|
||||
Top = 196
|
||||
Width = 637
|
||||
Align = alTop
|
||||
AutoSize = True
|
||||
BorderSpacing.Left = 12
|
||||
BorderSpacing.Top = 8
|
||||
BorderSpacing.Top = 12
|
||||
BorderSpacing.Right = 12
|
||||
Caption = ' Visual '
|
||||
ClientHeight = 132
|
||||
ClientWidth = 461
|
||||
ClientHeight = 124
|
||||
ClientWidth = 633
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
TabOrder = 3
|
||||
object rgMeasurement: TRadioGroup
|
||||
Left = 104
|
||||
Height = 124
|
||||
AnchorSideLeft.Control = rgRotation
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = gbVisual
|
||||
Left = 102
|
||||
Height = 116
|
||||
Top = 0
|
||||
Width = 98
|
||||
Align = alLeft
|
||||
Width = 106
|
||||
AutoFill = True
|
||||
AutoSize = True
|
||||
BorderSpacing.Left = 8
|
||||
BorderSpacing.Left = 16
|
||||
BorderSpacing.Bottom = 8
|
||||
BorderSpacing.InnerBorder = 4
|
||||
Caption = ' Measurement '
|
||||
ChildSizing.LeftRightSpacing = 6
|
||||
ChildSizing.TopBottomSpacing = 6
|
||||
@ -46,8 +52,8 @@ object frmEditElement: TfrmEditElement
|
||||
ChildSizing.ShrinkVertical = crsScaleChilds
|
||||
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
||||
ChildSizing.ControlsPerLine = 1
|
||||
ClientHeight = 104
|
||||
ClientWidth = 94
|
||||
ClientHeight = 96
|
||||
ClientWidth = 102
|
||||
ItemIndex = 1
|
||||
Items.Strings = (
|
||||
'Pixels'
|
||||
@ -56,18 +62,21 @@ object frmEditElement: TfrmEditElement
|
||||
'cm'
|
||||
)
|
||||
OnClick = rgMeasurementClick
|
||||
ParentFont = False
|
||||
TabOrder = 1
|
||||
end
|
||||
object rgRotation: TRadioGroup
|
||||
AnchorSideLeft.Control = gbVisual
|
||||
AnchorSideTop.Control = gbVisual
|
||||
Left = 8
|
||||
Height = 124
|
||||
Height = 116
|
||||
Top = 0
|
||||
Width = 88
|
||||
Align = alLeft
|
||||
Width = 78
|
||||
AutoFill = True
|
||||
AutoSize = True
|
||||
BorderSpacing.Left = 8
|
||||
BorderSpacing.Bottom = 8
|
||||
BorderSpacing.InnerBorder = 8
|
||||
BorderSpacing.InnerBorder = 4
|
||||
Caption = ' Rotation '
|
||||
ChildSizing.LeftRightSpacing = 6
|
||||
ChildSizing.TopBottomSpacing = 6
|
||||
@ -77,8 +86,8 @@ object frmEditElement: TfrmEditElement
|
||||
ChildSizing.ShrinkVertical = crsScaleChilds
|
||||
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
||||
ChildSizing.ControlsPerLine = 1
|
||||
ClientHeight = 104
|
||||
ClientWidth = 84
|
||||
ClientHeight = 96
|
||||
ClientWidth = 74
|
||||
ItemIndex = 0
|
||||
Items.Strings = (
|
||||
'0'
|
||||
@ -86,171 +95,284 @@ object frmEditElement: TfrmEditElement
|
||||
'180'
|
||||
'270'
|
||||
)
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
end
|
||||
object Panel3: TPanel
|
||||
Left = 202
|
||||
Height = 132
|
||||
Top = 0
|
||||
Width = 239
|
||||
Align = alLeft
|
||||
object HeightWidthPanel: TPanel
|
||||
AnchorSideLeft.Control = TopLeftPanel
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = rgMeasurement
|
||||
AnchorSideTop.Side = asrCenter
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 332
|
||||
Height = 54
|
||||
Top = 31
|
||||
Width = 99
|
||||
AutoSize = True
|
||||
BorderSpacing.Left = 16
|
||||
BorderSpacing.Top = 10
|
||||
BorderSpacing.Right = 12
|
||||
BevelOuter = bvNone
|
||||
ClientHeight = 132
|
||||
ClientWidth = 239
|
||||
ClientHeight = 54
|
||||
ClientWidth = 99
|
||||
ParentFont = False
|
||||
TabOrder = 2
|
||||
object LblTop: TLabel
|
||||
Left = 8
|
||||
Height = 15
|
||||
Top = 28
|
||||
Width = 23
|
||||
Caption = 'Top:'
|
||||
FocusControl = edTop
|
||||
ParentColor = False
|
||||
end
|
||||
object LblHeight: TLabel
|
||||
Left = 136
|
||||
AnchorSideTop.Control = edHeight
|
||||
AnchorSideTop.Side = asrCenter
|
||||
AnchorSideRight.Control = edHeight
|
||||
Left = 0
|
||||
Height = 15
|
||||
Top = 28
|
||||
Top = 4
|
||||
Width = 39
|
||||
BorderSpacing.Right = 4
|
||||
Anchors = [akTop, akRight]
|
||||
BorderSpacing.Right = 8
|
||||
Caption = 'Height:'
|
||||
FocusControl = edHeight
|
||||
ParentColor = False
|
||||
end
|
||||
object edTop: TEdit
|
||||
Left = 44
|
||||
object edHeight: TEdit
|
||||
AnchorSideTop.Control = BevelHeightWidth
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = udHeight
|
||||
AnchorSideBottom.Control = BevelHeightWidth
|
||||
Left = 47
|
||||
Height = 23
|
||||
Top = 24
|
||||
Width = 48
|
||||
Top = 0
|
||||
Width = 40
|
||||
Anchors = [akRight, akBottom]
|
||||
OnEnter = PosEditEnter
|
||||
OnExit = PosEditExit
|
||||
TabOrder = 0
|
||||
Text = '0.00'
|
||||
end
|
||||
object edHeight: TEdit
|
||||
Left = 183
|
||||
object udHeight: TUpDown
|
||||
AnchorSideTop.Control = edHeight
|
||||
AnchorSideTop.Side = asrCenter
|
||||
AnchorSideRight.Control = HeightWidthPanel
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 87
|
||||
Height = 23
|
||||
Top = 24
|
||||
Top = 0
|
||||
Width = 12
|
||||
Anchors = [akTop, akRight]
|
||||
Associate = edHeight
|
||||
Min = 0
|
||||
OnClick = UpDownClick
|
||||
Position = 0
|
||||
TabOrder = 1
|
||||
Wrap = False
|
||||
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:'
|
||||
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 = 1
|
||||
TabOrder = 2
|
||||
Text = '0.00'
|
||||
end
|
||||
object udHeight: TUpDown
|
||||
object udWidth: TUpDown
|
||||
AnchorSideTop.Control = edWidth
|
||||
AnchorSideTop.Side = asrCenter
|
||||
AnchorSideRight.Control = HeightWidthPanel
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 223
|
||||
Left = 87
|
||||
Height = 23
|
||||
Top = 24
|
||||
Top = 31
|
||||
Width = 12
|
||||
Associate = edHeight
|
||||
Anchors = [akTop, akRight]
|
||||
Associate = edWidth
|
||||
Min = 0
|
||||
OnClick = UpDownClick
|
||||
Position = 0
|
||||
TabOrder = 3
|
||||
Wrap = False
|
||||
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 = 224
|
||||
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 = 1
|
||||
Height = 15
|
||||
Top = 4
|
||||
Width = 23
|
||||
Anchors = [akTop, akRight]
|
||||
BorderSpacing.Left = 1
|
||||
BorderSpacing.Right = 8
|
||||
Caption = 'Top:'
|
||||
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
|
||||
Wrap = False
|
||||
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
|
||||
Wrap = False
|
||||
end
|
||||
object LblLeft: TLabel
|
||||
Left = 8
|
||||
Height = 15
|
||||
Top = 60
|
||||
Width = 23
|
||||
Caption = 'Left:'
|
||||
FocusControl = edLeft
|
||||
ParentColor = False
|
||||
end
|
||||
object LblWidth: TLabel
|
||||
Left = 141
|
||||
Height = 15
|
||||
Top = 60
|
||||
Width = 35
|
||||
BorderSpacing.Right = 4
|
||||
Caption = 'Width:'
|
||||
FocusControl = edWidth
|
||||
ParentColor = False
|
||||
end
|
||||
object edLeft: TEdit
|
||||
Left = 44
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = udLeft
|
||||
Left = 32
|
||||
Height = 23
|
||||
Top = 56
|
||||
Top = 31
|
||||
Width = 48
|
||||
Anchors = [akTop, akRight]
|
||||
OnEnter = PosEditEnter
|
||||
OnExit = PosEditExit
|
||||
TabOrder = 3
|
||||
Text = '0.00'
|
||||
end
|
||||
object edWidth: TEdit
|
||||
Left = 183
|
||||
Height = 23
|
||||
Top = 56
|
||||
Width = 40
|
||||
OnEnter = PosEditEnter
|
||||
OnExit = PosEditExit
|
||||
TabOrder = 4
|
||||
Text = '0.00'
|
||||
end
|
||||
object udLeft: TUpDown
|
||||
Left = 92
|
||||
Height = 23
|
||||
Top = 56
|
||||
Width = 12
|
||||
Associate = edLeft
|
||||
Min = 0
|
||||
OnClick = UpDownClick
|
||||
Position = 0
|
||||
TabOrder = 5
|
||||
Wrap = False
|
||||
end
|
||||
object udWidth: TUpDown
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 223
|
||||
Height = 23
|
||||
Top = 56
|
||||
Width = 12
|
||||
Associate = edWidth
|
||||
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
|
||||
Min = 0
|
||||
OnClick = UpDownClick
|
||||
Position = 0
|
||||
TabOrder = 6
|
||||
Wrap = False
|
||||
end
|
||||
object chkVisible: TCheckBox
|
||||
Left = 48
|
||||
Height = 19
|
||||
Top = 88
|
||||
Width = 54
|
||||
Caption = 'Visible'
|
||||
TabOrder = 7
|
||||
end
|
||||
object udTop: TUpDown
|
||||
Left = 92
|
||||
Height = 23
|
||||
Top = 24
|
||||
Width = 12
|
||||
Associate = edTop
|
||||
Min = 0
|
||||
OnClick = UpDownClick
|
||||
Position = 0
|
||||
TabOrder = 8
|
||||
Wrap = False
|
||||
Caption = 'Left:'
|
||||
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 = 262
|
||||
Height = 19
|
||||
Top = 97
|
||||
Width = 54
|
||||
Alignment = taLeftJustify
|
||||
Anchors = [akRight, akBottom]
|
||||
Caption = 'Visible'
|
||||
ParentFont = False
|
||||
TabOrder = 4
|
||||
end
|
||||
end
|
||||
object gbCaption: TGroupBox
|
||||
Left = 12
|
||||
Height = 54
|
||||
Top = 341
|
||||
Width = 465
|
||||
Top = 352
|
||||
Width = 637
|
||||
Align = alTop
|
||||
AutoSize = True
|
||||
BorderSpacing.Left = 12
|
||||
BorderSpacing.Top = 8
|
||||
BorderSpacing.Top = 12
|
||||
BorderSpacing.Right = 12
|
||||
BorderSpacing.Bottom = 6
|
||||
Caption = ' Caption '
|
||||
ClientHeight = 34
|
||||
ClientWidth = 461
|
||||
ClientWidth = 633
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
TabOrder = 4
|
||||
object lblCaptionText: TLabel
|
||||
AnchorSideLeft.Control = gbCaption
|
||||
@ -264,37 +386,41 @@ object frmEditElement: TfrmEditElement
|
||||
Caption = 'Text: '
|
||||
FocusControl = edCaptionText
|
||||
ParentColor = False
|
||||
ParentFont = False
|
||||
end
|
||||
object btnCaptionFont: TButton
|
||||
AnchorSideTop.Control = edCaptionText
|
||||
AnchorSideTop.Side = asrCenter
|
||||
AnchorSideRight.Control = gbCaption
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 386
|
||||
Left = 566
|
||||
Height = 25
|
||||
Top = 1
|
||||
Width = 67
|
||||
Width = 59
|
||||
Anchors = [akTop, akRight]
|
||||
AutoSize = True
|
||||
BorderSpacing.Right = 8
|
||||
BorderSpacing.Bottom = 8
|
||||
Caption = 'Font...'
|
||||
OnClick = btnCaptionFontClick
|
||||
ParentFont = False
|
||||
TabOrder = 1
|
||||
end
|
||||
object edCaptionText: TEdit
|
||||
AnchorSideLeft.Control = lblCaptionText
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideRight.Control = btnCaptionFont
|
||||
Left = 39
|
||||
Left = 43
|
||||
Height = 23
|
||||
Top = 2
|
||||
Width = 343
|
||||
Width = 519
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Left = 4
|
||||
BorderSpacing.Left = 8
|
||||
BorderSpacing.Top = 2
|
||||
BorderSpacing.Right = 4
|
||||
BorderSpacing.Bottom = 8
|
||||
OnChange = edCaptionTextChange
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
end
|
||||
end
|
||||
@ -302,7 +428,7 @@ object frmEditElement: TfrmEditElement
|
||||
Left = 12
|
||||
Height = 23
|
||||
Top = 8
|
||||
Width = 465
|
||||
Width = 637
|
||||
Align = alTop
|
||||
AutoSize = True
|
||||
BorderSpacing.Left = 12
|
||||
@ -311,7 +437,7 @@ object frmEditElement: TfrmEditElement
|
||||
BorderSpacing.Bottom = 8
|
||||
BevelOuter = bvNone
|
||||
ClientHeight = 23
|
||||
ClientWidth = 465
|
||||
ClientWidth = 637
|
||||
TabOrder = 0
|
||||
object lblName: TLabel
|
||||
AnchorSideTop.Control = edName
|
||||
@ -329,7 +455,7 @@ object frmEditElement: TfrmEditElement
|
||||
Left = 42
|
||||
Height = 23
|
||||
Top = 0
|
||||
Width = 423
|
||||
Width = 595
|
||||
Align = alRight
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
BorderSpacing.Left = 4
|
||||
@ -338,44 +464,61 @@ object frmEditElement: TfrmEditElement
|
||||
end
|
||||
object Panel2: TPanel
|
||||
Left = 12
|
||||
Height = 56
|
||||
Top = 117
|
||||
Width = 467
|
||||
Height = 51
|
||||
Top = 133
|
||||
Width = 639
|
||||
Align = alTop
|
||||
AutoSize = True
|
||||
BorderSpacing.Left = 12
|
||||
BorderSpacing.Top = 8
|
||||
BorderSpacing.Top = 12
|
||||
BorderSpacing.Right = 10
|
||||
BevelOuter = bvNone
|
||||
ClientHeight = 56
|
||||
ClientWidth = 467
|
||||
ClientHeight = 51
|
||||
ClientWidth = 639
|
||||
TabOrder = 2
|
||||
object gbDayOffset: TGroupBox
|
||||
AnchorSideTop.Control = Panel2
|
||||
AnchorSideBottom.Control = rgDayOffsetUnit
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 0
|
||||
Height = 56
|
||||
Height = 51
|
||||
Top = 0
|
||||
Width = 98
|
||||
Width = 96
|
||||
Anchors = [akTop, akLeft, akBottom]
|
||||
AutoSize = True
|
||||
Caption = 'Day Offset'
|
||||
ClientHeight = 36
|
||||
ClientWidth = 94
|
||||
ClientHeight = 31
|
||||
ClientWidth = 92
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
object edOffset: TEdit
|
||||
AnchorSideLeft.Control = gbDayOffset
|
||||
AnchorSideTop.Control = gbDayOffset
|
||||
Left = 8
|
||||
Height = 23
|
||||
Top = 2
|
||||
Top = 3
|
||||
Width = 64
|
||||
Alignment = taRightJustify
|
||||
BorderSpacing.Left = 8
|
||||
BorderSpacing.Top = 3
|
||||
BorderSpacing.Bottom = 8
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
Text = '0'
|
||||
end
|
||||
object udOffset: TUpDown
|
||||
AnchorSideLeft.Control = edOffset
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = edOffset
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 72
|
||||
Height = 23
|
||||
Top = 2
|
||||
Top = 3
|
||||
Width = 12
|
||||
Associate = edOffset
|
||||
BorderSpacing.Right = 8
|
||||
BorderSpacing.Bottom = 8
|
||||
Min = 0
|
||||
Position = 0
|
||||
TabOrder = 1
|
||||
@ -387,14 +530,14 @@ object frmEditElement: TfrmEditElement
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideRight.Control = Panel2
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 106
|
||||
Left = 108
|
||||
Height = 51
|
||||
Top = 0
|
||||
Width = 361
|
||||
Width = 531
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
AutoFill = True
|
||||
AutoSize = True
|
||||
BorderSpacing.Left = 8
|
||||
BorderSpacing.Left = 12
|
||||
Caption = ' Day Offset Unit '
|
||||
ChildSizing.LeftRightSpacing = 6
|
||||
ChildSizing.TopBottomSpacing = 6
|
||||
@ -405,7 +548,7 @@ object frmEditElement: TfrmEditElement
|
||||
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
||||
ChildSizing.ControlsPerLine = 4
|
||||
ClientHeight = 31
|
||||
ClientWidth = 357
|
||||
ClientWidth = 527
|
||||
Columns = 4
|
||||
ItemIndex = 0
|
||||
Items.Strings = (
|
||||
@ -414,51 +557,59 @@ object frmEditElement: TfrmEditElement
|
||||
'Month'
|
||||
'Year'
|
||||
)
|
||||
ParentFont = False
|
||||
TabOrder = 1
|
||||
end
|
||||
end
|
||||
object ButtonPanel: TPanel
|
||||
Left = 12
|
||||
Left = 0
|
||||
Height = 25
|
||||
Top = 403
|
||||
Width = 465
|
||||
Top = 414
|
||||
Width = 649
|
||||
Align = alTop
|
||||
BorderSpacing.Left = 12
|
||||
AutoSize = True
|
||||
BorderSpacing.Top = 8
|
||||
BorderSpacing.Right = 12
|
||||
BorderSpacing.Bottom = 9
|
||||
BorderSpacing.Bottom = 8
|
||||
BevelOuter = bvNone
|
||||
ClientHeight = 25
|
||||
ClientWidth = 465
|
||||
ClientWidth = 649
|
||||
TabOrder = 5
|
||||
object btnShape: TButton
|
||||
AnchorSideLeft.Control = ButtonPanel
|
||||
Left = 0
|
||||
Left = 12
|
||||
Height = 25
|
||||
Top = 0
|
||||
Width = 75
|
||||
Width = 67
|
||||
AutoSize = True
|
||||
BorderSpacing.Left = 12
|
||||
Caption = 'Shape...'
|
||||
Enabled = False
|
||||
OnClick = btnShapeClick
|
||||
TabOrder = 0
|
||||
end
|
||||
object btnOk: TButton
|
||||
Left = 316
|
||||
AnchorSideRight.Control = btnCancel
|
||||
Left = 512
|
||||
Height = 25
|
||||
Top = 0
|
||||
Width = 75
|
||||
Width = 71
|
||||
Anchors = [akTop, akRight]
|
||||
BorderSpacing.Right = 4
|
||||
Caption = 'OK'
|
||||
Default = True
|
||||
OnClick = btnOkClick
|
||||
TabOrder = 1
|
||||
end
|
||||
object btnCancel: TButton
|
||||
AnchorSideRight.Control = ButtonPanel
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 391
|
||||
Left = 587
|
||||
Height = 25
|
||||
Top = 0
|
||||
Width = 74
|
||||
Anchors = [akTop]
|
||||
Width = 62
|
||||
Anchors = [akTop, akRight]
|
||||
AutoSize = True
|
||||
Cancel = True
|
||||
Caption = 'Cancel'
|
||||
OnClick = btnCancelClick
|
||||
@ -467,25 +618,26 @@ object frmEditElement: TfrmEditElement
|
||||
end
|
||||
object ItemTypePanel: TPanel
|
||||
Left = 12
|
||||
Height = 70
|
||||
Top = 39
|
||||
Width = 467
|
||||
Height = 78
|
||||
Top = 43
|
||||
Width = 639
|
||||
Align = alTop
|
||||
AutoSize = True
|
||||
BorderSpacing.Left = 12
|
||||
BorderSpacing.Top = 8
|
||||
BorderSpacing.Top = 12
|
||||
BorderSpacing.Right = 10
|
||||
BevelOuter = bvNone
|
||||
ClientHeight = 70
|
||||
ClientWidth = 467
|
||||
ClientHeight = 78
|
||||
ClientWidth = 639
|
||||
TabOrder = 1
|
||||
object rgItemType: TRadioGroup
|
||||
Left = 0
|
||||
Height = 70
|
||||
Height = 78
|
||||
Top = 0
|
||||
Width = 303
|
||||
Width = 639
|
||||
Align = alClient
|
||||
AutoFill = True
|
||||
AutoSize = True
|
||||
BorderSpacing.InnerBorder = 4
|
||||
Caption = 'Item Type '
|
||||
ChildSizing.LeftRightSpacing = 6
|
||||
ChildSizing.TopBottomSpacing = 6
|
||||
@ -495,8 +647,8 @@ object frmEditElement: TfrmEditElement
|
||||
ChildSizing.ShrinkVertical = crsScaleChilds
|
||||
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
||||
ChildSizing.ControlsPerLine = 4
|
||||
ClientHeight = 50
|
||||
ClientWidth = 299
|
||||
ClientHeight = 58
|
||||
ClientWidth = 635
|
||||
Columns = 4
|
||||
ItemIndex = 0
|
||||
Items.Strings = (
|
||||
@ -510,6 +662,7 @@ object frmEditElement: TfrmEditElement
|
||||
'Contacts'
|
||||
)
|
||||
OnClick = rgItemTypeClick
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
end
|
||||
end
|
||||
@ -518,7 +671,7 @@ object frmEditElement: TfrmEditElement
|
||||
Font.Name = 'MS Sans Serif'
|
||||
MinFontSize = 0
|
||||
MaxFontSize = 0
|
||||
left = 224
|
||||
top = 352
|
||||
left = 272
|
||||
top = 424
|
||||
end
|
||||
end
|
||||
|
||||
Reference in New Issue
Block a user