home *** CD-ROM | disk | FTP | other *** search
- VERSION 2.00
- Begin MDIForm pctmdi
- Caption = "Percentage Custom Control VBX - Global Majic Software, Inc."
- ClientHeight = 7110
- ClientLeft = 195
- ClientTop = 1845
- ClientWidth = 9000
- Height = 7800
- Icon = PCTMDI.FRX:0000
- Left = 135
- LinkTopic = "MDIForm1"
- Top = 1215
- Width = 9120
- WindowState = 2 'Maximized
- Begin Menu mnu
- Caption = "&Demos"
- Index = 0
- Begin Menu demo_mnu
- Caption = "&Bitmap Properties"
- Index = 0
- End
- Begin Menu demo_mnu
- Caption = "&Caption Properties"
- Index = 1
- End
- Begin Menu demo_mnu
- Caption = "Direction and &Orientation Properties"
- Index = 2
- End
- Begin Menu demo_mnu
- Caption = "&Linear or Radial DisplayMode Properties"
- Index = 3
- End
- Begin Menu demo_mnu
- Caption = "&ShapeProperties"
- Index = 4
- End
- Begin Menu demo_mnu
- Caption = "-"
- Index = 5
- End
- Begin Menu demo_mnu
- Caption = "&Examples"
- Index = 6
- End
- End
- Begin Menu mnu
- Caption = "&Help"
- Index = 1
- Begin Menu help_mnu
- Caption = "&About Percent"
- Index = 0
- End
- Begin Menu help_mnu
- Caption = "&Percent Help"
- Index = 1
- End
- Begin Menu help_mnu
- Caption = "&All GMS Controls"
- Index = 3
- End
- End
- Begin Menu mnu
- Caption = "&Order"
- Index = 2
- End
- Begin Menu mnu
- Caption = "E&xit"
- Index = 3
- End
- Sub demo_mnu_Click (Index As Integer)
- Select Case Index
- Case 0
- PBitmap.Show
- Case 1
- Pcaption.Show
- Case 2
- Direction.Show
- Case 3
- PStyle.Show
- Case 4
- PShapes.Show
- Case 6
- PExamples.Show
- End Select
- End Sub
- Sub help_mnu_Click (Index As Integer)
- If Index = 0 Then
- About.Show
- ElseIf Index = 1 Then
- i = Shell("WINHELP prcnt.hlp", 1)
- Else
- i = Shell("WINHELP instrmlb.hlp", 1)
- End If
- End Sub
- Sub MDIForm_Load ()
- About.Show
- End Sub
- Sub mnu_Click (Index As Integer)
- If Index = 2 Then i = Shell("winhelp instrmlb.hlp", 1)
- If Index = 3 Then End
- End Sub
-