Visual Basic 4 Unleashed/Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso/crystal/extras/crpedemo/font.frm

Visual Basic Form | 1994-12-15 | 5.4 KB | 178 lines

VERSION 2.00
Begin Form Font
   BackColor       =   &H00C0C0C0&
   Caption         =   "Field Types"
   ClientHeight    =   1635
   ClientLeft      =   4425
   ClientTop       =   2715
   ClientWidth     =   5280
   Height          =   2040
   Left            =   4365
   LinkTopic       =   "Form1"
   ScaleHeight     =   1635
   ScaleWidth      =   5280
   Top             =   2370
   Width           =   5400
   Begin SSFrame Frame3D1
      Caption         =   "Field Types to Modify"
      Font3D          =   0  'None
      ForeColor       =   &H00000000&
      Height          =   1410
      Left            =   180
      TabIndex        =   6
      Top             =   90
      Width           =   3345
      Begin SSOption Option3D2
         Caption         =   "Both"
         Font3D          =   0  'None
         Height          =   195
         Index           =   2
         Left            =   180
         TabIndex        =   0
         TabStop         =   0   'False
         Top             =   990
         Width           =   1275
      End
      Begin SSOption Option3D2
         Caption         =   "All Fields in Section"
         Font3D          =   0  'None
         Height          =   285
         Index           =   1
         Left            =   180
         TabIndex        =   1
         TabStop         =   0   'False
         Top             =   585
         Width           =   1995
      End
      Begin SSOption Option3D2
         Caption         =   "All Text in Section"
         Font3D          =   0  'None
         Height          =   195
         Index           =   0
         Left            =   180
         TabIndex        =   5
         Top             =   315
         Value           =   -1  'True
         Width           =   1815
      End
   End
   Begin CommonDialog CMDialog1
      CancelError     =   -1  'True
      FontName        =   "Arial"
      FontSize        =   10
      Left            =   1530
      Top             =   1980
   End
   Begin CommandButton Command3
      Caption         =   "Cancel"
      Height          =   375
      Left            =   3690
      TabIndex        =   4
      Top             =   855
      Width           =   1365
   End
   Begin CommandButton Command1
      Caption         =   "Ok"
      Height          =   375
      Left            =   3690
      TabIndex        =   3
      Top             =   405
      Width           =   1365
   End
   Begin SSPanel Statusbar
      Alignment       =   1  'Left Justify - MIDDLE
      BackColor       =   &H00C0C0C0&
      BorderWidth     =   1
      Font3D          =   0  'None
      Height          =   510
      Left            =   0
      TabIndex        =   2
      Top             =   4905
      Width           =   6675
   End
Sub Command1_Click ()
    'Critical Error Checking, mainly for if user hits cancel in common dialogue
    On Error GoTo FontErr
    'Set Common dialogue flags
    CMDialog1.Flags = &H2& Or &H200& Or &H100&
    'Call the common dialogue for fonts
    CMDialog1.Action = 4
    'User specifies fontname, store this name in a variable to use in PESetFont
     CRWFontName = CMDialog1.FontName
    'User specifies fontsize, store this name in a variable to use in PESetFont
    CRWFontSize = CMDialog1.FontSize
    'User specifies fontItalics or not, store this True or False in a variable to use in PESetFont.
    If CMDialog1.FontItalic = True Then
       CRWFontItalic = 1
    Else
       CRWFontItalic = 0
    End If

    'User specifies font underline, store this True or false in a variable to use in PESetFont.
    If CMDialog1.FontUnderLine = True Then
       CRWFontUnderline = 1
    Else
       CRWFontUnderline = 0
    End If
'User specifies fontstrikethru, store this true or False in a variable to use in PESetFont
    If CMDialog1.FontStrikeThru = True Then
       CRWFontStrikeThru = 1
    Else
       CRWFontStrikeThru = 0
    End If
MsgBox Str(SectionCode)
   'Set the Font using PESetFont
   If PESetFont(JobNum, SectionCode, ScopeCode, CRWFontName, 0, 0, 0, CRWFontSize, CRWFontItalic, CRWFontUnderline, CRWFontStrikeThru, 0) = False Then
      RCode = GetErrorString(JobNum)
      MsgBox "PESetFont Error #: " + Str(ErrorCode) + " - " + RCode
      Exit Sub
   Else
        Font!Statusbar.Caption = "Section Fonts have been modified!"
   End If
   Unload Me
   Exit Sub
FontErr:
  'MsgBox "User hit Cancel"
Exit Sub
End Sub
Sub Command2_Click ()
 Unload Me
End Sub
Sub Command3_Click ()
  Unload Me
End Sub
Sub FontFile_Click ()
 Unload Me
End Sub
Sub Form_Load ()
  ScopeCode = 2
End Sub
Sub Option3D1_Click (Index As Integer, Value As Integer)
   Select Case Index
    Case 0:
      SectionCode = 0    'PE_AllSections
    Case 1:
      SectionCode = 2000 'PE_HeaderSection
    Case 2:
      SectionCode = 3000 'PE_GroupHeader
    Case 3:
      SectionCode = 4000 'PE_DetailSection
    Case 4:
      SectionCode = 5000 'PE_GroupFooter
    Case 5:
      SectionCode = 7000 'PE_FooterSection
    Case 6:
      SectionCode = 6000 'PE_GrandTotalSection
   End Select
End Sub
Sub Option3D2_Click (Index As Integer, Value As Integer)
   Select Case Index
    Case 0:
      ScopeCode = 2 'PE_Text
    Case 1:
      ScopeCode = 1  'PE_Fields
    Case 2:
      ScopeCode = 1 Or 2  'PE_Text Or PE_Fields
   End Select
End Sub