home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / delphi / prctvb25.lzh / VB.ZIP / PSTYLE.FRM < prev    next >
Text File  |  1996-01-20  |  10KB  |  295 lines
  1. VERSION 2.00
  2. Begin Form PStyle 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Percent VBX DisplayMode Property - Linear or Radial"
  6.    ClientHeight    =   6345
  7.    ClientLeft      =   435
  8.    ClientTop       =   1770
  9.    ClientWidth     =   8370
  10.    Height          =   6750
  11.    Left            =   375
  12.    LinkTopic       =   "Form2"
  13.    MDIChild        =   -1  'True
  14.    ScaleHeight     =   6345
  15.    ScaleWidth      =   8370
  16.    Top             =   1425
  17.    Width           =   8490
  18.    Begin PRCNT Prcnt6 
  19.       AutoRedraw      =   -1  'True
  20.       AVersion        =   2.501
  21.       BackColor       =   &H00C0C0C0&
  22.       BarBorder       =   0
  23.       BarInner        =   0.1
  24.       BarOuter        =   0.9
  25.       BevelInner      =   2  ' 2 - Inset
  26.       BevelOuter      =   2  ' 2 - Inset
  27.       BevelWidth      =   2
  28.       BorderWidth     =   2
  29.       CaptionID       =   0
  30.       Captions        =   0
  31.       Direction       =   1  ' 1 - Backward
  32.       DisplayMode     =   0  ' 0 - Linear
  33.       FontID          =   0
  34.       Height          =   3255
  35.       Left            =   5505
  36.       Max             =   100
  37.       Min             =   0
  38.       MouseControl    =   -1  'True
  39.       OffColor        =   &H00C0C0C0&
  40.       OnColor         =   &H00808000&
  41.       Orientation     =   1  ' 1 - Vertical
  42.       Percent         =   50
  43.       PercentColor    =   &H00000000&
  44.       PercentFontID   =   0
  45.       PercentStyle    =   0  ' 0 - On/Off Negative
  46.       Shape           =   ""
  47.       ShapeStyle      =   1  ' 1 - Ellipse
  48.       TabIndex        =   8
  49.       Top             =   2910
  50.       Value           =   50
  51.       Width           =   2820
  52.       ZLoad           =   PSTYLE.FRX:0000
  53.    End
  54.    Begin PRCNT Prcnt5 
  55.       AutoRedraw      =   -1  'True
  56.       AVersion        =   2.501
  57.       BackColor       =   &H00C0C0C0&
  58.       BarBorder       =   0.1
  59.       BarInner        =   0.1
  60.       BarOuter        =   0.9
  61.       BevelInner      =   2  ' 2 - Inset
  62.       BevelOuter      =   1  ' 1 - Raised
  63.       BevelWidth      =   2
  64.       BorderWidth     =   2
  65.       CaptionID       =   0
  66.       Captions        =   0
  67.       Direction       =   0  ' 0 - Forward
  68.       DisplayMode     =   0  ' 0 - Linear
  69.       FontID          =   0
  70.       Height          =   2070
  71.       Left            =   2130
  72.       Max             =   100
  73.       Min             =   0
  74.       MouseControl    =   -1  'True
  75.       OffColor        =   &H00FFFFC0&
  76.       OnColor         =   &H00008000&
  77.       Orientation     =   0  ' 0 - Horizontal
  78.       Percent         =   50
  79.       PercentColor    =   &H00800000&
  80.       PercentFontID   =   0
  81.       PercentStyle    =   1  ' 1 - PercentColor
  82.       Shape           =   ""
  83.       ShapeStyle      =   1  ' 1 - Ellipse
  84.       TabIndex        =   7
  85.       Top             =   4110
  86.       Value           =   50
  87.       Width           =   3045
  88.       ZLoad           =   PSTYLE.FRX:003A
  89.    End
  90.    Begin PRCNT Prcnt4 
  91.       AutoRedraw      =   -1  'True
  92.       AVersion        =   2.501
  93.       BackColor       =   &H00C0C0C0&
  94.       BarBorder       =   0.1
  95.       BarInner        =   0.2
  96.       BarOuter        =   0.8
  97.       BevelInner      =   0  ' 0 - None
  98.       BevelOuter      =   1  ' 1 - Raised
  99.       BevelWidth      =   7
  100.       BorderWidth     =   2
  101.       CaptionID       =   0
  102.       Captions        =   0
  103.       Direction       =   1  ' 1 - Backward
  104.       DisplayMode     =   0  ' 0 - Linear
  105.       FontID          =   0
  106.       Height          =   4575
  107.       Left            =   135
  108.       Max             =   100
  109.       Min             =   0
  110.       MouseControl    =   -1  'True
  111.       OffColor        =   &H00FFFFFF&
  112.       OnColor         =   &H00000000&
  113.       Orientation     =   1  ' 1 - Vertical
  114.       Percent         =   50
  115.       PercentColor    =   &H00808000&
  116.       PercentFontID   =   0
  117.       PercentStyle    =   1  ' 1 - PercentColor
  118.       Shape           =   ""
  119.       ShapeStyle      =   0  ' 0 - Rectangle
  120.       TabIndex        =   6
  121.       Top             =   1605
  122.       Value           =   50
  123.       Width           =   1830
  124.       ZLoad           =   PSTYLE.FRX:0074
  125.    End
  126.    Begin PRCNT Prcnt3 
  127.       AutoRedraw      =   -1  'True
  128.       AVersion        =   2.501
  129.       BackColor       =   &H00C0C0C0&
  130.       BarBorder       =   0.05
  131.       BarInner        =   0
  132.       BarOuter        =   1
  133.       BevelInner      =   0  ' 0 - None
  134.       BevelOuter      =   2  ' 2 - Inset
  135.       BevelWidth      =   2
  136.       BorderWidth     =   2
  137.       CaptionID       =   0
  138.       Captions        =   0
  139.       Direction       =   0  ' 0 - Forward
  140.       DisplayMode     =   0  ' 0 - Linear
  141.       FontID          =   0
  142.       Height          =   2460
  143.       Left            =   6060
  144.       Max             =   100
  145.       Min             =   0
  146.       MouseControl    =   -1  'True
  147.       OffColor        =   &H0000FFFF&
  148.       OnColor         =   &H00008080&
  149.       Orientation     =   1  ' 1 - Vertical
  150.       Percent         =   50
  151.       PercentColor    =   &H00000000&
  152.       PercentFontID   =   0
  153.       PercentStyle    =   0  ' 0 - On/Off Negative
  154.       Shape           =   "0,1000, 333,250, 1000,250, 500,-250, 666,-1000, 0,-666, -666,-1000, -500,-250, -1000,250, -333,250"
  155.       ShapeStyle      =   3  ' 3 - User Defined
  156.       TabIndex        =   5
  157.       Top             =   255
  158.       Value           =   50
  159.       Width           =   2295
  160.       ZLoad           =   PSTYLE.FRX:00AE
  161.    End
  162.    Begin PRCNT Prcnt2 
  163.       AutoRedraw      =   -1  'True
  164.       AVersion        =   2.501
  165.       BackColor       =   &H00C0C0C0&
  166.       BarBorder       =   0
  167.       BarInner        =   0
  168.       BarOuter        =   1
  169.       BevelInner      =   0  ' 0 - None
  170.       BevelOuter      =   0  ' 0 - None
  171.       BevelWidth      =   2
  172.       BorderWidth     =   2
  173.       CaptionID       =   0
  174.       Captions        =   0
  175.       Direction       =   1  ' 1 - Backward
  176.       DisplayMode     =   0  ' 0 - Linear
  177.       FontID          =   0
  178.       Height          =   2520
  179.       Left            =   3345
  180.       Max             =   100
  181.       Min             =   0
  182.       MouseControl    =   -1  'True
  183.       OffColor        =   &H00808080&
  184.       OnColor         =   &H00800000&
  185.       Orientation     =   1  ' 1 - Vertical
  186.       Percent         =   50
  187.       PercentColor    =   &H00000000&
  188.       PercentFontID   =   0
  189.       PercentStyle    =   0  ' 0 - On/Off Negative
  190.       Shape           =   ""
  191.       ShapeStyle      =   2  ' 2 - Tank
  192.       TabIndex        =   4
  193.       Top             =   210
  194.       Value           =   50
  195.       Width           =   2550
  196.       ZLoad           =   PSTYLE.FRX:00E8
  197.    End
  198.    Begin PRCNT Prcnt1 
  199.       AutoRedraw      =   -1  'True
  200.       AVersion        =   2.501
  201.       BackColor       =   &H00E0E0E0&
  202.       BarBorder       =   0.1
  203.       BarInner        =   0.3
  204.       BarOuter        =   0.7
  205.       BevelInner      =   1  ' 1 - Raised
  206.       BevelOuter      =   1  ' 1 - Raised
  207.       BevelWidth      =   2
  208.       BorderWidth     =   2
  209.       CaptionID       =   0
  210.       Captions        =   0
  211.       Direction       =   0  ' 0 - Forward
  212.       DisplayMode     =   0  ' 0 - Linear
  213.       FontID          =   0
  214.       Height          =   765
  215.       Left            =   105
  216.       Max             =   100
  217.       Min             =   0
  218.       MouseControl    =   -1  'True
  219.       OffColor        =   &H0000FFFF&
  220.       OnColor         =   &H000000C0&
  221.       Orientation     =   0  ' 0 - Horizontal
  222.       Percent         =   50
  223.       PercentColor    =   &H00000000&
  224.       PercentFontID   =   0
  225.       PercentStyle    =   0  ' 0 - On/Off Negative
  226.       Shape           =   ""
  227.       ShapeStyle      =   0  ' 0 - Rectangle
  228.       TabIndex        =   3
  229.       Top             =   690
  230.       Value           =   50
  231.       Width           =   3000
  232.       ZLoad           =   PSTYLE.FRX:0122
  233.    End
  234.    Begin Frame Frame1 
  235.       BackColor       =   &H00C0C0C0&
  236.       Caption         =   "DisplayMode"
  237.       FontBold        =   -1  'True
  238.       FontItalic      =   0   'False
  239.       FontName        =   "Arial"
  240.       FontSize        =   8.25
  241.       FontStrikethru  =   0   'False
  242.       FontUnderline   =   0   'False
  243.       Height          =   1050
  244.       Left            =   3480
  245.       TabIndex        =   0
  246.       Top             =   2835
  247.       Width           =   1380
  248.       Begin OptionButton Option1 
  249.          BackColor       =   &H00C0C0C0&
  250.          Caption         =   "Radial"
  251.          FontBold        =   0   'False
  252.          FontItalic      =   0   'False
  253.          FontName        =   "Arial"
  254.          FontSize        =   9.75
  255.          FontStrikethru  =   0   'False
  256.          FontUnderline   =   0   'False
  257.          Height          =   300
  258.          Index           =   1
  259.          Left            =   150
  260.          TabIndex        =   2
  261.          Top             =   540
  262.          Width           =   915
  263.       End
  264.       Begin OptionButton Option1 
  265.          BackColor       =   &H00C0C0C0&
  266.          Caption         =   "Linear"
  267.          FontBold        =   0   'False
  268.          FontItalic      =   0   'False
  269.          FontName        =   "Arial"
  270.          FontSize        =   9.75
  271.          FontStrikethru  =   0   'False
  272.          FontUnderline   =   0   'False
  273.          Height          =   300
  274.          Index           =   0
  275.          Left            =   135
  276.          TabIndex        =   1
  277.          Top             =   285
  278.          Value           =   -1  'True
  279.          Width           =   930
  280.       End
  281.    End
  282. End
  283.  
  284. Sub Option1_Click (index As Integer)
  285.  
  286.     Prcnt1.DisplayMode = index
  287.     Prcnt2.DisplayMode = index
  288.     Prcnt3.DisplayMode = index
  289.     Prcnt4.DisplayMode = index
  290.     Prcnt5.DisplayMode = index
  291.     Prcnt6.DisplayMode = index
  292.  
  293. End Sub
  294.  
  295.