home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 5 / MasteringVisualBasic5.iso / olympus / ik32_15t / vb4.shr / Draw1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-07-23  |  36.1 KB  |  1,183 lines

  1. VERSION 4.00
  2. Begin VB.Form Draw 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Draw"
  5.    ClientHeight    =   6135
  6.    ClientLeft      =   435
  7.    ClientTop       =   2055
  8.    ClientWidth     =   7935
  9.    ClipControls    =   0   'False
  10.    Height          =   6825
  11.    Left            =   375
  12.    LinkTopic       =   "Form1"
  13.    LockControls    =   -1  'True
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   409
  17.    ScaleMode       =   3  'Pixel
  18.    ScaleWidth      =   529
  19.    Top             =   1425
  20.    Width           =   8055
  21.    Begin VB.Frame Frame4 
  22.       Caption         =   "Color Properties"
  23.       Height          =   5295
  24.       Left            =   5760
  25.       TabIndex        =   26
  26.       Top             =   0
  27.       Width           =   2055
  28.       Begin VB.PictureBox pictFillC 
  29.          Height          =   975
  30.          Left            =   1320
  31.          ScaleHeight     =   915
  32.          ScaleWidth      =   555
  33.          TabIndex        =   73
  34.          Top             =   4080
  35.          Width           =   615
  36.       End
  37.       Begin VB.PictureBox pictBC 
  38.          Height          =   975
  39.          Left            =   1320
  40.          ScaleHeight     =   915
  41.          ScaleWidth      =   555
  42.          TabIndex        =   72
  43.          Top             =   2400
  44.          Width           =   615
  45.       End
  46.       Begin VB.PictureBox pictFC 
  47.          Height          =   975
  48.          Left            =   1320
  49.          ScaleHeight     =   915
  50.          ScaleWidth      =   555
  51.          TabIndex        =   71
  52.          Top             =   720
  53.          Width           =   615
  54.       End
  55.       Begin VB.TextBox txtFillCBlue 
  56.          Height          =   285
  57.          Left            =   120
  58.          TabIndex        =   44
  59.          Text            =   "txtFillCBlue"
  60.          Top             =   4800
  61.          Width           =   495
  62.       End
  63.       Begin VB.TextBox txtFillCGreen 
  64.          Height          =   285
  65.          Left            =   120
  66.          TabIndex        =   43
  67.          Text            =   "txtFillCGreen"
  68.          Top             =   4440
  69.          Width           =   495
  70.       End
  71.       Begin VB.TextBox txtFillCRed 
  72.          Height          =   285
  73.          Left            =   120
  74.          TabIndex        =   42
  75.          Text            =   "txtFillCRed"
  76.          Top             =   4080
  77.          Width           =   495
  78.       End
  79.       Begin VB.CommandButton cmdFillC 
  80.          Caption         =   "Set F&ill Color"
  81.          Height          =   375
  82.          Left            =   120
  83.          TabIndex        =   41
  84.          Top             =   3600
  85.          Width           =   1815
  86.       End
  87.       Begin VB.TextBox txtBCBlue 
  88.          Height          =   285
  89.          Left            =   120
  90.          TabIndex        =   37
  91.          Text            =   "txtBCBlue"
  92.          Top             =   3120
  93.          Width           =   495
  94.       End
  95.       Begin VB.TextBox txtBCGreen 
  96.          Height          =   285
  97.          Left            =   120
  98.          TabIndex        =   36
  99.          Text            =   "txtBCGreen"
  100.          Top             =   2760
  101.          Width           =   495
  102.       End
  103.       Begin VB.TextBox txtBCRed 
  104.          Height          =   285
  105.          Left            =   120
  106.          TabIndex        =   35
  107.          Text            =   "txtBCRed"
  108.          Top             =   2400
  109.          Width           =   495
  110.       End
  111.       Begin VB.CommandButton cmdBC 
  112.          Caption         =   "Set &Background Color"
  113.          Height          =   375
  114.          Left            =   120
  115.          TabIndex        =   31
  116.          Top             =   1920
  117.          Width           =   1815
  118.       End
  119.       Begin VB.TextBox txtFCGreen 
  120.          Height          =   285
  121.          Left            =   120
  122.          TabIndex        =   30
  123.          Text            =   "txtFCGreen"
  124.          Top             =   1080
  125.          Width           =   495
  126.       End
  127.       Begin VB.TextBox txtFCBlue 
  128.          Height          =   285
  129.          Left            =   120
  130.          TabIndex        =   29
  131.          Text            =   "txtFCBlue"
  132.          Top             =   1440
  133.          Width           =   495
  134.       End
  135.       Begin VB.TextBox txtFCRed 
  136.          Height          =   285
  137.          Left            =   120
  138.          TabIndex        =   28
  139.          Text            =   "txtFCRed"
  140.          Top             =   720
  141.          Width           =   495
  142.       End
  143.       Begin VB.CommandButton cmdFC 
  144.          Caption         =   "Set F&oreground Color"
  145.          Height          =   375
  146.          Left            =   120
  147.          TabIndex        =   27
  148.          Top             =   240
  149.          Width           =   1815
  150.       End
  151.       Begin VB.Label Label19 
  152.          Caption         =   "Green"
  153.          Height          =   255
  154.          Left            =   720
  155.          TabIndex        =   47
  156.          Top             =   4440
  157.          Width           =   495
  158.       End
  159.       Begin VB.Label Label18 
  160.          Caption         =   "Blue"
  161.          Height          =   255
  162.          Left            =   720
  163.          TabIndex        =   46
  164.          Top             =   4800
  165.          Width           =   495
  166.       End
  167.       Begin VB.Label Label17 
  168.          Caption         =   "Red"
  169.          Height          =   255
  170.          Left            =   720
  171.          TabIndex        =   45
  172.          Top             =   4080
  173.          Width           =   615
  174.       End
  175.       Begin VB.Label Label11 
  176.          Caption         =   "Blue"
  177.          Height          =   255
  178.          Left            =   720
  179.          TabIndex        =   40
  180.          Top             =   3120
  181.          Width           =   615
  182.       End
  183.       Begin VB.Label Label10 
  184.          Caption         =   "Green"
  185.          Height          =   255
  186.          Left            =   720
  187.          TabIndex        =   39
  188.          Top             =   2760
  189.          Width           =   495
  190.       End
  191.       Begin VB.Label Label9 
  192.          Caption         =   "Red"
  193.          Height          =   255
  194.          Left            =   720
  195.          TabIndex        =   38
  196.          Top             =   2400
  197.          Width           =   615
  198.       End
  199.       Begin VB.Label Label8 
  200.          Caption         =   "Blue"
  201.          Height          =   255
  202.          Left            =   720
  203.          TabIndex        =   34
  204.          Top             =   1440
  205.          Width           =   615
  206.       End
  207.       Begin VB.Label Label7 
  208.          Caption         =   "Green"
  209.          Height          =   255
  210.          Left            =   720
  211.          TabIndex        =   33
  212.          Top             =   1080
  213.          Width           =   495
  214.       End
  215.       Begin VB.Label Label6 
  216.          Caption         =   "Red"
  217.          Height          =   255
  218.          Left            =   720
  219.          TabIndex        =   32
  220.          Top             =   720
  221.          Width           =   735
  222.       End
  223.    End
  224.    Begin VB.Frame Frame1 
  225.       Caption         =   "Select Properties"
  226.       ClipControls    =   0   'False
  227.       Height          =   615
  228.       Left            =   3000
  229.       TabIndex        =   0
  230.       Top             =   5400
  231.       Width           =   4815
  232.       Begin VB.TextBox txtSH 
  233.          Height          =   285
  234.          Left            =   4080
  235.          TabIndex        =   6
  236.          Text            =   "txtSH"
  237.          Top             =   240
  238.          Width           =   615
  239.       End
  240.       Begin VB.TextBox txtSW 
  241.          Height          =   285
  242.          Left            =   2880
  243.          TabIndex        =   5
  244.          Text            =   "txtSW"
  245.          Top             =   240
  246.          Width           =   615
  247.       End
  248.       Begin VB.TextBox txtST 
  249.          Height          =   285
  250.          Left            =   480
  251.          TabIndex        =   3
  252.          Text            =   "txtST"
  253.          Top             =   240
  254.          Width           =   615
  255.       End
  256.       Begin VB.TextBox txtSL 
  257.          Height          =   285
  258.          Left            =   1680
  259.          TabIndex        =   1
  260.          Text            =   "txtSL"
  261.          Top             =   240
  262.          Width           =   615
  263.       End
  264.       Begin VB.Label Label3 
  265.          Caption         =   "Height"
  266.          Height          =   255
  267.          Left            =   3600
  268.          TabIndex        =   8
  269.          Top             =   240
  270.          Width           =   975
  271.       End
  272.       Begin VB.Label Label2 
  273.          Caption         =   "Width"
  274.          Height          =   255
  275.          Left            =   2400
  276.          TabIndex        =   7
  277.          Top             =   240
  278.          Width           =   975
  279.       End
  280.       Begin VB.Label Label1 
  281.          Caption         =   "Top"
  282.          Height          =   255
  283.          Left            =   120
  284.          TabIndex        =   4
  285.          Top             =   240
  286.          Width           =   975
  287.       End
  288.       Begin VB.Label Label5 
  289.          Caption         =   "Left"
  290.          Height          =   255
  291.          Left            =   1320
  292.          TabIndex        =   2
  293.          Top             =   240
  294.          Width           =   855
  295.       End
  296.    End
  297.    Begin VB.Frame Frame12 
  298.       Caption         =   "Text Attributes"
  299.       Height          =   3015
  300.       Left            =   120
  301.       TabIndex        =   94
  302.       Top             =   2280
  303.       Width           =   1575
  304.       Begin VB.TextBox txtText 
  305.          Height          =   615
  306.          Left            =   120
  307.          MultiLine       =   -1  'True
  308.          ScrollBars      =   2  'Vertical
  309.          TabIndex        =   100
  310.          Top             =   480
  311.          Width           =   1335
  312.       End
  313.       Begin VB.ComboBox cmbTA 
  314.          Height          =   315
  315.          Left            =   120
  316.          TabIndex        =   98
  317.          Text            =   "cmbTA"
  318.          Top             =   1440
  319.          Width           =   1335
  320.       End
  321.       Begin VB.CheckBox chkTML 
  322.          Caption         =   "TextMultiLine"
  323.          Height          =   255
  324.          Left            =   120
  325.          TabIndex        =   97
  326.          Top             =   2640
  327.          Width           =   1335
  328.       End
  329.       Begin VB.CheckBox chkTA 
  330.          Caption         =   "TextAutoSize"
  331.          Height          =   255
  332.          Left            =   120
  333.          TabIndex        =   95
  334.          Top             =   1920
  335.          Width           =   1335
  336.       End
  337.       Begin VB.CheckBox chkTEL 
  338.          Caption         =   "TextExtLeading"
  339.          Height          =   255
  340.          Left            =   120
  341.          TabIndex        =   96
  342.          Top             =   2280
  343.          Width           =   1425
  344.       End
  345.       Begin VB.Label Label30 
  346.          Caption         =   "Text To Draw"
  347.          Height          =   255
  348.          Left            =   120
  349.          TabIndex        =   101
  350.          Top             =   240
  351.          Width           =   1095
  352.       End
  353.       Begin VB.Label Label38 
  354.          Caption         =   "TextAlignment"
  355.          Height          =   375
  356.          Left            =   120
  357.          TabIndex        =   99
  358.          Top             =   1200
  359.          Width           =   1095
  360.       End
  361.    End
  362.    Begin VB.Frame Frame10 
  363.       Caption         =   "Polygon"
  364.       Height          =   615
  365.       Left            =   1800
  366.       TabIndex        =   89
  367.       Top             =   4680
  368.       Width           =   1815
  369.       Begin VB.CheckBox chkWinding 
  370.          Caption         =   "Winding"
  371.          Height          =   255
  372.          Left            =   120
  373.          TabIndex        =   90
  374.          Top             =   240
  375.          Width           =   975
  376.       End
  377.    End
  378.    Begin VB.Frame Frame9 
  379.       Caption         =   "Rectangle Ellipse"
  380.       Height          =   1095
  381.       Left            =   120
  382.       TabIndex        =   82
  383.       Top             =   1080
  384.       Width           =   1575
  385.       Begin VB.TextBox txtEllipseHeight 
  386.          Height          =   285
  387.          Left            =   240
  388.          TabIndex        =   85
  389.          Text            =   "txtEllipseHeight"
  390.          Top             =   720
  391.          Width           =   615
  392.       End
  393.       Begin VB.TextBox txtEllipseWidth 
  394.          Height          =   285
  395.          Left            =   240
  396.          TabIndex        =   83
  397.          Text            =   "txtEllipseWidth"
  398.          Top             =   360
  399.          Width           =   615
  400.       End
  401.       Begin VB.Label Label36 
  402.          Caption         =   "Height"
  403.          Height          =   255
  404.          Left            =   960
  405.          TabIndex        =   86
  406.          Top             =   720
  407.          Width           =   495
  408.       End
  409.       Begin VB.Label Label35 
  410.          Caption         =   "Width"
  411.          Height          =   255
  412.          Left            =   960
  413.          TabIndex        =   84
  414.          Top             =   360
  415.          Width           =   495
  416.       End
  417.    End
  418.    Begin VB.Frame Frame8 
  419.       Caption         =   "Start and End Points"
  420.       Height          =   975
  421.       Left            =   1800
  422.       TabIndex        =   64
  423.       Top             =   2280
  424.       Width           =   1815
  425.       Begin VB.TextBox txtEndY 
  426.          Height          =   285
  427.          Left            =   720
  428.          TabIndex        =   69
  429.          Text            =   "txtEndY"
  430.          Top             =   600
  431.          Width           =   495
  432.       End
  433.       Begin VB.TextBox txtEndX 
  434.          Height          =   285
  435.          Left            =   120
  436.          TabIndex        =   68
  437.          Text            =   "txtEndX"
  438.          Top             =   600
  439.          Width           =   495
  440.       End
  441.       Begin VB.TextBox txtStrY 
  442.          Height          =   285
  443.          Left            =   720
  444.          TabIndex        =   66
  445.          Text            =   "txtStrY"
  446.          Top             =   240
  447.          Width           =   495
  448.       End
  449.       Begin VB.TextBox txtStrX 
  450.          Height          =   285
  451.          Left            =   120
  452.          TabIndex        =   65
  453.          Text            =   "txtStrX"
  454.          Top             =   240
  455.          Width           =   495
  456.       End
  457.       Begin VB.Label Label28 
  458.          Caption         =   "End"
  459.          Height          =   255
  460.          Left            =   1320
  461.          TabIndex        =   70
  462.          Top             =   600
  463.          Width           =   375
  464.       End
  465.       Begin VB.Label Label27 
  466.          Caption         =   "Start"
  467.          Height          =   255
  468.          Left            =   1320
  469.          TabIndex        =   67
  470.          Top             =   240
  471.          Width           =   375
  472.       End
  473.    End
  474.    Begin VB.TextBox txtIS 
  475.       Height          =   285
  476.       Left            =   120
  477.       TabIndex        =   63
  478.       Text            =   "txtIS"
  479.       Top             =   5760
  480.       Width           =   975
  481.    End
  482.    Begin VB.TextBox txtCD 
  483.       Height          =   285
  484.       Left            =   120
  485.       TabIndex        =   61
  486.       Text            =   "txtCD"
  487.       Top             =   5400
  488.       Width           =   495
  489.    End
  490.    Begin VB.Frame Frame7 
  491.       Caption         =   "Font"
  492.       Height          =   3135
  493.       Left            =   3720
  494.       TabIndex        =   59
  495.       Top             =   0
  496.       Width           =   1935
  497.       Begin VB.CheckBox chkFontUnderline 
  498.          Caption         =   "Underline"
  499.          Enabled         =   0   'False
  500.          Height          =   255
  501.          Left            =   120
  502.          TabIndex        =   81
  503.          Top             =   2640
  504.          Width           =   1335
  505.       End
  506.       Begin VB.CheckBox chkFontStrikethru 
  507.          Caption         =   "Strikethrough"
  508.          Enabled         =   0   'False
  509.          Height          =   255
  510.          Left            =   120
  511.          TabIndex        =   80
  512.          Top             =   2280
  513.          Width           =   1335
  514.       End
  515.       Begin VB.CheckBox chkFontItalic 
  516.          Caption         =   "Italic"
  517.          Enabled         =   0   'False
  518.          Height          =   255
  519.          Left            =   120
  520.          TabIndex        =   79
  521.          Top             =   1920
  522.          Width           =   1095
  523.       End
  524.       Begin VB.CheckBox chkFontBold 
  525.          Caption         =   "Bold"
  526.          Enabled         =   0   'False
  527.          Height          =   255
  528.          Left            =   120
  529.          TabIndex        =   78
  530.          Top             =   1560
  531.          Width           =   735
  532.       End
  533.       Begin VB.TextBox txtFontSize 
  534.          Enabled         =   0   'False
  535.          Height          =   285
  536.          Left            =   600
  537.          TabIndex        =   76
  538.          Text            =   "txtFontSize"
  539.          Top             =   1080
  540.          Width           =   495
  541.       End
  542.       Begin VB.TextBox txtFontName 
  543.          Enabled         =   0   'False
  544.          Height          =   285
  545.          Left            =   600
  546.          TabIndex        =   74
  547.          Text            =   "txtFontName"
  548.          Top             =   720
  549.          Width           =   1215
  550.       End
  551.       Begin VB.CommandButton cmdFont 
  552.          Caption         =   "&Set Font"
  553.          Height          =   375
  554.          Left            =   120
  555.          TabIndex        =   60
  556.          Top             =   240
  557.          Width           =   1695
  558.       End
  559.       Begin VB.Label Label31 
  560.          Caption         =   "Size"
  561.          Height          =   255
  562.          Left            =   120
  563.          TabIndex        =   77
  564.          Top             =   1080
  565.          Width           =   375
  566.       End
  567.       Begin VB.Label Label29 
  568.          Caption         =   "Name"
  569.          Height          =   255
  570.          Left            =   120
  571.          TabIndex        =   75
  572.          Top             =   720
  573.          Width           =   495
  574.       End
  575.    End
  576.    Begin VB.Frame Frame6 
  577.       Caption         =   "Fill Properties"
  578.       Height          =   1215
  579.       Left            =   1800
  580.       TabIndex        =   55
  581.       Top             =   3360
  582.       Width           =   1815
  583.       Begin VB.CheckBox chkFT 
  584.          Caption         =   "FillTransparent"
  585.          Height          =   255
  586.          Left            =   120
  587.          TabIndex        =   58
  588.          Top             =   840
  589.          Width           =   1335
  590.       End
  591.       Begin VB.ComboBox cmbFS 
  592.          Height          =   315
  593.          Left            =   120
  594.          Style           =   2  'Dropdown List
  595.          TabIndex        =   56
  596.          Top             =   480
  597.          Width           =   1575
  598.       End
  599.       Begin VB.Label Label23 
  600.          Caption         =   "FillStyle"
  601.          Height          =   255
  602.          Left            =   120
  603.          TabIndex        =   57
  604.          Top             =   240
  605.          Width           =   615
  606.       End
  607.    End
  608.    Begin VB.Frame Frame5 
  609.       Caption         =   "Draw Properties"
  610.       Height          =   2055
  611.       Left            =   3720
  612.       TabIndex        =   48
  613.       Top             =   3240
  614.       Width           =   1935
  615.       Begin VB.TextBox txtDW 
  616.          Height          =   285
  617.          Left            =   1080
  618.          TabIndex        =   53
  619.          Text            =   "txtDW"
  620.          Top             =   1560
  621.          Width           =   735
  622.       End
  623.       Begin VB.ComboBox cmbDS 
  624.          Height          =   315
  625.          Left            =   120
  626.          Style           =   2  'Dropdown List
  627.          TabIndex        =   51
  628.          Top             =   1080
  629.          Width           =   1695
  630.       End
  631.       Begin VB.ComboBox cmbDA 
  632.          Height          =   315
  633.          Left            =   120
  634.          Style           =   2  'Dropdown List
  635.          TabIndex        =   49
  636.          Top             =   480
  637.          Width           =   1695
  638.       End
  639.       Begin VB.Label Label22 
  640.          Caption         =   "DrawWidth"
  641.          Height          =   255
  642.          Left            =   120
  643.          TabIndex        =   54
  644.          Top             =   1560
  645.          Width           =   855
  646.       End
  647.       Begin VB.Label Label21 
  648.          Caption         =   "DrawStyle"
  649.          Height          =   255
  650.          Left            =   120
  651.          TabIndex        =   52
  652.          Top             =   840
  653.          Width           =   735
  654.       End
  655.       Begin VB.Label Label20 
  656.          Caption         =   "DrawArrows"
  657.          Height          =   255
  658.          Left            =   120
  659.          TabIndex        =   50
  660.          Top             =   240
  661.          Width           =   855
  662.       End
  663.    End
  664.    Begin VB.Frame Frame3 
  665.       Caption         =   "Destination"
  666.       Height          =   975
  667.       Left            =   120
  668.       TabIndex        =   23
  669.       Top             =   0
  670.       Width           =   1575
  671.       Begin VB.OptionButton optWND 
  672.          Caption         =   "to Window"
  673.          Height          =   255
  674.          Left            =   120
  675.          TabIndex        =   25
  676.          Top             =   600
  677.          Width           =   1095
  678.       End
  679.       Begin VB.OptionButton optDIB 
  680.          Caption         =   "to DIB"
  681.          Height          =   255
  682.          Left            =   120
  683.          TabIndex        =   24
  684.          Top             =   240
  685.          Width           =   1095
  686.       End
  687.    End
  688.    Begin VB.Frame Frame2 
  689.       Caption         =   "Lines"
  690.       Height          =   2175
  691.       Left            =   1800
  692.       TabIndex        =   9
  693.       Top             =   0
  694.       Width           =   1815
  695.       Begin VB.TextBox txtLY5 
  696.          Height          =   285
  697.          Left            =   840
  698.          TabIndex        =   92
  699.          Text            =   "txtLY5"
  700.          Top             =   1800
  701.          Width           =   615
  702.       End
  703.       Begin VB.TextBox txtLX5 
  704.          Height          =   285
  705.          Left            =   120
  706.          TabIndex        =   91
  707.          Text            =   "txtLX5"
  708.          Top             =   1800
  709.          Width           =   615
  710.       End
  711.       Begin VB.TextBox txtLY2 
  712.          Height          =   285
  713.          Left            =   840
  714.          TabIndex        =   88
  715.          Text            =   "txtLY2"
  716.          Top             =   720
  717.          Width           =   615
  718.       End
  719.       Begin VB.TextBox txtLY4 
  720.          Height          =   285
  721.          Left            =   840
  722.          TabIndex        =   19
  723.          Text            =   "txtLY4"
  724.          Top             =   1440
  725.          Width           =   615
  726.       End
  727.       Begin VB.TextBox txtLX4 
  728.          Height          =   285
  729.          Left            =   120
  730.          TabIndex        =   18
  731.          Text            =   "txtLX4"
  732.          Top             =   1440
  733.          Width           =   615
  734.       End
  735.       Begin VB.TextBox txtLY3 
  736.          Height          =   285
  737.          Left            =   840
  738.          TabIndex        =   17
  739.          Text            =   "txtLY3"
  740.          Top             =   1080
  741.          Width           =   615
  742.       End
  743.       Begin VB.TextBox txtLX3 
  744.          Height          =   285
  745.          Left            =   120
  746.          TabIndex        =   16
  747.          Text            =   "txtLX3"
  748.          Top             =   1080
  749.          Width           =   615
  750.       End
  751.       Begin VB.TextBox txtLX1 
  752.          Height          =   285
  753.          Left            =   120
  754.          TabIndex        =   15
  755.          Text            =   "txtLX1"
  756.          Top             =   360
  757.          Width           =   615
  758.       End
  759.       Begin VB.TextBox txtLX2 
  760.          Height          =   285
  761.          Left            =   120
  762.          TabIndex        =   14
  763.          Text            =   "txtLX2"
  764.          Top             =   720
  765.          Width           =   615
  766.       End
  767.       Begin VB.TextBox txtLY1 
  768.          Height          =   285
  769.          Left            =   840
  770.          TabIndex        =   12
  771.          Text            =   "txtLY1"
  772.          Top             =   360
  773.          Width           =   615
  774.       End
  775.       Begin VB.Label Label26 
  776.          Caption         =   "5"
  777.          Height          =   255
  778.          Left            =   1560
  779.          TabIndex        =   93
  780.          Top             =   1800
  781.          Width           =   135
  782.       End
  783.       Begin VB.Label Label16 
  784.          Caption         =   "4"
  785.          Height          =   255
  786.          Left            =   1560
  787.          TabIndex        =   22
  788.          Top             =   1440
  789.          Width           =   135
  790.       End
  791.       Begin VB.Label Label15 
  792.          Caption         =   "3"
  793.          Height          =   255
  794.          Left            =   1560
  795.          TabIndex        =   21
  796.          Top             =   1080
  797.          Width           =   135
  798.       End
  799.       Begin VB.Label Label14 
  800.          Caption         =   "2"
  801.          Height          =   255
  802.          Left            =   1560
  803.          TabIndex        =   20
  804.          Top             =   720
  805.          Width           =   135
  806.       End
  807.       Begin VB.Label Label13 
  808.          Caption         =   "1"
  809.          Height          =   255
  810.          Left            =   1560
  811.          TabIndex        =   13
  812.          Top             =   360
  813.          Width           =   135
  814.       End
  815.       Begin VB.Label Label12 
  816.          Alignment       =   2  'Center
  817.          Caption         =   "Y"
  818.          Height          =   255
  819.          Left            =   855
  820.          TabIndex        =   11
  821.          Top             =   180
  822.          Width           =   615
  823.       End
  824.       Begin VB.Label Label4 
  825.          Alignment       =   2  'Center
  826.          Caption         =   "X"
  827.          Height          =   255
  828.          Left            =   105
  829.          TabIndex        =   10
  830.          Top             =   180
  831.          Width           =   615
  832.       End
  833.    End
  834.    Begin VB.Label Label37 
  835.       Caption         =   "Image Width, Height"
  836.       Height          =   255
  837.       Left            =   1200
  838.       TabIndex        =   87
  839.       Top             =   5760
  840.       Width           =   1815
  841.    End
  842.    Begin VB.Label Label25 
  843.       Caption         =   "Color Depth"
  844.       Height          =   255
  845.       Left            =   720
  846.       TabIndex        =   62
  847.       Top             =   5400
  848.       Width           =   855
  849.    End
  850.    Begin MSComDlg.CommonDialog comDialog 
  851.       Left            =   4560
  852.       Top             =   120
  853.       _Version        =   65536
  854.       _ExtentX        =   847
  855.       _ExtentY        =   847
  856.       _StockProps     =   0
  857.       CancelError     =   -1  'True
  858.       DialogTitle     =   "Set Foreground Color"
  859.    End
  860.    Begin VB.Menu mnuFile 
  861.       Caption         =   "&File"
  862.       Begin VB.Menu mnuLoad 
  863.          Caption         =   "&Load Image..."
  864.       End
  865.       Begin VB.Menu mnuFileOpenWhite8 
  866.          Caption         =   "Load &8 bit White"
  867.       End
  868.       Begin VB.Menu mnuFileOpenWhite24 
  869.          Caption         =   "Load &24 bit White"
  870.       End
  871.       Begin VB.Menu mnuFileOpenRGB8 
  872.          Caption         =   "Load 8 bit &RGB"
  873.       End
  874.       Begin VB.Menu mnuFileOpenRGB24 
  875.          Caption         =   "Load 24 bit R&GB"
  876.       End
  877.       Begin VB.Menu mnuSave 
  878.          Caption         =   "&Save Image..."
  879.       End
  880.       Begin VB.Menu mnuSpacer 
  881.          Caption         =   "-"
  882.       End
  883.       Begin VB.Menu mnuExit 
  884.          Caption         =   "E&xit"
  885.          Shortcut        =   ^X
  886.       End
  887.    End
  888.    Begin VB.Menu mnuDraw 
  889.       Caption         =   "&Draw"
  890.       Begin VB.Menu mnuDrawArc 
  891.          Caption         =   "&Arc"
  892.       End
  893.       Begin VB.Menu mnuDrawChord 
  894.          Caption         =   "&Chord"
  895.       End
  896.       Begin VB.Menu mnuDrawPie 
  897.          Caption         =   "&Pie"
  898.       End
  899.       Begin VB.Menu mnuDrawPolygon 
  900.          Caption         =   "P&olygon"
  901.       End
  902.       Begin VB.Menu mnuDrawPolyLine 
  903.          Caption         =   "Po&lyLine"
  904.       End
  905.       Begin VB.Menu mnuDrawRect 
  906.          Caption         =   "&Rect"
  907.       End
  908.       Begin VB.Menu mnuDrawRoundRect 
  909.          Caption         =   "Ro&undRect"
  910.       End
  911.       Begin VB.Menu mnuSpacer2 
  912.          Caption         =   "-"
  913.       End
  914.       Begin VB.Menu mnuDrawText 
  915.          Caption         =   "&TextDraw"
  916.       End
  917.       Begin VB.Menu mnuDrawTextSize 
  918.          Caption         =   "Text&Size"
  919.       End
  920.    End
  921.    Begin VB.Menu mnuUpdate 
  922.       Caption         =   "&Update"
  923.       Begin VB.Menu mnuUpdateRefreshImage 
  924.          Caption         =   "&Refresh Image"
  925.       End
  926.       Begin VB.Menu mnuUpdateReloadImage 
  927.          Caption         =   "R&eload Image"
  928.       End
  929.    End
  930. Attribute VB_Name = "Draw"
  931. Attribute VB_Creatable = False
  932. Attribute VB_Exposed = False
  933. Dim sCurrentFile As String
  934. Sub SetSelection()
  935.     frmPicbuf!picbuf1.SelectLeft = CInt(Draw!txtSL.Text)
  936.     frmPicbuf!picbuf1.SelectTop = CInt(Draw!txtST.Text)
  937.     frmPicbuf!picbuf1.SelectWidth = CInt(Draw!txtSW.Text)
  938.     frmPicbuf!picbuf1.SelectHeight = CInt(Draw!txtSH.Text)
  939. End Sub
  940. Private Sub cmdBC_Click()
  941.     frmPicbuf.picbuf1.BackColor = GetColor(comDialog)
  942.     txtBCRed.Text = getRed(frmPicbuf.picbuf1.BackColor)
  943.     txtBCGreen.Text = getGreen(frmPicbuf.picbuf1.BackColor)
  944.     txtBCBlue.Text = GetBlue(frmPicbuf.picbuf1.BackColor)
  945.     pictBC.BackColor = frmPicbuf.picbuf1.BackColor
  946. End Sub
  947. Private Sub cmdFC_Click()
  948.     frmPicbuf.picbuf1.ForeColor = GetColor(comDialog)
  949.     txtFCRed.Text = getRed(frmPicbuf.picbuf1.ForeColor)
  950.     txtFCGreen.Text = getGreen(frmPicbuf.picbuf1.ForeColor)
  951.     txtFCBlue.Text = GetBlue(frmPicbuf.picbuf1.ForeColor)
  952.     pictFC.BackColor = frmPicbuf.picbuf1.ForeColor
  953. End Sub
  954. Private Sub cmdFillC_Click()
  955.     frmPicbuf.picbuf1.FillColor = GetColor(comDialog)
  956.     txtFillCRed.Text = getRed(frmPicbuf.picbuf1.FillColor)
  957.     txtFillCGreen.Text = getGreen(frmPicbuf.picbuf1.FillColor)
  958.     txtFillCBlue.Text = GetBlue(frmPicbuf.picbuf1.FillColor)
  959.     pictFillC.BackColor = frmPicbuf.picbuf1.FillColor
  960. End Sub
  961. Private Sub cmdFont_Click()
  962.     GetFont frmPicbuf.picbuf1, comDialog
  963.     ' update boxes
  964.     txtFontName.Text = frmPicbuf.picbuf1.Font.Name
  965.     txtFontSize.Text = Str$(frmPicbuf.picbuf1.Font.Size)
  966.     ' font bold
  967.     If frmPicbuf.picbuf1.Font.Bold = True Then
  968.         chkFontBold.value = 1
  969.     Else
  970.         chkFontBold.value = 0
  971.     End If
  972.     ' font italic
  973.     If frmPicbuf.picbuf1.Font.Italic = True Then
  974.         chkFontItalic.value = 1
  975.     Else
  976.         chkFontItalic.value = 0
  977.     End If
  978.     ' font strike through
  979.     If frmPicbuf.picbuf1.Font.Strikethrough = True Then
  980.         chkFontStrikethru.value = 1
  981.     Else
  982.         chkFontStrikethru.value = 0
  983.     End If
  984.     ' font underline
  985.     If frmPicbuf.picbuf1.Font.Underline = True Then
  986.         chkFontUnderline.value = 1
  987.     Else
  988.         chkFontUnderline.value = 0
  989.     End If
  990. End Sub
  991. Private Sub Form_Load()
  992.     frmPicbuf.Show
  993.     ' setup data
  994.     g_nDrawLimit = 200
  995.     ' load the image
  996.     txtCD.Text = frmPicbuf.picbuf1.ColorDepth
  997.     txtIS.Text = frmPicbuf.picbuf1.Xresolution & "," & frmPicbuf.picbuf1.Yresolution
  998.     ' Select Properties
  999.     txtSL.Text = "50"
  1000.     txtST.Text = "50"
  1001.     txtSW.Text = "100"
  1002.     txtSH.Text = "100"
  1003.     ' Rectangle Ellipse
  1004.     txtEllipseWidth.Text = "10"
  1005.     txtEllipseHeight.Text = "10"
  1006.     ' Destination
  1007.     optDIB.value = True
  1008.     ' DrawArrows
  1009.     InitcmbDrawArrows cmbDA
  1010.     ' DrawStyle
  1011.     InitcmbDrawStyle cmbDS
  1012.     ' DrawWidth
  1013.     txtDW.Text = "1"
  1014.     ' FillStyle
  1015.     InitcmbFillStyle cmbFS
  1016.     ' Text Alignment
  1017.     InitcmbTextAlignment cmbTA
  1018.     ' Lines
  1019.     txtLX1.Text = "100"
  1020.     txtLY1.Text = "10"
  1021.     txtLX2.Text = "66"
  1022.     txtLY2.Text = "190"
  1023.     txtLX3.Text = "190"
  1024.     txtLY3.Text = "66"
  1025.     txtLX4.Text = "10"
  1026.     txtLY4.Text = "66"
  1027.     txtLX5.Text = "132"
  1028.     txtLY5.Text = "190"
  1029.     ' Selection
  1030.     SetSelection
  1031.     ' Start & End
  1032.     txtStrX.Text = "50"
  1033.     txtStrY.Text = "150"
  1034.     txtEndX.Text = "150"
  1035.     txtEndY.Text = "50"
  1036.     'Font
  1037.     frmPicbuf.picbuf1.Font.Name = "Arial"
  1038.     txtFontName.Text = "Arial"
  1039.     frmPicbuf.picbuf1.Font.Size = 12
  1040.     txtFontSize.Text = Str$(12)
  1041. End Sub
  1042. Private Sub Form_Unload(Cancel As Integer)
  1043.     End
  1044. End Sub
  1045. Private Sub mnuDrawArc_Click()
  1046.     ' get drawing setup
  1047.     SetupDrawing
  1048.     ' draw the Arc
  1049.     frmPicbuf.ZOrder
  1050.     frmPicbuf.picbuf1.Arc CInt(txtStrX), CInt(txtStrY), CInt(txtEndX), CInt(txtEndY), GetDestination
  1051. End Sub
  1052. Private Sub mnuDrawChord_Click()
  1053.     ' get drawing setup
  1054.     SetupDrawing
  1055.     ' draw the Chord
  1056.     frmPicbuf.picbuf1.Chord CInt(txtStrX), CInt(txtStrY), CInt(txtEndX), CInt(txtEndY), GetDestination
  1057. End Sub
  1058. Private Sub mnuDrawPie_Click()
  1059.     ' get drawing setup
  1060.     SetupDrawing
  1061.     ' draw the Pie
  1062.     frmPicbuf.picbuf1.Pie CInt(txtStrX), CInt(txtStrY), CInt(txtEndX), CInt(txtEndY), GetDestination
  1063. End Sub
  1064. Private Sub mnuDrawPolygon_Click()
  1065.     ' get drawing setup
  1066.     SetupDrawing
  1067.     ' get lines
  1068.     Dim j As Integer
  1069.     j = SetLines
  1070.     If j < 3 Then
  1071.         MsgBox "Not enough points"
  1072.         Exit Sub
  1073.     End If
  1074.     ' set winding
  1075.     Dim i As Integer
  1076.     If chkWinding = 1 Then
  1077.         i = 1
  1078.     Else
  1079.         i = 0
  1080.     End If
  1081.     ' draw the Polygon
  1082.     frmPicbuf.picbuf1.Polygon g_Lines(1), j, i, GetDestination
  1083. End Sub
  1084. Private Sub mnuDrawPolyLine_Click()
  1085.     ' get drawing setup
  1086.     SetupDrawing
  1087.     ' get lines
  1088.     Dim j As Integer
  1089.     j = SetLines
  1090.     If j < 1 Then
  1091.         MsgBox "No Lines to Draw"
  1092.         Exit Sub
  1093.     End If
  1094.         
  1095.     ' draw the Polygon
  1096.     frmPicbuf.picbuf1.PolyLine g_Lines(1), j, GetDestination
  1097. End Sub
  1098. Private Sub mnuDrawRect_Click()
  1099.     ' get drawing setup
  1100.     SetupDrawing
  1101.     ' draw the Rect
  1102.     frmPicbuf.picbuf1.Rect GetDestination
  1103. End Sub
  1104. Private Sub mnuDrawRoundRect_Click()
  1105.     ' get drawing setup
  1106.     SetupDrawing
  1107.     ' draw the RoundRect
  1108.     frmPicbuf.picbuf1.RoundRect CInt(txtEllipseWidth), CInt(txtEllipseHeight), GetDestination
  1109. End Sub
  1110. Private Sub mnuDrawText_Click()
  1111.     ' set selection properties
  1112.     SetSelection
  1113.     ' setup the text
  1114.     SetText
  1115.     ' draw the text
  1116.     frmPicbuf.picbuf1.TextDraw GetDestination
  1117. End Sub
  1118. Private Sub mnuDrawTextSize_Click()
  1119.     ' set selection properties
  1120.     SetSelection
  1121.     ' setup the text
  1122.     SetText
  1123.     Dim nHigh As Integer
  1124.     Dim nWide As Integer
  1125.     nHigh = frmPicbuf.picbuf1.TextHigh
  1126.     nWide = frmPicbuf.picbuf1.TextWide
  1127.     MsgBox "Text is " & Str$(nHigh) & "," & Str$(nWide) & " pixels (high,wide)"
  1128. End Sub
  1129. Private Sub mnuExit_Click()
  1130.     ExitProgram
  1131. End Sub
  1132. Private Sub mnuFileOpenRGB24_Click()
  1133.     InitPicbuf frmPicbuf.picbuf1, False, "Rgb24.bmp"
  1134. End Sub
  1135. Private Sub mnuFileOpenRGB8_Click()
  1136.     InitPicbuf frmPicbuf.picbuf1, False, "Rgb8.bmp"
  1137. End Sub
  1138. Private Sub mnuFileOpenWhite24_Click()
  1139.     InitPicbuf frmPicbuf.picbuf1, False, "White24.bmp"
  1140. End Sub
  1141. Private Sub mnuFileOpenWhite8_Click()
  1142.     InitPicbuf frmPicbuf.picbuf1, False, "White8.bmp"
  1143. End Sub
  1144. Private Sub mnuLoad_Click()
  1145.     LoadImage frmPicbuf.picbuf1, comDialog
  1146. End Sub
  1147. Private Sub mnuSave_Click()
  1148.     SaveImage frmPicbuf.picbuf1, comDialog
  1149. End Sub
  1150. Private Sub mnuUpdateRefreshImage_Click()
  1151.     frmPicbuf.picbuf1.Refresh
  1152. End Sub
  1153. Private Sub mnuUpdateReloadImage_Click()
  1154.     frmPicbuf.picbuf1.Load
  1155. End Sub
  1156. Private Sub txtFCBlue_Change()
  1157.     ' check range value
  1158.     Dim value As Integer
  1159.     value = CInt(txtFCBlue.Text)
  1160.     If value < 0 Or value > 255 Then
  1161.         MsgBox "Bad BLUE Forecolor"
  1162.         txtFCBlue.Text = "0"
  1163.     End If
  1164. End Sub
  1165. Private Sub txtFCGreen_Change()
  1166.     ' check range value
  1167.     Dim value As Integer
  1168.     value = CInt(txtFCGreen.Text)
  1169.     If value < 0 Or value > 255 Then
  1170.         MsgBox "Bad GREEN Forecolor"
  1171.         txtFCGreen.Text = "0"
  1172.     End If
  1173. End Sub
  1174. Private Sub txtFCRed_Change()
  1175.     ' check range value
  1176.     Dim value As Integer
  1177.     value = CInt(txtFCRed.Text)
  1178.     If value < 0 Or value > 255 Then
  1179.         MsgBox "Bad RED Forecolor"
  1180.         txtFCRed.Text = "0"
  1181.     End If
  1182. End Sub
  1183.