home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / delphi / prctvb25.lzh / VB.ZIP / PDIRECT.FRM < prev    next >
Text File  |  1996-01-20  |  7KB  |  223 lines
  1. VERSION 2.00
  2. Begin Form Direction 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Percent Direction and Orientation Properties"
  6.    ClientHeight    =   3270
  7.    ClientLeft      =   1860
  8.    ClientTop       =   1845
  9.    ClientWidth     =   6210
  10.    Height          =   3675
  11.    Left            =   1800
  12.    LinkTopic       =   "Form2"
  13.    MDIChild        =   -1  'True
  14.    ScaleHeight     =   3270
  15.    ScaleWidth      =   6210
  16.    Top             =   1500
  17.    Width           =   6330
  18.    Begin PRCNT Prcnt1 
  19.       AutoRedraw      =   -1  'True
  20.       AVersion        =   2.501
  21.       BackColor       =   &H00C0C0C0&
  22.       BarBorder       =   0
  23.       BarInner        =   0
  24.       BarOuter        =   1
  25.       BevelInner      =   0  ' 0 - None
  26.       BevelOuter      =   0  ' 0 - None
  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          =   3105
  35.       Left            =   15
  36.       Max             =   100
  37.       Min             =   0
  38.       MouseControl    =   -1  'True
  39.       OffColor        =   &H00FFFFFF&
  40.       OnColor         =   &H006E0000&
  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      =   0  ' 0 - Rectangle
  48.       TabIndex        =   8
  49.       Top             =   30
  50.       Value           =   50
  51.       Width           =   750
  52.       ZLoad           =   PDIRECT.FRX:0000
  53.    End
  54.    Begin PRCNT Prcnt2 
  55.       AutoRedraw      =   -1  'True
  56.       AVersion        =   2.501
  57.       BackColor       =   &H00C0C0C0&
  58.       BarBorder       =   0
  59.       BarInner        =   0
  60.       BarOuter        =   1
  61.       BevelInner      =   0  ' 0 - None
  62.       BevelOuter      =   0  ' 0 - None
  63.       BevelWidth      =   2
  64.       BorderWidth     =   2
  65.       CaptionID       =   0
  66.       Captions        =   0
  67.       Direction       =   1  ' 1 - Backward
  68.       DisplayMode     =   0  ' 0 - Linear
  69.       FontID          =   0
  70.       Height          =   1725
  71.       Left            =   2925
  72.       Max             =   100
  73.       Min             =   0
  74.       MouseControl    =   -1  'True
  75.       OffColor        =   &H00404040&
  76.       OnColor         =   &H00000080&
  77.       Orientation     =   1  ' 1 - Vertical
  78.       Percent         =   65
  79.       PercentColor    =   &H00000000&
  80.       PercentFontID   =   0
  81.       PercentStyle    =   0  ' 0 - On/Off Negative
  82.       Shape           =   ""
  83.       ShapeStyle      =   2  ' 2 - Tank
  84.       TabIndex        =   7
  85.       Top             =   1410
  86.       Value           =   65
  87.       Width           =   1650
  88.       ZLoad           =   PDIRECT.FRX:003A
  89.    End
  90.    Begin PRCNT Prcnt3 
  91.       AutoRedraw      =   -1  'True
  92.       AVersion        =   2.501
  93.       BackColor       =   &H00C0C0C0&
  94.       BarBorder       =   0
  95.       BarInner        =   0
  96.       BarOuter        =   1
  97.       BevelInner      =   0  ' 0 - None
  98.       BevelOuter      =   2  ' 2 - Inset
  99.       BevelWidth      =   2
  100.       BorderWidth     =   2
  101.       CaptionID       =   0
  102.       Captions        =   0
  103.       Direction       =   0  ' 0 - Forward
  104.       DisplayMode     =   1  ' 1 - Radial
  105.       FontID          =   0
  106.       Height          =   1695
  107.       Left            =   975
  108.       Max             =   100
  109.       Min             =   0
  110.       MouseControl    =   -1  'True
  111.       OffColor        =   &H00808080&
  112.       OnColor         =   &H00808000&
  113.       Orientation     =   1  ' 1 - Vertical
  114.       Percent         =   60
  115.       PercentColor    =   &H00000000&
  116.       PercentFontID   =   0
  117.       PercentStyle    =   0  ' 0 - On/Off Negative
  118.       Shape           =   ""
  119.       ShapeStyle      =   1  ' 1 - Ellipse
  120.       TabIndex        =   6
  121.       Top             =   1425
  122.       Value           =   60
  123.       Width           =   1800
  124.       ZLoad           =   PDIRECT.FRX:0074
  125.    End
  126.    Begin SSFrame Frame3D2 
  127.       Caption         =   "Orientation"
  128.       Font3D          =   0  'None
  129.       Height          =   960
  130.       Left            =   4680
  131.       TabIndex        =   3
  132.       Top             =   1125
  133.       Width           =   1335
  134.       Begin SSOption Option3D1 
  135.          Caption         =   "Horizontal"
  136.          Font3D          =   0  'None
  137.          Height          =   420
  138.          Index           =   3
  139.          Left            =   105
  140.          TabIndex        =   5
  141.          TabStop         =   0   'False
  142.          Top             =   195
  143.          Width           =   1185
  144.       End
  145.       Begin SSOption Option3D1 
  146.          Caption         =   "Vertical"
  147.          Font3D          =   0  'None
  148.          Height          =   510
  149.          Index           =   2
  150.          Left            =   105
  151.          TabIndex        =   4
  152.          Top             =   435
  153.          Value           =   -1  'True
  154.          Width           =   1200
  155.       End
  156.    End
  157.    Begin SSFrame Frame3D1 
  158.       Caption         =   "Direction"
  159.       Font3D          =   0  'None
  160.       Height          =   975
  161.       Left            =   4680
  162.       TabIndex        =   0
  163.       Top             =   2115
  164.       Width           =   1350
  165.       Begin SSOption Option3D1 
  166.          Caption         =   "Backward"
  167.          Font3D          =   0  'None
  168.          Height          =   420
  169.          Index           =   1
  170.          Left            =   75
  171.          TabIndex        =   2
  172.          Top             =   510
  173.          Value           =   -1  'True
  174.          Width           =   1230
  175.       End
  176.       Begin SSOption Option3D1 
  177.          Caption         =   "Forward"
  178.          Font3D          =   0  'None
  179.          Height          =   420
  180.          Index           =   0
  181.          Left            =   90
  182.          TabIndex        =   1
  183.          TabStop         =   0   'False
  184.          Top             =   210
  185.          Width           =   1185
  186.       End
  187.    End
  188. End
  189.  
  190. Sub Option3D1_Click (index As Integer, Value As Integer)
  191.  
  192.     Select Case index
  193.         Case 0 'forward
  194.             Prcnt1.Direction = 0
  195.             Prcnt2.Direction = 0
  196.             Prcnt3.Direction = 0
  197.         Case 1 'backward
  198.             Prcnt1.Direction = 1
  199.             Prcnt2.Direction = 1
  200.             Prcnt3.Direction = 1
  201.         Case 2 'vertical
  202.             Prcnt1.Orientation = 1
  203.             If Prcnt1.Width > Prcnt1.Height Then
  204.                 twidth = Prcnt1.Width
  205.                 Prcnt1.Width = Prcnt1.Height
  206.                 Prcnt1.Height = twidth
  207.             End If
  208.             Prcnt2.Orientation = 1
  209.             Prcnt3.Orientation = 1
  210.         Case 3 'horizontal
  211.             If Prcnt1.Width < Prcnt1.Height Then
  212.                 twidth = Prcnt1.Width
  213.                 Prcnt1.Width = Prcnt1.Height
  214.                 Prcnt1.Height = twidth
  215.             End If
  216.             Prcnt1.Orientation = 0
  217.             Prcnt2.Orientation = 0
  218.             Prcnt3.Orientation = 0
  219.     End Select
  220.  
  221. End Sub
  222.  
  223.