home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 5 Developer's Kit / vb5 dev kit.iso / dev / ct_ocx / ct_dialg.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-12-31  |  28.9 KB  |  830 lines
  1. VERSION 4.00
  2. Begin VB.Form w_dialogue_demo 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Common Dialogue Controls Demo"
  5.    ClientHeight    =   4965
  6.    ClientLeft      =   1230
  7.    ClientTop       =   2235
  8.    ClientWidth     =   7605
  9.    Height          =   5370
  10.    Icon            =   "ct_dialg.frx":0000
  11.    Left            =   1170
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MDIChild        =   -1  'True
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   4965
  17.    ScaleWidth      =   7605
  18.    ShowInTaskbar   =   0   'False
  19.    Top             =   1890
  20.    Width           =   7725
  21.    Begin VB.CommandButton Command2 
  22.       Caption         =   "Dialogue"
  23.       BeginProperty Font 
  24.          name            =   "MS Sans Serif"
  25.          charset         =   0
  26.          weight          =   700
  27.          size            =   8.25
  28.          underline       =   0   'False
  29.          italic          =   0   'False
  30.          strikethrough   =   0   'False
  31.       EndProperty
  32.       Height          =   555
  33.       Left            =   6300
  34.       TabIndex        =   2
  35.       Top             =   3360
  36.       Width           =   1155
  37.    End
  38.    Begin VB.CommandButton Command1 
  39.       Caption         =   "E&xit"
  40.       BeginProperty Font 
  41.          name            =   "MS Sans Serif"
  42.          charset         =   0
  43.          weight          =   700
  44.          size            =   8.25
  45.          underline       =   0   'False
  46.          italic          =   0   'False
  47.          strikethrough   =   0   'False
  48.       EndProperty
  49.       Height          =   555
  50.       Left            =   6300
  51.       TabIndex        =   1
  52.       Top             =   4140
  53.       Width           =   1155
  54.    End
  55.    Begin FoldLib.ctFold ctFold 
  56.       Height          =   3735
  57.       Left            =   360
  58.       TabIndex        =   0
  59.       Top             =   960
  60.       Width           =   5715
  61.       _version        =   65536
  62.       _extentx        =   10081
  63.       _extenty        =   6588
  64.       _stockprops     =   70
  65.       caption         =   "Color;Font;File"
  66.       BeginProperty selectedfont {FB8F0823-0164-101B-84ED-08002B2EC713} 
  67.          name            =   "MS Sans Serif"
  68.          charset         =   1
  69.          weight          =   700
  70.          size            =   8.25
  71.          underline       =   0   'False
  72.          italic          =   0   'False
  73.          strikethrough   =   0   'False
  74.       EndProperty
  75.       backcolor       =   12632256
  76.       picsequence     =   "1,2,3"
  77.       backsequence    =   ""
  78.       textsequence    =   ""
  79.       disablesequence =   ""
  80.       picture         =   "ct_dialg.frx":030A
  81.       picposition     =   3
  82.       piccols         =   3
  83.       tabheight       =   40
  84.       amount          =   3
  85.       Begin FrameLibCtl.ctFrame ctFrame3 
  86.          Height          =   2715
  87.          Left            =   240
  88.          TabIndex        =   13
  89.          Top             =   840
  90.          Visible         =   0   'False
  91.          Width           =   5235
  92.          _version        =   65536
  93.          _extentx        =   9234
  94.          _extenty        =   4789
  95.          _stockprops     =   32
  96.          outerborder     =   5
  97.          backcolor       =   12632256
  98.          bordercolor     =   8421504
  99.          Begin VB.TextBox file_yText 
  100.             Height          =   315
  101.             Left            =   1080
  102.             TabIndex        =   39
  103.             Text            =   "-1"
  104.             Top             =   2280
  105.             Width           =   555
  106.          End
  107.          Begin VB.TextBox file_xText 
  108.             Height          =   315
  109.             Left            =   1080
  110.             TabIndex        =   38
  111.             Text            =   "-1"
  112.             Top             =   1920
  113.             Width           =   555
  114.          End
  115.          Begin VB.TextBox sle_title 
  116.             Height          =   315
  117.             Left            =   2460
  118.             TabIndex        =   37
  119.             Top             =   960
  120.             Width           =   2595
  121.          End
  122.          Begin VB.CheckBox chk_FileHelp 
  123.             Caption         =   "Show Help"
  124.             BeginProperty Font 
  125.                name            =   "MS Sans Serif"
  126.                charset         =   0
  127.                weight          =   700
  128.                size            =   8.25
  129.                underline       =   0   'False
  130.                italic          =   0   'False
  131.                strikethrough   =   0   'False
  132.             EndProperty
  133.             Height          =   255
  134.             Left            =   240
  135.             TabIndex        =   33
  136.             Top             =   1560
  137.             Width           =   1635
  138.          End
  139.          Begin VB.Frame Frame1 
  140.             Caption         =   "File Dialogue"
  141.             BeginProperty Font 
  142.                name            =   "MS Sans Serif"
  143.                charset         =   0
  144.                weight          =   700
  145.                size            =   8.25
  146.                underline       =   0   'False
  147.                italic          =   0   'False
  148.                strikethrough   =   0   'False
  149.             EndProperty
  150.             Height          =   675
  151.             Left            =   240
  152.             TabIndex        =   15
  153.             Top             =   720
  154.             Width           =   1935
  155.             Begin VB.OptionButton rad_save 
  156.                Caption         =   "Save"
  157.                Height          =   315
  158.                Left            =   1020
  159.                TabIndex        =   17
  160.                Top             =   240
  161.                Width           =   795
  162.             End
  163.             Begin VB.OptionButton rad_open 
  164.                Caption         =   "Open"
  165.                Height          =   315
  166.                Left            =   120
  167.                TabIndex        =   16
  168.                Top             =   240
  169.                Value           =   -1  'True
  170.                Width           =   795
  171.             End
  172.          End
  173.          Begin VB.Label sle_directory 
  174.             BorderStyle     =   1  'Fixed Single
  175.             Height          =   315
  176.             Left            =   2460
  177.             TabIndex        =   43
  178.             Top             =   2280
  179.             Width           =   2595
  180.          End
  181.          Begin VB.Label sle_file 
  182.             BorderStyle     =   1  'Fixed Single
  183.             Height          =   315
  184.             Left            =   2460
  185.             TabIndex        =   42
  186.             Top             =   1620
  187.             Width           =   2595
  188.          End
  189.          Begin VB.Label Label16 
  190.             Caption         =   "Directory"
  191.             BeginProperty Font 
  192.                name            =   "MS Sans Serif"
  193.                charset         =   0
  194.                weight          =   700
  195.                size            =   8.25
  196.                underline       =   0   'False
  197.                italic          =   0   'False
  198.                strikethrough   =   0   'False
  199.             EndProperty
  200.             Height          =   255
  201.             Left            =   2460
  202.             TabIndex        =   41
  203.             Top             =   2040
  204.             Width           =   2415
  205.          End
  206.          Begin VB.Label Label15 
  207.             Caption         =   "File Title"
  208.             BeginProperty Font 
  209.                name            =   "MS Sans Serif"
  210.                charset         =   0
  211.                weight          =   700
  212.                size            =   8.25
  213.                underline       =   0   'False
  214.                italic          =   0   'False
  215.                strikethrough   =   0   'False
  216.             EndProperty
  217.             Height          =   255
  218.             Left            =   2460
  219.             TabIndex        =   40
  220.             Top             =   1380
  221.             Width           =   2115
  222.          End
  223.          Begin FileLib.ctFile ctFile 
  224.             Left            =   4680
  225.             Top             =   180
  226.             _version        =   65536
  227.             _extentx        =   740
  228.             _extenty        =   740
  229.             _stockprops     =   64
  230.             action          =   0
  231.          End
  232.          Begin VB.Label Label14 
  233.             Caption         =   "Dialogue Title"
  234.             BeginProperty Font 
  235.                name            =   "MS Sans Serif"
  236.                charset         =   0
  237.                weight          =   700
  238.                size            =   8.25
  239.                underline       =   0   'False
  240.                italic          =   0   'False
  241.                strikethrough   =   0   'False
  242.             EndProperty
  243.             Height          =   255
  244.             Left            =   2460
  245.             TabIndex        =   36
  246.             Top             =   720
  247.             Width           =   2235
  248.          End
  249.          Begin VB.Label Label13 
  250.             Caption         =   "Y Posn :"
  251.             BeginProperty Font 
  252.                name            =   "MS Sans Serif"
  253.                charset         =   0
  254.                weight          =   700
  255.                size            =   8.25
  256.                underline       =   0   'False
  257.                italic          =   0   'False
  258.                strikethrough   =   0   'False
  259.             EndProperty
  260.             Height          =   255
  261.             Left            =   240
  262.             TabIndex        =   35
  263.             Top             =   2280
  264.             Width           =   855
  265.          End
  266.          Begin VB.Label Label12 
  267.             Caption         =   "X Posn :"
  268.             BeginProperty Font 
  269.                name            =   "MS Sans Serif"
  270.                charset         =   0
  271.                weight          =   700
  272.                size            =   8.25
  273.                underline       =   0   'False
  274.                italic          =   0   'False
  275.                strikethrough   =   0   'False
  276.             EndProperty
  277.             Height          =   255
  278.             Left            =   240
  279.             TabIndex        =   34
  280.             Top             =   1920
  281.             Width           =   855
  282.          End
  283.          Begin VB.Label Label6 
  284.             Caption         =   "ctFile : File Dialogue"
  285.             BeginProperty Font 
  286.                name            =   "Times New Roman"
  287.                charset         =   0
  288.                weight          =   700
  289.                size            =   18
  290.                underline       =   0   'False
  291.                italic          =   0   'False
  292.                strikethrough   =   0   'False
  293.             EndProperty
  294.             ForeColor       =   &H00800000&
  295.             Height          =   435
  296.             Left            =   240
  297.             TabIndex        =   14
  298.             Top             =   240
  299.             Width           =   3735
  300.          End
  301.       End
  302.       Begin FrameLibCtl.ctFrame ctFrame1 
  303.          Height          =   2715
  304.          Left            =   240
  305.          TabIndex        =   4
  306.          Top             =   840
  307.          Width           =   5235
  308.          _version        =   65536
  309.          _extentx        =   9234
  310.          _extenty        =   4789
  311.          _stockprops     =   32
  312.          outerborder     =   5
  313.          backcolor       =   12632256
  314.          bordercolor     =   8421504
  315.          Begin VB.TextBox color_yText 
  316.             Alignment       =   2  'Center
  317.             Height          =   315
  318.             Left            =   1080
  319.             TabIndex        =   12
  320.             Text            =   "-1"
  321.             Top             =   2280
  322.             Width           =   555
  323.          End
  324.          Begin VB.TextBox color_xText 
  325.             Alignment       =   2  'Center
  326.             Height          =   315
  327.             Left            =   1080
  328.             TabIndex        =   11
  329.             Text            =   "-1"
  330.             Top             =   1860
  331.             Width           =   555
  332.          End
  333.          Begin VB.CheckBox chk_help 
  334.             Caption         =   "Show Help"
  335.             BeginProperty Font 
  336.                name            =   "MS Sans Serif"
  337.                charset         =   0
  338.                weight          =   700
  339.                size            =   8.25
  340.                underline       =   0   'False
  341.                italic          =   0   'False
  342.                strikethrough   =   0   'False
  343.             EndProperty
  344.             Height          =   315
  345.             Left            =   240
  346.             TabIndex        =   8
  347.             Top             =   1380
  348.             Width           =   1635
  349.          End
  350.          Begin VB.ComboBox cmb_color 
  351.             Height          =   315
  352.             Left            =   240
  353.             Style           =   2  'Dropdown List
  354.             TabIndex        =   6
  355.             Top             =   840
  356.             Width           =   2295
  357.          End
  358.          Begin VB.Label Label5 
  359.             Caption         =   "Y Posn :"
  360.             BeginProperty Font 
  361.                name            =   "MS Sans Serif"
  362.                charset         =   0
  363.                weight          =   700
  364.                size            =   8.25
  365.                underline       =   0   'False
  366.                italic          =   0   'False
  367.                strikethrough   =   0   'False
  368.             EndProperty
  369.             Height          =   315
  370.             Left            =   240
  371.             TabIndex        =   10
  372.             Top             =   2220
  373.             Width           =   795
  374.          End
  375.          Begin VB.Label Label4 
  376.             Caption         =   "X Posn :"
  377.             BeginProperty Font 
  378.                name            =   "MS Sans Serif"
  379.                charset         =   0
  380.                weight          =   700
  381.                size            =   8.25
  382.                underline       =   0   'False
  383.                italic          =   0   'False
  384.                strikethrough   =   0   'False
  385.             EndProperty
  386.             Height          =   315
  387.             Left            =   240
  388.             TabIndex        =   9
  389.             Top             =   1860
  390.             Width           =   795
  391.          End
  392.          Begin VB.Label Label3 
  393.             Alignment       =   2  'Center
  394.             Caption         =   "Current Color"
  395.             BeginProperty Font 
  396.                name            =   "MS Sans Serif"
  397.                charset         =   0
  398.                weight          =   700
  399.                size            =   9.75
  400.                underline       =   0   'False
  401.                italic          =   0   'False
  402.                strikethrough   =   0   'False
  403.             EndProperty
  404.             Height          =   555
  405.             Left            =   3540
  406.             TabIndex        =   7
  407.             Top             =   1920
  408.             Width           =   975
  409.          End
  410.          Begin ColorLib.ctColor ctColor1 
  411.             Left            =   4620
  412.             Top             =   240
  413.             _version        =   65536
  414.             _extentx        =   740
  415.             _extenty        =   740
  416.             _stockprops     =   64
  417.             action          =   0
  418.          End
  419.          Begin VB.Shape r_color 
  420.             FillColor       =   &H00FF0000&
  421.             FillStyle       =   0  'Solid
  422.             Height          =   855
  423.             Left            =   3540
  424.             Top             =   1020
  425.             Width           =   975
  426.          End
  427.          Begin VB.Label Label2 
  428.             Caption         =   "ctColor : Color Dialogue"
  429.             BeginProperty Font 
  430.                name            =   "Times New Roman"
  431.                charset         =   0
  432.                weight          =   700
  433.                size            =   18
  434.                underline       =   0   'False
  435.                italic          =   0   'False
  436.                strikethrough   =   0   'False
  437.             EndProperty
  438.             ForeColor       =   &H00800000&
  439.             Height          =   435
  440.             Left            =   180
  441.             TabIndex        =   5
  442.             Top             =   240
  443.             Width           =   3975
  444.          End
  445.       End
  446.       Begin FrameLibCtl.ctFrame ctFrame2 
  447.          Height          =   2715
  448.          Left            =   240
  449.          TabIndex        =   18
  450.          Top             =   840
  451.          Visible         =   0   'False
  452.          Width           =   5235
  453.          _version        =   65536
  454.          _extentx        =   9234
  455.          _extenty        =   4789
  456.          _stockprops     =   32
  457.          outerborder     =   5
  458.          backcolor       =   12632256
  459.          bordercolor     =   8421504
  460.          Begin VB.CheckBox chk_underline 
  461.             Caption         =   "Font Underline"
  462.             BeginProperty Font 
  463.                name            =   "MS Sans Serif"
  464.                charset         =   0
  465.                weight          =   700
  466.                size            =   8.25
  467.                underline       =   0   'False
  468.                italic          =   0   'False
  469.                strikethrough   =   0   'False
  470.             EndProperty
  471.             Height          =   255
  472.             Left            =   3060
  473.             TabIndex        =   32
  474.             Top             =   2160
  475.             Width           =   1755
  476.          End
  477.          Begin VB.CheckBox chk_strike 
  478.             Caption         =   "Font StrikeOut"
  479.             BeginProperty Font 
  480.                name            =   "MS Sans Serif"
  481.                charset         =   0
  482.                weight          =   700
  483.                size            =   8.25
  484.                underline       =   0   'False
  485.                italic          =   0   'False
  486.                strikethrough   =   0   'False
  487.             EndProperty
  488.             Height          =   255
  489.             Left            =   3060
  490.             TabIndex        =   31
  491.             Top             =   1860
  492.             Width           =   1875
  493.          End
  494.          Begin VB.CheckBox chk_italic 
  495.             Caption         =   "Font Italic"
  496.             BeginProperty Font 
  497.                name            =   "MS Sans Serif"
  498.                charset         =   0
  499.                weight          =   700
  500.                size            =   8.25
  501.                underline       =   0   'False
  502.                italic          =   0   'False
  503.                strikethrough   =   0   'False
  504.             EndProperty
  505.             Height          =   255
  506.             Left            =   3060
  507.             TabIndex        =   30
  508.             Top             =   1560
  509.             Width           =   1755
  510.          End
  511.          Begin VB.CheckBox chk_bold 
  512.             Caption         =   "Font Bold"
  513.             BeginProperty Font 
  514.                name            =   "MS Sans Serif"
  515.                charset         =   0
  516.                weight          =   700
  517.                size            =   8.25
  518.                underline       =   0   'False
  519.                italic          =   0   'False
  520.                strikethrough   =   0   'False
  521.             EndProperty
  522.             Height          =   255
  523.             Left            =   3060
  524.             TabIndex        =   29
  525.             Top             =   1260
  526.             Value           =   1  'Checked
  527.             Width           =   1575
  528.          End
  529.          Begin VB.TextBox font_yText 
  530.             Height          =   315
  531.             Left            =   1080
  532.             TabIndex        =   28
  533.             Text            =   "-1"
  534.             Top             =   2280
  535.             Width           =   555
  536.          End
  537.          Begin VB.TextBox font_xText 
  538.             Height          =   315
  539.             Left            =   1080
  540.             TabIndex        =   27
  541.             Text            =   "-1"
  542.             Top             =   1860
  543.             Width           =   555
  544.          End
  545.          Begin VB.CheckBox chk_FontHelp 
  546.             Caption         =   "Show Help"
  547.             BeginProperty Font 
  548.                name            =   "MS Sans Serif"
  549.                charset         =   0
  550.                weight          =   700
  551.                size            =   8.25
  552.                underline       =   0   'False
  553.                italic          =   0   'False
  554.                strikethrough   =   0   'False
  555.             EndProperty
  556.             Height          =   315
  557.             Left            =   180
  558.             TabIndex        =   24
  559.             Top             =   1500
  560.             Width           =   1275
  561.          End
  562.          Begin VB.TextBox lbl_FontSize 
  563.             Height          =   315
  564.             Left            =   1320
  565.             TabIndex        =   23
  566.             Text            =   "10"
  567.             Top             =   1140
  568.             Width           =   495
  569.          End
  570.          Begin VB.TextBox lbl_FontName 
  571.             Height          =   315
  572.             Left            =   1320
  573.             TabIndex        =   22
  574.             Text            =   "System"
  575.             Top             =   720
  576.             Width           =   3015
  577.          End
  578.          Begin FontLib.ctFont ctFont 
  579.             Left            =   4620
  580.             Top             =   180
  581.             _version        =   65536
  582.             _extentx        =   740
  583.             _extenty        =   740
  584.             _stockprops     =   64
  585.             action          =   0
  586.          End
  587.          Begin VB.Label Label11 
  588.             Caption         =   "Y Posn :"
  589.             BeginProperty Font 
  590.                name            =   "MS Sans Serif"
  591.                charset         =   0
  592.                weight          =   700
  593.                size            =   8.25
  594.                underline       =   0   'False
  595.                italic          =   0   'False
  596.                strikethrough   =   0   'False
  597.             EndProperty
  598.             Height          =   315
  599.             Left            =   180
  600.             TabIndex        =   26
  601.             Top             =   2280
  602.             Width           =   795
  603.          End
  604.          Begin VB.Label Label10 
  605.             Caption         =   "X Posn :"
  606.             BeginProperty Font 
  607.                name            =   "MS Sans Serif"
  608.                charset         =   0
  609.                weight          =   700
  610.                size            =   8.25
  611.                underline       =   0   'False
  612.                italic          =   0   'False
  613.                strikethrough   =   0   'False
  614.             EndProperty
  615.             Height          =   255
  616.             Left            =   180
  617.             TabIndex        =   25
  618.             Top             =   1920
  619.             Width           =   795
  620.          End
  621.          Begin VB.Label Label9 
  622.             Caption         =   "Font Size :"
  623.             BeginProperty Font 
  624.                name            =   "MS Sans Serif"
  625.                charset         =   0
  626.                weight          =   700
  627.                size            =   8.25
  628.                underline       =   0   'False
  629.                italic          =   0   'False
  630.                strikethrough   =   0   'False
  631.             EndProperty
  632.             Height          =   255
  633.             Left            =   180
  634.             TabIndex        =   21
  635.             Top             =   1140
  636.             Width           =   1095
  637.          End
  638.          Begin VB.Label Label8 
  639.             Caption         =   "Font Name :"
  640.             BeginProperty Font 
  641.                name            =   "MS Sans Serif"
  642.                charset         =   0
  643.                weight          =   700
  644.                size            =   8.25
  645.                underline       =   0   'False
  646.                italic          =   0   'False
  647.                strikethrough   =   0   'False
  648.             EndProperty
  649.             Height          =   255
  650.             Left            =   180
  651.             TabIndex        =   20
  652.             Top             =   720
  653.             Width           =   1095
  654.          End
  655.          Begin VB.Label Label7 
  656.             Caption         =   "ctFont : Font Dialogue"
  657.             BeginProperty Font 
  658.                name            =   "Times New Roman"
  659.                charset         =   0
  660.                weight          =   700
  661.                size            =   18
  662.                underline       =   0   'False
  663.                italic          =   0   'False
  664.                strikethrough   =   0   'False
  665.             EndProperty
  666.             ForeColor       =   &H00800000&
  667.             Height          =   495
  668.             Left            =   240
  669.             TabIndex        =   19
  670.             Top             =   240
  671.             Width           =   3615
  672.          End
  673.       End
  674.    End
  675.    Begin VB.Label Label1 
  676.       Alignment       =   2  'Center
  677.       Caption         =   $"ct_dialg.frx":1EEC
  678.       BeginProperty Font 
  679.          name            =   "MS Sans Serif"
  680.          charset         =   0
  681.          weight          =   700
  682.          size            =   8.25
  683.          underline       =   0   'False
  684.          italic          =   0   'False
  685.          strikethrough   =   0   'False
  686.       EndProperty
  687.       ForeColor       =   &H00800000&
  688.       Height          =   555
  689.       Left            =   180
  690.       TabIndex        =   3
  691.       Top             =   180
  692.       Width           =   7095
  693.    End
  694. Attribute VB_Name = "w_dialogue_demo"
  695. Attribute VB_Creatable = False
  696. Attribute VB_Exposed = False
  697. Private Sub Command1_Click()
  698. Unload w_dialogue_demo
  699. End Sub
  700. Private Sub Command2_Click()
  701.    Dim nTemp As Integer
  702.    If ctFold.SelectedTab = 1 Then
  703.       ctColor1.Color = r_color.FillColor
  704.       ctColor1.ShowHelp = chk_help.Value
  705.       ctColor1.Flags = cmb_color.ListIndex
  706.       If color_xText = "-1" Then
  707.          ctColor1.DialogueLeft = -1
  708.       Else
  709.          ctColor1.DialogueLeft = Int(color_xText)
  710.       End If
  711.       If color_yText = "-1" Then
  712.          ctColor1.DialogueTop = -1
  713.       Else
  714.          ctColor1.DialogueTop = Int(color_yText)
  715.       End If
  716.       ctColor1.Show
  717.    ElseIf ctFold.SelectedTab = 2 Then
  718.       ctFont.TextColor = r_color.FillColor
  719.       ctFont.ShowHelp = chk_FontHelp.Value
  720.       ctFont.FontBold = chk_bold.Value
  721.       ctFont.FontItalic = chk_italic.Value
  722.       ctFont.FontStrikeOut = chk_strike.Value
  723.       ctFont.FontUnderline = chk_underline.Value
  724.       ctFont.FontName = lbl_FontName.Text
  725.       nTemp = Int(lbl_FontSize.Text)
  726.       
  727.       If nTemp < 6 Then
  728.          ctFont.FontSize = 10
  729.       Else
  730.          ctFont.FontSize = nTemp
  731.       End If
  732.       If font_xText = "-1" Then
  733.          ctFont.DialogueLeft = -1
  734.       Else
  735.          ctFont.DialogueLeft = Int(font_xText)
  736.       End If
  737.       If font_yText = "-1" Then
  738.          ctFont.DialogueTop = -1
  739.       Else
  740.          ctFont.DialogueTop = Int(font_yText)
  741.       End If
  742.       ctFont.Show
  743.       
  744.    ElseIf ctFold.SelectedTab = 3 Then
  745.       ctFile.ShowHelp = chk_FileHelp.Value
  746.       ctFile.DlgTitle = sle_title.Text
  747.       If file_xText = "-1" Then
  748.          ctFile.DialogueLeft = -1
  749.       Else
  750.          ctFile.DialogueLeft = Int(file_xText)
  751.       End If
  752.       If file_yText = "-1" Then
  753.          ctFile.DialogueTop = -1
  754.       Else
  755.          ctFile.DialogueTop = Int(file_yText)
  756.       End If
  757.       If rad_open.Value = True Then
  758.          'ctFile.ShowOpen
  759.       Else
  760.          'ctFile.ShowSave
  761.       End If
  762.    End If
  763. End Sub
  764. Private Sub ctColor1_Help()
  765.    a = MsgBox("I have no help at this time", vbExclamation, "ctColor Help")
  766. End Sub
  767. Private Sub ctColor1_OK()
  768.    r_color.FillColor = ctColor1.Color
  769. End Sub
  770. Private Sub ctFile_Help()
  771.    a = MsgBox("I have no help at this time", vbExclamation, "ctFile Help")
  772. End Sub
  773. Private Sub ctFile_OK()
  774.    sle_directory.Caption = ctFile.Directory
  775.    sle_file.Caption = ctFile.FileTitle
  776. End Sub
  777. Private Sub ctFold_TabChange(nNewTab As Integer, nOldTab As Integer)
  778.    If nNewTab = 1 Then
  779.       ctFrame1.Visible = True
  780.       ctFrame2.Visible = False
  781.       ctFrame3.Visible = False
  782.    ElseIf nNewTab = 2 Then
  783.       ctFrame2.Visible = True
  784.       ctFrame1.Visible = False
  785.       ctFrame3.Visible = False
  786.    ElseIf nNewTab = 3 Then
  787.       ctFrame3.Visible = True
  788.       ctFrame1.Visible = False
  789.       ctFrame2.Visible = False
  790.    End If
  791. End Sub
  792. Private Sub ctFont_Help()
  793.    a = MsgBox("I have no help at this time", vbExclamation, "ctFont Help")
  794. End Sub
  795. Private Sub ctFont_OK()
  796.     r_color.FillColor = ctFont.TextColor
  797.     If (ctFont.FontBold = True) Then
  798.         chk_bold.Value = 1
  799.     Else
  800.         chk_bold.Value = 0
  801.     End If
  802.     If (ctFont.FontItalic = True) Then
  803.         chk_italic.Value = 1
  804.     Else
  805.         chk_italic.Value = 0
  806.     End If
  807.     If (ctFont.FontStrikeOut = True) Then
  808.         chk_strike.Value = 1
  809.     Else
  810.         chk_strike.Value = 0
  811.     End If
  812.     If (ctFont.FontUnderline = True) Then
  813.         chk_underline.Value = 1
  814.     Else
  815.         chk_underline.Value = 0
  816.     End If
  817.     lbl_FontName.Text = ctFont.FontName
  818.     lbl_FontSize.Text = Str$(ctFont.FontSize)
  819. End Sub
  820. Private Sub Form_Load()
  821.    ' Center the window on the screen
  822.    Move (Screen.Width - Width) / 2, (Screen.Height - Height) * 0.25
  823.    cmb_color.AddItem "0 - Regular"
  824.    cmb_color.AddItem "1 - Prevent Full Open"
  825.    cmb_color.AddItem "2 - Full Open"
  826.    cmb_color.ListIndex = 0
  827. End Sub
  828. Private Sub Text1_Change()
  829. End Sub
  830.