home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 41 / IOPROG_41.ISO / soft / delphi / NCTDesignBox2.exe / Main / frmHorSlider.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2000-09-29  |  9.7 KB  |  309 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 frmHorSlider 
  7.    BorderStyle     =   1  'Fixed Single
  8.    Caption         =   "Test SliderV01"
  9.    ClientHeight    =   3750
  10.    ClientLeft      =   45
  11.    ClientTop       =   330
  12.    ClientWidth     =   4980
  13.    Icon            =   "frmHorSlider.frx":0000
  14.    LinkTopic       =   "Form1"
  15.    MaxButton       =   0   'False
  16.    MinButton       =   0   'False
  17.    ScaleHeight     =   3750
  18.    ScaleWidth      =   4980
  19.    StartUpPosition =   2  'CenterScreen
  20.    Begin NCTDesignBox.VertSliderVer01 VertSliderVer011 
  21.       Height          =   3555
  22.       Left            =   4560
  23.       TabIndex        =   21
  24.       Top             =   60
  25.       Width           =   150
  26.       _ExtentX        =   265
  27.       _ExtentY        =   6271
  28.    End
  29.    Begin NCTDesignBox.HorSliderVer01 HorSliderVer011 
  30.       Height          =   150
  31.       Left            =   300
  32.       TabIndex        =   20
  33.       Top             =   60
  34.       Width           =   4035
  35.       _ExtentX        =   7117
  36.       _ExtentY        =   265
  37.    End
  38.    Begin VB.Frame Frame3 
  39.       Caption         =   "SizeStyle"
  40.       Height          =   1005
  41.       Left            =   3420
  42.       TabIndex        =   17
  43.       Top             =   2610
  44.       Width           =   1035
  45.       Begin VB.OptionButton Option6 
  46.          Caption         =   "Small"
  47.          Height          =   375
  48.          Left            =   210
  49.          TabIndex        =   19
  50.          Top             =   210
  51.          Value           =   -1  'True
  52.          Width           =   705
  53.       End
  54.       Begin VB.OptionButton Option5 
  55.          Caption         =   "Big"
  56.          Height          =   345
  57.          Left            =   210
  58.          TabIndex        =   18
  59.          Top             =   540
  60.          Width           =   765
  61.       End
  62.    End
  63.    Begin MSComDlg.CommonDialog CommonDialog1 
  64.       Left            =   240
  65.       Top             =   480
  66.       _ExtentX        =   847
  67.       _ExtentY        =   847
  68.       _Version        =   393216
  69.    End
  70.    Begin VB.Frame Frame2 
  71.       Caption         =   "Downed"
  72.       Height          =   1005
  73.       Left            =   2340
  74.       TabIndex        =   14
  75.       Top             =   2610
  76.       Width           =   1035
  77.       Begin VB.OptionButton Option7 
  78.          Caption         =   "False"
  79.          Height          =   345
  80.          Left            =   210
  81.          TabIndex        =   16
  82.          Top             =   540
  83.          Width           =   765
  84.       End
  85.       Begin VB.OptionButton Option8 
  86.          Caption         =   "True"
  87.          Height          =   375
  88.          Left            =   210
  89.          TabIndex        =   15
  90.          Top             =   210
  91.          Value           =   -1  'True
  92.          Width           =   705
  93.       End
  94.    End
  95.    Begin VB.CommandButton Command1 
  96.       Caption         =   "BackColor"
  97.       Height          =   345
  98.       Left            =   150
  99.       TabIndex        =   13
  100.       Top             =   1710
  101.       Width           =   2000
  102.    End
  103.    Begin VB.CommandButton Command2 
  104.       Caption         =   "BorderColor"
  105.       Height          =   345
  106.       Left            =   150
  107.       TabIndex        =   12
  108.       Top             =   2130
  109.       Width           =   2000
  110.    End
  111.    Begin VB.PictureBox Picture1 
  112.       Height          =   345
  113.       Left            =   2220
  114.       ScaleHeight     =   285
  115.       ScaleWidth      =   345
  116.       TabIndex        =   11
  117.       Top             =   1680
  118.       Width           =   405
  119.    End
  120.    Begin VB.PictureBox Picture2 
  121.       Height          =   345
  122.       Left            =   2220
  123.       ScaleHeight     =   285
  124.       ScaleWidth      =   345
  125.       TabIndex        =   10
  126.       Top             =   2145
  127.       Width           =   405
  128.    End
  129.    Begin VB.Frame Frame1 
  130.       Caption         =   "Border"
  131.       Height          =   1005
  132.       Left            =   150
  133.       TabIndex        =   5
  134.       Top             =   2610
  135.       Width           =   2145
  136.       Begin VB.OptionButton Option1 
  137.          Caption         =   "None"
  138.          Height          =   375
  139.          Left            =   210
  140.          TabIndex        =   9
  141.          Top             =   210
  142.          Width           =   765
  143.       End
  144.       Begin VB.OptionButton Option2 
  145.          Caption         =   "Single"
  146.          Height          =   345
  147.          Left            =   210
  148.          TabIndex        =   8
  149.          Top             =   540
  150.          Width           =   765
  151.       End
  152.       Begin VB.OptionButton Option3 
  153.          Caption         =   "Lowered"
  154.          Height          =   345
  155.          Left            =   1140
  156.          TabIndex        =   7
  157.          Top             =   210
  158.          Value           =   -1  'True
  159.          Width           =   975
  160.       End
  161.       Begin VB.OptionButton Option4 
  162.          Caption         =   "Raised"
  163.          Height          =   345
  164.          Left            =   1140
  165.          TabIndex        =   6
  166.          Top             =   540
  167.          Width           =   975
  168.       End
  169.    End
  170.    Begin VB.TextBox Text4 
  171.       Height          =   345
  172.       Left            =   3570
  173.       TabIndex        =   2
  174.       Text            =   "2"
  175.       Top             =   1740
  176.       Width           =   525
  177.    End
  178.    Begin MSComctlLib.Slider Slider1 
  179.       Height          =   615
  180.       Left            =   90
  181.       TabIndex        =   0
  182.       Top             =   930
  183.       Width           =   4305
  184.       _ExtentX        =   7594
  185.       _ExtentY        =   1085
  186.       _Version        =   393216
  187.       Max             =   100
  188.       TickStyle       =   2
  189.       TickFrequency   =   2
  190.    End
  191.    Begin MSComCtl2.UpDown UpDown4 
  192.       Height          =   345
  193.       Left            =   4080
  194.       TabIndex        =   3
  195.       Top             =   1740
  196.       Width           =   240
  197.       _ExtentX        =   423
  198.       _ExtentY        =   609
  199.       _Version        =   393216
  200.       Value           =   2
  201.       BuddyControl    =   "Text4"
  202.       BuddyDispid     =   196624
  203.       OrigLeft        =   3810
  204.       OrigTop         =   1110
  205.       OrigRight       =   4050
  206.       OrigBottom      =   1515
  207.       Max             =   100
  208.       SyncBuddy       =   -1  'True
  209.       BuddyProperty   =   65547
  210.       Enabled         =   -1  'True
  211.    End
  212.    Begin VB.Label Label4 
  213.       Alignment       =   1  'Right Justify
  214.       Caption         =   "Speed"
  215.       Height          =   285
  216.       Left            =   2820
  217.       TabIndex        =   4
  218.       Top             =   1800
  219.       Width           =   615
  220.    End
  221.    Begin VB.Label Label1 
  222.       Alignment       =   2  'Center
  223.       Caption         =   "ValueChange Event"
  224.       Height          =   465
  225.       Left            =   180
  226.       TabIndex        =   1
  227.       Top             =   510
  228.       Width           =   4155
  229.    End
  230. Attribute VB_Name = "frmHorSlider"
  231. Attribute VB_GlobalNameSpace = False
  232. Attribute VB_Creatable = False
  233. Attribute VB_PredeclaredId = True
  234. Attribute VB_Exposed = False
  235. Private Sub Form_Load()
  236.     Picture1.BackColor = HorSliderVer011.BackColor
  237.     Picture2.BackColor = HorSliderVer011.BorderColor
  238. End Sub
  239. Private Sub HorSliderVer011_ValueChange(Value As Long)
  240.     Label1.Caption = "HorSlider ValueChange Event (Value = " & Value & ")"
  241. End Sub
  242. Private Sub Option1_Click()
  243.     HorSliderVer011.Border = abbNone
  244.     VertSliderVer011.Border = abbNone
  245. End Sub
  246. Private Sub Option2_Click()
  247.     HorSliderVer011.Border = abbSingle
  248.     VertSliderVer011.Border = abbSingle
  249. End Sub
  250. Private Sub Option3_Click()
  251.     HorSliderVer011.Border = abbLowered
  252.     VertSliderVer011.Border = abbLowered
  253. End Sub
  254. Private Sub Option4_Click()
  255.     HorSliderVer011.Border = abbRaised
  256.     VertSliderVer011.Border = abbRaised
  257. End Sub
  258. Private Sub Option5_Click()
  259.     HorSliderVer011.SliderSize = sssBig
  260.     VertSliderVer011.SliderSize = sssBig
  261. End Sub
  262. Private Sub Option6_Click()
  263.     HorSliderVer011.SliderSize = sssSmall
  264.     VertSliderVer011.SliderSize = sssSmall
  265. End Sub
  266. Private Sub Option7_Click()
  267.     HorSliderVer011.Downed = False
  268.     VertSliderVer011.Downed = False
  269. End Sub
  270. Private Sub Option8_Click()
  271.     HorSliderVer011.Downed = True
  272.     VertSliderVer011.Downed = True
  273. End Sub
  274. Private Sub Slider1_Change()
  275.     HorSliderVer011.Value = Slider1.Value
  276.     VertSliderVer011.Value = Slider1.Value
  277. End Sub
  278. Private Sub UpDown4_Change()
  279.     VertSliderVer011.Speed = UpDown4.Value
  280.     HorSliderVer011.Speed = UpDown4.Value
  281. End Sub
  282. Private Sub VertSliderVer011_ValueChange(Value As Long)
  283.     Label1.Caption = "VertSlider ValueChange Event (Value = " & Value & ")"
  284. End Sub
  285. Private Sub Command1_Click()
  286.     Dim OldCol, NewCol As OLE_COLOR
  287.     OldCol = HorSliderVer011.BackColor
  288.     CommonDialog1.Color = OldCol
  289.     CommonDialog1.DialogTitle = "Choice Color"
  290.     CommonDialog1.Flags = cdlCCRGBInit Or cdlCCFullOpen
  291.     CommonDialog1.ShowColor
  292.     NewCol = CommonDialog1.Color
  293.     HorSliderVer011.BackColor = NewCol
  294.     VertSliderVer011.BackColor = NewCol
  295.     Picture1.BackColor = HorSliderVer011.BackColor
  296. End Sub
  297. Private Sub Command2_Click()
  298.     Dim OldCol, NewCol As OLE_COLOR
  299.     OldCol = HorSliderVer011.BorderColor
  300.     CommonDialog1.Color = OldCol
  301.     CommonDialog1.DialogTitle = "Choice Color"
  302.     CommonDialog1.Flags = cdlCCRGBInit Or cdlCCFullOpen
  303.     CommonDialog1.ShowColor
  304.     NewCol = CommonDialog1.Color
  305.     HorSliderVer011.BorderColor = NewCol
  306.     VertSliderVer011.BorderColor = NewCol
  307.     Picture2.BackColor = HorSliderVer011.BorderColor
  308. End Sub
  309.