home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Unleashed / Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso / crystal / extras / vbxdemo / ndformat.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-12-15  |  2.3 KB  |  78 lines
  1. VERSION 2.00
  2. Begin Form NDFormatForm 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Number and Date format dialogue"
  5.    ClientHeight    =   1755
  6.    ClientLeft      =   1395
  7.    ClientTop       =   4230
  8.    ClientWidth     =   7365
  9.    Height          =   2160
  10.    Left            =   1335
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   1755
  15.    ScaleWidth      =   7365
  16.    Top             =   3885
  17.    Width           =   7485
  18.    Begin SSFrame Frame3D1 
  19.       Font3D          =   0  'None
  20.       ForeColor       =   &H00000000&
  21.       Height          =   1320
  22.       Left            =   330
  23.       TabIndex        =   0
  24.       Top             =   225
  25.       Width           =   6825
  26.       Begin CommandButton Formatcancel 
  27.          Caption         =   "Cancel"
  28.          Height          =   375
  29.          Left            =   4680
  30.          TabIndex        =   4
  31.          Top             =   720
  32.          Width           =   1395
  33.       End
  34.       Begin CommandButton formatok 
  35.          Caption         =   "Ok"
  36.          Height          =   375
  37.          Left            =   4680
  38.          TabIndex        =   3
  39.          Top             =   270
  40.          Width           =   1395
  41.       End
  42.       Begin SSCheck DateCheck 
  43.          Caption         =   "Same date formats as in report"
  44.          Font3D          =   0  'None
  45.          Height          =   375
  46.          Left            =   780
  47.          TabIndex        =   2
  48.          Top             =   765
  49.          Width           =   3255
  50.       End
  51.       Begin SSCheck Numcheck 
  52.          Caption         =   "Same number formats as in report"
  53.          Font3D          =   0  'None
  54.          Height          =   420
  55.          Left            =   780
  56.          TabIndex        =   1
  57.          Top             =   225
  58.          Width           =   3285
  59.       End
  60.    End
  61. Sub Formatcancel_Click ()
  62.  Unload Me
  63.  CancelCheck = 1
  64. End Sub
  65. Sub formatok_Click ()
  66.   If NumCheck.Value = True Then
  67.     Main.Report1.PrintFileUseRptNumberFmt = 1
  68.   Else
  69.     Main.Report1.PrintFileUseRptNumberFmt = 0
  70.   End If
  71.   If DateCheck.Value = True Then
  72.     Main.Report1.PrintFileUseRptDateFmt = 1
  73.   Else
  74.     Main.Report1.PrintFileUseRptDateFmt = 1
  75.   End If
  76.   Unload Me
  77. End Sub
  78.