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