home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1997 May
/
Pcwk0597.iso
/
delphi
/
prctvb25.lzh
/
VB.ZIP
/
PBITMAP.FRM
< prev
next >
Wrap
Text File
|
1996-01-20
|
11KB
|
352 lines
VERSION 2.00
Begin Form PBitmap
BackColor = &H00C0C0C0&
BorderStyle = 1 'Fixed Single
Caption = "Percent VBX Bitmaps Demo"
ClientHeight = 2655
ClientLeft = 2445
ClientTop = 2100
ClientWidth = 6135
Height = 3060
Left = 2385
LinkTopic = "Form3"
MDIChild = -1 'True
ScaleHeight = 2655
ScaleWidth = 6135
Top = 1755
Width = 6255
Begin HScrollBar HScroll1
Height = 285
LargeChange = 10
Left = 2325
Max = 100
TabIndex = 13
Top = 2250
Value = 50
Width = 1830
End
Begin Frame Frame3
BackColor = &H00C0C0C0&
Caption = "PercentStyle"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 1050
Left = 2340
TabIndex = 9
Top = 1140
Width = 1815
Begin OptionButton Option1
BackColor = &H00C0C0C0&
Caption = "PercentColor"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 225
Index = 1
Left = 120
TabIndex = 12
Top = 495
Value = -1 'True
Width = 1365
End
Begin OptionButton Option1
BackColor = &H00C0C0C0&
Caption = "On/Off Negative"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 225
Index = 0
Left = 120
TabIndex = 11
Top = 270
Width = 1530
End
Begin OptionButton Option1
BackColor = &H00C0C0C0&
Caption = "None"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 225
Index = 2
Left = 120
TabIndex = 10
Top = 705
Width = 825
End
End
Begin Frame Frame1
BackColor = &H00C0C0C0&
Caption = "Bitmap Properties"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 1065
Index = 2
Left = 2340
TabIndex = 4
Top = 30
Width = 1830
Begin OptionButton Option3
BackColor = &H00C0C0C0&
Caption = "BackPicture"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 255
Index = 0
Left = 120
TabIndex = 7
Top = 270
Width = 1260
End
Begin OptionButton Option3
BackColor = &H00C0C0C0&
Caption = "OnPicture"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 255
Index = 1
Left = 120
TabIndex = 6
Top = 495
Value = -1 'True
Width = 1050
End
Begin OptionButton Option3
BackColor = &H00C0C0C0&
Caption = "OffPicture"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 240
Index = 2
Left = 120
TabIndex = 5
Top = 735
Width = 1125
End
End
Begin Frame Frame2
BackColor = &H00C0C0C0&
Caption = "Select Bitmap"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 2130
Left = 4245
TabIndex = 1
Top = 30
Width = 1800
Begin PictureBox Picture1
BackColor = &H00C0C0C0&
FillColor = &H00FFFFFF&
FillStyle = 0 'Solid
ForeColor = &H00FFFFFF&
Height = 400
Index = 2
Left = 855
ScaleHeight = 375
ScaleWidth = 375
TabIndex = 8
Top = 1335
Width = 400
End
Begin PictureBox Picture1
BackColor = &H000000C0&
FillColor = &H00FFFFFF&
FillStyle = 0 'Solid
ForeColor = &H00FFFFFF&
Height = 400
Index = 0
Left = 855
ScaleHeight = 375
ScaleWidth = 375
TabIndex = 3
Top = 465
Width = 400
End
Begin PictureBox Picture1
BackColor = &H00F0FBFF&
FillColor = &H00FFFFFF&
FillStyle = 0 'Solid
ForeColor = &H00FFFFFF&
Height = 400
Index = 1
Left = 855
ScaleHeight = 375
ScaleWidth = 375
TabIndex = 2
Top = 900
Width = 400
End
Begin Image Image1
Height = 405
Index = 2
Left = 315
Picture = PBITMAP.FRX:0000
Stretch = -1 'True
Top = 1335
Width = 405
End
Begin Image Image1
Height = 405
Index = 1
Left = 315
Picture = PBITMAP.FRX:62A2
Stretch = -1 'True
Top = 900
Width = 405
End
Begin Image Image1
Height = 405
Index = 0
Left = 330
Picture = PBITMAP.FRX:B86C
Stretch = -1 'True
Top = 465
Width = 405
End
End
Begin PRCNT Prcnt1
AutoRedraw = -1 'True
AVersion = 2.501
BackColor = &H00C0C0C0&
BarBorder = 0.05
BarInner = 0.1
BarOuter = 0.9
BevelInner = 0 ' 0 - None
BevelOuter = 0 ' 0 - None
BevelWidth = 2
BorderWidth = 2
CaptionID = 0
Captions = 0
Direction = 0 ' 0 - Forward
DisplayMode = 0 ' 0 - Linear
FontID = 0
Height = 2595
Left = 15
Max = 100
Min = 0
MouseControl = -1 'True
OffColor = &H00FFFFFF&
OnColor = &H00FF0000&
Orientation = 0 ' 0 - Horizontal
Percent = 50
PercentColor = &H00000000&
PercentFontID = 0
PercentStyle = 0 ' 0 - On/Off Negative
Shape = ""
ShapeStyle = 1 ' 1 - Ellipse
TabIndex = 0
Top = 0
Value = 50
Width = 2265
ZLoad = PBITMAP.FRX:D7FA
End
Begin Label Label1
AutoSize = -1 'True
BackColor = &H00C0C0C0&
Caption = "50"
Height = 195
Left = 4230
TabIndex = 14
Top = 2295
Width = 225
End
End
Sub HScroll1_Change ()
prcnt1 = hscroll1
label1 = Str(prcnt1)
End Sub
Sub HScroll1_Scroll ()
prcnt1 = hscroll1
label1 = Str(prcnt1)
End Sub
Sub Image1_Click (index As Integer)
For i = 0 To 2
If option3(i) = True Then
Select Case i
Case 0
prcnt1.BackPicture = Image1(index).Picture
Case 1
prcnt1.OnPicture = Image1(index).Picture
Case 2
prcnt1.OffPicture = Image1(index).Picture
End Select
End If
Next
End Sub
Sub Option1_Click (index As Integer)
prcnt1.PercentStyle = index
End Sub
Sub Picture1_Click (index As Integer)
For i = 0 To 2
If option3(i) = True Then
Select Case i
Case 0
prcnt1.BackPicture = LoadPicture("")
prcnt1.BackColor = Picture1(index).BackColor
Case 1
prcnt1.OnPicture = LoadPicture("")
prcnt1.OnColor = Picture1(index).BackColor
Case 2
prcnt1.OffPicture = LoadPicture("")
prcnt1.OffColor = Picture1(index).BackColor
End Select
End If
Next
End Sub
Sub Prcnt1_Change ()
hscroll1 = prcnt1
End Sub
