home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 4_2005-2006.ISO / data / Zips / Drawing_Co1967221222006.psc / Form1.frm < prev   
Text File  |  2006-01-20  |  67KB  |  1,840 lines
  1. VERSION 5.00
  2. Object = "*\AObjectDraw.vbp"
  3. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
  4. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  5. Object = "{38911DA0-E448-11D0-84A3-00DD01104159}#1.1#0"; "COMCT332.OCX"
  6. Object = "*\AColorPalette.vbp"
  7. Begin VB.Form Form1 
  8.    Caption         =   "Object Draw Control Sample"
  9.    ClientHeight    =   9060
  10.    ClientLeft      =   165
  11.    ClientTop       =   855
  12.    ClientWidth     =   14070
  13.    Icon            =   "Form1.frx":0000
  14.    LinkTopic       =   "Form1"
  15.    ScaleHeight     =   9060
  16.    ScaleWidth      =   14070
  17.    StartUpPosition =   3  'Windows Default
  18.    WindowState     =   2  'Maximized
  19.    Begin ComCtl3.CoolBar CoolBar3 
  20.       Align           =   4  'Align Right
  21.       Height          =   7995
  22.       Left            =   11505
  23.       TabIndex        =   11
  24.       Top             =   750
  25.       Width           =   2565
  26.       _ExtentX        =   4524
  27.       _ExtentY        =   14102
  28.       BandCount       =   2
  29.       Orientation     =   1
  30.       _CBWidth        =   2565
  31.       _CBHeight       =   7995
  32.       _Version        =   "6.7.9782"
  33.       Child1          =   "PicProperty1"
  34.       MinWidth1       =   3195
  35.       MinHeight1      =   2505
  36.       Width1          =   3195
  37.       NewRow1         =   0   'False
  38.       Child2          =   "PicProperty2"
  39.       MinWidth2       =   1530
  40.       MinHeight2      =   2325
  41.       Width2          =   9000
  42.       NewRow2         =   0   'False
  43.       Begin VB.PictureBox PicProperty2 
  44.          BorderStyle     =   0  'None
  45.          Height          =   4380
  46.          Left            =   120
  47.          ScaleHeight     =   4380
  48.          ScaleWidth      =   2325
  49.          TabIndex        =   20
  50.          Top             =   3585
  51.          Width           =   2325
  52.          Begin VB.VScrollBar VScroll3 
  53.             Height          =   285
  54.             Left            =   1920
  55.             Max             =   1
  56.             Min             =   200
  57.             TabIndex        =   43
  58.             Top             =   2100
  59.             Value           =   25
  60.             Width           =   255
  61.          End
  62.          Begin VB.TextBox TxtRound 
  63.             Alignment       =   1  'Right Justify
  64.             Height          =   285
  65.             Left            =   1500
  66.             TabIndex        =   42
  67.             Text            =   "25"
  68.             Top             =   2100
  69.             Width           =   405
  70.          End
  71.          Begin VB.TextBox TxtPoint 
  72.             Alignment       =   1  'Right Justify
  73.             Height          =   285
  74.             Left            =   1500
  75.             Locked          =   -1  'True
  76.             TabIndex        =   30
  77.             Text            =   "3"
  78.             ToolTipText     =   "Border Size"
  79.             Top             =   1500
  80.             Width           =   405
  81.          End
  82.          Begin VB.VScrollBar VScroll2 
  83.             Height          =   285
  84.             Left            =   1920
  85.             Max             =   3
  86.             Min             =   30
  87.             TabIndex        =   29
  88.             TabStop         =   0   'False
  89.             Top             =   1500
  90.             Value           =   3
  91.             Width           =   255
  92.          End
  93.          Begin VB.ComboBox CboFill 
  94.             Height          =   315
  95.             ItemData        =   "Form1.frx":1601A
  96.             Left            =   900
  97.             List            =   "Form1.frx":16036
  98.             Style           =   2  'Dropdown List
  99.             TabIndex        =   24
  100.             Top             =   450
  101.             Width           =   1275
  102.          End
  103.          Begin VB.VScrollBar VScroll1 
  104.             Height          =   285
  105.             Left            =   1890
  106.             Max             =   0
  107.             Min             =   100
  108.             TabIndex        =   23
  109.             TabStop         =   0   'False
  110.             Top             =   60
  111.             Value           =   1
  112.             Width           =   255
  113.          End
  114.          Begin VB.TextBox TxtBorder 
  115.             Alignment       =   1  'Right Justify
  116.             Height          =   285
  117.             Left            =   1470
  118.             Locked          =   -1  'True
  119.             TabIndex        =   22
  120.             Text            =   "1"
  121.             ToolTipText     =   "Border Size"
  122.             Top             =   60
  123.             Width           =   405
  124.          End
  125.          Begin MSComctlLib.Slider Slider1 
  126.             Height          =   345
  127.             Left            =   60
  128.             TabIndex        =   21
  129.             TabStop         =   0   'False
  130.             Top             =   1080
  131.             Width           =   2205
  132.             _ExtentX        =   3889
  133.             _ExtentY        =   609
  134.             _Version        =   393216
  135.             LargeChange     =   1
  136.             Max             =   360
  137.             SelectRange     =   -1  'True
  138.             TickStyle       =   3
  139.          End
  140.          Begin VB.Label Label5 
  141.             Caption         =   "Round Rectangle Size:"
  142.             Height          =   405
  143.             Left            =   90
  144.             TabIndex        =   41
  145.             Top             =   2040
  146.             Width           =   1485
  147.          End
  148.          Begin VB.Label Label4 
  149.             BackStyle       =   0  'Transparent
  150.             Caption         =   "Points Qty:"
  151.             Height          =   255
  152.             Left            =   90
  153.             TabIndex        =   31
  154.             Top             =   1530
  155.             Width           =   1215
  156.          End
  157.          Begin VB.Label Label3 
  158.             BackStyle       =   0  'Transparent
  159.             Caption         =   "Fill style:"
  160.             Height          =   255
  161.             Left            =   90
  162.             TabIndex        =   27
  163.             Top             =   510
  164.             Width           =   645
  165.          End
  166.          Begin VB.Label Label2 
  167.             BackStyle       =   0  'Transparent
  168.             Caption         =   "Border size:"
  169.             Height          =   255
  170.             Left            =   90
  171.             TabIndex        =   26
  172.             Top             =   90
  173.             Width           =   915
  174.          End
  175.          Begin VB.Label Label1 
  176.             Alignment       =   2  'Center
  177.             BackStyle       =   0  'Transparent
  178.             Caption         =   "Rotation: 0░"
  179.             Height          =   195
  180.             Index           =   0
  181.             Left            =   150
  182.             TabIndex        =   25
  183.             Top             =   870
  184.             Width           =   1995
  185.          End
  186.       End
  187.       Begin VB.PictureBox PicProperty1 
  188.          AutoRedraw      =   -1  'True
  189.          BorderStyle     =   0  'None
  190.          Height          =   3195
  191.          Left            =   30
  192.          ScaleHeight     =   3195
  193.          ScaleWidth      =   2505
  194.          TabIndex        =   12
  195.          Top             =   165
  196.          Width           =   2505
  197.          Begin VB.VScrollBar ScrCol 
  198.             Height          =   285
  199.             Index           =   2
  200.             Left            =   2100
  201.             Max             =   0
  202.             Min             =   255
  203.             TabIndex        =   37
  204.             TabStop         =   0   'False
  205.             Top             =   2355
  206.             Width           =   225
  207.          End
  208.          Begin VB.VScrollBar ScrCol 
  209.             Height          =   285
  210.             Index           =   1
  211.             Left            =   1350
  212.             Max             =   0
  213.             Min             =   255
  214.             TabIndex        =   36
  215.             TabStop         =   0   'False
  216.             Top             =   2355
  217.             Width           =   225
  218.          End
  219.          Begin VB.VScrollBar ScrCol 
  220.             Height          =   285
  221.             Index           =   0
  222.             Left            =   570
  223.             Max             =   0
  224.             Min             =   255
  225.             TabIndex        =   35
  226.             TabStop         =   0   'False
  227.             Top             =   2355
  228.             Width           =   225
  229.          End
  230.          Begin VB.TextBox TxtColor 
  231.             Alignment       =   1  'Right Justify
  232.             Height          =   315
  233.             Index           =   2
  234.             Left            =   1650
  235.             Locked          =   -1  'True
  236.             TabIndex        =   34
  237.             Text            =   "0"
  238.             Top             =   2340
  239.             Width           =   465
  240.          End
  241.          Begin VB.TextBox TxtColor 
  242.             Alignment       =   1  'Right Justify
  243.             Height          =   315
  244.             Index           =   1
  245.             Left            =   870
  246.             Locked          =   -1  'True
  247.             TabIndex        =   33
  248.             Text            =   "0"
  249.             Top             =   2340
  250.             Width           =   465
  251.          End
  252.          Begin VB.TextBox TxtColor 
  253.             Alignment       =   1  'Right Justify
  254.             Height          =   315
  255.             Index           =   0
  256.             Left            =   120
  257.             Locked          =   -1  'True
  258.             TabIndex        =   32
  259.             Text            =   "0"
  260.             Top             =   2340
  261.             Width           =   465
  262.          End
  263.          Begin VB.OptionButton OpColor 
  264.             BackColor       =   &H00FFFFFF&
  265.             Height          =   375
  266.             Index           =   2
  267.             Left            =   1350
  268.             MouseIcon       =   "Form1.frx":1608D
  269.             MousePointer    =   99  'Custom
  270.             TabIndex        =   15
  271.             Top             =   1530
  272.             Width           =   945
  273.          End
  274.          Begin VB.OptionButton OpColor 
  275.             BackColor       =   &H00000000&
  276.             Height          =   375
  277.             Index           =   1
  278.             Left            =   1350
  279.             MouseIcon       =   "Form1.frx":161DF
  280.             MousePointer    =   99  'Custom
  281.             TabIndex        =   14
  282.             Top             =   900
  283.             Width           =   945
  284.          End
  285.          Begin VB.OptionButton OpColor 
  286.             BackColor       =   &H00FF0000&
  287.             Height          =   375
  288.             Index           =   0
  289.             Left            =   1365
  290.             MouseIcon       =   "Form1.frx":16331
  291.             MousePointer    =   99  'Custom
  292.             TabIndex        =   13
  293.             Top             =   270
  294.             Value           =   -1  'True
  295.             Width           =   945
  296.          End
  297.          Begin ColorPalette.ColorPal ColorPal1 
  298.             Height          =   2040
  299.             Left            =   120
  300.             TabIndex        =   16
  301.             Top             =   30
  302.             Width           =   1155
  303.             _ExtentX        =   2037
  304.             _ExtentY        =   3598
  305.             Thumbsize       =   6
  306.          End
  307.          Begin VB.Label LblCol 
  308.             BackStyle       =   0  'Transparent
  309.             Caption         =   "Blue:"
  310.             Height          =   225
  311.             Index           =   2
  312.             Left            =   1650
  313.             TabIndex        =   40
  314.             Top             =   2130
  315.             Width           =   675
  316.          End
  317.          Begin VB.Label LblCol 
  318.             BackStyle       =   0  'Transparent
  319.             Caption         =   "Green:"
  320.             Height          =   225
  321.             Index           =   1
  322.             Left            =   870
  323.             TabIndex        =   39
  324.             Top             =   2130
  325.             Width           =   675
  326.          End
  327.          Begin VB.Label LblCol 
  328.             BackStyle       =   0  'Transparent
  329.             Caption         =   "Red:"
  330.             Height          =   225
  331.             Index           =   0
  332.             Left            =   120
  333.             TabIndex        =   38
  334.             Top             =   2130
  335.             Width           =   675
  336.          End
  337.          Begin VB.Label LblColor 
  338.             Alignment       =   2  'Center
  339.             Height          =   465
  340.             Left            =   60
  341.             TabIndex        =   28
  342.             Top             =   2730
  343.             Width           =   2385
  344.          End
  345.          Begin VB.Label Label1 
  346.             Alignment       =   2  'Center
  347.             BackStyle       =   0  'Transparent
  348.             Caption         =   "Back Color"
  349.             Height          =   255
  350.             Index           =   2
  351.             Left            =   1260
  352.             TabIndex        =   19
  353.             Top             =   1350
  354.             Width           =   975
  355.          End
  356.          Begin VB.Label Label1 
  357.             Alignment       =   2  'Center
  358.             BackStyle       =   0  'Transparent
  359.             Caption         =   "Border Color"
  360.             Height          =   255
  361.             Index           =   1
  362.             Left            =   1290
  363.             TabIndex        =   18
  364.             Top             =   690
  365.             Width           =   975
  366.          End
  367.          Begin VB.Label Label1 
  368.             Alignment       =   2  'Center
  369.             BackStyle       =   0  'Transparent
  370.             Caption         =   "Fill Color"
  371.             Height          =   255
  372.             Index           =   3
  373.             Left            =   1290
  374.             TabIndex        =   17
  375.             Top             =   90
  376.             Width           =   975
  377.          End
  378.       End
  379.    End
  380.    Begin MSComctlLib.StatusBar StatusBar1 
  381.       Align           =   2  'Align Bottom
  382.       Height          =   315
  383.       Left            =   0
  384.       TabIndex        =   10
  385.       Top             =   8745
  386.       Width           =   14070
  387.       _ExtentX        =   24818
  388.       _ExtentY        =   556
  389.       _Version        =   393216
  390.       BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
  391.          NumPanels       =   6
  392.          BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  393.             Object.Width           =   10583
  394.             MinWidth        =   10583
  395.          EndProperty
  396.          BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  397.             Alignment       =   1
  398.             Object.ToolTipText     =   "Mouse Position"
  399.          EndProperty
  400.          BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  401.             Alignment       =   1
  402.             AutoSize        =   1
  403.             Object.Width           =   6465
  404.             MinWidth        =   3528
  405.          EndProperty
  406.          BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  407.             Style           =   1
  408.             Alignment       =   1
  409.             Enabled         =   0   'False
  410.             Object.Width           =   1411
  411.             MinWidth        =   1411
  412.             TextSave        =   "CAPS"
  413.          EndProperty
  414.          BeginProperty Panel5 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  415.             Style           =   2
  416.             Alignment       =   1
  417.             Object.Width           =   1411
  418.             MinWidth        =   1411
  419.             TextSave        =   "NUM"
  420.          EndProperty
  421.          BeginProperty Panel6 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  422.             Style           =   5
  423.             Alignment       =   2
  424.             Object.Width           =   1764
  425.             MinWidth        =   1764
  426.             TextSave        =   "22:32"
  427.          EndProperty
  428.       EndProperty
  429.    End
  430.    Begin MSComctlLib.ImageList ImageList2 
  431.       Left            =   5220
  432.       Top             =   7860
  433.       _ExtentX        =   1005
  434.       _ExtentY        =   1005
  435.       BackColor       =   -2147483643
  436.       ImageWidth      =   16
  437.       ImageHeight     =   16
  438.       MaskColor       =   12632256
  439.       _Version        =   393216
  440.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  441.          NumListImages   =   10
  442.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  443.             Picture         =   "Form1.frx":16483
  444.             Key             =   "Select"
  445.             Object.Tag             =   "Select"
  446.          EndProperty
  447.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  448.             Picture         =   "Form1.frx":16595
  449.             Key             =   "Line"
  450.             Object.Tag             =   "Line"
  451.          EndProperty
  452.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  453.             Picture         =   "Form1.frx":166A7
  454.             Key             =   "Arc"
  455.             Object.Tag             =   "Arc"
  456.          EndProperty
  457.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  458.             Picture         =   "Form1.frx":167B9
  459.             Key             =   "Rectangle"
  460.             Object.Tag             =   "Rectangle"
  461.          EndProperty
  462.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  463.             Picture         =   "Form1.frx":168CB
  464.             Key             =   "RoundRectangle"
  465.             Object.Tag             =   "RoundRectangle"
  466.          EndProperty
  467.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  468.             Picture         =   "Form1.frx":169DD
  469.             Key             =   "Ellipse"
  470.             Object.Tag             =   "Ellipse"
  471.          EndProperty
  472.          BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  473.             Picture         =   "Form1.frx":16AEF
  474.             Key             =   "Polygon"
  475.             Object.Tag             =   "Polygon"
  476.          EndProperty
  477.          BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  478.             Picture         =   "Form1.frx":16E41
  479.             Key             =   "Star"
  480.             Object.Tag             =   "Star"
  481.          EndProperty
  482.          BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  483.             Picture         =   "Form1.frx":17193
  484.             Key             =   "Text"
  485.             Object.Tag             =   "Text"
  486.          EndProperty
  487.          BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  488.             Picture         =   "Form1.frx":172A5
  489.             Key             =   "Picture"
  490.             Object.Tag             =   "Picture"
  491.          EndProperty
  492.       EndProperty
  493.    End
  494.    Begin ComCtl3.CoolBar CoolBar2 
  495.       Align           =   3  'Align Left
  496.       Height          =   7995
  497.       Left            =   0
  498.       TabIndex        =   8
  499.       Top             =   750
  500.       Width           =   375
  501.       _ExtentX        =   661
  502.       _ExtentY        =   14102
  503.       BandCount       =   1
  504.       Orientation     =   1
  505.       _CBWidth        =   375
  506.       _CBHeight       =   7995
  507.       _Version        =   "6.7.9782"
  508.       Child1          =   "Toolbar4"
  509.       MinHeight1      =   315
  510.       Width1          =   2640
  511.       NewRow1         =   0   'False
  512.       Begin MSComctlLib.Toolbar Toolbar4 
  513.          Height          =   3300
  514.          Left            =   30
  515.          TabIndex        =   9
  516.          Top             =   30
  517.          Width           =   315
  518.          _ExtentX        =   556
  519.          _ExtentY        =   5821
  520.          ButtonWidth     =   609
  521.          ButtonHeight    =   582
  522.          Style           =   1
  523.          ImageList       =   "ImageList2"
  524.          _Version        =   393216
  525.          BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  526.             NumButtons      =   10
  527.             BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  528.                Key             =   "Select"
  529.                Object.ToolTipText     =   "Select Object"
  530.                Object.Tag             =   "Select"
  531.                ImageIndex      =   1
  532.                Style           =   2
  533.                Value           =   1
  534.             EndProperty
  535.             BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  536.                Key             =   "Line"
  537.                Object.ToolTipText     =   "Draw Line"
  538.                Object.Tag             =   "Line"
  539.                ImageIndex      =   2
  540.                Style           =   2
  541.             EndProperty
  542.             BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  543.                Key             =   "Arc"
  544.                Object.ToolTipText     =   "Draw Arc"
  545.                Object.Tag             =   "Arc"
  546.                ImageIndex      =   3
  547.                Style           =   2
  548.             EndProperty
  549.             BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  550.                Key             =   "Rectangle"
  551.                Object.ToolTipText     =   "Draw Rectangle"
  552.                Object.Tag             =   "Rectangle"
  553.                ImageIndex      =   4
  554.                Style           =   2
  555.             EndProperty
  556.             BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  557.                Key             =   "RoundRectangle"
  558.                Object.ToolTipText     =   "Draw Round Rectangle"
  559.                Object.Tag             =   "RoundRectangle"
  560.                ImageIndex      =   5
  561.                Style           =   2
  562.             EndProperty
  563.             BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  564.                Key             =   "Ellipse"
  565.                Object.ToolTipText     =   "Draw Ellipse"
  566.                Object.Tag             =   "Ellipse"
  567.                ImageIndex      =   6
  568.                Style           =   2
  569.             EndProperty
  570.             BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  571.                Key             =   "Polygon"
  572.                Object.ToolTipText     =   "Draw Polygon"
  573.                Object.Tag             =   "Polygon"
  574.                ImageIndex      =   7
  575.                Style           =   2
  576.             EndProperty
  577.             BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  578.                Key             =   "Star"
  579.                Object.ToolTipText     =   "Draw Star"
  580.                Object.Tag             =   "Star"
  581.                ImageIndex      =   8
  582.                Style           =   2
  583.             EndProperty
  584.             BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  585.                Key             =   "Text"
  586.                Object.ToolTipText     =   "Draw Text"
  587.                Object.Tag             =   "Text"
  588.                ImageIndex      =   9
  589.                Style           =   2
  590.             EndProperty
  591.             BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  592.                Key             =   "Picture"
  593.                Object.ToolTipText     =   "Insert Picture"
  594.                Object.Tag             =   "Picture"
  595.                ImageIndex      =   10
  596.                Style           =   2
  597.             EndProperty
  598.          EndProperty
  599.       End
  600.    End
  601.    Begin ComCtl3.CoolBar CoolBar1 
  602.       Align           =   1  'Align Top
  603.       Height          =   750
  604.       Left            =   0
  605.       TabIndex        =   2
  606.       Top             =   0
  607.       Width           =   14070
  608.       _ExtentX        =   24818
  609.       _ExtentY        =   1323
  610.       _CBWidth        =   14070
  611.       _CBHeight       =   750
  612.       _Version        =   "6.7.9782"
  613.       Child1          =   "Toolbar1"
  614.       MinWidth1       =   9405
  615.       MinHeight1      =   330
  616.       Width1          =   9405
  617.       NewRow1         =   0   'False
  618.       Child2          =   "Toolbar3"
  619.       MinWidth2       =   1200
  620.       MinHeight2      =   330
  621.       Width2          =   7995
  622.       NewRow2         =   0   'False
  623.       Child3          =   "Toolbar2"
  624.       MinWidth3       =   5595
  625.       MinHeight3      =   330
  626.       Width3          =   4005
  627.       NewRow3         =   -1  'True
  628.       AllowVertical3  =   0   'False
  629.       Begin MSComctlLib.Toolbar Toolbar3 
  630.          Height          =   330
  631.          Left            =   9795
  632.          TabIndex        =   7
  633.          Top             =   30
  634.          Width           =   4185
  635.          _ExtentX        =   7382
  636.          _ExtentY        =   582
  637.          ButtonWidth     =   609
  638.          ButtonHeight    =   582
  639.          AllowCustomize  =   0   'False
  640.          Style           =   1
  641.          ImageList       =   "ImageList1"
  642.          _Version        =   393216
  643.          BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  644.             NumButtons      =   3
  645.             BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  646.                Key             =   "UnZoom"
  647.                Object.ToolTipText     =   "UnZoom"
  648.                Object.Tag             =   "UnZoom"
  649.                ImageIndex      =   33
  650.             EndProperty
  651.             BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  652.                Key             =   "Zoom-"
  653.                Object.ToolTipText     =   "Zoom -"
  654.                Object.Tag             =   "Zoom-"
  655.                ImageIndex      =   34
  656.             EndProperty
  657.             BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  658.                Key             =   "Zoom+"
  659.                Object.ToolTipText     =   "Zoom+"
  660.                Object.Tag             =   "Zoom+"
  661.                ImageIndex      =   35
  662.             EndProperty
  663.          EndProperty
  664.       End
  665.       Begin MSComctlLib.Toolbar Toolbar2 
  666.          Height          =   330
  667.          Left            =   165
  668.          TabIndex        =   6
  669.          Top             =   390
  670.          Width           =   13815
  671.          _ExtentX        =   24368
  672.          _ExtentY        =   582
  673.          ButtonWidth     =   609
  674.          ButtonHeight    =   582
  675.          AllowCustomize  =   0   'False
  676.          Style           =   1
  677.          ImageList       =   "ImageList1"
  678.          _Version        =   393216
  679.          BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  680.             NumButtons      =   18
  681.             BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  682.                Key             =   "SelectAll"
  683.                Object.ToolTipText     =   "Select All"
  684.                Object.Tag             =   "SelectAll"
  685.                ImageIndex      =   18
  686.             EndProperty
  687.             BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  688.                Key             =   "UnselectAll"
  689.                Object.ToolTipText     =   "Unselect All"
  690.                Object.Tag             =   "UnselectAll"
  691.                ImageIndex      =   19
  692.             EndProperty
  693.             BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  694.                Style           =   3
  695.             EndProperty
  696.             BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  697.                Key             =   "AlignLeft"
  698.                Object.ToolTipText     =   "Align Left"
  699.                Object.Tag             =   "AlignLeft"
  700.                ImageIndex      =   20
  701.             EndProperty
  702.             BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  703.                Key             =   "AlignCenterVertical"
  704.                Object.ToolTipText     =   "Align Center Vertical"
  705.                Object.Tag             =   "AlignCenterVertical"
  706.                ImageIndex      =   21
  707.             EndProperty
  708.             BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  709.                Key             =   "AlignRight"
  710.                Object.ToolTipText     =   "Align Right"
  711.                Object.Tag             =   "AlignRight"
  712.                ImageIndex      =   22
  713.             EndProperty
  714.             BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  715.                Key             =   "AlignTop"
  716.                Object.ToolTipText     =   "Align Top"
  717.                Object.Tag             =   "AlignTop"
  718.                ImageIndex      =   23
  719.             EndProperty
  720.             BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  721.                Key             =   "AlignCenterHorizontal"
  722.                Object.ToolTipText     =   "Align Center Horizontal"
  723.                Object.Tag             =   "AlignCenterHorizontal"
  724.                ImageIndex      =   24
  725.             EndProperty
  726.             BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  727.                Key             =   "AlignBottom"
  728.                Object.ToolTipText     =   "Align Bottom"
  729.                Object.Tag             =   "AlignBottom"
  730.                ImageIndex      =   25
  731.             EndProperty
  732.             BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  733.                Key             =   "AlignCenterHorVert"
  734.                Object.ToolTipText     =   "Align Center Horizontal+Vertical"
  735.                Object.Tag             =   "AlignCenterHorVert"
  736.                ImageIndex      =   26
  737.             EndProperty
  738.             BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  739.                Style           =   3
  740.             EndProperty
  741.             BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  742.                Key             =   "BringToFront"
  743.                Object.ToolTipText     =   "Bring to Front"
  744.                Object.Tag             =   "BringToFront"
  745.                ImageIndex      =   27
  746.             EndProperty
  747.             BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  748.                Key             =   "SendToBack"
  749.                Object.ToolTipText     =   "Send to Back"
  750.                Object.Tag             =   "SendToBack"
  751.                ImageIndex      =   28
  752.             EndProperty
  753.             BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  754.                Key             =   "BringForward"
  755.                Object.ToolTipText     =   "Bring Forward"
  756.                Object.Tag             =   "BringForward"
  757.                ImageIndex      =   29
  758.             EndProperty
  759.             BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  760.                Key             =   "SendBackward"
  761.                Object.ToolTipText     =   "Send Backward"
  762.                Object.Tag             =   "SendBackward"
  763.                ImageIndex      =   30
  764.             EndProperty
  765.             BeginProperty Button16 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  766.                Style           =   3
  767.             EndProperty
  768.             BeginProperty Button17 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  769.                Key             =   "Group"
  770.                Object.ToolTipText     =   "Group"
  771.                Object.Tag             =   "Group"
  772.                ImageIndex      =   31
  773.             EndProperty
  774.             BeginProperty Button18 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  775.                Key             =   "Ungroup"
  776.                Object.ToolTipText     =   "Ungroup"
  777.                Object.Tag             =   "Ungroup"
  778.                ImageIndex      =   32
  779.             EndProperty
  780.          EndProperty
  781.       End
  782.       Begin MSComctlLib.Toolbar Toolbar1 
  783.          Height          =   330
  784.          Left            =   165
  785.          TabIndex        =   3
  786.          Top             =   30
  787.          Width           =   9405
  788.          _ExtentX        =   16589
  789.          _ExtentY        =   582
  790.          ButtonWidth     =   609
  791.          ButtonHeight    =   582
  792.          AllowCustomize  =   0   'False
  793.          Style           =   1
  794.          ImageList       =   "ImageList1"
  795.          _Version        =   393216
  796.          BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  797.             NumButtons      =   23
  798.             BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  799.                Key             =   "New"
  800.                Object.ToolTipText     =   "New"
  801.                Object.Tag             =   "New"
  802.                ImageIndex      =   1
  803.             EndProperty
  804.             BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  805.                Key             =   "Open"
  806.                Object.ToolTipText     =   "Open"
  807.                Object.Tag             =   "Open"
  808.                ImageIndex      =   2
  809.             EndProperty
  810.             BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  811.                Key             =   "Save"
  812.                Object.ToolTipText     =   "Save"
  813.                Object.Tag             =   "Save"
  814.                ImageIndex      =   3
  815.             EndProperty
  816.             BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  817.                Key             =   "Export"
  818.                Object.ToolTipText     =   "Export"
  819.                Object.Tag             =   "Export"
  820.                ImageIndex      =   4
  821.             EndProperty
  822.             BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  823.                Style           =   3
  824.             EndProperty
  825.             BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  826.                Key             =   "Cut"
  827.                Object.ToolTipText     =   "Cut"
  828.                Object.Tag             =   "Cut"
  829.                ImageIndex      =   5
  830.             EndProperty
  831.             BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  832.                Key             =   "Copy"
  833.                Object.ToolTipText     =   "Copy"
  834.                Object.Tag             =   "Copy"
  835.                ImageIndex      =   6
  836.             EndProperty
  837.             BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  838.                Key             =   "Paste"
  839.                Object.ToolTipText     =   "Paste"
  840.                Object.Tag             =   "Paste"
  841.                ImageIndex      =   7
  842.             EndProperty
  843.             BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  844.                Style           =   3
  845.             EndProperty
  846.             BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  847.                Key             =   "Undo"
  848.                Object.ToolTipText     =   "Undo"
  849.                Object.Tag             =   "Undo"
  850.                ImageIndex      =   8
  851.             EndProperty
  852.             BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  853.                Key             =   "Redo"
  854.                Object.ToolTipText     =   "Redo"
  855.                Object.Tag             =   "Redo"
  856.                ImageIndex      =   9
  857.             EndProperty
  858.             BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  859.                Style           =   3
  860.             EndProperty
  861.             BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  862.                Key             =   "Delete"
  863.                Object.ToolTipText     =   "Delete"
  864.                Object.Tag             =   "Delete"
  865.                ImageIndex      =   10
  866.             EndProperty
  867.             BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  868.                Style           =   3
  869.             EndProperty
  870.             BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  871.                Key             =   "TextLeft"
  872.                Object.ToolTipText     =   "Align Text Left"
  873.                Object.Tag             =   "AlignText"
  874.                ImageIndex      =   11
  875.                Style           =   2
  876.                Value           =   1
  877.             EndProperty
  878.             BeginProperty Button16 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  879.                Key             =   "TextCenter"
  880.                Object.ToolTipText     =   "Align Text Center"
  881.                Object.Tag             =   "AlignText"
  882.                ImageIndex      =   12
  883.                Style           =   2
  884.             EndProperty
  885.             BeginProperty Button17 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  886.                Key             =   "TextRight"
  887.                Object.ToolTipText     =   "Align Text Right"
  888.                Object.Tag             =   "AlignText"
  889.                ImageIndex      =   13
  890.                Style           =   2
  891.             EndProperty
  892.             BeginProperty Button18 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  893.                Style           =   3
  894.             EndProperty
  895.             BeginProperty Button19 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  896.                Key             =   "Bold"
  897.                Object.ToolTipText     =   "Bold"
  898.                Object.Tag             =   "Bold"
  899.                ImageIndex      =   14
  900.                Style           =   1
  901.             EndProperty
  902.             BeginProperty Button20 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  903.                Key             =   "Italic"
  904.                Object.ToolTipText     =   "Italic"
  905.                Object.Tag             =   "Italic"
  906.                ImageIndex      =   15
  907.                Style           =   1
  908.             EndProperty
  909.             BeginProperty Button21 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  910.                Key             =   "Underline"
  911.                Object.ToolTipText     =   "Underline"
  912.                Object.Tag             =   "Underline"
  913.                ImageIndex      =   16
  914.                Style           =   1
  915.             EndProperty
  916.             BeginProperty Button22 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  917.                Key             =   "Strikethru"
  918.                Object.ToolTipText     =   "Strikethru"
  919.                Object.Tag             =   "Strikethru"
  920.                ImageIndex      =   17
  921.                Style           =   1
  922.             EndProperty
  923.             BeginProperty Button23 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  924.                Style           =   3
  925.             EndProperty
  926.          EndProperty
  927.          Begin VB.ComboBox CboFontName 
  928.             Height          =   315
  929.             Left            =   6540
  930.             Sorted          =   -1  'True
  931.             Style           =   2  'Dropdown List
  932.             TabIndex        =   5
  933.             ToolTipText     =   "Font Name"
  934.             Top             =   0
  935.             Width           =   1905
  936.          End
  937.          Begin VB.ComboBox CboFontSize 
  938.             Height          =   315
  939.             IntegralHeight  =   0   'False
  940.             Left            =   8460
  941.             TabIndex        =   4
  942.             Text            =   "15"
  943.             ToolTipText     =   "Font Size"
  944.             Top             =   0
  945.             Width           =   705
  946.          End
  947.       End
  948.    End
  949.    Begin MSComctlLib.ImageList ImageList1 
  950.       Left            =   3600
  951.       Top             =   7770
  952.       _ExtentX        =   1005
  953.       _ExtentY        =   1005
  954.       BackColor       =   -2147483643
  955.       ImageWidth      =   16
  956.       ImageHeight     =   16
  957.       MaskColor       =   12632256
  958.       _Version        =   393216
  959.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  960.          NumListImages   =   35
  961.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  962.             Picture         =   "Form1.frx":175F7
  963.             Key             =   "New"
  964.             Object.Tag             =   "New"
  965.          EndProperty
  966.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  967.             Picture         =   "Form1.frx":17709
  968.             Key             =   "Open"
  969.             Object.Tag             =   "Open"
  970.          EndProperty
  971.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  972.             Picture         =   "Form1.frx":1781B
  973.             Key             =   "Save"
  974.             Object.Tag             =   "Save"
  975.          EndProperty
  976.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  977.             Picture         =   "Form1.frx":1792D
  978.             Key             =   "Export"
  979.             Object.Tag             =   "Export"
  980.          EndProperty
  981.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  982.             Picture         =   "Form1.frx":17C7F
  983.             Key             =   "Cut"
  984.             Object.Tag             =   "Cut"
  985.          EndProperty
  986.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  987.             Picture         =   "Form1.frx":17D91
  988.             Key             =   "Copy"
  989.             Object.Tag             =   "Copy"
  990.          EndProperty
  991.          BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  992.             Picture         =   "Form1.frx":17EA3
  993.             Key             =   "Paste"
  994.             Object.Tag             =   "Paste"
  995.          EndProperty
  996.          BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  997.             Picture         =   "Form1.frx":17FB5
  998.             Key             =   "Undo"
  999.             Object.Tag             =   "Undo"
  1000.          EndProperty
  1001.          BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  1002.             Picture         =   "Form1.frx":180C7
  1003.             Key             =   "Redo"
  1004.             Object.Tag             =   "Redo"
  1005.          EndProperty
  1006.          BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  1007.             Picture         =   "Form1.frx":181D9
  1008.             Key             =   "Delete"
  1009.             Object.Tag             =   "Delete"
  1010.          EndProperty
  1011.          BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  1012.             Picture         =   "Form1.frx":182EB
  1013.             Key             =   "TextLeft"
  1014.             Object.Tag             =   "TextLeft"
  1015.          EndProperty
  1016.          BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  1017.             Picture         =   "Form1.frx":183FD
  1018.             Key             =   "TextCenter"
  1019.             Object.Tag             =   "TextCenter"
  1020.          EndProperty
  1021.          BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  1022.             Picture         =   "Form1.frx":1850F
  1023.             Key             =   "TextRight"
  1024.             Object.Tag             =   "TextRight"
  1025.          EndProperty
  1026.          BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  1027.             Picture         =   "Form1.frx":18621
  1028.             Key             =   "Bold"
  1029.             Object.Tag             =   "Bold"
  1030.          EndProperty
  1031.          BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  1032.             Picture         =   "Form1.frx":18733
  1033.             Key             =   "Italic"
  1034.             Object.Tag             =   "Italic"
  1035.          EndProperty
  1036.          BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  1037.             Picture         =   "Form1.frx":18845
  1038.             Key             =   "Underline"
  1039.             Object.Tag             =   "Underline"
  1040.          EndProperty
  1041.          BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  1042.             Picture         =   "Form1.frx":18957
  1043.             Key             =   "Strikethru"
  1044.             Object.Tag             =   "Strikethru"
  1045.          EndProperty
  1046.          BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  1047.             Picture         =   "Form1.frx":18A69
  1048.             Key             =   "SelectAll"
  1049.             Object.Tag             =   "SelectAll"
  1050.          EndProperty
  1051.          BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  1052.             Picture         =   "Form1.frx":18DBB
  1053.             Key             =   "UnselectAll"
  1054.             Object.Tag             =   "UnselectAll"
  1055.          EndProperty
  1056.          BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  1057.             Picture         =   "Form1.frx":1910D
  1058.             Key             =   "AlignLeft"
  1059.             Object.Tag             =   "AlignLeft"
  1060.          EndProperty
  1061.          BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  1062.             Picture         =   "Form1.frx":1945F
  1063.             Key             =   "AlignCenterVertical"
  1064.             Object.Tag             =   "AlignCenterVertical"
  1065.          EndProperty
  1066.          BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  1067.             Picture         =   "Form1.frx":197B1
  1068.             Key             =   "AlignRight"
  1069.             Object.Tag             =   "AlignRight"
  1070.          EndProperty
  1071.          BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  1072.             Picture         =   "Form1.frx":19B03
  1073.             Key             =   "AlignTop"
  1074.             Object.Tag             =   "AlignTop"
  1075.          EndProperty
  1076.          BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  1077.             Picture         =   "Form1.frx":19E55
  1078.             Key             =   "AlignCenterHorizontal"
  1079.             Object.Tag             =   "AlignCenterHorizontal"
  1080.          EndProperty
  1081.          BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  1082.             Picture         =   "Form1.frx":1A1A7
  1083.             Key             =   "AlignBottom"
  1084.             Object.Tag             =   "AlignBottom"
  1085.          EndProperty
  1086.          BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  1087.             Picture         =   "Form1.frx":1A4F9
  1088.             Key             =   "AlignCenterVerticalHorizontal"
  1089.             Object.Tag             =   "AlignCenterVerticalHorizontal"
  1090.          EndProperty
  1091.          BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  1092.             Picture         =   "Form1.frx":1A84B
  1093.             Key             =   "BringToFront"
  1094.             Object.Tag             =   "BringToFront"
  1095.          EndProperty
  1096.          BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  1097.             Picture         =   "Form1.frx":1A95D
  1098.             Key             =   "SendToBack"
  1099.             Object.Tag             =   "SendToBack"
  1100.          EndProperty
  1101.          BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  1102.             Picture         =   "Form1.frx":1AA6F
  1103.             Key             =   "BringForward"
  1104.             Object.Tag             =   "BringForward"
  1105.          EndProperty
  1106.          BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  1107.             Picture         =   "Form1.frx":1AB81
  1108.             Key             =   "SendBackward"
  1109.             Object.Tag             =   "SendBackward"
  1110.          EndProperty
  1111.          BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  1112.             Picture         =   "Form1.frx":1AC93
  1113.             Key             =   "Group"
  1114.             Object.Tag             =   "Group"
  1115.          EndProperty
  1116.          BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  1117.             Picture         =   "Form1.frx":1ADA5
  1118.             Key             =   "Ungroup"
  1119.             Object.Tag             =   "Ungroup"
  1120.          EndProperty
  1121.          BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  1122.             Picture         =   "Form1.frx":1AEB7
  1123.             Key             =   "Zoom100"
  1124.             Object.Tag             =   "Zoom100"
  1125.          EndProperty
  1126.          BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  1127.             Picture         =   "Form1.frx":1B209
  1128.             Key             =   "Zoom-"
  1129.             Object.Tag             =   "Zoom-"
  1130.          EndProperty
  1131.          BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  1132.             Picture         =   "Form1.frx":1B55B
  1133.             Key             =   "Zoom+"
  1134.             Object.Tag             =   "Zoom+"
  1135.          EndProperty
  1136.       EndProperty
  1137.    End
  1138.    Begin ObjectDraw.ObjDraw ObjDraw1 
  1139.       Height          =   6900
  1140.       Left            =   600
  1141.       TabIndex        =   0
  1142.       Top             =   930
  1143.       Width           =   10080
  1144.       _ExtentX        =   17780
  1145.       _ExtentY        =   12171
  1146.       CanvasWidth     =   800
  1147.       CanvasHeight    =   600
  1148.       UndoBufferSize  =   20
  1149.    End
  1150.    Begin VB.PictureBox PicLoad 
  1151.       AutoRedraw      =   -1  'True
  1152.       AutoSize        =   -1  'True
  1153.       Height          =   585
  1154.       Left            =   1350
  1155.       ScaleHeight     =   525
  1156.       ScaleWidth      =   375
  1157.       TabIndex        =   1
  1158.       Top             =   5820
  1159.       Visible         =   0   'False
  1160.       Width           =   435
  1161.    End
  1162.    Begin MSComDlg.CommonDialog cDialog 
  1163.       Left            =   0
  1164.       Top             =   7980
  1165.       _ExtentX        =   847
  1166.       _ExtentY        =   847
  1167.       _Version        =   393216
  1168.    End
  1169.    Begin VB.Menu mnuFile 
  1170.       Caption         =   "File"
  1171.       Begin VB.Menu SmnuFile 
  1172.          Caption         =   "New"
  1173.          Index           =   0
  1174.       End
  1175.       Begin VB.Menu SmnuFile 
  1176.          Caption         =   "Open"
  1177.          Index           =   1
  1178.       End
  1179.       Begin VB.Menu SmnuFile 
  1180.          Caption         =   "Save"
  1181.          Index           =   2
  1182.       End
  1183.       Begin VB.Menu SmnuFile 
  1184.          Caption         =   "Export to Bitmap"
  1185.          Index           =   3
  1186.       End
  1187.       Begin VB.Menu SmnuFile 
  1188.          Caption         =   "-"
  1189.          Index           =   4
  1190.       End
  1191.       Begin VB.Menu SmnuFile 
  1192.          Caption         =   "Print"
  1193.          Index           =   5
  1194.       End
  1195.       Begin VB.Menu SmnuFile 
  1196.          Caption         =   "-"
  1197.          Index           =   6
  1198.       End
  1199.       Begin VB.Menu SmnuFile 
  1200.          Caption         =   "Exit"
  1201.          Index           =   7
  1202.       End
  1203.    End
  1204.    Begin VB.Menu mnuEdit 
  1205.       Caption         =   "Edit"
  1206.       Begin VB.Menu SmnuEdit 
  1207.          Caption         =   "Undo"
  1208.          Index           =   0
  1209.          Shortcut        =   ^Z
  1210.       End
  1211.       Begin VB.Menu SmnuEdit 
  1212.          Caption         =   "Redo"
  1213.          Index           =   1
  1214.          Shortcut        =   ^Y
  1215.       End
  1216.       Begin VB.Menu SmnuEdit 
  1217.          Caption         =   "-"
  1218.          Index           =   2
  1219.       End
  1220.       Begin VB.Menu SmnuEdit 
  1221.          Caption         =   "Cut"
  1222.          Index           =   3
  1223.          Shortcut        =   ^X
  1224.       End
  1225.       Begin VB.Menu SmnuEdit 
  1226.          Caption         =   "Copy"
  1227.          Index           =   4
  1228.          Shortcut        =   ^C
  1229.       End
  1230.       Begin VB.Menu SmnuEdit 
  1231.          Caption         =   "Paste"
  1232.          Index           =   5
  1233.          Shortcut        =   ^V
  1234.       End
  1235.       Begin VB.Menu SmnuEdit 
  1236.          Caption         =   "-"
  1237.          Index           =   6
  1238.       End
  1239.       Begin VB.Menu SmnuEdit 
  1240.          Caption         =   "Delete"
  1241.          Index           =   7
  1242.          Shortcut        =   {DEL}
  1243.       End
  1244.       Begin VB.Menu SmnuEdit 
  1245.          Caption         =   "-"
  1246.          Index           =   8
  1247.       End
  1248.       Begin VB.Menu SmnuEdit 
  1249.          Caption         =   "Select All"
  1250.          Index           =   9
  1251.          Shortcut        =   ^A
  1252.       End
  1253.       Begin VB.Menu SmnuEdit 
  1254.          Caption         =   "-"
  1255.          Index           =   10
  1256.       End
  1257.       Begin VB.Menu SmnuEdit 
  1258.          Caption         =   "Group"
  1259.          Index           =   11
  1260.       End
  1261.       Begin VB.Menu SmnuEdit 
  1262.          Caption         =   "Ungroup"
  1263.          Index           =   12
  1264.       End
  1265.    End
  1266.    Begin VB.Menu mnuZoom 
  1267.       Caption         =   "Zoom (100%)"
  1268.       Begin VB.Menu SmnuZoom 
  1269.          Caption         =   "10%"
  1270.          Index           =   0
  1271.       End
  1272.       Begin VB.Menu SmnuZoom 
  1273.          Caption         =   "25%"
  1274.          Index           =   1
  1275.       End
  1276.       Begin VB.Menu SmnuZoom 
  1277.          Caption         =   "50%"
  1278.          Index           =   2
  1279.       End
  1280.       Begin VB.Menu SmnuZoom 
  1281.          Caption         =   "100%"
  1282.          Checked         =   -1  'True
  1283.          Index           =   3
  1284.       End
  1285.       Begin VB.Menu SmnuZoom 
  1286.          Caption         =   "150%"
  1287.          Index           =   4
  1288.       End
  1289.       Begin VB.Menu SmnuZoom 
  1290.          Caption         =   "200%"
  1291.          Index           =   5
  1292.       End
  1293.       Begin VB.Menu SmnuZoom 
  1294.          Caption         =   "400%"
  1295.          Index           =   6
  1296.       End
  1297.    End
  1298.    Begin VB.Menu mnuOptions 
  1299.       Caption         =   "Options"
  1300.       Begin VB.Menu SmnuOptions 
  1301.          Caption         =   "Canvas Size"
  1302.          Index           =   0
  1303.       End
  1304.    End
  1305. End
  1306. Attribute VB_Name = "Form1"
  1307. Attribute VB_GlobalNameSpace = False
  1308. Attribute VB_Creatable = False
  1309. Attribute VB_PredeclaredId = True
  1310. Attribute VB_Exposed = False
  1311. Option Explicit
  1312.  
  1313. Dim doNothing As Boolean
  1314. Dim Answer As VbMsgBoxResult
  1315. Dim Modified As Boolean
  1316.  
  1317. Dim mTxtAlign As AlignmentConstants
  1318. Dim mBold As Boolean
  1319. Dim mItalic As Boolean
  1320. Dim mUnderline As Boolean
  1321. Dim mStrikethru As Boolean
  1322. Dim ColorIndex As Integer
  1323.  
  1324. Dim bFillColor As Long
  1325. Dim bBorderColor As Long
  1326. Dim bBackColor As Long
  1327. Dim bPtsQty As Integer
  1328. Private Function FileExist(ByVal MyFile As String) As Boolean
  1329.     FileExist = (Dir(MyFile) <> "")
  1330. End Function
  1331. Private Sub CboFill_Click()
  1332. If doNothing = True Then Exit Sub
  1333. If ObjDraw1.CurrentObject > -1 Then
  1334. ObjDraw1.ModifyObject , , , , , bFillColor, CboFill.ListIndex, bBorderColor
  1335. End If
  1336. End Sub
  1337.  
  1338.  
  1339. Private Sub CboFontName_Click()
  1340. On Error Resume Next
  1341. If doNothing = True Then Exit Sub
  1342. If ObjDraw1.ObjectType = mText And doNothing = False Then
  1343. ObjDraw1.ModifyObject , , , , , , , , , , CboFontName.Text
  1344. End If
  1345. ObjDraw1.SetFocus
  1346. End Sub
  1347.  
  1348.  
  1349. Private Sub CboFontSize_Change()
  1350. On Error Resume Next
  1351.  
  1352. If doNothing = True Then Exit Sub
  1353. If ObjDraw1.ObjectType = mText And doNothing = False And Len(Trim(CboFontSize.Text)) > 0 Then
  1354. ObjDraw1.ModifyObject , , , , , , , , , , , CboFontSize.Text
  1355. End If
  1356. ObjDraw1.SetFocus
  1357. End Sub
  1358.  
  1359. Private Sub CboFontSize_Click()
  1360. If ObjDraw1.ObjectType = mText And doNothing = False Then
  1361. ObjDraw1.ModifyObject , , , , , , , , , , , CboFontSize.Text
  1362. End If
  1363. End Sub
  1364.  
  1365.  
  1366.  
  1367.  
  1368.  
  1369. Private Sub ColorPal1_ColorOver(cColor As Long)
  1370. Dim sTmp As String
  1371. sTmp = Right("000000" & Hex(cColor), 6)
  1372. LblColor.Caption = "Hex:" & sTmp & vbCrLf & " Red:" & Int("&H" & Right$(sTmp, 2)) & _
  1373. " - Green:" & Int("&H" & Mid$(sTmp, 3, 2)) & " - Blue:" & Int("&H" & Left$(sTmp, 2))
  1374.  
  1375. End Sub
  1376.  
  1377. Private Sub ColorPal1_ColorSelected(cColor As Long)
  1378. Dim sTmp As String
  1379. sTmp = Right("000000" & Hex(cColor), 6)
  1380. ScrCol(0).Value = Int("&H" & Right$(sTmp, 2))
  1381. ScrCol(1).Value = Int("&H" & Mid$(sTmp, 3, 2))
  1382. ScrCol(2).Value = Int("&H" & Left$(sTmp, 2))
  1383.  
  1384. OpColor(ColorIndex).BackColor = cColor
  1385. bFillColor = OpColor(0).BackColor
  1386. bBorderColor = OpColor(1).BackColor
  1387. bBackColor = OpColor(2).BackColor
  1388.  
  1389. If doNothing = True Then Exit Sub
  1390.  
  1391. Select Case ColorIndex
  1392.     Case 0
  1393.     If ObjDraw1.CurrentObject > -1 Then
  1394.     ObjDraw1.ModifyObject , , , , , bFillColor, CboFill.ListIndex, bBorderColor
  1395.     End If
  1396.     Case 1
  1397.     If ObjDraw1.CurrentObject > -1 Then
  1398.     ObjDraw1.ModifyObject , , , , , bFillColor, CboFill.ListIndex, bBorderColor
  1399.     End If
  1400.     Case 2
  1401.     ObjDraw1.BackColor = bBackColor
  1402. End Select
  1403. ObjDraw1.SetFocus
  1404. End Sub
  1405.  
  1406. Private Sub ColorPal1_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)
  1407. If Button = 2 Then
  1408.     With cDialog
  1409.     .DialogTitle = "Open Palette"
  1410.     .Filter = "Palette (*.pal)|*.pal"
  1411.     .FileName = ""
  1412.     .ShowOpen
  1413.     .FileName = Trim(.FileName)
  1414.         If Len(.FileName) > 0 And FileExist(.FileName) = True Then
  1415.         ColorPal1.LoadPalette .FileName
  1416.         End If
  1417.     End With
  1418. End If
  1419. End Sub
  1420.  
  1421. Private Sub CoolBar1_HeightChanged(ByVal NewHeight As Single)
  1422. Form_Resize
  1423. End Sub
  1424.  
  1425. Private Sub CoolBar3_HeightChanged(ByVal NewHeight As Single)
  1426. Form_Resize
  1427. End Sub
  1428.  
  1429. Private Sub Form_Load()
  1430. Dim n As Integer
  1431. CboFontName.Clear
  1432.  
  1433. For n = 1 To Screen.FontCount - 1
  1434. CboFontName.AddItem Screen.Fonts(n)
  1435. Next n
  1436.  
  1437. CboFontName.Text = "Arial"
  1438.  
  1439. For n = 5 To 100
  1440. CboFontSize.AddItem n
  1441. Next n
  1442.  
  1443. CboFontSize.Text = 15
  1444. CboFill.ListIndex = 0
  1445. ColorIndex = 0
  1446.  
  1447. bFillColor = OpColor(0).BackColor
  1448. bBorderColor = OpColor(1).BackColor
  1449. bBackColor = OpColor(2).BackColor
  1450.  
  1451. End Sub
  1452.  
  1453.  
  1454. Private Sub Form_Paint()
  1455. UpdToolBar
  1456. End Sub
  1457.  
  1458.  
  1459. Private Sub Form_Resize()
  1460. If Me.WindowState <> 1 Then
  1461. ObjDraw1.Width = Me.Width - CoolBar2.Width - CoolBar3.Width - 175
  1462. ObjDraw1.Height = Me.Height - CoolBar1.Height - StatusBar1.Height - 890
  1463. ObjDraw1.Top = CoolBar1.Height
  1464. ObjDraw1.Left = CoolBar2.Width
  1465.  
  1466. End If
  1467. End Sub
  1468.  
  1469.  
  1470. Private Sub Form_Unload(Cancel As Integer)
  1471. If Modified = True Then
  1472. Answer = MsgBox("The drawing as been modified, do you want to save-it before quit?", vbDefaultButton1 + vbYesNoCancel)
  1473.     If Answer = vbYes Then
  1474.     Cancel = True
  1475.         With cDialog
  1476.         .DialogTitle = "Save Project"
  1477.         .Filter = "Object Draw Project File (*.ojp)|*.ojp"
  1478.         .FileName = ""
  1479.         .ShowSave
  1480.         .FileName = Trim(.FileName)
  1481.             If Len(.FileName) > 0 Then
  1482.             ObjDraw1.SaveProjects .FileName
  1483.             End If
  1484.         End With
  1485.     End
  1486.     ElseIf Answer = vbCancel Then
  1487.     Cancel = True
  1488.     Exit Sub
  1489.     End If
  1490. End If
  1491. End
  1492. End Sub
  1493.  
  1494.  
  1495. Private Sub LblColor_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
  1496. LblColor.Caption = ""
  1497. End Sub
  1498.  
  1499.  
  1500. Private Sub mnuEdit_Click()
  1501. If ObjDraw1.CurrentObject > -1 Then
  1502. SmnuEdit(3).Enabled = True
  1503. SmnuEdit(4).Enabled = True
  1504. SmnuEdit(7).Enabled = True
  1505. Else
  1506. SmnuEdit(3).Enabled = False
  1507. SmnuEdit(4).Enabled = False
  1508. SmnuEdit(7).Enabled = False
  1509. End If
  1510.  
  1511. SmnuEdit(5).Enabled = ObjDraw1.ObjectInClipboard
  1512. End Sub
  1513.  
  1514. Private Sub mnuZoom_Click()
  1515. StatusBar1.Panels(1).Text = "You can also change the Zoom Factor with ""+"" & ""-"" on KeyPad"
  1516. End Sub
  1517.  
  1518. Private Sub ObjDraw1_KeyDown(KeyAscii As Integer, Shift As Integer)
  1519. If KeyAscii >= 37 And KeyAscii <= 40 Then
  1520. StatusBar1.Panels(1).Text = "Press ""Ctrl"" key with arrows keys to switch selection"
  1521. ElseIf KeyAscii = vbKeyAdd Or KeyAscii = vbKeySubtract Then
  1522. mnuZoom.Caption = "Zoom (" & Round(ObjDraw1.ZoomFactor * 100) & "%)"
  1523. End If
  1524. End Sub
  1525.  
  1526. Private Sub ObjDraw1_KeyUp(KeyAscii As Integer, Shift As Integer)
  1527. StatusBar1.Panels(1).Text = ""
  1528. End Sub
  1529.  
  1530.  
  1531. Private Sub ObjDraw1_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
  1532. StatusBar1.Panels(2).Text = "X: " & x & " - Y: " & Y
  1533. End Sub
  1534.  
  1535. Private Sub ObjDraw1_NewDrawingEnd()
  1536. Toolbar4.Buttons(1).Value = tbrPressed
  1537. End Sub
  1538.  
  1539. Private Sub ObjDraw1_ObjectResize(ObjType As ObjectDraw.myObType, Index As Long, ObjLeft As Single, ObjTop As Single, ObjWidth As Single, ObjHeight As Single, ObjAspect As Single)
  1540. Dim tmp As String
  1541.  
  1542. Select Case ObjType
  1543.     Case mline
  1544.     tmp = "Line"
  1545.     Case mArc
  1546.     tmp = "Arc"
  1547.     Case mRectangle
  1548.         If ObjAspect = 0 Then
  1549.         tmp = "Rectangle"
  1550.         Else
  1551.         tmp = "Square"
  1552.         End If
  1553.     Case mEllipse
  1554.         If ObjAspect = 0 Then
  1555.         tmp = "Ellipse"
  1556.         Else
  1557.         tmp = "Circle"
  1558.         End If
  1559.     Case mText
  1560.     tmp = "Text"
  1561.     Case mImage
  1562.     tmp = "Image"
  1563. End Select
  1564.  
  1565. StatusBar1.Panels(3).Text = tmp & "   Pos. X:" & ObjLeft & "  Y:" & ObjTop & _
  1566. "   Size W:" & ObjWidth & "  H:" & ObjHeight & " "
  1567.  
  1568. End Sub
  1569.  
  1570. Private Sub ObjDraw1_ObjSelected(ObjType As ObjectDraw.myObType, Index As Long, ObjLeft As Single, ObjTop As Single, ObjWidth As Single, ObjHeight As Single, ObjAngle As Single, ObjFillColor As Long, ObjFillStyle As myFill, ObjBorderColor As Long, ObjBorderWidth As Integer, ObjAspect As Single, ObjFontName As String, ObjFontSize As Single, ObjFontBold As Boolean, ObjFontItalic As Boolean, ObjFontUnderline As Boolean, ObjFontStrikethru As Boolean, ObjText As String, ObjTextAlign As AlignmentConstants, ObjPointQty As Integer)
  1571. Dim tmp As String
  1572.  
  1573. If ObjType <> -1 Then
  1574. doNothing = True
  1575.     If ObjFillColor > -1 Then bFillColor = ObjFillColor
  1576.     OpColor(0).BackColor = bFillColor
  1577.     If ObjFillStyle > -1 Then CboFill.ListIndex = ObjFillStyle
  1578.     If ObjAngle > -1 Then Slider1.Value = ObjAngle
  1579.     Label1(0).Caption = "Rotation: " & Slider1.Value & "░"
  1580.     If ObjBorderColor > -1 Then bBorderColor = ObjBorderColor
  1581.     OpColor(1).BackColor = bBorderColor
  1582.     If ObjType <> mText Then VScroll1.Value = ObjBorderWidth
  1583.     TxtBorder.Text = VScroll1.Value
  1584.     If ObjFontName <> "" Then CboFontName.Text = ObjFontName
  1585.     If ObjFontSize > 0 Then CboFontSize.Text = ObjFontSize
  1586.     If ObjType = mPolygon Or ObjType = mStar Then
  1587.         If ObjPointQty > 0 And ObjPointQty <= 30 Then
  1588.         VScroll2.Value = ObjPointQty
  1589.         TxtPoint.Text = ObjPointQty
  1590.         End If
  1591.     ElseIf ObjType = mRoundRectangle Then
  1592.     VScroll3.Value = ObjPointQty
  1593.     TxtRound.Text = ObjPointQty
  1594.     End If
  1595.     TxtPoint.Text = VScroll2.Value
  1596.     mBold = CBool(Int(ObjFontBold))
  1597.     Toolbar1.Buttons(19).Value = Abs(Int(ObjFontBold))
  1598.     mItalic = CBool(Int(ObjFontItalic))
  1599.     Toolbar1.Buttons(20).Value = Abs(Int(ObjFontItalic))
  1600.     mUnderline = CBool(Int(ObjFontUnderline))
  1601.     Toolbar1.Buttons(21).Value = Abs(Int(ObjFontUnderline))
  1602.     mStrikethru = CBool(Int(ObjFontStrikethru))
  1603.     Toolbar1.Buttons(22).Value = Abs(Int(ObjFontStrikethru))
  1604.  
  1605.     If ObjTextAlign > -1 Then
  1606.     mTxtAlign = ObjTextAlign
  1607.     Select Case mTxtAlign
  1608.         Case vbLeftJustify
  1609.         Toolbar1.Buttons(15).Value = tbrPressed
  1610.         Case vbRightJustify
  1611.         Toolbar1.Buttons(17).Value = tbrPressed
  1612.         Case vbCenter
  1613.         Toolbar1.Buttons(16).Value = tbrPressed
  1614.     End Select
  1615.     
  1616.     End If
  1617. doNothing = False
  1618.  
  1619. Select Case ObjType
  1620.     Case mline
  1621.     tmp = "Line"
  1622.     Case mArc
  1623.     tmp = "Arc"
  1624.     Case mRectangle
  1625.         If ObjAspect = 0 Then
  1626.         tmp = "Rectangle"
  1627.         Else
  1628.         tmp = "Square"
  1629.         End If
  1630.     Case mEllipse
  1631.         If ObjAspect = 0 Then
  1632.         tmp = "Ellipse"
  1633.         Else
  1634.         tmp = "Circle"
  1635.         End If
  1636.     Case mText
  1637.     tmp = "Text"
  1638.     Case mImage
  1639.     tmp = "Image"
  1640.     Case mPolygon
  1641.     tmp = "Polygon"
  1642.     Case mStar
  1643.     tmp = "Star"
  1644. End Select
  1645. StatusBar1.Panels(3).Text = tmp & "   Pos. X:" & ObjLeft & "  Y:" & ObjTop & _
  1646. "   Size W:" & ObjWidth & "  H:" & ObjHeight & " "
  1647. Else
  1648. StatusBar1.Panels(3).Text = ""
  1649. End If
  1650. UpdToolBar
  1651.  
  1652. End Sub
  1653.  
  1654.  
  1655. Private Sub ObjDraw1_Prompt2Save()
  1656. Modified = True
  1657. End Sub
  1658.  
  1659. Private Sub ObjDraw1_UndoRedo(LastUndo As Boolean, LastRedo As Boolean)
  1660. SmnuEdit(0).Enabled = Not LastUndo
  1661. SmnuEdit(1).Enabled = Not LastRedo
  1662. Toolbar1.Buttons(10).Enabled = Not LastUndo
  1663. Toolbar1.Buttons(11).Enabled = Not LastRedo
  1664. End Sub
  1665.  
  1666. Private Sub OpColor_Click(Index As Integer)
  1667. Dim sTmp As String
  1668. ColorIndex = Index
  1669.  
  1670. sTmp = Right("000000" & Hex(OpColor(Index).BackColor), 6)
  1671. ScrCol(0).Value = Int("&H" & Right$(sTmp, 2))
  1672. ScrCol(1).Value = Int("&H" & Mid$(sTmp, 3, 2))
  1673. ScrCol(2).Value = Int("&H" & Left$(sTmp, 2))
  1674. End Sub
  1675.  
  1676. Private Sub OpColor_MouseMove(Index As Integer, Button As Integer, Shift As Integer, x As Single, Y As Single)
  1677. Dim sTmp As String
  1678. sTmp = Right("000000" & Hex(OpColor(Index).BackColor), 6)
  1679. LblColor.Caption = "Hex:" & sTmp & vbCrLf & " Red:" & Int("&H" & Right$(sTmp, 2)) & _
  1680. " - Green:" & Int("&H" & Mid$(sTmp, 3, 2)) & " - Blue:" & Int("&H" & Left$(sTmp, 2))
  1681. End Sub
  1682.  
  1683.  
  1684. Private Sub PicProperty1_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
  1685. LblColor.Caption = ""
  1686. End Sub
  1687.  
  1688.  
  1689. Private Sub ScrCol_Change(Index As Integer)
  1690. Dim tColor As Long
  1691.  
  1692. TxtColor(Index).Text = ScrCol(Index).Value
  1693.  
  1694. tColor = RGB(ScrCol(0).Value, ScrCol(1).Value, ScrCol(2).Value)
  1695.  
  1696. OpColor(ColorIndex).BackColor = tColor
  1697. bFillColor = OpColor(0).BackColor
  1698. bBorderColor = OpColor(1).BackColor
  1699. bBackColor = OpColor(2).BackColor
  1700.  
  1701. If doNothing = True Then Exit Sub
  1702.  
  1703. Select Case ColorIndex
  1704.     Case 0
  1705.     If ObjDraw1.CurrentObject > -1 Then
  1706.     ObjDraw1.ModifyObject , , , , , bFillColor, CboFill.ListIndex, bBorderColor
  1707.     End If
  1708.     Case 1
  1709.     If ObjDraw1.CurrentObject > -1 Then
  1710.     ObjDraw1.ModifyObject , , , , , bFillColor, CboFill.ListIndex, bBorderColor
  1711.     End If
  1712.     Case 2
  1713.     ObjDraw1.BackColor = bBackColor
  1714. End Select
  1715.  
  1716. End Sub
  1717.  
  1718. Private Sub Slider1_MouseUp(Button As Integer, Shift As Integer, x As Single, Y As Single)
  1719. If doNothing = True Then Exit Sub
  1720. ObjDraw1.ModifyObject , , , , CSng(Slider1.Value)
  1721. End Sub
  1722.  
  1723. Private Sub Slider1_Scroll()
  1724. Label1(0).Caption = "Rotation: " & Slider1.Value & "░"
  1725. End Sub
  1726.  
  1727.  
  1728. Private Sub SmnuEdit_Click(Index As Integer)
  1729. Select Case Index
  1730.     Case 0
  1731.     ObjDraw1.Undo
  1732.     Case 1
  1733.     ObjDraw1.Redo
  1734.     Case 2
  1735.     'Separator
  1736.     Case 3
  1737.     ObjDraw1.CopyObject
  1738.     ObjDraw1.DeleteObj
  1739.     Case 4
  1740.     ObjDraw1.CopyObject
  1741.     Case 5
  1742.     ObjDraw1.PasteObject
  1743.     Case 6
  1744.     'Separator
  1745.     Case 7
  1746.     ObjDraw1.DeleteObj
  1747.     Case 8
  1748.     'separator
  1749.     Case 9
  1750.     ObjDraw1.SelectAllObjects
  1751.     Case 10
  1752.     'separator
  1753.     Case 11
  1754.     ObjDraw1.GroupObjects
  1755.     Case 12
  1756.     ObjDraw1.UnGroupObjects
  1757. End Select
  1758. End Sub
  1759.  
  1760. Private Sub SmnuFile_Click(Index As Integer)
  1761. Select Case Index
  1762.     Case 0
  1763.     ObjDraw1.CanvasHeight = 480
  1764.     ObjDraw1.CanvasWidth = 640
  1765.     ObjDraw1.NewProject
  1766.     Modified = False
  1767.     Case 1
  1768.     With cDialog
  1769.     .DialogTitle = "Open Project"
  1770.     .Filter = "Object Draw Project File (*.ojp)|*.ojp"
  1771.     .FileName = ""
  1772.     .ShowOpen
  1773.     .FileName = Trim(.FileName)
  1774.         If Len(.FileName) > 0 And FileExist(.FileName) = True Then
  1775.         ObjDraw1.OpenProjects .FileName
  1776.         bFillColor = ObjDraw1.BackColor
  1777.         End If
  1778.     End With
  1779.     Modified = False
  1780.     Case 2
  1781.     With cDialog
  1782.     .DialogTitle = "Save Project"
  1783.     .Filter = "Object Draw Project File (*.ojp)|*.ojp"
  1784.     .FileName = ""
  1785.     .ShowSave
  1786.     .FileName = Trim(.FileName)
  1787.         If Len(.FileName) > 0 Then
  1788.         ObjDraw1.SaveProjects .FileName
  1789.         End If
  1790.     End With
  1791.     Modified = False
  1792.     Case 3
  1793.     With cDialog
  1794.     .DialogTitle = "Export As BitMap"
  1795.     .Filter = "Bitmap Image File (*.bmp)|*.bmp"
  1796.     .FileName = ""
  1797.     .ShowSave
  1798.     .FileName = Trim(.FileName)
  1799.         If Len(.FileName) > 0 Then
  1800.         ObjDraw1.Export2BMP .FileName
  1801.         End If
  1802.     End With
  1803.     Case 4
  1804.     'Separator
  1805.     Case a 3
  1806.     With cDialog
  1807.     .Diarators Integer, Shi0CboFill.ListIndex,g iase 1
  1808.     If OjDraw1.NortMap"
  1809.     .Filter = "Bitmap Image File (*   End Wip)3eeShowSaveA Trim(.FileName)
  1810.         If Len(.ackColor = OpColor(2).BackColor
  1811.  
  1812. If doNothing = True Then Exit Sub
  1813.  
  1814. Select Case ColorIndex
  1815.     Case 0
  1816.     If
  1817.  
  1818. If doNothing  Case 0
  1819.   QHDraw1.OpenProjects .FileName
  1820.         bFillColor = ObjDraw1.BackColor
  1821.       Cai0CboFill.ListInbjFontSize > 0 Then C'0g = T
  1822.       Cai0CboFill.LiMga
  1823.    (th cDo
  1824. En.p (th cDo
  1825. En.p (th cDo
  1826. En5h
  1827.     CRedo"
  1828.          EndProperty
  1829.          BeginProperty ListImage10 {2C247F27-Lrty
  1830.          BeginPropertlAyProperty ListImagpLAs Ondex, bBorderColor
  1831.     End If
  1832.    3"3  End II%3stIndex = 0
  1833. ColorIndex = 0
  1834.  
  1835. bFndex
  1836.   '0t
  1837. Ob"Y      BeginProperty Images {2C247F25-8591-11D1-B16A-0dex,TLrty
  1838.            SizeCe       SObjFontSiztalic = CBool(Int(ObjFontItalic))erty
  1839.          BeginPropealic = ge),Db           =   "AlignName) = True Then
  1840.