home *** CD-ROM | disk | FTP | other *** search
/ The Houseplan Collection / HRCD2005.ISO / data1.cab / Zusatz / 3DS / DATA2.Z / Zoom.frm < prev    next >
Text File  |  1999-01-23  |  3KB  |  107 lines
  1. VERSION 5.00
  2. Begin VB.Form ZoomDlg 
  3.    Caption         =   "Zoomeinstellungen"
  4.    ClientHeight    =   1965
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   4680
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   1965
  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            =   1560
  17.       TabIndex        =   4
  18.       Top             =   1440
  19.       Width           =   1455
  20.    End
  21.    Begin VB.TextBox freeFactor 
  22.       Height          =   375
  23.       Left            =   1560
  24.       TabIndex        =   3
  25.       Text            =   "1"
  26.       Top             =   600
  27.       Width           =   2535
  28.    End
  29.    Begin VB.ComboBox ZoomMode 
  30.       Height          =   315
  31.       Left            =   1200
  32.       TabIndex        =   1
  33.       Text            =   "Combo1"
  34.       Top             =   120
  35.       Width           =   3375
  36.    End
  37.    Begin VB.Label Label2 
  38.       Caption         =   "freier Faktor:"
  39.       Height          =   255
  40.       Left            =   120
  41.       TabIndex        =   2
  42.       Top             =   720
  43.       Width           =   1215
  44.    End
  45.    Begin VB.Label Label1 
  46.       Caption         =   "Faktor:"
  47.       Height          =   255
  48.       Left            =   120
  49.       TabIndex        =   0
  50.       Top             =   120
  51.       Width           =   855
  52.    End
  53. End
  54. Attribute VB_Name = "ZoomDlg"
  55. Attribute VB_GlobalNameSpace = False
  56. Attribute VB_Creatable = False
  57. Attribute VB_PredeclaredId = True
  58. Attribute VB_Exposed = False
  59. Option Explicit
  60.  
  61. Private s As ArCon.ZoomSettings     ' nur gⁿltig, wΣhrend der Dialog
  62.                                     ' offen ist
  63.  
  64. Private Sub Form_Load()
  65.     Set s = Settings.exe.TheZoomSettings
  66.     
  67.     freeFactor.Text = CStr(s.Factor)
  68.     freeFactor.Enabled = (s.Mode = 5)
  69.     ZoomMode.AddItem "angepa▀t (frei)"
  70.     ZoomMode.ItemData(ZoomMode.NewIndex) = 0
  71.     ZoomMode.AddItem "angepa▀t (zentriert)"
  72.     ZoomMode.ItemData(ZoomMode.NewIndex) = 1
  73.     ZoomMode.AddItem "1,4141"
  74.     ZoomMode.ItemData(ZoomMode.NewIndex) = 2
  75.     ZoomMode.AddItem "2,0"
  76.     ZoomMode.ItemData(ZoomMode.NewIndex) = 3
  77.     ZoomMode.AddItem "4,0"
  78.     ZoomMode.ItemData(ZoomMode.NewIndex) = 4
  79.     ZoomMode.AddItem "beliebig"
  80.     ZoomMode.ItemData(ZoomMode.NewIndex) = 5
  81.     
  82.     Dim i As Integer, m As Long
  83.     m = s.Mode
  84.     For i = 0 To ZoomMode.ListCount - 1
  85.         If ZoomMode.ItemData(i) = m Then
  86.             ZoomMode.ListIndex = i
  87.             Exit For
  88.         End If
  89.     Next
  90. End Sub
  91.  
  92. Private Sub OK_Click()
  93.     s.Factor = CSng(freeFactor.Text)
  94.     s.Mode = ZoomMode.ItemData(ZoomMode.ListIndex)
  95.     Unload Me
  96. End Sub
  97.  
  98. Private Sub Form_Unload(Cancel As Integer)
  99.     ' Es ist wichtig sicherzustellen, da▀ beim Beenden von
  100.     ' ArCon keine Referenzen auf globale Einstellungen mehr
  101.     ' existieren. Dies ist eine sehr einfache M÷glichkeit,
  102.     ' das zu erreichen. Wir brauchen das Objekte nun sowiso
  103.     ' nicht mehr...
  104.     Set s = Nothing
  105. End Sub
  106.  
  107.