home *** CD-ROM | disk | FTP | other *** search
/ Best Tools for JAVA / Best Tools for JAVA.iso / VIEWERS / VSVIEW / VSVIEW.ZIP / FFX.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-11-04  |  10.4 KB  |  326 lines
  1. VERSION 2.00
  2. Begin Form fFX 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Special FX"
  5.    ClientHeight    =   4170
  6.    ClientLeft      =   300
  7.    ClientTop       =   2175
  8.    ClientWidth     =   8820
  9.    Height          =   4665
  10.    Left            =   195
  11.    LinkTopic       =   "Form3"
  12.    ScaleHeight     =   4170
  13.    ScaleWidth      =   8820
  14.    Top             =   1785
  15.    Width           =   9030
  16.    Begin vsInForm vsInForm1 
  17.       BarColor        =   &H00C0C0C0&
  18.       BarColorInactive=   &H00C0C0C0&
  19.       BarHeight       =   30
  20.       BarStyle        =   3  'Raised
  21.       ButtonsLeft     =   0  '0
  22.       ButtonsRight    =   1  '1
  23.       CapAlign        =   1  'Left Center
  24.       CapColor        =   &H00C0C0C0&
  25.       CapColorInactive=   &H00C0C0C0&
  26.       CapStyle        =   1  'Raised
  27.       Caption         =   "   vsInForm: Custom Borders on Forms and Controls"
  28.       ConvInfo        =   FFX.FRX:0000
  29.       FontBold        =   -1  'True
  30.       FontItalic      =   0   'False
  31.       FontName        =   "Arial"
  32.       FontSize        =   12
  33.       FontStrikethru  =   0   'False
  34.       FontUnderline   =   0   'False
  35.       FrameColor      =   &H00C0C0C0&
  36.       FrameColorInactive=   &H00C0C0C0&
  37.       FrameCorners    =   0   'False
  38.       FrameSizing     =   0  'None
  39.       FrameStyle      =   3  'Raised Form
  40.       Left            =   3300
  41.       PictRight0      =   FFX.FRX:000B
  42.       Top             =   2085
  43.    End
  44.    Begin Frame Frame2 
  45.       BackColor       =   &H00C0C0C0&
  46.       Caption         =   "Frame"
  47.       Height          =   1695
  48.       Left            =   105
  49.       TabIndex        =   8
  50.       Top             =   210
  51.       Width           =   3075
  52.       Begin CheckBox Check1 
  53.          Alignment       =   1  'Right Justify
  54.          BackColor       =   &H00C0C0C0&
  55.          Caption         =   "Corners"
  56.          FontBold        =   0   'False
  57.          FontItalic      =   0   'False
  58.          FontName        =   "MS Sans Serif"
  59.          FontSize        =   8.25
  60.          FontStrikethru  =   0   'False
  61.          FontUnderline   =   0   'False
  62.          Height          =   225
  63.          Left            =   315
  64.          TabIndex        =   15
  65.          Top             =   1365
  66.          Width           =   1170
  67.       End
  68.       Begin ComboBox Combo6 
  69.          Height          =   300
  70.          Left            =   1020
  71.          Style           =   2  'Dropdown List
  72.          TabIndex        =   11
  73.          Tag             =   "Left"
  74.          Top             =   300
  75.          Width           =   1815
  76.       End
  77.       Begin ComboBox Combo5 
  78.          Height          =   300
  79.          Left            =   1020
  80.          Style           =   2  'Dropdown List
  81.          TabIndex        =   10
  82.          Tag             =   "Left"
  83.          Top             =   600
  84.          Width           =   1815
  85.       End
  86.       Begin ComboBox Combo4 
  87.          Height          =   300
  88.          Left            =   1020
  89.          Style           =   2  'Dropdown List
  90.          TabIndex        =   9
  91.          Tag             =   "Left"
  92.          Top             =   900
  93.          Width           =   1815
  94.       End
  95.       Begin Label Label6 
  96.          BackStyle       =   0  'Transparent
  97.          Caption         =   "Style"
  98.          FontBold        =   0   'False
  99.          FontItalic      =   0   'False
  100.          FontName        =   "MS Sans Serif"
  101.          FontSize        =   8.25
  102.          FontStrikethru  =   0   'False
  103.          FontUnderline   =   0   'False
  104.          Height          =   255
  105.          Left            =   180
  106.          TabIndex        =   14
  107.          Top             =   360
  108.          Width           =   555
  109.       End
  110.       Begin Label Label5 
  111.          BackStyle       =   0  'Transparent
  112.          Caption         =   "Resizing"
  113.          FontBold        =   0   'False
  114.          FontItalic      =   0   'False
  115.          FontName        =   "MS Sans Serif"
  116.          FontSize        =   8.25
  117.          FontStrikethru  =   0   'False
  118.          FontUnderline   =   0   'False
  119.          Height          =   255
  120.          Left            =   180
  121.          TabIndex        =   13
  122.          Top             =   660
  123.          Width           =   735
  124.       End
  125.       Begin Label Label4 
  126.          BackStyle       =   0  'Transparent
  127.          Caption         =   "Width"
  128.          FontBold        =   0   'False
  129.          FontItalic      =   0   'False
  130.          FontName        =   "MS Sans Serif"
  131.          FontSize        =   8.25
  132.          FontStrikethru  =   0   'False
  133.          FontUnderline   =   0   'False
  134.          Height          =   255
  135.          Left            =   180
  136.          TabIndex        =   12
  137.          Top             =   960
  138.          Width           =   555
  139.       End
  140.    End
  141.    Begin Frame Frame1 
  142.       BackColor       =   &H00C0C0C0&
  143.       Caption         =   "Caption"
  144.       Height          =   1380
  145.       Left            =   105
  146.       TabIndex        =   1
  147.       Top             =   1995
  148.       Width           =   3075
  149.       Begin ComboBox Combo3 
  150.          Height          =   300
  151.          Left            =   1020
  152.          Style           =   2  'Dropdown List
  153.          TabIndex        =   6
  154.          Tag             =   "Left"
  155.          Top             =   900
  156.          Width           =   1815
  157.       End
  158.       Begin ComboBox Combo2 
  159.          Height          =   300
  160.          Left            =   1020
  161.          Style           =   2  'Dropdown List
  162.          TabIndex        =   4
  163.          Tag             =   "Left"
  164.          Top             =   600
  165.          Width           =   1815
  166.       End
  167.       Begin ComboBox Combo1 
  168.          Height          =   300
  169.          Left            =   1020
  170.          Style           =   2  'Dropdown List
  171.          TabIndex        =   2
  172.          Tag             =   "Left"
  173.          Top             =   300
  174.          Width           =   1815
  175.       End
  176.       Begin Label Label3 
  177.          BackStyle       =   0  'Transparent
  178.          Caption         =   "Height"
  179.          FontBold        =   0   'False
  180.          FontItalic      =   0   'False
  181.          FontName        =   "MS Sans Serif"
  182.          FontSize        =   8.25
  183.          FontStrikethru  =   0   'False
  184.          FontUnderline   =   0   'False
  185.          Height          =   255
  186.          Left            =   180
  187.          TabIndex        =   7
  188.          Top             =   960
  189.          Width           =   555
  190.       End
  191.       Begin Label Label2 
  192.          BackStyle       =   0  'Transparent
  193.          Caption         =   "Align"
  194.          FontBold        =   0   'False
  195.          FontItalic      =   0   'False
  196.          FontName        =   "MS Sans Serif"
  197.          FontSize        =   8.25
  198.          FontStrikethru  =   0   'False
  199.          FontUnderline   =   0   'False
  200.          Height          =   255
  201.          Left            =   180
  202.          TabIndex        =   5
  203.          Top             =   660
  204.          Width           =   555
  205.       End
  206.       Begin Label Label1 
  207.          BackStyle       =   0  'Transparent
  208.          Caption         =   "Style"
  209.          FontBold        =   0   'False
  210.          FontItalic      =   0   'False
  211.          FontName        =   "MS Sans Serif"
  212.          FontSize        =   8.25
  213.          FontStrikethru  =   0   'False
  214.          FontUnderline   =   0   'False
  215.          Height          =   255
  216.          Left            =   180
  217.          TabIndex        =   3
  218.          Top             =   360
  219.          Width           =   555
  220.       End
  221.    End
  222.    Begin PictureBox Picture1 
  223.       Height          =   3705
  224.       Left            =   3780
  225.       Picture         =   FFX.FRX:00DD
  226.       ScaleHeight     =   3300
  227.       ScaleWidth      =   4215
  228.       TabIndex        =   0
  229.       Top             =   210
  230.       Width           =   4425
  231.       Begin vsInForm VSi 
  232.          BarColor        =   &H00C0C0C0&
  233.          BarColorInactive=   &H00C0C0C0&
  234.          BarHeight       =   13
  235.          ButtonsLeft     =   3  '3
  236.          ButtonsRight    =   3  '3
  237.          Caption         =   "Floating Picture Box"
  238.          ConvInfo        =   FFX.FRX:3E93
  239.          CustomFrame     =   -1  'True
  240.          FontBold        =   0   'False
  241.          FontItalic      =   0   'False
  242.          FontName        =   "Small Fonts"
  243.          FontSize        =   6.75
  244.          FontStrikethru  =   0   'False
  245.          FontUnderline   =   0   'False
  246.          FrameColor      =   &H00C0C0C0&
  247.          FrameColorInactive=   &H00C0C0C0&
  248.          FrameCorners    =   0   'False
  249.          Left            =   210
  250.          PictLeft0       =   FFX.FRX:3E9E
  251.          PictLeft1       =   FFX.FRX:3F68
  252.          PictLeft2       =   FFX.FRX:4032
  253.          PictRight0      =   FFX.FRX:40FC
  254.          PictRight1      =   FFX.FRX:41C6
  255.          PictRight2      =   FFX.FRX:4290
  256.          Top             =   1020
  257.       End
  258.    End
  259. Option Explicit
  260. Sub Check1_Click ()
  261.   VSi.FrameCorners = Not VSi.FrameCorners
  262. End Sub
  263. Sub Combo1_Click ()
  264.   VSi.BarStyle = Val(Combo1)
  265. End Sub
  266. Sub Combo2_Click ()
  267.   VSi.CapAlign = Val(Combo2)
  268. End Sub
  269. Sub Combo3_Click ()
  270.   VSi.BarHeight = Val(Combo3)
  271. End Sub
  272. Sub Combo4_Click ()
  273.   VSi.FrameWidth = Val(Combo4)
  274. End Sub
  275. Sub Combo5_Click ()
  276.   VSi.FrameSizing = Val(Combo5)
  277. End Sub
  278. Sub Combo6_Click ()
  279.   VSi.FrameStyle = Val(Combo6)
  280. End Sub
  281. Sub Form_Load ()
  282.   VSinform1.CustomFrame = True
  283.   ' cap style
  284.   Combo1.AddItem "0 - None"
  285.   Combo1.AddItem "1 - Flat"
  286.   Combo1.AddItem "2 - No Border"
  287.   Combo1.AddItem "3 - Raised"
  288.   Combo1.AddItem "4 - Inset"
  289.   Combo1.ListIndex = 3
  290.   ' cap align
  291.   Combo2.AddItem "1 - Left Center"
  292.   Combo2.AddItem "4 - Center Center"
  293.   Combo2.AddItem "7 - Right Center"
  294.   Combo2.ListIndex = 1
  295.   ' cap height
  296.   Combo3.AddItem "0 - Default"
  297.   Combo3.AddItem "12"
  298.   Combo3.AddItem "15"
  299.   Combo3.AddItem "25"
  300.   Combo3.ListIndex = 3
  301.   ' frame style
  302.   Combo6.AddItem "0 - None"
  303.   Combo6.AddItem "1 - Classic"
  304.   Combo6.AddItem "2 - Outside"
  305.   Combo6.AddItem "3 - Raised Form"
  306.   Combo6.AddItem "4 - Raised Frame"
  307.   Combo6.ListIndex = 3
  308.   ' resizing
  309.   Combo5.AddItem "0 - None"
  310.   Combo5.AddItem "1 - Horizontal"
  311.   Combo5.AddItem "2 - Vertical"
  312.   Combo5.AddItem "3 - Both"
  313.   Combo5.AddItem "4 - Locked"
  314.   Combo5.ListIndex = 3
  315.   ' frame width
  316.   Combo4.AddItem "0 - Default"
  317.   Combo4.AddItem "3"
  318.   Combo4.AddItem "5"
  319.   Combo4.AddItem "8"
  320.   Combo4.AddItem "12"
  321.   Combo4.ListIndex = 3
  322. End Sub
  323. Sub VSInForm1_ClickRButton (Button As Integer)
  324.   Unload Me
  325. End Sub
  326.