home *** CD-ROM | disk | FTP | other *** search
/ The Houseplan Collection / HRCD2005.ISO / data1.cab / Zusatz / 3DS / DATA2.Z / Druck.frm < prev    next >
Text File  |  1999-01-23  |  7KB  |  218 lines
  1. VERSION 5.00
  2. Begin VB.Form Druck 
  3.    Caption         =   "Druckeinstellungen"
  4.    ClientHeight    =   4260
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   5895
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   4260
  10.    ScaleWidth      =   5895
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.ComboBox DPI 
  13.       Height          =   315
  14.       Left            =   2520
  15.       TabIndex        =   14
  16.       Text            =   "Combo1"
  17.       Top             =   2760
  18.       Width           =   3255
  19.    End
  20.    Begin VB.ComboBox GrCol 
  21.       Height          =   315
  22.       Left            =   2520
  23.       TabIndex        =   13
  24.       Text            =   "Combo1"
  25.       Top             =   2280
  26.       Width           =   3255
  27.    End
  28.    Begin VB.Frame Frame3 
  29.       Caption         =   "Gr÷▀e:"
  30.       Height          =   615
  31.       Left            =   120
  32.       TabIndex        =   7
  33.       Top             =   1440
  34.       Width           =   5655
  35.       Begin VB.TextBox nPages 
  36.          Height          =   285
  37.          Left            =   2520
  38.          TabIndex        =   9
  39.          Text            =   "1"
  40.          Top             =   240
  41.          Width           =   1095
  42.       End
  43.       Begin VB.CheckBox NotScaled 
  44.          Caption         =   "Wie Fenster"
  45.          Height          =   255
  46.          Left            =   120
  47.          TabIndex        =   8
  48.          Top             =   240
  49.          Width           =   2175
  50.       End
  51.       Begin VB.Label Label1 
  52.          Caption         =   "Seiten"
  53.          Height          =   255
  54.          Left            =   3840
  55.          TabIndex        =   10
  56.          Top             =   240
  57.          Width           =   1695
  58.       End
  59.    End
  60.    Begin VB.Frame Frame2 
  61.       Caption         =   "Hintergrundfarbe:"
  62.       Height          =   615
  63.       Left            =   120
  64.       TabIndex        =   4
  65.       Top             =   720
  66.       Width           =   5655
  67.       Begin VB.OptionButton BkLike3D 
  68.          Caption         =   "wie in 3D Darstellunge"
  69.          Height          =   255
  70.          Left            =   2880
  71.          TabIndex        =   6
  72.          Top             =   240
  73.          Width           =   2655
  74.       End
  75.       Begin VB.OptionButton BkWhite 
  76.          Caption         =   "wei▀"
  77.          Height          =   255
  78.          Left            =   120
  79.          TabIndex        =   5
  80.          Top             =   240
  81.          Width           =   2535
  82.       End
  83.    End
  84.    Begin VB.Frame Frame1 
  85.       Caption         =   "Ausdruck von:"
  86.       Height          =   615
  87.       Left            =   120
  88.       TabIndex        =   1
  89.       Top             =   0
  90.       Width           =   5655
  91.       Begin VB.OptionButton CurView 
  92.          Caption         =   "Aktuellem Fenster"
  93.          Height          =   255
  94.          Left            =   2880
  95.          TabIndex        =   3
  96.          Top             =   240
  97.          Width           =   2535
  98.       End
  99.       Begin VB.OptionButton Grundriss 
  100.          Caption         =   "Als Grundriss"
  101.          Height          =   255
  102.          Left            =   120
  103.          TabIndex        =   2
  104.          Top             =   240
  105.          Width           =   2535
  106.       End
  107.    End
  108.    Begin VB.CommandButton OK 
  109.       Caption         =   "&OK"
  110.       Default         =   -1  'True
  111.       Height          =   375
  112.       Left            =   2400
  113.       TabIndex        =   0
  114.       Top             =   3840
  115.       Width           =   975
  116.    End
  117.    Begin VB.Label Label3 
  118.       Caption         =   "Aufl÷sung:"
  119.       Height          =   255
  120.       Left            =   120
  121.       TabIndex        =   12
  122.       Top             =   2760
  123.       Width           =   2175
  124.    End
  125.    Begin VB.Label Label2 
  126.       Caption         =   "Farbe bei Grundrissausgabe:"
  127.       Height          =   255
  128.       Left            =   120
  129.       TabIndex        =   11
  130.       Top             =   2280
  131.       Width           =   2175
  132.    End
  133. End
  134. Attribute VB_Name = "Druck"
  135. Attribute VB_GlobalNameSpace = False
  136. Attribute VB_Creatable = False
  137. Attribute VB_PredeclaredId = True
  138. Attribute VB_Exposed = False
  139. Option Explicit
  140.  
  141. Private s As ArCon.PrintSettings    ' nur gⁿltig, wΣhrend der Dialog
  142.                                     ' offen ist
  143.  
  144. Private Sub Form_Load()
  145.     Set s = Settings.exe.ThePrintSettings
  146.     Grundriss.Value = s.AlsGrundriss
  147.     CurView.Value = Not s.AlsGrundriss
  148.     BkWhite.Value = s.BackgroundWhite
  149.     BkLike3D.Value = Not s.BackgroundWhite
  150.     If s.Scale Then
  151.         NotScaled.Value = 0
  152.     Else
  153.         NotScaled.Value = 1
  154.     End If
  155.     nPages.Enabled = s.Scale
  156.     nPages.Text = CStr(s.PagesToScaleTo)
  157.     GrCol.Clear
  158.     GrCol.AddItem "wie im Konstruktionsmodus"
  159.     GrCol.ItemData(GrCol.NewIndex) = GRCOLOR_WieKonstruktion
  160.     GrCol.AddItem "wie im K.M., nicht grauen"
  161.     GrCol.ItemData(GrCol.NewIndex) = GRCOLOR_NichtGrauen
  162.     GrCol.AddItem "Schwarz/Wei▀"
  163.     GrCol.ItemData(GrCol.NewIndex) = GRCOLOR_BlackAndWhite
  164.     
  165.     Dim i As Integer, col As Long
  166.     col = s.GreyColor
  167.     For i = 0 To GrCol.ListCount - 1
  168.         If GrCol.ItemData(i) = col Then
  169.             GrCol.ListIndex = i
  170.             Exit For
  171.         End If
  172.     Next
  173.     
  174.     DPI.Clear
  175.     DPI.AddItem "75 DPI"
  176.     DPI.ItemData(DPI.NewIndex) = PRINTRES_DPI75
  177.     DPI.AddItem "150 DPI"
  178.     DPI.ItemData(DPI.NewIndex) = PRINTRES_DPI150
  179.     DPI.AddItem "300 DPI"
  180.     DPI.ItemData(DPI.NewIndex) = PRINTRES_DPI300
  181.     DPI.AddItem "600 DPI"
  182.     DPI.ItemData(DPI.NewIndex) = PRINTRES_DPI600
  183.     DPI.AddItem "vom Drucker ⁿbernehmen"
  184.     DPI.ItemData(DPI.NewIndex) = PRINTRES_DPIwieDrucker
  185.     
  186.     Dim res As Long
  187.     res = s.Resolution
  188.     For i = 0 To DPI.ListCount - 1
  189.         If DPI.ItemData(i) = res Then
  190.             DPI.ListIndex = i
  191.             Exit For
  192.         End If
  193.     Next
  194. End Sub
  195.  
  196. Private Sub Form_Unload(Cancel As Integer)
  197.     ' Es ist wichtig sicherzustellen, da▀ beim Beenden von
  198.     ' ArCon keine Referenzen auf globale Einstellungen mehr
  199.     ' existieren. Dies ist eine sehr einfache M÷glichkeit,
  200.     ' das zu erreichen. Wir brauchen das Objekte nun sowiso
  201.     ' nicht mehr...
  202.     Set s = Nothing
  203. End Sub
  204.  
  205. Private Sub NotScaled_Click()
  206.     nPages.Enabled = (NotScaled.Value = 0)
  207. End Sub
  208.  
  209. Private Sub OK_Click()
  210.     s.AlsGrundriss = Grundriss.Value
  211.     s.BackgroundWhite = BkWhite.Value
  212.     s.[Scale] = (NotScaled.Value = 0)
  213.     s.PagesToScaleTo = CSng(nPages.Text)
  214.     s.GreyColor = GrCol.ItemData(GrCol.ListIndex)
  215.     s.Resolution = DPI.ItemData(DPI.ListIndex)
  216.     Unload Me
  217. End Sub
  218.