home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Houseplan Collection
/
HRCD2005.ISO
/
data1.cab
/
Zusatz
/
3DS
/
DATA2.Z
/
Wandern.frm
< prev
next >
Wrap
Text File
|
1999-01-23
|
4KB
|
122 lines
VERSION 5.00
Begin VB.Form Wandern
Caption = "Durchwanderneinstellungen"
ClientHeight = 3195
ClientLeft = 60
ClientTop = 345
ClientWidth = 4680
LinkTopic = "Form1"
ScaleHeight = 3195
ScaleWidth = 4680
StartUpPosition = 3 'Windows Default
Begin VB.CommandButton OK
Caption = "&OK"
Default = -1 'True
Height = 375
Left = 1440
TabIndex = 7
Top = 2760
Width = 1455
End
Begin VB.Frame Frame2
Caption = "SteuergerΣt:"
Height = 1215
Left = 120
TabIndex = 3
Top = 1320
Width = 4335
Begin VB.OptionButton SpaceMouse
Caption = "Space-Maus"
Height = 255
Left = 120
TabIndex = 6
Top = 840
Width = 4095
End
Begin VB.OptionButton Joystick
Caption = "Joystick"
Height = 315
Left = 120
TabIndex = 5
Top = 510
Width = 3375
End
Begin VB.OptionButton Mouse
Caption = "Maus"
Height = 255
Left = 120
TabIndex = 4
Top = 240
Width = 4095
End
End
Begin VB.Frame Frame1
Caption = "H÷he:"
Height = 975
Left = 120
TabIndex = 0
Top = 120
Width = 4335
Begin VB.OptionButton parallelHeight
Caption = "parallel zum GelΣnde"
Height = 255
Left = 120
TabIndex = 2
Top = 600
Width = 2415
End
Begin VB.OptionButton constHeight
Caption = "konstant"
Height = 255
Left = 120
TabIndex = 1
Top = 240
Width = 2535
End
End
End
Attribute VB_Name = "Wandern"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private s As ArCon.WalkSettings ' nur gⁿltig, wΣhrend der Dialog
' offen ist
Private Sub Form_Load()
Set s = Settings.exe.TheWalkSettings
constHeight.Value = Not s.Parallel
parallelHeight = s.Parallel
If s.Manipulator = WALKMANI_Maus Then
Mouse.Value = True
ElseIf s.Manipulator = WALKMANI_Joystick Then
Joystick.Value = True
Else
SpaceMouse.Value = True
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
' Es ist wichtig sicherzustellen, da▀ beim Beenden von
' ArCon keine Referenzen auf globale Einstellungen mehr
' existieren. Dies ist eine sehr einfache M÷glichkeit,
' das zu erreichen. Wir brauchen das Objekte nun sowiso
' nicht mehr...
Set s = Nothing
End Sub
Private Sub OK_Click()
s.Parallel = parallelHeight.Value
If Mouse.Value Then
s.Manipulator = WALKMANI_Maus
ElseIf Joystick.Value Then
s.Manipulator = WALKMANI_Joystick
Else
s.Manipulator = WALKMANI_SpaceMaus
End If
Unload Me
End Sub