home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / delphi / prctvb25.lzh / VB.ZIP / PCTMDI.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-01-18  |  2.8 KB  |  103 lines
  1. VERSION 2.00
  2. Begin MDIForm pctmdi 
  3.    Caption         =   "Percentage Custom Control VBX - Global Majic Software, Inc."
  4.    ClientHeight    =   7110
  5.    ClientLeft      =   195
  6.    ClientTop       =   1845
  7.    ClientWidth     =   9000
  8.    Height          =   7800
  9.    Icon            =   PCTMDI.FRX:0000
  10.    Left            =   135
  11.    LinkTopic       =   "MDIForm1"
  12.    Top             =   1215
  13.    Width           =   9120
  14.    WindowState     =   2  'Maximized
  15.    Begin Menu mnu 
  16.       Caption         =   "&Demos"
  17.       Index           =   0
  18.       Begin Menu demo_mnu 
  19.          Caption         =   "&Bitmap Properties"
  20.          Index           =   0
  21.       End
  22.       Begin Menu demo_mnu 
  23.          Caption         =   "&Caption Properties"
  24.          Index           =   1
  25.       End
  26.       Begin Menu demo_mnu 
  27.          Caption         =   "Direction and &Orientation Properties"
  28.          Index           =   2
  29.       End
  30.       Begin Menu demo_mnu 
  31.          Caption         =   "&Linear or Radial DisplayMode Properties"
  32.          Index           =   3
  33.       End
  34.       Begin Menu demo_mnu 
  35.          Caption         =   "&ShapeProperties"
  36.          Index           =   4
  37.       End
  38.       Begin Menu demo_mnu 
  39.          Caption         =   "-"
  40.          Index           =   5
  41.       End
  42.       Begin Menu demo_mnu 
  43.          Caption         =   "&Examples"
  44.          Index           =   6
  45.       End
  46.    End
  47.    Begin Menu mnu 
  48.       Caption         =   "&Help"
  49.       Index           =   1
  50.       Begin Menu help_mnu 
  51.          Caption         =   "&About Percent"
  52.          Index           =   0
  53.       End
  54.       Begin Menu help_mnu 
  55.          Caption         =   "&Percent Help"
  56.          Index           =   1
  57.       End
  58.       Begin Menu help_mnu 
  59.          Caption         =   "&All GMS Controls"
  60.          Index           =   3
  61.       End
  62.    End
  63.    Begin Menu mnu 
  64.       Caption         =   "&Order"
  65.       Index           =   2
  66.    End
  67.    Begin Menu mnu 
  68.       Caption         =   "E&xit"
  69.       Index           =   3
  70.    End
  71. Sub demo_mnu_Click (Index As Integer)
  72.     Select Case Index
  73.         Case 0
  74.             PBitmap.Show
  75.         Case 1
  76.             Pcaption.Show
  77.         Case 2
  78.             Direction.Show
  79.         Case 3
  80.             PStyle.Show
  81.         Case 4
  82.             PShapes.Show
  83.         Case 6
  84.             PExamples.Show
  85.         End Select
  86. End Sub
  87. Sub help_mnu_Click (Index As Integer)
  88.     If Index = 0 Then
  89.         About.Show
  90.     ElseIf Index = 1 Then
  91.         i = Shell("WINHELP prcnt.hlp", 1)
  92.     Else
  93.         i = Shell("WINHELP instrmlb.hlp", 1)
  94.     End If
  95. End Sub
  96. Sub MDIForm_Load ()
  97.     About.Show
  98. End Sub
  99. Sub mnu_Click (Index As Integer)
  100.     If Index = 2 Then i = Shell("winhelp  instrmlb.hlp", 1)
  101.     If Index = 3 Then End
  102. End Sub
  103.