2020-03-30 18:01:44 +00:00
|
|
|
object Rot3DFrm: TRot3DFrm
|
|
|
|
Left = 358
|
|
|
|
Height = 527
|
|
|
|
Top = 153
|
|
|
|
Width = 710
|
2020-05-02 20:01:14 +00:00
|
|
|
HelpType = htKeyword
|
2020-08-17 13:55:43 +00:00
|
|
|
HelpKeyword = 'html/ThreeDimensionalRotation.htm'
|
2020-03-30 18:01:44 +00:00
|
|
|
Caption = 'Three Dimension Rotation'
|
|
|
|
ClientHeight = 527
|
|
|
|
ClientWidth = 710
|
|
|
|
OnActivate = FormActivate
|
|
|
|
OnCreate = FormCreate
|
|
|
|
OnDestroy = FormDestroy
|
|
|
|
OnShow = FormShow
|
|
|
|
Position = poMainFormCenter
|
2020-09-29 10:36:56 +00:00
|
|
|
LCLVersion = '2.0.10.0'
|
2020-03-30 18:01:44 +00:00
|
|
|
object Label1: TLabel
|
|
|
|
AnchorSideLeft.Control = VarList
|
|
|
|
AnchorSideLeft.Side = asrCenter
|
|
|
|
AnchorSideTop.Control = Owner
|
|
|
|
Left = 561
|
|
|
|
Height = 15
|
|
|
|
Top = 8
|
|
|
|
Width = 102
|
|
|
|
BorderSpacing.Top = 8
|
|
|
|
Caption = 'Click the X, Y and Z'
|
|
|
|
ParentColor = False
|
|
|
|
end
|
|
|
|
object Label2: TLabel
|
|
|
|
AnchorSideLeft.Control = VarList
|
|
|
|
AnchorSideLeft.Side = asrCenter
|
|
|
|
AnchorSideTop.Control = Label1
|
|
|
|
AnchorSideTop.Side = asrBottom
|
|
|
|
Left = 564
|
|
|
|
Height = 15
|
|
|
|
Top = 23
|
|
|
|
Width = 97
|
|
|
|
Caption = 'Variables to Rotate'
|
|
|
|
ParentColor = False
|
|
|
|
end
|
|
|
|
object Label3: TLabel
|
|
|
|
AnchorSideLeft.Control = XScroll
|
|
|
|
AnchorSideLeft.Side = asrCenter
|
|
|
|
AnchorSideBottom.Control = Label6
|
|
|
|
Left = 530
|
|
|
|
Height = 15
|
|
|
|
Top = 188
|
|
|
|
Width = 7
|
|
|
|
Anchors = [akLeft, akBottom]
|
|
|
|
Caption = 'X'
|
|
|
|
ParentColor = False
|
|
|
|
end
|
|
|
|
object Label4: TLabel
|
|
|
|
AnchorSideLeft.Control = YScroll
|
|
|
|
AnchorSideLeft.Side = asrCenter
|
|
|
|
AnchorSideBottom.Control = Label7
|
|
|
|
Left = 609
|
|
|
|
Height = 15
|
|
|
|
Top = 188
|
|
|
|
Width = 7
|
|
|
|
Anchors = [akLeft, akBottom]
|
|
|
|
Caption = 'Y'
|
|
|
|
ParentColor = False
|
|
|
|
end
|
|
|
|
object Label5: TLabel
|
|
|
|
AnchorSideLeft.Control = ZScroll
|
|
|
|
AnchorSideLeft.Side = asrCenter
|
|
|
|
AnchorSideBottom.Control = Label8
|
|
|
|
Left = 689
|
|
|
|
Height = 15
|
|
|
|
Top = 188
|
|
|
|
Width = 7
|
|
|
|
Anchors = [akLeft, akBottom]
|
|
|
|
Caption = 'Z'
|
|
|
|
ParentColor = False
|
|
|
|
end
|
|
|
|
object Label6: TLabel
|
|
|
|
AnchorSideLeft.Control = XScroll
|
|
|
|
AnchorSideLeft.Side = asrCenter
|
|
|
|
AnchorSideBottom.Control = XScroll
|
|
|
|
Left = 525
|
|
|
|
Height = 15
|
|
|
|
Top = 203
|
|
|
|
Width = 17
|
|
|
|
Anchors = [akLeft, akBottom]
|
|
|
|
BorderSpacing.Bottom = 4
|
|
|
|
Caption = '-90'
|
|
|
|
ParentColor = False
|
|
|
|
end
|
|
|
|
object Label7: TLabel
|
|
|
|
AnchorSideLeft.Control = YScroll
|
|
|
|
AnchorSideLeft.Side = asrCenter
|
|
|
|
AnchorSideBottom.Control = YScroll
|
|
|
|
Left = 604
|
|
|
|
Height = 15
|
|
|
|
Top = 203
|
|
|
|
Width = 17
|
|
|
|
Anchors = [akLeft, akBottom]
|
|
|
|
BorderSpacing.Bottom = 4
|
|
|
|
Caption = '-90'
|
|
|
|
ParentColor = False
|
|
|
|
end
|
|
|
|
object Label8: TLabel
|
|
|
|
AnchorSideLeft.Control = ZScroll
|
|
|
|
AnchorSideLeft.Side = asrCenter
|
|
|
|
AnchorSideBottom.Control = ZScroll
|
|
|
|
Left = 684
|
|
|
|
Height = 15
|
|
|
|
Top = 203
|
|
|
|
Width = 17
|
|
|
|
Anchors = [akLeft, akBottom]
|
|
|
|
BorderSpacing.Bottom = 4
|
|
|
|
Caption = '-90'
|
|
|
|
ParentColor = False
|
|
|
|
end
|
|
|
|
object Label9: TLabel
|
|
|
|
AnchorSideLeft.Control = XScroll
|
|
|
|
AnchorSideLeft.Side = asrCenter
|
|
|
|
AnchorSideTop.Control = Label10
|
|
|
|
Left = 527
|
|
|
|
Height = 15
|
|
|
|
Top = 417
|
|
|
|
Width = 12
|
|
|
|
Caption = '90'
|
|
|
|
ParentColor = False
|
|
|
|
end
|
|
|
|
object Label10: TLabel
|
|
|
|
AnchorSideLeft.Control = YScroll
|
|
|
|
AnchorSideLeft.Side = asrCenter
|
|
|
|
AnchorSideTop.Control = YScroll
|
|
|
|
AnchorSideTop.Side = asrBottom
|
|
|
|
AnchorSideBottom.Control = Label12
|
|
|
|
Left = 606
|
|
|
|
Height = 15
|
|
|
|
Top = 417
|
|
|
|
Width = 12
|
|
|
|
Anchors = [akLeft, akBottom]
|
|
|
|
BorderSpacing.Top = 4
|
|
|
|
Caption = '90'
|
|
|
|
ParentColor = False
|
|
|
|
end
|
|
|
|
object Label11: TLabel
|
|
|
|
AnchorSideLeft.Control = ZScroll
|
|
|
|
AnchorSideLeft.Side = asrCenter
|
|
|
|
AnchorSideTop.Control = Label10
|
|
|
|
Left = 686
|
|
|
|
Height = 15
|
|
|
|
Top = 417
|
|
|
|
Width = 12
|
|
|
|
Caption = '90'
|
|
|
|
ParentColor = False
|
|
|
|
end
|
|
|
|
object Label12: TLabel
|
|
|
|
AnchorSideLeft.Control = YScroll
|
|
|
|
AnchorSideLeft.Side = asrCenter
|
|
|
|
AnchorSideTop.Control = Label10
|
|
|
|
AnchorSideTop.Side = asrBottom
|
|
|
|
AnchorSideBottom.Control = YDegEdit
|
|
|
|
Left = 591
|
|
|
|
Height = 15
|
|
|
|
Top = 432
|
|
|
|
Width = 42
|
|
|
|
Anchors = [akLeft, akBottom]
|
|
|
|
BorderSpacing.Bottom = 16
|
|
|
|
Caption = 'Degrees'
|
|
|
|
ParentColor = False
|
|
|
|
end
|
|
|
|
object Label13: TLabel
|
|
|
|
AnchorSideLeft.Control = Owner
|
|
|
|
AnchorSideTop.Control = XEdit
|
|
|
|
AnchorSideTop.Side = asrCenter
|
|
|
|
Left = 8
|
|
|
|
Height = 15
|
|
|
|
Top = 499
|
|
|
|
Width = 7
|
|
|
|
BorderSpacing.Left = 8
|
|
|
|
Caption = 'X'
|
|
|
|
ParentColor = False
|
|
|
|
end
|
|
|
|
object Label14: TLabel
|
|
|
|
AnchorSideLeft.Control = XEdit
|
|
|
|
AnchorSideLeft.Side = asrBottom
|
|
|
|
AnchorSideTop.Control = YEdit
|
|
|
|
AnchorSideTop.Side = asrCenter
|
|
|
|
Left = 104
|
|
|
|
Height = 15
|
|
|
|
Top = 499
|
|
|
|
Width = 7
|
|
|
|
BorderSpacing.Left = 24
|
|
|
|
Caption = 'Y'
|
|
|
|
ParentColor = False
|
|
|
|
end
|
|
|
|
object Label15: TLabel
|
|
|
|
AnchorSideLeft.Control = YEdit
|
|
|
|
AnchorSideLeft.Side = asrBottom
|
|
|
|
AnchorSideTop.Control = ZEdit
|
|
|
|
AnchorSideTop.Side = asrCenter
|
|
|
|
Left = 200
|
|
|
|
Height = 15
|
|
|
|
Top = 499
|
|
|
|
Width = 7
|
|
|
|
BorderSpacing.Left = 24
|
|
|
|
Caption = 'Z'
|
|
|
|
ParentColor = False
|
|
|
|
end
|
|
|
|
object Image1: TImage
|
|
|
|
AnchorSideLeft.Control = Owner
|
|
|
|
AnchorSideTop.Control = Owner
|
|
|
|
AnchorSideRight.Control = VarList
|
|
|
|
AnchorSideBottom.Control = CloseBtn
|
|
|
|
Left = 8
|
|
|
|
Height = 478
|
|
|
|
Top = 8
|
|
|
|
Width = 506
|
|
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
|
|
BorderSpacing.Left = 8
|
|
|
|
BorderSpacing.Top = 8
|
|
|
|
BorderSpacing.Right = 8
|
|
|
|
BorderSpacing.Bottom = 8
|
|
|
|
end
|
|
|
|
object VarList: TListBox
|
|
|
|
AnchorSideTop.Control = Label2
|
|
|
|
AnchorSideTop.Side = asrBottom
|
|
|
|
AnchorSideRight.Control = Owner
|
|
|
|
AnchorSideRight.Side = asrBottom
|
|
|
|
AnchorSideBottom.Control = Label4
|
|
|
|
Left = 522
|
|
|
|
Height = 140
|
|
|
|
Top = 40
|
|
|
|
Width = 180
|
|
|
|
Anchors = [akTop, akRight, akBottom]
|
|
|
|
BorderSpacing.Top = 2
|
|
|
|
BorderSpacing.Right = 8
|
|
|
|
BorderSpacing.Bottom = 8
|
|
|
|
ItemHeight = 0
|
|
|
|
OnClick = VarListClick
|
|
|
|
TabOrder = 0
|
|
|
|
end
|
|
|
|
object XScroll: TScrollBar
|
|
|
|
AnchorSideLeft.Control = VarList
|
|
|
|
AnchorSideBottom.Control = YScroll
|
|
|
|
AnchorSideBottom.Side = asrBottom
|
|
|
|
Left = 522
|
|
|
|
Height = 191
|
|
|
|
Top = 222
|
|
|
|
Width = 22
|
|
|
|
Anchors = [akLeft, akBottom]
|
|
|
|
Kind = sbVertical
|
|
|
|
PageSize = 0
|
|
|
|
TabOrder = 1
|
|
|
|
OnScroll = XScrollScroll
|
|
|
|
end
|
|
|
|
object YScroll: TScrollBar
|
|
|
|
AnchorSideLeft.Control = VarList
|
|
|
|
AnchorSideLeft.Side = asrCenter
|
|
|
|
AnchorSideBottom.Control = Label10
|
|
|
|
Left = 601
|
|
|
|
Height = 191
|
|
|
|
Top = 222
|
|
|
|
Width = 22
|
|
|
|
Anchors = [akLeft, akBottom]
|
|
|
|
BorderSpacing.Bottom = 4
|
|
|
|
Kind = sbVertical
|
|
|
|
PageSize = 0
|
|
|
|
TabOrder = 2
|
|
|
|
OnScroll = YScrollScroll
|
|
|
|
end
|
|
|
|
object ZScroll: TScrollBar
|
|
|
|
AnchorSideRight.Control = Owner
|
|
|
|
AnchorSideRight.Side = asrBottom
|
|
|
|
AnchorSideBottom.Control = YScroll
|
|
|
|
AnchorSideBottom.Side = asrBottom
|
|
|
|
Left = 683
|
|
|
|
Height = 191
|
|
|
|
Top = 222
|
|
|
|
Width = 19
|
|
|
|
Anchors = [akRight, akBottom]
|
|
|
|
BorderSpacing.Right = 8
|
|
|
|
Kind = sbVertical
|
|
|
|
PageSize = 0
|
|
|
|
TabOrder = 3
|
|
|
|
OnScroll = ZScrollScroll
|
|
|
|
end
|
|
|
|
object XDegEdit: TEdit
|
|
|
|
AnchorSideLeft.Control = XScroll
|
|
|
|
AnchorSideTop.Control = YDegEdit
|
|
|
|
AnchorSideBottom.Control = CloseBtn
|
|
|
|
Left = 522
|
|
|
|
Height = 23
|
|
|
|
Top = 463
|
|
|
|
Width = 35
|
|
|
|
Anchors = [akLeft, akBottom]
|
|
|
|
BorderSpacing.Bottom = 8
|
|
|
|
TabOrder = 4
|
|
|
|
Text = 'XDegEdit'
|
|
|
|
end
|
|
|
|
object YDegEdit: TEdit
|
|
|
|
AnchorSideLeft.Control = YScroll
|
|
|
|
AnchorSideLeft.Side = asrCenter
|
|
|
|
AnchorSideTop.Control = XDegEdit
|
|
|
|
Left = 595
|
|
|
|
Height = 23
|
|
|
|
Top = 463
|
|
|
|
Width = 35
|
|
|
|
TabOrder = 5
|
|
|
|
Text = 'XDegEdit'
|
|
|
|
end
|
|
|
|
object ZDegEdit: TEdit
|
|
|
|
AnchorSideTop.Control = XDegEdit
|
|
|
|
AnchorSideRight.Control = Owner
|
|
|
|
AnchorSideRight.Side = asrBottom
|
|
|
|
Left = 667
|
|
|
|
Height = 23
|
|
|
|
Top = 463
|
|
|
|
Width = 35
|
|
|
|
Anchors = [akTop, akRight]
|
|
|
|
BorderSpacing.Right = 8
|
|
|
|
TabOrder = 6
|
|
|
|
Text = 'XDegEdit'
|
|
|
|
end
|
|
|
|
object XEdit: TEdit
|
|
|
|
AnchorSideLeft.Control = Label13
|
|
|
|
AnchorSideLeft.Side = asrBottom
|
|
|
|
AnchorSideTop.Control = CloseBtn
|
|
|
|
AnchorSideTop.Side = asrCenter
|
|
|
|
Left = 23
|
|
|
|
Height = 23
|
|
|
|
Top = 495
|
|
|
|
Width = 57
|
|
|
|
BorderSpacing.Left = 8
|
|
|
|
TabOrder = 7
|
|
|
|
Text = 'XEdit'
|
|
|
|
end
|
|
|
|
object YEdit: TEdit
|
|
|
|
AnchorSideLeft.Control = Label14
|
|
|
|
AnchorSideLeft.Side = asrBottom
|
|
|
|
AnchorSideTop.Control = CloseBtn
|
|
|
|
AnchorSideTop.Side = asrCenter
|
|
|
|
Left = 119
|
|
|
|
Height = 23
|
|
|
|
Top = 495
|
|
|
|
Width = 57
|
|
|
|
BorderSpacing.Left = 8
|
|
|
|
TabOrder = 8
|
|
|
|
Text = 'YEdit'
|
|
|
|
end
|
|
|
|
object ZEdit: TEdit
|
|
|
|
AnchorSideLeft.Control = Label15
|
|
|
|
AnchorSideLeft.Side = asrBottom
|
|
|
|
AnchorSideTop.Control = CloseBtn
|
|
|
|
AnchorSideTop.Side = asrCenter
|
|
|
|
Left = 215
|
|
|
|
Height = 23
|
|
|
|
Top = 495
|
|
|
|
Width = 56
|
|
|
|
BorderSpacing.Left = 8
|
|
|
|
TabOrder = 9
|
|
|
|
Text = 'ZEdit'
|
|
|
|
end
|
|
|
|
object ResetBtn: TButton
|
|
|
|
AnchorSideRight.Control = PrintBtn
|
|
|
|
AnchorSideBottom.Control = Owner
|
|
|
|
AnchorSideBottom.Side = asrBottom
|
|
|
|
Left = 526
|
|
|
|
Height = 25
|
|
|
|
Top = 494
|
|
|
|
Width = 54
|
|
|
|
Anchors = [akRight, akBottom]
|
|
|
|
AutoSize = True
|
|
|
|
BorderSpacing.Left = 12
|
|
|
|
BorderSpacing.Right = 8
|
|
|
|
BorderSpacing.Bottom = 8
|
|
|
|
Caption = 'Reset'
|
|
|
|
OnClick = ResetBtnClick
|
|
|
|
TabOrder = 10
|
|
|
|
end
|
|
|
|
object PrintBtn: TButton
|
|
|
|
AnchorSideRight.Control = CloseBtn
|
|
|
|
AnchorSideBottom.Control = Owner
|
|
|
|
AnchorSideBottom.Side = asrBottom
|
|
|
|
Left = 588
|
|
|
|
Height = 25
|
|
|
|
Top = 494
|
|
|
|
Width = 51
|
|
|
|
Anchors = [akRight, akBottom]
|
|
|
|
AutoSize = True
|
|
|
|
BorderSpacing.Right = 8
|
|
|
|
BorderSpacing.Bottom = 8
|
|
|
|
Caption = 'Print'
|
|
|
|
OnClick = PrintBtnClick
|
|
|
|
TabOrder = 11
|
|
|
|
end
|
|
|
|
object CloseBtn: TButton
|
|
|
|
AnchorSideRight.Control = Owner
|
|
|
|
AnchorSideRight.Side = asrBottom
|
|
|
|
AnchorSideBottom.Control = Owner
|
|
|
|
AnchorSideBottom.Side = asrBottom
|
|
|
|
Left = 647
|
|
|
|
Height = 25
|
|
|
|
Top = 494
|
|
|
|
Width = 55
|
|
|
|
Anchors = [akRight, akBottom]
|
|
|
|
AutoSize = True
|
|
|
|
BorderSpacing.Right = 8
|
|
|
|
BorderSpacing.Bottom = 8
|
|
|
|
Caption = 'Close'
|
|
|
|
ModalResult = 11
|
2020-09-29 10:36:56 +00:00
|
|
|
OnClick = CloseBtnClick
|
2020-03-30 18:01:44 +00:00
|
|
|
TabOrder = 12
|
|
|
|
end
|
|
|
|
object PrintDialog: TPrintDialog
|
2020-08-17 13:55:43 +00:00
|
|
|
Left = 320
|
|
|
|
Top = 304
|
2020-03-30 18:01:44 +00:00
|
|
|
end
|
|
|
|
object PrinterSetupDialog1: TPrinterSetupDialog
|
2020-08-17 13:55:43 +00:00
|
|
|
Left = 184
|
|
|
|
Top = 304
|
2020-03-30 18:01:44 +00:00
|
|
|
end
|
|
|
|
end
|