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

tvplanit: Update VpEdElem to scale correctly in the HighDpi mode of Lazarus 1.8.

Browse Source 
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
2017-05-20 20:43:20 +00:00
parent e9103a1af1
commit 6dcc6c4a4b
2 changed files with 362 additions and 273 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

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

108
components/tvplanit/source/vpedelem.pas
View File

@ -47,6 +47,8 @@ type
{ TfrmEditElement } { TfrmEditElement }
TfrmEditElement = class(TForm) TfrmEditElement = class(TForm)
BevelHeightWidth: TBevel;
BevelTopLeft: TBevel;
btnCancel: TButton; btnCancel: TButton;
btnOk: TButton; btnOk: TButton;
btnShape: TButton; btnShape: TButton;
@ -57,7 +59,8 @@ type
Panel2: TPanel; Panel2: TPanel;
ButtonPanel: TPanel; ButtonPanel: TPanel;
ItemTypePanel: TPanel; ItemTypePanel: TPanel;
Panel3: TPanel; HeightWidthPanel: TPanel;
TopLeftPanel: TPanel;
rgDayOffsetUnit: TRadioGroup; rgDayOffsetUnit: TRadioGroup;
rgItemType: TRadioGroup; rgItemType: TRadioGroup;
gbVisual: TGroupBox; gbVisual: TGroupBox;
@ -134,6 +137,8 @@ begin
end; end;
{=====} {=====}
procedure TfrmEditElement.FormCreate(Sender: TObject); procedure TfrmEditElement.FormCreate(Sender: TObject);
var
i: Integer;
begin begin
btnShape.Enabled := False; btnShape.Enabled := False;
@ -142,6 +147,14 @@ begin
lblCaptionText.Enabled := False; lblCaptionText.Enabled := False;
btnCaptionFont.Enabled := False; btnCaptionFont.Enabled := False;
for i:=0 to rgDayOffsetUnit.ComponentCount-1 do
TRadioButton(rgDayOffsetUnit.Components[i]).ParentFont := false;
rgDayOffsetUnit.Font.Style := [fsBold];
for i:=0 to rgItemType.ComponentCount-1 do
TRadioButton(rgItemType.Components[i]).ParentFont := false;
rgItemType.Font.Style := [fsBold];
SetCaptions; SetCaptions;
end; end;
{=====} {=====}
@ -296,94 +309,17 @@ begin
end; end;
procedure TfrmEditElement.PositionControls; procedure TfrmEditElement.PositionControls;
var
w, hEd, hBtn: Integer;
DELTA: Integer = 8;
begin begin
DELTA := ScaleX(DELTA, DesignTimeDPI); AlignOKCancel(btnOK, btnCancel, ButtonPanel);
AutoSize := false;
// Fix edit heights at higher dpi udOffset.Width := udOffset.Height div 2 + 1;
with TEdit.Create(self) do udTop.Width := udTop.Height div 2 + 1;
try udLeft.Width := udLeft.Height div 2 + 1;
Parent := self; udHeight.Width := udHeight.Height div 2 + 1;
hEd := Height; udWidth.Width := udWidth.Height div 2 + 1;
finally
free;
end;
edName.Height := hEd;
edOffset.Height := hEd;
udOffset.Height := hEd;
edTop.Height := hEd;
edLeft.Height := hEd;
edHeight.Height := hEd;
edWidth.Height := hEd;
udTop.Height := hEd;
udLeft.Height := hEd;
udHeight.Height := hEd;
udWidth.Height := hEd;
edCaptionText.Height := hEd;
// Fix button heights a higher dpi BevelTopLeft.Shape := bsSpacer;
hBtn := ScaleY(btnOK.Height, DesignTimeDPI); BevelHeightWidth.Shape := bsSpacer;
btnOK.Height := hBtn;
btnCancel.Height := hBtn;
btnShape.Height := hBtn;
btnCaptionFont.Height := hBtn;
ButtonPanel.Height := btnOK.Top + btnOK.Height + btnOK.Top;
gbDayOffset.Height := rgDayOffsetUnit.Height;
rgRotation.Height := rgMeasurement.Height;
rgRotation.Width := rgMeasurement.Width;
// Position Left/Top etc controls
w := Max(GetLabelWidth(lblLeft), GetLabelWidth(lblTop));
edTop.Left := 2*DELTA + w + DELTA;
udTop.Left := RightOf(edTop);
lblTop.Left := edTop.Left - DELTA - GetLabelWidth(lblTop);
edLeft.Left := edTop.Left;
udLeft.Left := RightOf(edLeft);
lblLeft.Left := edLeft.Left - DELTA - GetLabelWidth(lblLeft);
w := Max(GetLabelWidth(lblWidth), GetLabelWidth(lblHeight));
edHeight.Left := RightOf(edTop) + 3*DELTA + w + DELTA;
edWidth.Left := edHeight.Left;
udHeight.Left := RightOf(edHeight);
udWidth.Left := RightOf(edWidth);
lblHeight.Left := edHeight.Left - DELTA - GetLabelWidth(lblHeight);
lblWidth.Left := edWidth.Left - DELTA - GetLabelWidth(lblWidth);
chkVisible.Left := edTop.Left;
Panel3.Width := RightOf(udHeight) + 2*DELTA;
// Caption
btnCaptionFont.Width := GetButtonWidth(btnCaptionFont);
// Buttons at the bottom
w := Max(GetButtonWidth(btnOK), GetButtonWidth(btnCancel));
btnOK.Width := w;
btnCancel.Width := w;
btnShape.Width := GetButtonWidth(btnShape);
// Form size
rgItemType.Align := alNone;
ClientWidth := rgItemType.Width + ItemTypePanel.BorderSpacing.Left + ItemTypePanel.BorderSpacing.Right;
rgItemType.Align := alClient;
if RightOf(udHeight) > gbVisual.ClientWidth then
ClientWidth := RightOf(udHeight) + gbVisual.BorderSpacing.Left + gbVisual.BorderSpacing.Right;
AutoSize := true;
{$IFDEF MSWINDOWS}
btnCancel.Left := ButtonPanel.ClientWidth - btnCancel.Width;
btnOK.Left := btnCancel.Left - btnOK.Width - DELTA;
btnOK.TabOrder := 1;
btnCancel.TabOrder := 2;
{$ELSE}
btnOK.Left := ButtonPanel.ClientWidth - btnOK.Width;
btnCancel.Left := btnOK.Left - btnCancel.Width - DELTA;
btnCancel.TabOrder := 1;
btnOK.TabOrder := 2;
{$ENDIF}
end; end;
procedure TfrmEditElement.SetData(AnElement : TVpPrintFormatElementItem); procedure TfrmEditElement.SetData(AnElement : TVpPrintFormatElementItem);