PC World Komputer 1997 May

home *** CD-ROM | disk | FTP | other *** search

/ PC World Komputer 1997 May / Pcwk0597.iso / delphi / prctvb25.lzh / VB.ZIP / PCAPTION.FRM (.txt) < prev next >

Wrap

Visual Basic Form | 1996-01-18 | 13.9 KB | 432 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 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