home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / delphi / prctvb25.lzh / VB.ZIP / PCTMDI.FRM < prev    next >
Text File  |  1996-01-18  |  3KB  |  117 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. End
  72.  
  73. Sub demo_mnu_Click (Index As Integer)
  74.  
  75.     Select Case Index
  76.         Case 0
  77.             PBitmap.Show
  78.         Case 1
  79.             Pcaption.Show
  80.         Case 2
  81.             Direction.Show
  82.         Case 3
  83.             PStyle.Show
  84.         Case 4
  85.             PShapes.Show
  86.         Case 6
  87.             PExamples.Show
  88.         End Select
  89.  
  90. End Sub
  91.  
  92. Sub help_mnu_Click (Index As Integer)
  93.  
  94.     If Index = 0 Then
  95.         About.Show
  96.     ElseIf Index = 1 Then
  97.         i = Shell("WINHELP prcnt.hlp", 1)
  98.     Else
  99.         i = Shell("WINHELP instrmlb.hlp", 1)
  100.     End If
  101.  
  102. End Sub
  103.  
  104. Sub MDIForm_Load ()
  105.  
  106.     About.Show
  107.  
  108. End Sub
  109.  
  110. Sub mnu_Click (Index As Integer)
  111.  
  112.     If Index = 2 Then i = Shell("winhelp  instrmlb.hlp", 1)
  113.     If Index = 3 Then End
  114.  
  115. End Sub
  116.  
  117.