You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
152 lines
3.2 KiB
152 lines
3.2 KiB
object VTK_Form: TVTK_Form
|
|
Left = 287
|
|
Top = 176
|
|
Width = 610
|
|
Height = 480
|
|
Caption = 'VTK_Form'
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
OldCreateOrder = True
|
|
OnDestroy = FormDestroy
|
|
OnShow = FormShow
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object Panel3: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 101
|
|
Height = 455
|
|
Align = alLeft
|
|
BevelInner = bvLowered
|
|
BorderWidth = 2
|
|
TabOrder = 0
|
|
object Label1: TLabel
|
|
Left = 10
|
|
Top = 46
|
|
Width = 48
|
|
Height = 13
|
|
Caption = 'Shrinker...'
|
|
OnClick = BackgroundColour1Click
|
|
end
|
|
object bc1: TButton
|
|
Left = 11
|
|
Top = 8
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'Create 1'
|
|
TabOrder = 0
|
|
OnClick = bc1Click
|
|
end
|
|
object ShrinkScroll: TScrollBar
|
|
Left = 10
|
|
Top = 62
|
|
Width = 72
|
|
Height = 13
|
|
PageSize = 0
|
|
Position = 50
|
|
TabOrder = 1
|
|
OnChange = ShrinkScrollChange
|
|
end
|
|
end
|
|
object BorderWindow: TPanel
|
|
Left = 101
|
|
Top = 0
|
|
Width = 501
|
|
Height = 455
|
|
Align = alClient
|
|
BevelInner = bvLowered
|
|
BevelWidth = 2
|
|
BorderWidth = 2
|
|
TabOrder = 1
|
|
object Panel2: TPanel
|
|
Left = 6
|
|
Top = 432
|
|
Width = 489
|
|
Height = 17
|
|
Align = alBottom
|
|
AutoSize = True
|
|
BevelOuter = bvNone
|
|
TabOrder = 0
|
|
object HeaderControl1: THeaderControl
|
|
Left = 0
|
|
Top = 0
|
|
Width = 489
|
|
Height = 17
|
|
Align = alBottom
|
|
DragReorder = False
|
|
Sections = <
|
|
item
|
|
ImageIndex = -1
|
|
MaxWidth = 60
|
|
MinWidth = 60
|
|
Text = 'Mode'
|
|
Width = 60
|
|
end
|
|
item
|
|
ImageIndex = -1
|
|
MaxWidth = 60
|
|
MinWidth = 60
|
|
Text = 'Window'
|
|
Width = 60
|
|
end>
|
|
OnSectionClick = HeaderControl1SectionClick
|
|
end
|
|
end
|
|
object vtkWindow1: TvtkBorlandRenderWindow
|
|
Left = 6
|
|
Top = 6
|
|
Width = 489
|
|
Height = 426
|
|
Align = alClient
|
|
Color = clMenuText
|
|
ParentColor = False
|
|
TabOrder = 1
|
|
OnEnter = vtkWindow1Enter
|
|
OnExit = vtkWindow1Exit
|
|
end
|
|
end
|
|
object ModeMenu: TPopupMenu
|
|
Left = 193
|
|
Top = 56
|
|
object TrackBallMode1: TMenuItem
|
|
Caption = 'TrackBall Mode'
|
|
Checked = True
|
|
GroupIndex = 1
|
|
RadioItem = True
|
|
OnClick = TrackBallMode1Click
|
|
end
|
|
object JoystickMode1: TMenuItem
|
|
Caption = 'Joystick Mode'
|
|
GroupIndex = 1
|
|
RadioItem = True
|
|
OnClick = TrackBallMode1Click
|
|
end
|
|
object FlightMode1: TMenuItem
|
|
Caption = 'Flight Mode'
|
|
GroupIndex = 1
|
|
RadioItem = True
|
|
OnClick = TrackBallMode1Click
|
|
end
|
|
end
|
|
object WindowMenu: TPopupMenu
|
|
Left = 221
|
|
Top = 56
|
|
object BackgroundColour1: TMenuItem
|
|
Caption = 'Background Colour'
|
|
OnClick = BackgroundColour1Click
|
|
end
|
|
object ResetCamera1: TMenuItem
|
|
Caption = 'Reset Camera'
|
|
OnClick = ResetCamera1Click
|
|
end
|
|
end
|
|
object backgroundcolor: TColorDialog
|
|
Ctl3D = True
|
|
Left = 301
|
|
Top = 56
|
|
end
|
|
end
|
|
|