home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1997 May
/
Pcwk0597.iso
/
delphi
/
prctvb25.lzh
/
VB.ZIP
/
PCTMDI.FRM
< prev
next >
Wrap
Text File
|
1996-01-18
|
3KB
|
117 lines
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
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