home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1997 May
/
Pcwk0597.iso
/
delphi
/
prctvb25.lzh
/
VB.ZIP
/
PSHAPES.FRM
< prev
next >
Wrap
Text File
|
1996-01-18
|
13KB
|
410 lines
VERSION 2.00
Begin Form PShapes
BackColor = &H00C0C0C0&
BorderStyle = 1 'Fixed Single
Caption = "Percent VBX Shape Properties"
ClientHeight = 4920
ClientLeft = 1590
ClientTop = 1500
ClientWidth = 4695
Height = 5325
Left = 1530
LinkTopic = "Form2"
MDIChild = -1 'True
ScaleHeight = 4920
ScaleWidth = 4695
Top = 1155
Width = 4815
Begin SSFrame Frame3D1
Caption = "Direction"
Height = 975
Left = 75
TabIndex = 31
Top = 2820
Width = 1350
Begin SSOption Option3D1
Caption = "Forward"
Height = 270
Index = 0
Left = 120
TabIndex = 33
Top = 285
Value = -1 'True
Width = 1185
End
Begin SSOption Option3D1
Caption = "Backward"
Height = 315
Index = 1
Left = 105
TabIndex = 32
TabStop = 0 'False
Top = 525
Width = 1230
End
End
Begin SSFrame Frame3D2
Caption = "Orientation"
Height = 960
Left = 1455
TabIndex = 28
Top = 2820
Width = 1335
Begin SSOption Option3D1
Caption = "Vertical"
Height = 300
Index = 2
Left = 105
TabIndex = 30
Top = 540
Value = -1 'True
Width = 1200
End
Begin SSOption Option3D1
Caption = "Horizontal"
Height = 285
Index = 3
Left = 120
TabIndex = 29
TabStop = 0 'False
Top = 255
Width = 1185
End
End
Begin Frame Frame2
BackColor = &H00C0C0C0&
Caption = "OffColor"
Height = 1185
Left = 3000
TabIndex = 18
Top = 2670
Width = 1605
Begin Label HColors
BackColor = &H00000000&
Height = 225
Index = 17
Left = 450
TabIndex = 27
Top = 360
Width = 225
End
Begin Label HColors
BackColor = &H00808080&
Height = 225
Index = 16
Left = 930
TabIndex = 26
Top = 570
Width = 225
End
Begin Label HColors
BackColor = &H00FFFFFF&
Height = 225
Index = 15
Left = 690
TabIndex = 25
Top = 360
Width = 225
End
Begin Label HColors
BackColor = &H000000FF&
Height = 225
Index = 14
Left = 450
TabIndex = 24
Top = 780
Width = 225
End
Begin Label HColors
BackColor = &H0000FF00&
Height = 225
Index = 13
Left = 930
TabIndex = 23
Top = 360
Width = 225
End
Begin Label HColors
BackColor = &H000080FF&
Height = 225
Index = 12
Left = 690
TabIndex = 22
Top = 780
Width = 225
End
Begin Label HColors
BackColor = &H00C00000&
Height = 225
Index = 11
Left = 450
TabIndex = 21
Top = 570
Width = 225
End
Begin Label HColors
BackColor = &H00FF00FF&
Height = 225
Index = 10
Left = 930
TabIndex = 20
Top = 780
Width = 225
End
Begin Label HColors
BackColor = &H00FFFF00&
Height = 225
Index = 9
Left = 690
TabIndex = 19
Top = 570
Width = 225
End
End
Begin PRCNT Prcnt1
AutoRedraw = -1 'True
AVersion = 2.501
BackColor = &H00C0C0C0&
BarBorder = 0.1
BarInner = 0.1
BarOuter = 0.9
BevelInner = 2 ' 2 - Inset
BevelOuter = 0 ' 0 - None
BevelWidth = 2
BorderWidth = 2
CaptionID = 0
Captions = 0
Direction = 0 ' 0 - Forward
DisplayMode = 0 ' 0 - Linear
FontID = 0
Height = 2800
Left = 45
Max = 100
Min = 0
MouseControl = -1 'True
OffColor = &H00FFFFFF&
OnColor = &H006E0000&
Orientation = 1 ' 1 - Vertical
Percent = 47
PercentColor = &H00000000&
PercentFontID = 0
PercentStyle = 0 ' 0 - On/Off Negative
Shape = ""
ShapeStyle = 0 ' 0 - Rectangle
TabIndex = 17
Top = 15
Value = 47
Width = 2800
ZLoad = PSHAPES.FRX:0000
End
Begin Frame Frame1
BackColor = &H00C0C0C0&
Caption = "ShapeStyle"
Height = 1320
Left = 3015
TabIndex = 11
Top = 120
Width = 1605
Begin OptionButton Option2
BackColor = &H00C0C0C0&
Caption = "Rectangle"
Height = 225
Index = 0
Left = 105
TabIndex = 15
Top = 255
Value = -1 'True
Width = 1305
End
Begin OptionButton Option2
BackColor = &H00C0C0C0&
Caption = "Ellipse"
Height = 225
Index = 1
Left = 105
TabIndex = 14
Top = 465
Width = 1095
End
Begin OptionButton Option2
BackColor = &H00C0C0C0&
Caption = "Tank"
Height = 225
Index = 2
Left = 105
TabIndex = 13
Top = 675
Width = 1005
End
Begin OptionButton Option2
BackColor = &H00C0C0C0&
Caption = "UserDefined"
Height = 225
Index = 3
Left = 105
TabIndex = 12
Top = 885
Width = 1380
End
End
Begin Frame Frame3
BackColor = &H00C0C0C0&
Caption = "OnColor"
Height = 1185
Left = 3000
TabIndex = 1
Top = 1455
Width = 1605
Begin Label HColors
BackColor = &H00FFFF00&
Height = 225
Index = 4
Left = 690
TabIndex = 10
Top = 570
Width = 225
End
Begin Label HColors
BackColor = &H00FF00FF&
Height = 225
Index = 8
Left = 930
TabIndex = 9
Top = 780
Width = 225
End
Begin Label HColors
BackColor = &H00C00000&
Height = 225
Index = 3
Left = 450
TabIndex = 8
Top = 570
Width = 225
End
Begin Label HColors
BackColor = &H000080FF&
Height = 225
Index = 7
Left = 690
TabIndex = 7
Top = 780
Width = 225
End
Begin Label HColors
BackColor = &H0000FF00&
Height = 225
Index = 2
Left = 930
TabIndex = 6
Top = 360
Width = 225
End
Begin Label HColors
BackColor = &H000000FF&
Height = 225
Index = 6
Left = 450
TabIndex = 5
Top = 780
Width = 225
End
Begin Label HColors
BackColor = &H00FFFFFF&
Height = 225
Index = 1
Left = 690
TabIndex = 4
Top = 360
Width = 225
End
Begin Label HColors
BackColor = &H00808080&
Height = 225
Index = 5
Left = 930
TabIndex = 3
Top = 570
Width = 225
End
Begin Label HColors
BackColor = &H00000000&
Height = 225
Index = 0
Left = 450
TabIndex = 2
Top = 360
Width = 225
End
End
Begin TextBox Text1
Height = 855
Left = 105
MultiLine = -1 'True
TabIndex = 0
Text = "0,1000, 333,250, 1000,250, 500,-250, 666,-1000, 0,-666, -666,-1000, -500,-250, -1000,250, -333,250"
Top = 4020
Width = 4470
End
Begin Label Label1
BackStyle = 0 'Transparent
Caption = "Shape:"
Height = 255
Left = 105
TabIndex = 34
Top = 3825
Width = 2370
End
Begin Label Label2
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = " "
Height = 195
Index = 0
Left = 5745
TabIndex = 16
Top = 1380
Width = 90
End
End
Sub HColors_Click (index As Integer)
If index < 9 Then
Prcnt1.OnColor = HColors(index).BackColor
Else
Prcnt1.OffColor = HColors(index).BackColor
End If
End Sub
Sub Option2_Click (index As Integer)
Prcnt1.ShapeStyle = index
If index = 3 Then Prcnt1.Shape = Text1
End Sub
Sub Option3D1_Click (index As Integer, Value As Integer)
Select Case index
Case 0 'forward
Prcnt1.Direction = 0
Case 1 'backward
Prcnt1.Direction = 1
Case 2 'vertical
Prcnt1.Orientation = 1
Case 3 'horizontal
Prcnt1.Orientation = 0
End Select
End Sub
Sub Text1_Change ()
Prcnt1.Shape = Text1
End Sub
