The Houseplan Collection/HRCD2005.ISO/data1.cab/Zusatz/3DS/DATA2.Z/Bild.frm

Text File | 1999-01-23 | 8KB | 251 lines

VERSION 5.00
Begin VB.Form Bild
   Caption         =   "Bildspeichereinstellungen"
   ClientHeight    =   4515
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6810
   LinkTopic       =   "Form1"
   ScaleHeight     =   4515
   ScaleWidth      =   6810
   StartUpPosition =   3  'Windows Default
   Begin VB.Frame Frame3
      Caption         =   "Abmessung:"
      Height          =   1215
      Left            =   120
      TabIndex        =   11
      Top             =   2520
      Width           =   6495
      Begin VB.TextBox pixHeight
         Height          =   375
         Left            =   4800
         TabIndex        =   18
         Text            =   "Text1"
         Top             =   720
         Width           =   1575
      End
      Begin VB.TextBox pixWidth
         Height          =   375
         Left            =   1320
         TabIndex        =   16
         Text            =   "Text1"
         Top             =   720
         Width           =   1695
      End
      Begin VB.OptionButton freeSize
         Caption         =   "beliebig"
         Height          =   375
         Left            =   4920
         TabIndex        =   14
         Top             =   240
         Width           =   1455
      End
      Begin VB.OptionButton linAsView
         Caption         =   "beliebig, SeitenverhΣltnis wie Darstellung"
         Height          =   375
         Left            =   2160
         TabIndex        =   13
         Top             =   240
         Width           =   2175
      End
      Begin VB.OptionButton asView
         Caption         =   "Wie Darstellung"
         Height          =   375
         Left            =   120
         TabIndex        =   12
         Top             =   240
         Width           =   1455
      End
      Begin VB.Label Label3
         Caption         =   "H÷he:"
         Height          =   375
         Left            =   3600
         TabIndex        =   17
         Top             =   720
         Width           =   975
      End
      Begin VB.Label Label2
         Caption         =   "Breite:"
         Height          =   375
         Left            =   240
         TabIndex        =   15
         Top             =   720
         Width           =   975
      End
   End
   Begin VB.ComboBox Oversampling
      Height          =   315
      Left            =   2040
      TabIndex        =   10
      Text            =   "Combo1"
      Top             =   2040
      Width           =   4575
   End
   Begin VB.CheckBox Raytrace
      Caption         =   "Raytracen"
      Height          =   375
      Left            =   3480
      TabIndex        =   8
      Top             =   1560
      Width           =   3135
   End
   Begin VB.CheckBox AntiAliasing
      Caption         =   "Kantenfilter"
      Height          =   375
      Left            =   120
      TabIndex        =   7
      Top             =   1560
      Width           =   3135
   End
   Begin VB.Frame Frame2
      Caption         =   "Farbtiefe:"
      Height          =   615
      Left            =   120
      TabIndex        =   4
      Top             =   840
      Width           =   6495
      Begin VB.OptionButton TrueColor
         Caption         =   "16,7 Millionen Farben"
         Height          =   255
         Left            =   3360
         TabIndex        =   6
         Top             =   240
         Width           =   2895
      End
      Begin VB.OptionButton ColIndex
         Caption         =   "256 Farben"
         Height          =   255
         Left            =   120
         TabIndex        =   5
         Top             =   240
         Width           =   2415
      End
   End
   Begin VB.Frame Frame1
      Caption         =   "Bildformat:"
      Height          =   615
      Left            =   120
      TabIndex        =   1
      Top             =   120
      Width           =   6495
      Begin VB.OptionButton BMP
         Caption         =   "Als BMP Datei"
         Height          =   255
         Left            =   3360
         TabIndex        =   3
         Top             =   240
         Width           =   2895
      End
      Begin VB.OptionButton WMF
         Caption         =   "Als WMF Datei"
         Height          =   255
         Left            =   120
         TabIndex        =   2
         Top             =   240
         Width           =   1935
      End
   End
   Begin VB.CommandButton OK
      Caption         =   "&OK"
      Default         =   -1  'True
      Height          =   375
      Left            =   2880
      TabIndex        =   0
      Top             =   4080
      Width           =   1335
   End
   Begin VB.Label Label1
      Caption         =   "Oversampling:"
      Height          =   375
      Left            =   120
      TabIndex        =   9
      Top             =   2040
      Width           =   1695
   End
End
Attribute VB_Name = "Bild"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private s As ArCon.SavePictureSettings  ' nur gⁿltig, wΣhrend der Dialog
                                        ' offen ist

Private Sub Form_Load()
    Set s = Settings.exe.TheSavePictureSettings
    WMF.Value = s.WMF
    BMP.Value = Not s.WMF
    TrueColor.Value = s.TrueColor
    If s.AntiAliasing Then
        AntiAliasing.Value = 1
    Else
        AntiAliasing.Value = 0
    End If
    If s.Raytrace Then
        Raytrace.Value = 1
    Else
        Raytrace.Value = 0
    End If

    Dim i As Integer, o As Long
    o = s.Oversampling
    Oversampling.AddItem "ohne"
    Oversampling.ItemData(Oversampling.NewIndex) = OVERSAMPLING_None
    Oversampling.AddItem "4 fach"
    Oversampling.ItemData(Oversampling.NewIndex) = OVERSAMPLING_4X
    Oversampling.AddItem "9 fach"
    Oversampling.ItemData(Oversampling.NewIndex) = OVERSAMPLING_9X
    Oversampling.AddItem "16 fach"
    Oversampling.ItemData(Oversampling.NewIndex) = OVERSAMPLING_16X
    For i = 0 To Oversampling.ListCount
        If Oversampling.ItemData(i) = o Then
            Oversampling.ListIndex = i
            Exit For
        End If
    Next
    If s.Size = SAVEPICSIZE_WieAnsicht Then
        asView.Value = True
        linAsView.Value = False
        freeSize = False
    ElseIf s.Size = SAVEPICSIZE_FreiRatioWieAnsicht Then
        asView.Value = False
        linAsView.Value = True
        freeSize = False
    Else
        asView.Value = False
        linAsView.Value = False
        freeSize = True
    End If
    pixWidth.Text = CStr(s.Width)
    pixHeight.Text = CStr(s.Height)
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.WMF = WMF.Value
    s.TrueColor = TrueColor.Value
    s.AntiAliasing = AntiAliasing.Value <> 0
    s.Raytrace = Raytrace.Value <> 0
    s.Oversampling = Oversampling.ItemData(Oversampling.ListIndex)
    If asView.Value Then
        s.Size = SAVEPICSIZE_WieAnsicht
    ElseIf linAsView.Value Then
        s.Size = SAVEPICSIZE_FreiRatioWieAnsicht
    Else
        s.Size = SAVEPICSIZE_Frei
    End If
    s.Width = CSng(pixWidth.Text)
    s.Height = CSng(pixHeight.Text)
    Unload Me
End Sub