home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1997 May
/
Pcwk0597.iso
/
delphi
/
prctvb25.lzh
/
VB.ZIP
/
PCAPTION.FRM
< prev
next >
Wrap
Text File
|
1996-01-18
|
14KB
|
453 lines
VERSION 2.00
Begin Form Pcaption
BackColor = &H00C0C0C0&
BorderStyle = 1 'Fixed Single
Caption = "Percent Captions Properties"
ClientHeight = 3825
ClientLeft = 1545
ClientTop = 1500
ClientWidth = 6930
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 4230
Left = 1485
LinkTopic = "Pcaption"
MDIChild = -1 'True
ScaleHeight = 3825
ScaleWidth = 6930
Top = 1155
Width = 7050
Begin TextBox Text1
Height = 585
Left = 3825
MultiLine = -1 'True
TabIndex = 17
Text = "Text1"
Top = 3180
Width = 3045
End
Begin Frame Frame1
BackColor = &H00C0C0C0&
Caption = "CaptionFontID"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 1140
Index = 3
Left = 3045
TabIndex = 11
Top = 1530
Width = 2400
Begin OptionButton Option2
BackColor = &H00C0C0C0&
Caption = "Times New Roman"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Times New Roman"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 240
Index = 2
Left = 195
TabIndex = 14
Top = 810
Width = 2010
End
Begin OptionButton Option2
BackColor = &H00C0C0C0&
Caption = "MS Sans Serif"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 285
Index = 1
Left = 195
TabIndex = 13
Top = 540
Width = 2010
End
Begin OptionButton Option2
BackColor = &H00C0C0C0&
Caption = "Arial"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 13.5
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 315
Index = 0
Left = 195
TabIndex = 12
Top = 270
Value = -1 'True
Width = 1230
End
End
Begin Frame Frame1
BackColor = &H00C0C0C0&
Caption = "Caption Position"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 1065
Index = 2
Left = 120
TabIndex = 6
Top = 2700
Width = 3600
Begin HScrollBar HScroll1
Height = 300
Index = 1
LargeChange = 10
Left = 990
Max = 100
TabIndex = 8
Top = 600
Width = 2000
End
Begin HScrollBar HScroll1
Height = 300
Index = 0
LargeChange = 10
Left = 990
Max = 100
TabIndex = 7
Top = 300
Width = 2000
End
Begin Label Label2
AutoSize = -1 'True
BackColor = &H00C0C0C0&
Caption = "CaptionY:"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 210
Index = 1
Left = 255
TabIndex = 16
Top = 630
Width = 705
End
Begin Label Label2
AutoSize = -1 'True
BackColor = &H00C0C0C0&
Caption = "CaptionX:"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Arial"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 210
Index = 0
Left = 255
TabIndex = 15
Top = 345
Width = 690
End
Begin Label Label1
AutoSize = -1 'True
BackColor = &H00C0C0C0&
Caption = "0"
Height = 195
Index = 1
Left = 3030
TabIndex = 10
Top = 645
Width = 120
End
Begin Label Label1
AutoSize = -1 'True
BackColor = &H00C0C0C0&
Caption = "0"
Height = 195
Index = 0
Left = 3030
TabIndex = 9
Top = 360
Width = 120
End
End
Begin Frame Frame1
BackColor = &H00C0C0C0&
Caption = "CaptionColor"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 1140
Index = 1
Left = 1400
TabIndex = 2
Top = 1530
Width = 1380
Begin Label HColors
BackColor = &H00000000&
Height = 225
Index = 0
Left = 345
TabIndex = 26
Top = 330
Width = 225
End
Begin Label HColors
BackColor = &H0000FFFF&
Height = 225
Index = 5
Left = 795
TabIndex = 25
Top = 555
Width = 225
End
Begin Label HColors
BackColor = &H00FFFFFF&
Height = 225
Index = 1
Left = 570
TabIndex = 24
Top = 330
Width = 225
End
Begin Label HColors
BackColor = &H000000FF&
Height = 225
Index = 6
Left = 345
TabIndex = 23
Top = 780
Width = 225
End
Begin Label HColors
BackColor = &H0000FF00&
Height = 225
Index = 2
Left = 795
TabIndex = 22
Top = 330
Width = 225
End
Begin Label HColors
BackColor = &H000080FF&
Height = 225
Index = 7
Left = 570
TabIndex = 21
Top = 780
Width = 225
End
Begin Label HColors
BackColor = &H00C00000&
Height = 225
Index = 3
Left = 345
TabIndex = 20
Top = 555
Width = 225
End
Begin Label HColors
BackColor = &H00FF00FF&
Height = 225
Index = 8
Left = 795
TabIndex = 19
Top = 780
Width = 225
End
Begin Label HColors
BackColor = &H00FFFF00&
Height = 225
Index = 4
Left = 570
TabIndex = 18
Top = 555
Width = 225
End
End
Begin Frame Frame1
BackColor = &H00C0C0C0&
Caption = "CaptionID"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 1140
Index = 0
Left = 120
TabIndex = 1
Top = 1530
Width = 990
Begin OptionButton Option1
BackColor = &H00C0C0C0&
Caption = "2"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 240
Index = 2
Left = 315
TabIndex = 5
Top = 735
Width = 540
End
Begin OptionButton Option1
BackColor = &H00C0C0C0&
Caption = "1"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 240
Index = 1
Left = 315
TabIndex = 4
Top = 495
Width = 540
End
Begin OptionButton Option1
BackColor = &H00C0C0C0&
Caption = "0"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 240
Index = 0
Left = 315
TabIndex = 3
Top = 270
Value = -1 'True
Width = 540
End
End
Begin PRCNT Prcnt1
AutoRedraw = -1 'True
AVersion = 2.501
BackColor = &H00C0C0C0&
BarBorder = 0.025
BarInner = 0.3
BarOuter = 0.6
BevelInner = 2 ' 2 - Inset
BevelOuter = 1 ' 1 - Raised
BevelWidth = 3
BorderWidth = 2
CaptionID = 2
Captions = 3
Direction = 0 ' 0 - Forward
DisplayMode = 0 ' 0 - Linear
FontID = 0
Height = 1395
Left = 90
Max = 100
Min = 0
MouseControl = -1 'True
OffColor = &H00FFFFFF&
OnColor = &H000000FF&
Orientation = 0 ' 0 - Horizontal
Percent = 50
PercentColor = &H00000000&
PercentFontID = 0
PercentStyle = 0 ' 0 - On/Off Negative
Shape = ""
ShapeStyle = 0 ' 0 - Rectangle
TabIndex = 0
Top = 75
Value = 50
Width = 6780
ZLoad = PCAPTION.FRX:0000
End
End
Sub Form_Load ()
prcnt1.CaptionID = 0
Text1 = prcnt1.Caption
Text1.ForeColor = prcnt1.CaptionColor
Text1.FontName = prcnt1.FontName
Text1.FontSize = prcnt1.FontSize
hscroll1(0) = prcnt1.CaptionX * 100
hscroll1(1) = prcnt1.CaptionY * 100
End Sub
Sub HColors_Click (index As Integer)
Text1.ForeColor = hcolors(index).BackColor
prcnt1.CaptionColor = hcolors(index).BackColor
End Sub
Sub HScroll1_Change (index As Integer)
Select Case index
Case 0
prcnt1.CaptionX = hscroll1(0) / 100
Case 1
prcnt1.CaptionY = hscroll1(1) / 100
End Select
label1(index) = hscroll1(index) / 100
End Sub
Sub HScroll1_Scroll (index As Integer)
Select Case index
Case 0
prcnt1.CaptionX = hscroll1(0) / 100
Case 1
prcnt1.CaptionY = hscroll1(1) / 100
End Select
label1(index) = hscroll1(index) / 100
End Sub
Sub Option1_Click (index As Integer)
prcnt1.CaptionID = index
Text1.Text = prcnt1.Caption
Text1.ForeColor = prcnt1.CaptionColor
Text1.FontName = prcnt1.FontName
Text1.FontSize = prcnt1.FontSize
hscroll1(0) = prcnt1.CaptionX * 100
hscroll1(1) = prcnt1.CaptionY * 100
End Sub
Sub Option2_Click (index As Integer)
prcnt1.CaptionFontID = index
Text1.ForeColor = prcnt1.CaptionColor
End Sub
