home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 September / Chip_2002-09_cd1.bin / zkuste / vbasic / Data / Utils / glm2demo.exe / %MAINDIR% / CommonDialog / Main.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2002-06-10  |  2.9 KB  |  109 lines
  1. VERSION 5.00
  2. Begin VB.Form MainForm 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Desaware Gallimaufry Common Dialog"
  5.    ClientHeight    =   1380
  6.    ClientLeft      =   1680
  7.    ClientTop       =   1830
  8.    ClientWidth     =   6135
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   1380
  13.    ScaleWidth      =   6135
  14.    Begin VB.CommandButton CloseBut 
  15.       Caption         =   "Close"
  16.       Height          =   525
  17.       Left            =   2440
  18.       TabIndex        =   1
  19.       Top             =   720
  20.       Width           =   1245
  21.    End
  22.    Begin VB.Label Label1 
  23.       Caption         =   $"Main.frx":0000
  24.       Height          =   465
  25.       Left            =   120
  26.       TabIndex        =   0
  27.       Top             =   120
  28.       Width           =   5940
  29.    End
  30.    Begin VB.Line Line2 
  31.       BorderColor     =   &H80000005&
  32.       X1              =   60
  33.       X2              =   6060
  34.       Y1              =   10
  35.       Y2              =   10
  36.    End
  37.    Begin VB.Line Line1 
  38.       BorderColor     =   &H80000003&
  39.       X1              =   60
  40.       X2              =   6060
  41.       Y1              =   0
  42.       Y2              =   0
  43.    End
  44.    Begin VB.Menu optionmenu 
  45.       Caption         =   "&Options"
  46.       Begin VB.Menu filemenu 
  47.          Caption         =   "&File"
  48.       End
  49.       Begin VB.Menu colormenu 
  50.          Caption         =   "&Color"
  51.       End
  52.       Begin VB.Menu fontmenu 
  53.          Caption         =   "Fon&t"
  54.       End
  55.       Begin VB.Menu printmenu 
  56.          Caption         =   "&Print"
  57.       End
  58.       Begin VB.Menu pagemenu 
  59.          Caption         =   "Page &Setup"
  60.       End
  61.    End
  62.    Begin VB.Menu aboutmenu 
  63.       Caption         =   "&About"
  64.       Begin VB.Menu otherproducts 
  65.          Caption         =   "Other Products"
  66.       End
  67.       Begin VB.Menu menusep 
  68.          Caption         =   "-"
  69.       End
  70.       Begin VB.Menu about 
  71.          Caption         =   "About Gallimaufry..."
  72.       End
  73.    End
  74. Attribute VB_Name = "MainForm"
  75. Attribute VB_GlobalNameSpace = False
  76. Attribute VB_Creatable = False
  77. Attribute VB_PredeclaredId = True
  78. Attribute VB_Exposed = False
  79. Option Explicit
  80. 'Dim WindowsVersion As Integer
  81. Private Sub about_Click()
  82.     AboutGlmfry.Show vbModal
  83. End Sub
  84. Private Sub CloseBut_Click()
  85.     Unload Me
  86. End Sub
  87. Private Sub colormenu_Click()
  88.     ColorForm.Show vbModal
  89. End Sub
  90. Private Sub filemenu_Click()
  91.     FileOpenSaveForm.Show vbModal
  92. End Sub
  93. Private Sub fontmenu_Click()
  94.     FontForm.Show vbModal
  95. End Sub
  96. Private Sub Form_Load()
  97.     WindowsVersion = GetWindowsVersion
  98. '    WindowsVersion = 35
  99. End Sub
  100. Private Sub otherproducts_Click()
  101.     sdother.Show vbModal
  102. End Sub
  103. Private Sub pagemenu_Click()
  104.     PageSetupForm.Show vbModal
  105. End Sub
  106. Private Sub printmenu_Click()
  107.     PrintDlgForm.Show vbModal
  108. End Sub
  109.