home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 41 / IOPROG_41.ISO / soft / delphi / NCTDesignBox2.exe / Main / frmVertSlider.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2000-09-29  |  8.8 KB  |  273 lines
  1. VERSION 5.00
  2. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
  3. Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
  4. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  5. Object = "{489F6F86-FA5F-46C1-9154-0BDFE98E2B02}#1.0#0"; "NCTDesignBox.ocx"
  6. Begin VB.Form frmVertSlider 
  7.    BorderStyle     =   1  'Fixed Single
  8.    Caption         =   "Test SliderV02"
  9.    ClientHeight    =   3315
  10.    ClientLeft      =   45
  11.    ClientTop       =   330
  12.    ClientWidth     =   5055
  13.    Icon            =   "frmVertSlider.frx":0000
  14.    LinkTopic       =   "Form1"
  15.    MaxButton       =   0   'False
  16.    MinButton       =   0   'False
  17.    ScaleHeight     =   3315
  18.    ScaleWidth      =   5055
  19.    StartUpPosition =   2  'CenterScreen
  20.    Begin NCTDesignBox.VertSliderVer02 VertSliderVer021 
  21.       Height          =   3075
  22.       Left            =   4680
  23.       TabIndex        =   17
  24.       Top             =   120
  25.       Width           =   225
  26.       _ExtentX        =   397
  27.       _ExtentY        =   5424
  28.    End
  29.    Begin NCTDesignBox.HorSliderVer02 HorSliderVer021 
  30.       Height          =   225
  31.       Left            =   300
  32.       TabIndex        =   16
  33.       Top             =   120
  34.       Width           =   4095
  35.       _ExtentX        =   7223
  36.       _ExtentY        =   397
  37.    End
  38.    Begin MSComDlg.CommonDialog CommonDialog1 
  39.       Left            =   270
  40.       Top             =   480
  41.       _ExtentX        =   847
  42.       _ExtentY        =   847
  43.       _Version        =   393216
  44.    End
  45.    Begin VB.CommandButton Command3 
  46.       Caption         =   "SliderBackColor"
  47.       Height          =   345
  48.       Left            =   120
  49.       TabIndex        =   15
  50.       Top             =   2820
  51.       Width           =   1800
  52.    End
  53.    Begin VB.PictureBox Picture3 
  54.       Height          =   345
  55.       Left            =   2040
  56.       ScaleHeight     =   285
  57.       ScaleWidth      =   345
  58.       TabIndex        =   14
  59.       Top             =   2820
  60.       Width           =   405
  61.    End
  62.    Begin VB.TextBox Text4 
  63.       Height          =   345
  64.       Left            =   3870
  65.       TabIndex        =   9
  66.       Text            =   "2"
  67.       Top             =   1740
  68.       Width           =   525
  69.    End
  70.    Begin VB.Frame Frame1 
  71.       Caption         =   "Border"
  72.       Height          =   1005
  73.       Left            =   2670
  74.       TabIndex        =   4
  75.       Top             =   2160
  76.       Width           =   1995
  77.       Begin VB.OptionButton Option4 
  78.          Caption         =   "Raised"
  79.          Height          =   345
  80.          Left            =   960
  81.          TabIndex        =   8
  82.          Top             =   540
  83.          Width           =   975
  84.       End
  85.       Begin VB.OptionButton Option3 
  86.          Caption         =   "Lowered"
  87.          Height          =   345
  88.          Left            =   960
  89.          TabIndex        =   7
  90.          Top             =   210
  91.          Value           =   -1  'True
  92.          Width           =   975
  93.       End
  94.       Begin VB.OptionButton Option2 
  95.          Caption         =   "Single"
  96.          Height          =   345
  97.          Left            =   120
  98.          TabIndex        =   6
  99.          Top             =   540
  100.          Width           =   885
  101.       End
  102.       Begin VB.OptionButton Option1 
  103.          Caption         =   "None"
  104.          Height          =   375
  105.          Left            =   120
  106.          TabIndex        =   5
  107.          Top             =   210
  108.          Width           =   945
  109.       End
  110.    End
  111.    Begin VB.PictureBox Picture2 
  112.       Height          =   345
  113.       Left            =   2040
  114.       ScaleHeight     =   285
  115.       ScaleWidth      =   345
  116.       TabIndex        =   3
  117.       Top             =   2295
  118.       Width           =   405
  119.    End
  120.    Begin VB.PictureBox Picture1 
  121.       Height          =   345
  122.       Left            =   2040
  123.       ScaleHeight     =   285
  124.       ScaleWidth      =   345
  125.       TabIndex        =   2
  126.       Top             =   1770
  127.       Width           =   405
  128.    End
  129.    Begin VB.CommandButton Command2 
  130.       Caption         =   "BorderColor"
  131.       Height          =   345
  132.       Left            =   120
  133.       TabIndex        =   1
  134.       Top             =   2295
  135.       Width           =   1800
  136.    End
  137.    Begin VB.CommandButton Command1 
  138.       Caption         =   "BackColor"
  139.       Height          =   345
  140.       Left            =   120
  141.       TabIndex        =   0
  142.       Top             =   1770
  143.       Width           =   1800
  144.    End
  145.    Begin MSComctlLib.Slider Slider1 
  146.       Height          =   555
  147.       Left            =   0
  148.       TabIndex        =   10
  149.       Top             =   870
  150.       Width           =   4575
  151.       _ExtentX        =   8070
  152.       _ExtentY        =   979
  153.       _Version        =   393216
  154.       Max             =   100
  155.       TickStyle       =   2
  156.       TickFrequency   =   2
  157.    End
  158.    Begin MSComCtl2.UpDown UpDown4 
  159.       Height          =   345
  160.       Left            =   4380
  161.       TabIndex        =   11
  162.       Top             =   1740
  163.       Width           =   240
  164.       _ExtentX        =   423
  165.       _ExtentY        =   609
  166.       _Version        =   393216
  167.       Value           =   2
  168.       BuddyControl    =   "Text4"
  169.       BuddyDispid     =   196611
  170.       OrigLeft        =   3810
  171.       OrigTop         =   1110
  172.       OrigRight       =   4050
  173.       OrigBottom      =   1515
  174.       Max             =   100
  175.       SyncBuddy       =   -1  'True
  176.       BuddyProperty   =   65547
  177.       Enabled         =   -1  'True
  178.    End
  179.    Begin VB.Label Label1 
  180.       Alignment       =   2  'Center
  181.       Caption         =   "ValueChange Event"
  182.       Height          =   405
  183.       Left            =   150
  184.       TabIndex        =   13
  185.       Top             =   480
  186.       Width           =   4335
  187.    End
  188.    Begin VB.Label Label4 
  189.       Alignment       =   1  'Right Justify
  190.       Caption         =   "Speed"
  191.       Height          =   285
  192.       Left            =   2850
  193.       TabIndex        =   12
  194.       Top             =   1770
  195.       Width           =   795
  196.    End
  197. Attribute VB_Name = "frmVertSlider"
  198. Attribute VB_GlobalNameSpace = False
  199. Attribute VB_Creatable = False
  200. Attribute VB_PredeclaredId = True
  201. Attribute VB_Exposed = False
  202. Private Sub Command1_Click()
  203.     Dim OldCol, NewCol As OLE_COLOR
  204.     OldCol = HorSliderVer021.BackColor
  205.     CommonDialog1.Color = OldCol
  206.     CommonDialog1.DialogTitle = "Choice Color"
  207.     CommonDialog1.Flags = cdlCCRGBInit Or cdlCCFullOpen
  208.     CommonDialog1.ShowColor
  209.     NewCol = CommonDialog1.Color
  210.     HorSliderVer021.BackColor = NewCol
  211.     VertSliderVer021.BackColor = NewCol
  212.     Picture1.BackColor = HorSliderVer021.BackColor
  213. End Sub
  214. Private Sub Command2_Click()
  215.     Dim OldCol, NewCol As OLE_COLOR
  216.     OldCol = HorSliderVer021.BorderColor
  217.     CommonDialog1.Color = OldCol
  218.     CommonDialog1.DialogTitle = "Choice Color"
  219.     CommonDialog1.Flags = cdlCCRGBInit Or cdlCCFullOpen
  220.     CommonDialog1.ShowColor
  221.     NewCol = CommonDialog1.Color
  222.     HorSliderVer021.BorderColor = NewCol
  223.     VertSliderVer021.BorderColor = NewCol
  224.     Picture2.BackColor = HorSliderVer021.BorderColor
  225. End Sub
  226. Private Sub Command3_Click()
  227.     Dim OldCol, NewCol As OLE_COLOR
  228.     OldCol = HorSliderVer021.SliderBackColor
  229.     CommonDialog1.Color = OldCol
  230.     CommonDialog1.DialogTitle = "Choice Color"
  231.     CommonDialog1.Flags = cdlCCRGBInit Or cdlCCFullOpen
  232.     CommonDialog1.ShowColor
  233.     NewCol = CommonDialog1.Color
  234.     HorSliderVer021.SliderBackColor = NewCol
  235.     VertSliderVer021.SliderBackColor = NewCol
  236.     Picture3.BackColor = HorSliderVer021.SliderBackColor
  237. End Sub
  238. Private Sub Form_Load()
  239.     Picture1.BackColor = HorSliderVer021.BackColor
  240.     Picture2.BackColor = HorSliderVer021.BorderColor
  241.     Picture3.BackColor = HorSliderVer021.SliderBackColor
  242. End Sub
  243. Private Sub HorSliderVer021_ValueChange(Value As Long)
  244.     Label1.Caption = "HorSlider ValueChange Event (Value = " & Value & ")"
  245. End Sub
  246. Private Sub Option1_Click()
  247.     HorSliderVer021.Border = abbNone
  248.     VertSliderVer021.Border = abbNone
  249. End Sub
  250. Private Sub Option2_Click()
  251.     HorSliderVer021.Border = abbSingle
  252.     VertSliderVer021.Border = abbSingle
  253. End Sub
  254. Private Sub Option3_Click()
  255.     HorSliderVer021.Border = abbLowered
  256.     VertSliderVer021.Border = abbLowered
  257. End Sub
  258. Private Sub Option4_Click()
  259.     HorSliderVer021.Border = abbRaised
  260.     VertSliderVer021.Border = abbRaised
  261. End Sub
  262. Private Sub Slider1_Change()
  263.     HorSliderVer021.Value = Slider1.Value
  264.     VertSliderVer021.Value = Slider1.Value
  265. End Sub
  266. Private Sub UpDown4_Change()
  267.     VertSliderVer021.Speed = UpDown4.Value
  268.     HorSliderVer021.Speed = UpDown4.Value
  269. End Sub
  270. Private Sub VertSliderVer021_ValueChange(Value As Long)
  271.     Label1.Caption = "VertSlider ValueChange Event (Value = " & Value & ")"
  272. End Sub
  273.