home *** CD-ROM | disk | FTP | other *** search
/ The Houseplan Collection / HRCD2005.ISO / data1.cab / Zusatz / 3DS / DATA2.Z / Wandern.frm < prev    next >
Text File  |  1999-01-23  |  4KB  |  122 lines
  1. VERSION 5.00
  2. Begin VB.Form Wandern 
  3.    Caption         =   "Durchwanderneinstellungen"
  4.    ClientHeight    =   3195
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   4680
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   3195
  10.    ScaleWidth      =   4680
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.CommandButton OK 
  13.       Caption         =   "&OK"
  14.       Default         =   -1  'True
  15.       Height          =   375
  16.       Left            =   1440
  17.       TabIndex        =   7
  18.       Top             =   2760
  19.       Width           =   1455
  20.    End
  21.    Begin VB.Frame Frame2 
  22.       Caption         =   "SteuergerΣt:"
  23.       Height          =   1215
  24.       Left            =   120
  25.       TabIndex        =   3
  26.       Top             =   1320
  27.       Width           =   4335
  28.       Begin VB.OptionButton SpaceMouse 
  29.          Caption         =   "Space-Maus"
  30.          Height          =   255
  31.          Left            =   120
  32.          TabIndex        =   6
  33.          Top             =   840
  34.          Width           =   4095
  35.       End
  36.       Begin VB.OptionButton Joystick 
  37.          Caption         =   "Joystick"
  38.          Height          =   315
  39.          Left            =   120
  40.          TabIndex        =   5
  41.          Top             =   510
  42.          Width           =   3375
  43.       End
  44.       Begin VB.OptionButton Mouse 
  45.          Caption         =   "Maus"
  46.          Height          =   255
  47.          Left            =   120
  48.          TabIndex        =   4
  49.          Top             =   240
  50.          Width           =   4095
  51.       End
  52.    End
  53.    Begin VB.Frame Frame1 
  54.       Caption         =   "H÷he:"
  55.       Height          =   975
  56.       Left            =   120
  57.       TabIndex        =   0
  58.       Top             =   120
  59.       Width           =   4335
  60.       Begin VB.OptionButton parallelHeight 
  61.          Caption         =   "parallel zum GelΣnde"
  62.          Height          =   255
  63.          Left            =   120
  64.          TabIndex        =   2
  65.          Top             =   600
  66.          Width           =   2415
  67.       End
  68.       Begin VB.OptionButton constHeight 
  69.          Caption         =   "konstant"
  70.          Height          =   255
  71.          Left            =   120
  72.          TabIndex        =   1
  73.          Top             =   240
  74.          Width           =   2535
  75.       End
  76.    End
  77. End
  78. Attribute VB_Name = "Wandern"
  79. Attribute VB_GlobalNameSpace = False
  80. Attribute VB_Creatable = False
  81. Attribute VB_PredeclaredId = True
  82. Attribute VB_Exposed = False
  83. Option Explicit
  84.  
  85. Private s As ArCon.WalkSettings     ' nur gⁿltig, wΣhrend der Dialog
  86.                                     ' offen ist
  87.  
  88.  
  89. Private Sub Form_Load()
  90.     Set s = Settings.exe.TheWalkSettings
  91.     constHeight.Value = Not s.Parallel
  92.     parallelHeight = s.Parallel
  93.     If s.Manipulator = WALKMANI_Maus Then
  94.         Mouse.Value = True
  95.     ElseIf s.Manipulator = WALKMANI_Joystick Then
  96.         Joystick.Value = True
  97.     Else
  98.         SpaceMouse.Value = True
  99.     End If
  100. End Sub
  101.  
  102. Private Sub Form_Unload(Cancel As Integer)
  103.     ' Es ist wichtig sicherzustellen, da▀ beim Beenden von
  104.     ' ArCon keine Referenzen auf globale Einstellungen mehr
  105.     ' existieren. Dies ist eine sehr einfache M÷glichkeit,
  106.     ' das zu erreichen. Wir brauchen das Objekte nun sowiso
  107.     ' nicht mehr...
  108.     Set s = Nothing
  109. End Sub
  110.  
  111. Private Sub OK_Click()
  112.     s.Parallel = parallelHeight.Value
  113.     If Mouse.Value Then
  114.         s.Manipulator = WALKMANI_Maus
  115.     ElseIf Joystick.Value Then
  116.         s.Manipulator = WALKMANI_Joystick
  117.     Else
  118.         s.Manipulator = WALKMANI_SpaceMaus
  119.     End If
  120.     Unload Me
  121. End Sub
  122.