home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l405 / 1.ddi / TCCANCEL.FR_ / TCCANCEL.bin (.txt)
Encoding:
Visual Basic Form  |  1993-04-28  |  1.6 KB  |  54 lines
  1. VERSION 2.00
  2. Begin Form CancelFont 
  3.    BorderStyle     =   1  'Fixed Single
  4.    ClipControls    =   0   'False
  5.    ControlBox      =   0   'False
  6.    Height          =   2475
  7.    Left            =   1695
  8.    LinkTopic       =   "Form1"
  9.    MaxButton       =   0   'False
  10.    MinButton       =   0   'False
  11.    ScaleHeight     =   2070
  12.    ScaleWidth      =   3525
  13.    Top             =   2625
  14.    Width           =   3645
  15.    Begin PictureBox picProgress 
  16.       Height          =   375
  17.       Left            =   240
  18.       ScaleHeight     =   345
  19.       ScaleWidth      =   2985
  20.       TabIndex        =   2
  21.       Top             =   840
  22.       Width           =   3015
  23.    End
  24.    Begin CommandButton cmdCancel 
  25.       Caption         =   "Cancel"
  26.       Height          =   375
  27.       Left            =   1080
  28.       TabIndex        =   1
  29.       Top             =   1440
  30.       Width           =   1335
  31.    End
  32.    Begin Label lblCancelMsg 
  33.       Caption         =   "Please wait while TimeCard checks for available fonts..."
  34.       Height          =   495
  35.       Left            =   240
  36.       TabIndex        =   0
  37.       Top             =   240
  38.       Width           =   3135
  39.    End
  40. Option Explicit
  41. Sub cmdCancel_Click ()
  42.     ' Remove font dialog
  43.     Unload FontDialog
  44.     ' Remove cancel dialog
  45.     Unload CancelFont
  46. End Sub
  47. Sub Form_Load ()
  48.     ' Position form in middle of screen
  49.     CancelFont.Left = (Screen.Width - CancelFont.Width) / 2
  50.     CancelFont.Top = (Screen.Height - CancelFont.Height) / 2
  51.     ' Set scale width of progress bar based on # of matches
  52.     picProgress.ScaleWidth = Printer.FontCount * Screen.FontCount
  53. End Sub
  54.