home *** CD-ROM | disk | FTP | other *** search
- 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
- 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
-