home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 25: Programming / pc_actual_25.iso / Delphi / PolarDraw / data1.cab / Samples / Visual_Basic / VBDraw / DrawVB.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2001-08-31  |  41.3 KB  |  1,126 lines
  1. VERSION 5.00
  2. Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
  3. Object = "{52DE3A21-0A3F-11D4-B9D2-008048FD54E6}#2.0#0"; "POLARDraw20.ocx"
  4. Begin VB.Form frmDrawVB 
  5.    Caption         =   "Polar Draw ActiveX Control - Demo"
  6.    ClientHeight    =   10200
  7.    ClientLeft      =   1500
  8.    ClientTop       =   630
  9.    ClientWidth     =   11880
  10.    Icon            =   "DrawVB.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   10200
  13.    ScaleWidth      =   11880
  14.    Begin ComctlLib.Toolbar Toolbar1 
  15.       Align           =   1  'Align Top
  16.       Height          =   420
  17.       Left            =   0
  18.       TabIndex        =   0
  19.       Top             =   0
  20.       Width           =   11880
  21.       _ExtentX        =   20955
  22.       _ExtentY        =   741
  23.       ButtonWidth     =   609
  24.       ButtonHeight    =   582
  25.       Wrappable       =   0   'False
  26.       Appearance      =   1
  27.       _Version        =   327682
  28.       BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7} 
  29.          NumButtons      =   39
  30.          BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  31.             Key             =   ""
  32.             Object.Tag             =   ""
  33.             Style           =   3
  34.             Object.Width           =   1e-4
  35.             MixedState      =   -1  'True
  36.          EndProperty
  37.          BeginProperty Button2 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  38.             Key             =   "Open"
  39.             Object.ToolTipText     =   "Open"
  40.             Object.Tag             =   ""
  41.          EndProperty
  42.          BeginProperty Button3 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  43.             Key             =   "Save"
  44.             Object.ToolTipText     =   "Save"
  45.             Object.Tag             =   ""
  46.          EndProperty
  47.          BeginProperty Button4 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  48.             Key             =   "Print"
  49.             Object.ToolTipText     =   "Print"
  50.             Object.Tag             =   ""
  51.          EndProperty
  52.          BeginProperty Button5 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  53.             Key             =   ""
  54.             Object.Tag             =   ""
  55.             Style           =   3
  56.             MixedState      =   -1  'True
  57.          EndProperty
  58.          BeginProperty Button6 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  59.             Key             =   "Cut"
  60.             Object.ToolTipText     =   "Cut"
  61.             Object.Tag             =   ""
  62.          EndProperty
  63.          BeginProperty Button7 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  64.             Key             =   "Copy"
  65.             Object.ToolTipText     =   "Copy"
  66.             Object.Tag             =   ""
  67.          EndProperty
  68.          BeginProperty Button8 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  69.             Key             =   "Paste"
  70.             Object.ToolTipText     =   "Paste"
  71.             Object.Tag             =   ""
  72.          EndProperty
  73.          BeginProperty Button9 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  74.             Key             =   "Undo"
  75.             Object.ToolTipText     =   "Undo"
  76.             Object.Tag             =   ""
  77.          EndProperty
  78.          BeginProperty Button10 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  79.             Key             =   "Redo"
  80.             Object.ToolTipText     =   "Redo"
  81.             Object.Tag             =   ""
  82.          EndProperty
  83.          BeginProperty Button11 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  84.             Key             =   ""
  85.             Object.Tag             =   ""
  86.             Style           =   3
  87.             MixedState      =   -1  'True
  88.          EndProperty
  89.          BeginProperty Button12 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  90.             Key             =   "Line"
  91.             Object.ToolTipText     =   "Line"
  92.             Object.Tag             =   ""
  93.          EndProperty
  94.          BeginProperty Button13 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  95.             Key             =   "Curve"
  96.             Object.ToolTipText     =   "Curve"
  97.             Object.Tag             =   ""
  98.          EndProperty
  99.          BeginProperty Button14 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  100.             Key             =   "Freeform"
  101.             Object.ToolTipText     =   "Freeform"
  102.             Object.Tag             =   ""
  103.          EndProperty
  104.          BeginProperty Button15 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  105.             Key             =   "Scribble"
  106.             Object.ToolTipText     =   "Scribble"
  107.             Object.Tag             =   ""
  108.             Object.Width           =   1e-4
  109.          EndProperty
  110.          BeginProperty Button16 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  111.             Key             =   "Rectangle"
  112.             Object.ToolTipText     =   "Rectangle"
  113.             Object.Tag             =   ""
  114.          EndProperty
  115.          BeginProperty Button17 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  116.             Key             =   "Ellipse"
  117.             Object.ToolTipText     =   "Ellipse"
  118.             Object.Tag             =   ""
  119.          EndProperty
  120.          BeginProperty Button18 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  121.             Key             =   "Triangle"
  122.             Object.ToolTipText     =   "Triangle"
  123.             Object.Tag             =   ""
  124.          EndProperty
  125.          BeginProperty Button19 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  126.             Key             =   "Diamond"
  127.             Object.ToolTipText     =   "Diamond"
  128.             Object.Tag             =   ""
  129.          EndProperty
  130.          BeginProperty Button20 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  131.             Key             =   "Text"
  132.             Object.ToolTipText     =   "Text"
  133.             Object.Tag             =   ""
  134.          EndProperty
  135.          BeginProperty Button21 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  136.             Key             =   "TextBox"
  137.             Object.ToolTipText     =   "Edit text of selected shape"
  138.             Object.Tag             =   ""
  139.          EndProperty
  140.          BeginProperty Button22 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  141.             Key             =   ""
  142.             Object.Tag             =   ""
  143.             Style           =   3
  144.             MixedState      =   -1  'True
  145.          EndProperty
  146.          BeginProperty Button23 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  147.             Key             =   "Select"
  148.             Object.ToolTipText     =   "Select"
  149.             Object.Tag             =   ""
  150.          EndProperty
  151.          BeginProperty Button24 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  152.             Key             =   "Rotate"
  153.             Object.ToolTipText     =   "Rotate"
  154.             Object.Tag             =   ""
  155.          EndProperty
  156.          BeginProperty Button25 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  157.             Key             =   "EditPoints"
  158.             Object.ToolTipText     =   "EditPoints"
  159.             Object.Tag             =   ""
  160.          EndProperty
  161.          BeginProperty Button26 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  162.             Key             =   ""
  163.             Object.Tag             =   ""
  164.             Style           =   3
  165.             MixedState      =   -1  'True
  166.          EndProperty
  167.          BeginProperty Button27 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  168.             Key             =   "Group"
  169.             Object.ToolTipText     =   "Group shapes"
  170.             Object.Tag             =   ""
  171.          EndProperty
  172.          BeginProperty Button28 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  173.             Key             =   "Ungroup"
  174.             Object.ToolTipText     =   "Ungroup shapes"
  175.             Object.Tag             =   ""
  176.          EndProperty
  177.          BeginProperty Button29 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  178.             Key             =   "Link"
  179.             Object.ToolTipText     =   "Link shapes"
  180.             Object.Tag             =   ""
  181.          EndProperty
  182.          BeginProperty Button30 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  183.             Key             =   "ConvertToCurve"
  184.             Object.ToolTipText     =   "Convert To Polygon"
  185.             Object.Tag             =   ""
  186.          EndProperty
  187.          BeginProperty Button31 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  188.             Key             =   ""
  189.             Object.Tag             =   ""
  190.             Style           =   3
  191.             MixedState      =   -1  'True
  192.          EndProperty
  193.          BeginProperty Button32 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  194.             Key             =   "BringForward"
  195.             Object.ToolTipText     =   "BringForward"
  196.             Object.Tag             =   ""
  197.          EndProperty
  198.          BeginProperty Button33 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  199.             Key             =   "SendBackward"
  200.             Object.ToolTipText     =   "SendBackward"
  201.             Object.Tag             =   ""
  202.          EndProperty
  203.          BeginProperty Button34 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  204.             Key             =   "BringToFront"
  205.             Object.ToolTipText     =   "BringToFront"
  206.             Object.Tag             =   ""
  207.          EndProperty
  208.          BeginProperty Button35 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  209.             Key             =   "SendToBack"
  210.             Object.ToolTipText     =   "SendToBack"
  211.             Object.Tag             =   ""
  212.          EndProperty
  213.          BeginProperty Button36 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  214.             Key             =   ""
  215.             Object.Tag             =   ""
  216.             Style           =   3
  217.             MixedState      =   -1  'True
  218.          EndProperty
  219.          BeginProperty Button37 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  220.             Key             =   "CenterPage"
  221.             Object.ToolTipText     =   "CenterPage"
  222.             Object.Tag             =   ""
  223.          EndProperty
  224.          BeginProperty Button38 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  225.             Key             =   "ZoomIn"
  226.             Object.ToolTipText     =   "Zoom In"
  227.             Object.Tag             =   ""
  228.          EndProperty
  229.          BeginProperty Button39 {0713F354-850A-101B-AFC0-4210102A8DA7} 
  230.             Key             =   "ZoomOut"
  231.             Object.ToolTipText     =   "Zoom Out"
  232.             Object.Tag             =   ""
  233.          EndProperty
  234.       EndProperty
  235.    End
  236.    Begin POLARDRAW20Lib.POLARDraw POLARDraw1 
  237.       Height          =   3885
  238.       Left            =   810
  239.       TabIndex        =   1
  240.       Top             =   1410
  241.       Width           =   4890
  242.       _Version        =   131072
  243.       _ExtentX        =   8625
  244.       _ExtentY        =   6853
  245.       _StockProps     =   224
  246.       PaperShadowColor=   0
  247.       PaperOutlinecolor=   22975812
  248.       DrawPaperOutline=   -1  'True
  249.       DrawPaperShadow =   -1  'True
  250.       PaperShadowOffset=   0
  251.       ViewportOriginX =   22975812
  252.       ViewportOriginY =   22878684
  253.       PageOriginX     =   1
  254.       PageOriginY     =   201004261
  255.       HorizontalGrid  =   567
  256.       VerticalGrid    =   567
  257.       SelectionCount  =   22740992
  258.       ShapeCount      =   22742704
  259.       CanvasWidth     =   536873485
  260.       CanvasHeight    =   0
  261.       AllowDeletePoints=   -1  'True
  262.    End
  263.    Begin ComctlLib.ImageList ImageList1 
  264.       Left            =   7170
  265.       Top             =   2295
  266.       _ExtentX        =   1005
  267.       _ExtentY        =   1005
  268.       BackColor       =   -2147483643
  269.       ImageWidth      =   16
  270.       ImageHeight     =   16
  271.       MaskColor       =   12632256
  272.       UseMaskColor    =   0   'False
  273.       _Version        =   327682
  274.       BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7} 
  275.          NumListImages   =   35
  276.          BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  277.             Picture         =   "DrawVB.frx":0442
  278.             Key             =   "Open"
  279.             Object.Tag             =   "Open"
  280.          EndProperty
  281.          BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  282.             Picture         =   "DrawVB.frx":0554
  283.             Key             =   "ConvertToCurve"
  284.             Object.Tag             =   "ConvertToCurve"
  285.          EndProperty
  286.          BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  287.             Picture         =   "DrawVB.frx":0666
  288.             Key             =   "ZoomOut"
  289.             Object.Tag             =   "ZoomOut"
  290.          EndProperty
  291.          BeginProperty ListImage4 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  292.             Picture         =   "DrawVB.frx":0778
  293.             Key             =   "ZoomIn"
  294.             Object.Tag             =   "ZoomIn"
  295.          EndProperty
  296.          BeginProperty ListImage5 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  297.             Picture         =   "DrawVB.frx":088A
  298.             Key             =   "Text"
  299.             Object.Tag             =   "Text"
  300.          EndProperty
  301.          BeginProperty ListImage6 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  302.             Picture         =   "DrawVB.frx":099C
  303.             Key             =   "BringForward"
  304.             Object.Tag             =   "BringForward"
  305.          EndProperty
  306.          BeginProperty ListImage7 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  307.             Picture         =   "DrawVB.frx":0AAE
  308.             Key             =   "BringToFront"
  309.             Object.Tag             =   "BringToFront"
  310.          EndProperty
  311.          BeginProperty ListImage8 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  312.             Picture         =   "DrawVB.frx":0BC0
  313.             Key             =   "SendBackward"
  314.             Object.Tag             =   "SendBackward"
  315.          EndProperty
  316.          BeginProperty ListImage9 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  317.             Picture         =   "DrawVB.frx":0CD2
  318.             Key             =   "SendToBack"
  319.          EndProperty
  320.          BeginProperty ListImage10 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  321.             Picture         =   "DrawVB.frx":0DE4
  322.             Key             =   "FitToHeight"
  323.          EndProperty
  324.          BeginProperty ListImage11 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  325.             Picture         =   "DrawVB.frx":0EF6
  326.             Key             =   "FitToPage"
  327.          EndProperty
  328.          BeginProperty ListImage12 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  329.             Picture         =   "DrawVB.frx":1008
  330.             Key             =   "FitToWidth"
  331.             Object.Tag             =   "FitToWidth"
  332.          EndProperty
  333.          BeginProperty ListImage13 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  334.             Picture         =   "DrawVB.frx":111A
  335.             Key             =   "EditPoints"
  336.             Object.Tag             =   "EditPoints"
  337.          EndProperty
  338.          BeginProperty ListImage14 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  339.             Picture         =   "DrawVB.frx":122C
  340.             Key             =   "Save"
  341.             Object.Tag             =   "Save"
  342.          EndProperty
  343.          BeginProperty ListImage15 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  344.             Picture         =   "DrawVB.frx":133E
  345.             Key             =   "Print"
  346.             Object.Tag             =   "Print"
  347.          EndProperty
  348.          BeginProperty ListImage16 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  349.             Picture         =   "DrawVB.frx":1450
  350.             Key             =   "Cut"
  351.             Object.Tag             =   "Cut"
  352.          EndProperty
  353.          BeginProperty ListImage17 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  354.             Picture         =   "DrawVB.frx":1562
  355.             Key             =   "Copy"
  356.             Object.Tag             =   "Copy"
  357.          EndProperty
  358.          BeginProperty ListImage18 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  359.             Picture         =   "DrawVB.frx":1674
  360.             Key             =   "Paste"
  361.             Object.Tag             =   "Paste"
  362.          EndProperty
  363.          BeginProperty ListImage19 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  364.             Picture         =   "DrawVB.frx":1786
  365.             Key             =   "Undo"
  366.             Object.Tag             =   "Undo"
  367.          EndProperty
  368.          BeginProperty ListImage20 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  369.             Picture         =   "DrawVB.frx":1898
  370.             Key             =   "Redo"
  371.             Object.Tag             =   "Redo"
  372.          EndProperty
  373.          BeginProperty ListImage21 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  374.             Picture         =   "DrawVB.frx":19AA
  375.             Key             =   "Line"
  376.             Object.Tag             =   "Line"
  377.          EndProperty
  378.          BeginProperty ListImage22 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  379.             Picture         =   "DrawVB.frx":1ABC
  380.             Key             =   "Curve"
  381.             Object.Tag             =   "Curve"
  382.          EndProperty
  383.          BeginProperty ListImage23 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  384.             Picture         =   "DrawVB.frx":1BCE
  385.             Key             =   "Freeform"
  386.             Object.Tag             =   "Freeform"
  387.          EndProperty
  388.          BeginProperty ListImage24 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  389.             Picture         =   "DrawVB.frx":1CE0
  390.             Key             =   "Rectangle"
  391.             Object.Tag             =   "Rectangle"
  392.          EndProperty
  393.          BeginProperty ListImage25 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  394.             Picture         =   "DrawVB.frx":1DF2
  395.             Key             =   "Scribble"
  396.             Object.Tag             =   "Scribble"
  397.          EndProperty
  398.          BeginProperty ListImage26 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  399.             Picture         =   "DrawVB.frx":1F04
  400.             Key             =   "Ellipse"
  401.             Object.Tag             =   "Ellipse"
  402.          EndProperty
  403.          BeginProperty ListImage27 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  404.             Picture         =   "DrawVB.frx":2016
  405.             Key             =   "Triangle"
  406.             Object.Tag             =   "Triangle"
  407.          EndProperty
  408.          BeginProperty ListImage28 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  409.             Picture         =   "DrawVB.frx":2128
  410.             Key             =   "Diamond"
  411.             Object.Tag             =   "Diamond"
  412.          EndProperty
  413.          BeginProperty ListImage29 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  414.             Picture         =   "DrawVB.frx":223A
  415.             Key             =   "Rotate"
  416.             Object.Tag             =   "Rotate"
  417.          EndProperty
  418.          BeginProperty ListImage30 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  419.             Picture         =   "DrawVB.frx":234C
  420.             Key             =   "Select"
  421.             Object.Tag             =   "Select"
  422.          EndProperty
  423.          BeginProperty ListImage31 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  424.             Picture         =   "DrawVB.frx":245E
  425.             Key             =   "CenterPage"
  426.             Object.Tag             =   "CenterPage"
  427.          EndProperty
  428.          BeginProperty ListImage32 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  429.             Picture         =   "DrawVB.frx":2570
  430.             Key             =   "TextBox"
  431.          EndProperty
  432.          BeginProperty ListImage33 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  433.             Picture         =   "DrawVB.frx":2682
  434.             Key             =   "Link"
  435.             Object.Tag             =   "Link"
  436.          EndProperty
  437.          BeginProperty ListImage34 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  438.             Picture         =   "DrawVB.frx":2794
  439.             Key             =   "Group"
  440.             Object.Tag             =   "Group"
  441.          EndProperty
  442.          BeginProperty ListImage35 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  443.             Picture         =   "DrawVB.frx":28A6
  444.             Key             =   "Ungroup"
  445.             Object.Tag             =   "Ungroup"
  446.          EndProperty
  447.       EndProperty
  448.    End
  449.    Begin VB.Menu mnuFile 
  450.       Caption         =   "&File"
  451.       Begin VB.Menu mnuOpen 
  452.          Caption         =   "Open..."
  453.          Shortcut        =   ^O
  454.       End
  455.       Begin VB.Menu mnuSave 
  456.          Caption         =   "Save..."
  457.          Shortcut        =   ^S
  458.       End
  459.       Begin VB.Menu mnuExport 
  460.          Caption         =   "Export..."
  461.       End
  462.       Begin VB.Menu mnuSeparator4 
  463.          Caption         =   "-"
  464.       End
  465.       Begin VB.Menu mnuPageSetup 
  466.          Caption         =   "Page Setup..."
  467.       End
  468.       Begin VB.Menu mnuPrint 
  469.          Caption         =   "Print..."
  470.          Shortcut        =   ^P
  471.       End
  472.       Begin VB.Menu mnuSeparator0 
  473.          Caption         =   "-"
  474.       End
  475.       Begin VB.Menu mnuExit 
  476.          Caption         =   "Exit"
  477.       End
  478.    End
  479.    Begin VB.Menu mnuEdit 
  480.       Caption         =   "&Edit"
  481.       Begin VB.Menu mnuUndo 
  482.          Caption         =   "Undo"
  483.          Shortcut        =   ^Z
  484.       End
  485.       Begin VB.Menu mnuRedo 
  486.          Caption         =   "Redo"
  487.          Shortcut        =   ^Y
  488.       End
  489.       Begin VB.Menu mnuSeparator1 
  490.          Caption         =   "-"
  491.       End
  492.       Begin VB.Menu mnuCut 
  493.          Caption         =   "Cut"
  494.          Shortcut        =   ^X
  495.       End
  496.       Begin VB.Menu mnuCopy 
  497.          Caption         =   "Copy"
  498.          Shortcut        =   ^C
  499.       End
  500.       Begin VB.Menu mnuPaste 
  501.          Caption         =   "Paste"
  502.          Shortcut        =   ^V
  503.       End
  504.       Begin VB.Menu mnuSeparator10 
  505.          Caption         =   "-"
  506.       End
  507.       Begin VB.Menu mnuSelectAll 
  508.          Caption         =   "Select All"
  509.          Shortcut        =   ^A
  510.       End
  511.    End
  512.    Begin VB.Menu mnuView 
  513.       Caption         =   "&View"
  514.       Begin VB.Menu mnuRulers 
  515.          Caption         =   "Rulers"
  516.          Checked         =   -1  'True
  517.       End
  518.       Begin VB.Menu mnuScroll 
  519.          Caption         =   "Scroll Bars"
  520.          Checked         =   -1  'True
  521.       End
  522.       Begin VB.Menu mnuSeparator2 
  523.          Caption         =   "-"
  524.       End
  525.       Begin VB.Menu mnuGuideLines 
  526.          Caption         =   "Guide&lines..."
  527.       End
  528.       Begin VB.Menu mnuGrid 
  529.          Caption         =   "&Grid..."
  530.       End
  531.       Begin VB.Menu mnuPaper 
  532.          Caption         =   "&Paper..."
  533.       End
  534.       Begin VB.Menu mnuBackground 
  535.          Caption         =   "&Background..."
  536.       End
  537.       Begin VB.Menu mnuSeparator3 
  538.          Caption         =   "-"
  539.       End
  540.       Begin VB.Menu mnuZoom 
  541.          Caption         =   "&Zoom..."
  542.       End
  543.       Begin VB.Menu mnuFit 
  544.          Caption         =   "Fit to"
  545.          Begin VB.Menu mnuFitToPage 
  546.             Caption         =   "Page"
  547.          End
  548.          Begin VB.Menu mnuFitToSelection 
  549.             Caption         =   "Selection"
  550.          End
  551.          Begin VB.Menu mnuFitToHeight 
  552.             Caption         =   "Height"
  553.          End
  554.          Begin VB.Menu mnuFitToWidth 
  555.             Caption         =   "Width"
  556.          End
  557.       End
  558.       Begin VB.Menu mnuCenterPage 
  559.          Caption         =   "Center page"
  560.       End
  561.    End
  562.    Begin VB.Menu mnuNew 
  563.       Caption         =   "&New"
  564.       Begin VB.Menu mnuAutoShape 
  565.          Caption         =   "AutoShape"
  566.          Begin VB.Menu mnuDiamond 
  567.             Caption         =   "Diamond"
  568.          End
  569.          Begin VB.Menu mnuEllipse 
  570.             Caption         =   "Ellipse"
  571.          End
  572.          Begin VB.Menu mnuHexagon 
  573.             Caption         =   "Hexagon"
  574.          End
  575.          Begin VB.Menu mnuIsoscelesTriangle 
  576.             Caption         =   "Isosceles triangle"
  577.          End
  578.          Begin VB.Menu mnuLArrow 
  579.             Caption         =   "Left arrow"
  580.          End
  581.          Begin VB.Menu mnuOctagon 
  582.             Caption         =   "Octagon"
  583.          End
  584.          Begin VB.Menu mnuParallelogram 
  585.             Caption         =   "Parallelogram"
  586.          End
  587.          Begin VB.Menu mnuPentagon 
  588.             Caption         =   "Pentagon"
  589.          End
  590.          Begin VB.Menu mnuPlusSign 
  591.             Caption         =   "Plus sign"
  592.          End
  593.          Begin VB.Menu mnuRectangle 
  594.             Caption         =   "Rectangle"
  595.          End
  596.          Begin VB.Menu mnuRightTriangle 
  597.             Caption         =   "Right triangle"
  598.          End
  599.          Begin VB.Menu mnuRounded 
  600.             Caption         =   "Rounded rectangle"
  601.          End
  602.          Begin VB.Menu mnuStar 
  603.             Caption         =   "Star"
  604.          End
  605.          Begin VB.Menu mnuTrapezoid 
  606.             Caption         =   "Trapezoid"
  607.          End
  608.       End
  609.       Begin VB.Menu mnuPolygon 
  610.          Caption         =   "Line"
  611.          Begin VB.Menu mnuArc 
  612.             Caption         =   "Arc"
  613.          End
  614.          Begin VB.Menu mnuCurve 
  615.             Caption         =   "Curve"
  616.          End
  617.          Begin VB.Menu mnuFreeform 
  618.             Caption         =   "Freeform"
  619.          End
  620.          Begin VB.Menu mnuLineLine 
  621.             Caption         =   "Line"
  622.          End
  623.          Begin VB.Menu mnuScribble 
  624.             Caption         =   "Scribble"
  625.          End
  626.       End
  627.       Begin VB.Menu mnuSpecial 
  628.          Caption         =   "Special"
  629.          Begin VB.Menu mnuPlaintext 
  630.             Caption         =   "Plain Text"
  631.          End
  632.          Begin VB.Menu mnuInsertPicture 
  633.             Caption         =   "Picture"
  634.          End
  635.          Begin VB.Menu mnuDimensionBar 
  636.             Caption         =   "Dimension Bar"
  637.          End
  638.          Begin VB.Menu mnuLink 
  639.             Caption         =   "Link"
  640.          End
  641.       End
  642.    End
  643.    Begin VB.Menu mnuFormat 
  644.       Caption         =   "F&ormat"
  645.       Begin VB.Menu mnuLens 
  646.          Caption         =   "Len&s..."
  647.       End
  648.       Begin VB.Menu mnuLine 
  649.          Caption         =   "&Line"
  650.          Begin VB.Menu mnuStyle 
  651.             Caption         =   "Style..."
  652.          End
  653.          Begin VB.Menu mnuArrows 
  654.             Caption         =   "Arrows..."
  655.          End
  656.       End
  657.       Begin VB.Menu mnuFill 
  658.          Caption         =   "&Fill..."
  659.          Begin VB.Menu mnuSolid 
  660.             Caption         =   "Solid..."
  661.          End
  662.          Begin VB.Menu mnuShade 
  663.             Caption         =   "Shade..."
  664.          End
  665.          Begin VB.Menu mnuPattern 
  666.             Caption         =   "Pattern..."
  667.          End
  668.          Begin VB.Menu mnuTexture 
  669.             Caption         =   "Texture..."
  670.          End
  671.          Begin VB.Menu mnuPicture 
  672.             Caption         =   "Picture..."
  673.          End
  674.       End
  675.       Begin VB.Menu mnuShadow 
  676.          Caption         =   "&Shadow"
  677.          Begin VB.Menu mnuShadowStyle 
  678.             Caption         =   "Style..."
  679.          End
  680.          Begin VB.Menu mnuShadowLens 
  681.             Caption         =   "Shadow lens effect..."
  682.          End
  683.       End
  684.       Begin VB.Menu mnuText 
  685.          Caption         =   "&Text"
  686.          Begin VB.Menu mnuEditFont 
  687.             Caption         =   "Font"
  688.          End
  689.          Begin VB.Menu mnuEditText 
  690.             Caption         =   "Content"
  691.          End
  692.       End
  693.    End
  694.    Begin VB.Menu mnuArrange 
  695.       Caption         =   "&Arrange"
  696.       Begin VB.Menu mnuSendBackward 
  697.          Caption         =   "Send backward"
  698.       End
  699.       Begin VB.Menu mnuBringForward 
  700.          Caption         =   "Bring forward"
  701.       End
  702.       Begin VB.Menu mnuSendToBottom 
  703.          Caption         =   "Send to bottom"
  704.       End
  705.       Begin VB.Menu mnuBringToFront 
  706.          Caption         =   "Bring to front"
  707.       End
  708.    End
  709.    Begin VB.Menu mnuTools 
  710.       Caption         =   "&Tools"
  711.       Begin VB.Menu mnuAddText 
  712.          Caption         =   "Add Text to shape"
  713.       End
  714.       Begin VB.Menu mnuUngroup 
  715.          Caption         =   "Ungroup"
  716.       End
  717.       Begin VB.Menu mnuGroup 
  718.          Caption         =   "Group"
  719.       End
  720.       Begin VB.Menu mnuConvertToCurve 
  721.          Caption         =   "Convert to polygon/curve"
  722.       End
  723.    End
  724. Attribute VB_Name = "frmDrawVB"
  725. Attribute VB_GlobalNameSpace = False
  726. Attribute VB_Creatable = False
  727. Attribute VB_PredeclaredId = True
  728. Attribute VB_Exposed = False
  729. Option Explicit
  730. Dim tbrSelect, tbrRotate, tbrAlignLeft, tbrAlignRight, tbrAlignTop, tbrAlignBottom As Button
  731. Private Sub Form_Unload(Cancel As Integer)
  732.    FreeObjects
  733. End Sub
  734. Private Sub mnuAddText_Click()
  735.    If SelectionExists Then pd_Selection.ShapeRange.Text.Edit
  736. End Sub
  737. Private Sub mnuArc_Click()
  738.    SetEditMode polCreateNew, polArc, -1
  739. End Sub
  740. Private Sub mnuBringToFront_Click()
  741.    If SelectionExists Then pd_Selection.ShapeRange.ZOrder polBringToFront
  742. End Sub
  743. Private Sub mnuArrows_Click()
  744.     POLARDraw1.ArrowsDlg
  745. End Sub
  746. Private Sub mnuBackground_Click()
  747.     pd_Page.BackgroudColor = SetColor(pd_Page.BackgroudColor)
  748. End Sub
  749. Private Sub mnuBringForward_Click()
  750.     If SelectionExists Then pd_Selection.ShapeRange.ZOrder polBringForward
  751. End Sub
  752. Private Sub mnuCenterPage_Click()
  753.     pd_Window.CenterPage
  754. End Sub
  755. Private Sub mnuConvertToCurve_Click()
  756.    If SelectionExists Then pd_Selection.ShapeRange.ConvertToPolygon
  757. End Sub
  758. Private Sub mnuCopy_Click()
  759.     POLARDraw1.Copy
  760. End Sub
  761. Private Sub mnuCut_Click()
  762.     POLARDraw1.Cut
  763. End Sub
  764. Private Sub mnuDimensionBar_Click()
  765.    SetEditMode polCreateNew, polDimensionBar, -1
  766. End Sub
  767. Private Sub mnuEditFont_Click()
  768.    If SelectionExists Then
  769.       If pd_Selection.ShapeRange.Text.Plain = "" Then
  770.          MsgBox "You can change font only to text shapes, not text boxes!", vbInformation, "Invalid selection"
  771.       Else
  772.          POLARDraw1.FontDlg
  773.       End If
  774.    End If
  775. End Sub
  776. Private Sub mnuEditText_Click()
  777.    If SelectionExists Then pd_Selection.ShapeRange.Text.Edit
  778. End Sub
  779. Private Sub mnuExit_Click()
  780.     End
  781. End Sub
  782. Private Sub mnuExport_Click()
  783.    Dim strFileName As String
  784.    strFileName = SavePDRFile("Enhanced metafiles (*.emf)" + Chr(0) + "*.emf" + Chr(0) + "All Files (*.*)" + Chr(0) + "*.*")
  785.    If strFileName <> "" Then POLARDraw1.Write strFileName, 2
  786. End Sub
  787. Private Sub mnuFitToHeight_Click()
  788.     pd_Window.FitTo polFitToHeight
  789. End Sub
  790. Private Sub mnuFitToPage_Click()
  791.     pd_Window.FitTo polFitToPage
  792. End Sub
  793. Private Sub mnuFitToSelection_Click()
  794.     pd_Window.FitTo polFitToSelection
  795. End Sub
  796. Private Sub mnuFitToWidth_Click()
  797.     pd_Window.FitTo polFitToWidth
  798. End Sub
  799. Private Sub mnuFreeform_Click()
  800.     SetEditMode polCreateNew, polFreeform, polFreeformPoly
  801. End Sub
  802. Private Sub mnuGroup_Click()
  803.    If SelectionExists Then pd_Selection.ShapeRange.Group
  804. End Sub
  805. Private Sub mnuHexagon_Click()
  806.     SetEditMode polCreateNew, polHexagon, -1
  807. End Sub
  808. Private Sub mnuInsertPicture_Click()
  809.    Dim strFileName As String
  810.    strFileName = OpenPDRFile("Bitmap files (*.bmp)" + Chr(0) + "*.bmp" + Chr(0) + "JPEG files (*.jpg)" + Chr(0) + "*.jpg" + Chr(0) + "GIF files (*.gif)" + Chr(0) + "*.gif" + Chr(0) + "Metafiles (*.wmf;*.emf)" + Chr(0) + "*.wmf;*.emf" + Chr(0) + "All Files (*.*)" + Chr(0) + "*.*")
  811.    If strFileName = "" Then Exit Sub
  812.    POLARDraw1.EnableRendering = False 'desable redrawing until adding picture is finished
  813.    If strFileName <> "" Then
  814.       Dim pic As StdPicture
  815.       Set pic = LoadPicture(strFileName)
  816.       Dim tempUnits As Long
  817.       Dim pd_shape As POLARDRAW20Lib.Shape
  818.       tempUnits = POLARDraw1.MeasurementUnits
  819.       POLARDraw1.MeasurementUnits = polUnitsTwips
  820.       
  821.       Dim x As Long, y As Long
  822.       x = pic.Width
  823.       y = pic.Height
  824.       pd_Shapes.AddPictureFromObj pic, 0, 0, x, y
  825.    End If
  826.    POLARDraw1.MeasurementUnits = tempUnits
  827.    POLARDraw1.EnableRendering = True
  828.    POLARDraw1.Render
  829. End Sub
  830. Private Sub mnuIsoscelesTriangle_Click()
  831.     SetEditMode polCreateNew, polIsoscelesTriangle, polFreeformPoly
  832. End Sub
  833. Private Sub mnuLens_Click()
  834.     POLARDraw1.LensDlg
  835. End Sub
  836. Private Sub mnuLink_Click()
  837.     SetEditMode polCreateNew, polLink, -1
  838. End Sub
  839. Private Sub mnuOctagon_Click()
  840.     SetEditMode polCreateNew, polOctagon, -1
  841. End Sub
  842. Private Sub mnuOpen_Click()
  843.     Dim strFileName As String
  844.     strFileName = OpenPDRFile("Polar Draw Files (*.pdr)" + Chr(0) + "*.pdr" + Chr(0) + "All Files (*.*)" + Chr(0) + "*.*")
  845.     If strFileName <> "" Then POLARDraw1.Read strFileName
  846. End Sub
  847. Private Sub mnuPageSetup_Click()
  848.     POLARDraw1.PageSetupDlg
  849. End Sub
  850. Private Sub mnuPaper_Click()
  851.     frmPaper.Show vbModal, Me
  852. End Sub
  853. Private Sub mnuParallelogram_Click()
  854.     SetEditMode polCreateNew, polParallelogram, -1
  855. End Sub
  856. Private Sub mnuPaste_Click()
  857.     POLARDraw1.Paste
  858. End Sub
  859. Private Sub mnuPattern_Click()
  860.     POLARDraw1.PatternDlg
  861. End Sub
  862. Private Sub mnuPentagon_Click()
  863.    SetEditMode polCreateNew, polPentagon, -1
  864. End Sub
  865. Private Sub mnuPicture_Click()
  866.     Dim strFileName As String
  867.     strFileName = OpenPDRFile("Bitmap files (*.bmp)" + Chr(0) + "*.bmp" + Chr(0) + "JPEG files (*.jpg)" + Chr(0) + "*.jpg" + Chr(0) + "GIF files (*.gif)" + Chr(0) + "*.gif" + Chr(0) + "Metafiles (*.wmf;*.emf)" + Chr(0) + "*.wmf;*.emf" + Chr(0) + "All Files (*.*)" + Chr(0) + "*.*")
  868.            
  869.     If strFileName <> "" Then
  870.         If SelectionExists Then pd_Selection.ShapeRange.Fill.SetPictureFromObject LoadPicture(strFileName)
  871.     End If
  872. End Sub
  873. Private Sub mnuPlaintext_Click()
  874.    SetEditMode polCreateNew, polPlainText, -1
  875. End Sub
  876. Private Sub mnuPlusSign_Click()
  877.    SetEditMode polCreateNew, polPlusSign, -1
  878. End Sub
  879. Private Sub mnuPolygon_Click()
  880.    SetEditMode polCreateNew, polFreeform, polFreeformPoly
  881. End Sub
  882. Private Sub mnuPrint_Click()
  883.     PrintPicture True
  884. End Sub
  885. Private Sub mnuRectangle_Click()
  886.     SetEditMode polCreateNew, polRectangle, -1
  887. End Sub
  888. Private Sub mnuLineLine_Click()
  889.     SetEditMode polCreateNew, polLine, -1
  890. End Sub
  891. Private Sub mnuRightTriangle_Click()
  892.    SetEditMode polCreateNew, polRightTriangle, -1
  893. End Sub
  894. Private Sub mnuRounded_Click()
  895.    SetEditMode polCreateNew, polRoundRectangle, -1
  896. End Sub
  897. Private Sub mnuScribble_Click()
  898.     SetEditMode polCreateNew, polFreeform, polScribblePoly
  899. End Sub
  900. Private Sub mnuCurve_Click()
  901.     SetEditMode polCreateNew, polFreeform, polCurvePoly
  902. End Sub
  903. Private Sub mnuLArrow_Click()
  904.    SetEditMode polCreateNew, polLeftArrow, -1
  905. End Sub
  906. Private Sub mnuSelectAll_Click()
  907.    pd_Shapes.SelectAll
  908. End Sub
  909. Private Sub mnuSendBackward_Click()
  910.    If SelectionExists Then pd_Selection.ShapeRange.ZOrder polSendBackward
  911. End Sub
  912. Private Sub mnuSendToBottom_Click()
  913.    If SelectionExists Then pd_Selection.ShapeRange.ZOrder polSendToBack
  914. End Sub
  915. Private Sub mnuShadowLens_Click()
  916.    If SelectionExists Then frmShadowLens.Show vbModal, Me
  917. End Sub
  918. Private Sub mnuShadowStyle_Click()
  919.     POLARDraw1.ShadowDlg
  920. End Sub
  921. Private Sub mnuStar_Click()
  922.    SetEditMode polCreateNew, polStar, -1
  923. End Sub
  924. Private Sub mnuStyle_Click()
  925.     POLARDraw1.LineDlg
  926. End Sub
  927. Private Sub mnuEllipse_Click()
  928.     SetEditMode polCreateNew, polEllipse, -1
  929. End Sub
  930. Private Sub mnuDiamond_Click()
  931.     SetEditMode polCreateNew, polDiamond, -1
  932. End Sub
  933. Private Sub mnuRedo_Click()
  934.     POLARDraw1.Redo
  935. End Sub
  936. Private Sub mnuRulers_Click()
  937.     With pd_Environment
  938.       .ShowHorizontalRuler = Not .ShowHorizontalRuler
  939.       .ShowVerticalRuler = Not .ShowVerticalRuler
  940.    End With
  941.    mnuRulers.Checked = Not mnuRulers.Checked
  942.        
  943. End Sub
  944. Private Sub mnuSave_Click()
  945.    Dim strFileName As String
  946.    strFileName = SavePDRFile("Polar Draw Files (*.pdr)" + Chr(0) + "*.pdr" + Chr(0) + "All Files (*.*)" + Chr(0) + "*.*")
  947.    If strFileName <> "" Then POLARDraw1.Write strFileName, 1
  948. End Sub
  949. Private Sub mnuScroll_Click()
  950.    With pd_Environment
  951.       .ShowHorizontalScrollBar = Not .ShowHorizontalScrollBar
  952.       .ShowVerticalScrollBar = Not .ShowVerticalScrollBar
  953.    End With
  954.    mnuScroll.Checked = Not (mnuScroll.Checked)
  955. End Sub
  956. Private Sub mnuShade_Click()
  957.     POLARDraw1.GradientDlg
  958. End Sub
  959. Private Sub mnuSolid_Click()
  960.     If SelectionExists Then
  961.       With pd_Selection.ShapeRange
  962.           .Fill.Type = polSolidColor
  963.           .Fill.Color = SetColor(.Fill.Color)
  964.           .IsFilled = True
  965.       End With
  966.     End If
  967. End Sub
  968. Private Sub mnuTexture_Click()
  969.     POLARDraw1.TextureDlg
  970. End Sub
  971. Private Sub mnuTrapezoid_Click()
  972.       SetEditMode polCreateNew, polTrapezoid, -1
  973. End Sub
  974. Private Sub mnuUndo_Click()
  975.     POLARDraw1.Undo
  976. End Sub
  977. Private Sub mnuUngroup_Click()
  978.    If SelectionExists Then pd_Selection.ShapeRange.Ungroup False
  979. End Sub
  980. Private Sub mnuZoom_Click()
  981.     frmZoom.Show vbModal, Me
  982. End Sub
  983. Private Sub Form_Resize()
  984. Dim x, y As Long
  985.  x = frmDrawVB.ScaleWidth
  986.  y = frmDrawVB.ScaleHeight - Toolbar1.Height
  987.   If (x > 0 And y > 0) Then
  988.     POLARDraw1.Height = y
  989.     POLARDraw1.Width = x
  990.     POLARDraw1.Top = Toolbar1.Height
  991.     POLARDraw1.Left = 0
  992.     pd_Window.FitTo polFitToPage
  993. End If
  994. End Sub
  995. Private Sub Form_Load()
  996.    SetShapeTypes
  997.    CreateObjects
  998.    SetEnvironment
  999.    mnuRulers.Checked = True
  1000.    mnuScroll.Checked = True
  1001.    Dim i As Integer
  1002.        Toolbar1.ImageList = ImageList1
  1003.        For i = 1 To Toolbar1.Buttons.Count
  1004.            If Toolbar1.Buttons(i).Style <> tbrSeparator Then
  1005.                Toolbar1.Buttons(i).Image = Toolbar1.Buttons(i).Key
  1006.            End If
  1007.        Next i
  1008. End Sub
  1009. Private Sub mnuGrid_Click()
  1010.     frmGrid.Show vbModal, Me
  1011. End Sub
  1012. Private Sub mnuGuideLines_Click()
  1013.     frmGuidelines.Show vbModal, Me
  1014. End Sub
  1015. Private Sub POLARDraw1_ErrorReadingFile(ByVal szErrorMsg As String, ByVal lErrorCode As Long, pbIgnore As Boolean)
  1016.     MsgBox szErrorMsg, vbCritical, "Polar Draw ActiveX Control"
  1017.     pbIgnore = True
  1018. End Sub
  1019. Private Sub POLARDraw1_ErrorWritingFile(ByVal szErrorMsg As String, ByVal lErrorCode As Long, pbIgnore As Boolean)
  1020.     MsgBox szErrorMsg, vbCritical, "Polar Draw ActiveX Control"
  1021.     pbIgnore = True
  1022. End Sub
  1023. Private Sub POLARDraw1_ShapeClicked(ByVal lShapeID As Long, ByVal nButton As Integer, ByVal nMask As Integer)
  1024.    If nButton = vbRightButton And nMask = vbShiftMask Then
  1025.       GetShapeType lShapeID
  1026.    End If
  1027. End Sub
  1028. Private Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button)
  1029.     Dim strFileName As String
  1030.     Select Case Button.Key
  1031.         Case "Open"
  1032.          
  1033.             strFileName = OpenPDRFile("Polar Draw Files (*.pdr)" + Chr(0) + "*.pdr" + Chr(0) + "All Files (*.*)" + Chr(0) + "*.*")
  1034.             If strFileName <> "" Then POLARDraw1.Read strFileName
  1035.                
  1036.         Case "Save"
  1037.          
  1038.          strFileName = SavePDRFile("Polar Draw Files (*.pdr)" + Chr(0) + "*.pdr" + Chr(0) + "All Files (*.*)" + Chr(0) + "*.*")
  1039.          If strFileName <> "" Then POLARDraw1.Write strFileName, 1
  1040.         Case "Print"
  1041.             PrintPicture False
  1042.                             
  1043.         Case "Cut"
  1044.             POLARDraw1.Cut
  1045.         Case "Copy"
  1046.             POLARDraw1.Copy
  1047.         Case "Paste"
  1048.             POLARDraw1.Paste
  1049.         Case "Undo"
  1050.             POLARDraw1.Undo
  1051.         Case "Redo"
  1052.             POLARDraw1.Redo
  1053.         Case "Line"
  1054.             SetEditMode polCreateNew, polLine, -1
  1055.         Case "Curve"
  1056.             SetEditMode polCreateNew, polFreeform, polCurvePoly
  1057.         Case "Freeform"
  1058.             SetEditMode polCreateNew, polFreeform, polFreeformPoly
  1059.         Case "Scribble"
  1060.             SetEditMode polCreateNew, polFreeform, polScribblePoly
  1061.         Case "Rectangle"
  1062.             SetEditMode polCreateNew, polRectangle, -1
  1063.         Case "Ellipse"
  1064.             SetEditMode polCreateNew, polEllipse, -1
  1065.         Case "Triangle"
  1066.             SetEditMode polCreateNew, polIsoscelesTriangle, -1
  1067.         Case "Diamond"
  1068.             SetEditMode polCreateNew, polDiamond, -1
  1069.         Case "Text"
  1070.             SetEditMode polCreateNew, polPlainText, -1
  1071.         Case "TextBox"
  1072.             If SelectionExists Then pd_Selection.ShapeRange.Text.Edit
  1073.         Case "Select"
  1074.             SetEditMode polResize, -1, -1
  1075.         Case "EditPoints"
  1076.             SetEditMode polEditPoints, -1, -1
  1077.         Case "Rotate"
  1078.             SetEditMode polRotate, -1, -1
  1079.         Case "SendToBack"
  1080.             If SelectionExists Then pd_Selection.ShapeRange.ZOrder polSendToBack
  1081.         Case "SendBackward"
  1082.             If SelectionExists Then pd_Selection.ShapeRange.ZOrder polSendBackward
  1083.         Case "BringToFront"
  1084.             If SelectionExists Then pd_Selection.ShapeRange.ZOrder polBringToFront
  1085.         Case "BringForward"
  1086.             If SelectionExists Then pd_Selection.ShapeRange.ZOrder polBringForward
  1087.         
  1088.         Case "Group"
  1089.             If SelectionExists Then pd_Selection.ShapeRange.Group
  1090.         Case "Ungroup"
  1091.             If SelectionExists Then pd_Selection.ShapeRange.Ungroup False
  1092.          Case "Link"
  1093.             SetEditMode polCreateNew, polLink, -1
  1094.          Case "ConvertToCurve"
  1095.             If SelectionExists Then pd_Selection.ShapeRange.ConvertToPolygon
  1096.             
  1097.         Case "CenterPage"
  1098.             pd_Window.CenterPage
  1099.         Case "FitToWidth"
  1100.             pd_Window.FitTo polFitToWidth
  1101.         Case "FitToHeight"
  1102.             pd_Window.FitTo polFitToHeight
  1103.         Case "FitToSelection"
  1104.             pd_Window.FitTo polFitToSelection
  1105.         Case "FitToPage"
  1106.             pd_Window.FitTo polFitToPage
  1107.         
  1108.         Case "ZoomIn"
  1109.             If (pd_Environment.Zoom + 5) <= 1000 Then
  1110.                pd_Environment.Zoom = pd_Environment.Zoom + 5
  1111.             End If
  1112.         Case "ZoomOut"
  1113.            If (pd_Environment.Zoom - 5) >= 10 Then
  1114.               pd_Environment.Zoom = pd_Environment.Zoom - 5
  1115.            End If
  1116.    End Select
  1117.         
  1118. End Sub
  1119. Private Sub PrintPicture(fDialogShow As Boolean)
  1120.     If pd_Shapes.Count = 0 Then
  1121.         MsgBox "Nothing to print!", vbCritical, "Polar Draw ActiveX Control"
  1122.     Else
  1123.         POLARDraw1.PrintDocument fDialogShow
  1124.     End If
  1125. End Sub
  1126.