home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 February / Chip_2001-02_cd1.bin / sharewar / vecad / examples / delphi / editor / Main.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2000-10-13  |  15.3 KB  |  667 lines
  1. unit Main;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   OleCtnrs, StdCtrls, ExtCtrls, ComCtrls, Menus, Printers;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     MainMenu1: TMainMenu;
  12.     N1: TMenuItem;
  13.     View1: TMenuItem;
  14.     Draw1: TMenuItem;
  15.     Edit1: TMenuItem;
  16.     New1: TMenuItem;
  17.     Open1: TMenuItem;
  18.     Save1: TMenuItem;
  19.     SaveAs1: TMenuItem;
  20.     Properties1: TMenuItem;
  21.     Print1: TMenuItem;
  22.     N2: TMenuItem;
  23.     Exit1: TMenuItem;
  24.     ZoomAll1: TMenuItem;
  25.     ZoomWindow1: TMenuItem;
  26.     ZoomIn1: TMenuItem;
  27.     ZoomOut1: TMenuItem;
  28.     ZoomPage2: TMenuItem;
  29.     Line1: TMenuItem;
  30.     Polyline1: TMenuItem;
  31.     Ellipse1: TMenuItem;
  32.     Text1: TMenuItem;
  33.     InsertBlock1: TMenuItem;
  34.     InsertImage1: TMenuItem;
  35.     Copy1: TMenuItem;
  36.     Move1: TMenuItem;
  37.     Rotate1: TMenuItem;
  38.     Scale1: TMenuItem;
  39.     Mirror1: TMenuItem;
  40.     Erase1: TMenuItem;
  41.     Group1: TMenuItem;
  42.     ObjectsProperties1: TMenuItem;
  43.     N3: TMenuItem;
  44.     Bevel1: TBevel;
  45.     N4: TMenuItem;
  46.     N5: TMenuItem;
  47.     SelectPage1: TMenuItem;
  48.     Dimension1: TMenuItem;
  49.     Horizontal1: TMenuItem;
  50.     Vertical1: TMenuItem;
  51.     Parallel1: TMenuItem;
  52.     Angular1: TMenuItem;
  53.     Radius1: TMenuItem;
  54.     Diameter1: TMenuItem;
  55.     Ordinate1: TMenuItem;
  56.     Circle1: TMenuItem;
  57.     centerradius1: TMenuItem;
  58.     N3point1: TMenuItem;
  59.     Arc1: TMenuItem;
  60.     ArcCSE: TMenuItem;
  61.     ArcSEM: TMenuItem;
  62.     N7: TMenuItem;
  63.     Importfrom1: TMenuItem;
  64.     AutoCADDXF1: TMenuItem;
  65.     Exportto1: TMenuItem;
  66.     AutoCADDXF2: TMenuItem;
  67.     HPGL1: TMenuItem;
  68.     RasterImage1: TMenuItem;
  69.     Symbol1: TMenuItem;
  70.     Rectangle1: TMenuItem;
  71.     Tools1: TMenuItem;
  72.     PrintRectangles1: TMenuItem;
  73.     N8: TMenuItem;
  74.     CloseAll1: TMenuItem;
  75.     List1: TMenuItem;
  76.     Undo2: TMenuItem;
  77.     Redo2: TMenuItem;
  78.     N9: TMenuItem;
  79.     N10: TMenuItem;
  80.     Cut1: TMenuItem;
  81.     Copy2: TMenuItem;
  82.     Paste1: TMenuItem;
  83.     Explode1: TMenuItem;
  84.     N6: TMenuItem;
  85.     N11: TMenuItem;
  86.     N12: TMenuItem;
  87.     PageFirst1: TMenuItem;
  88.     PageLasttEnd1: TMenuItem;
  89.     PageNext1: TMenuItem;
  90.     PagePrevious1: TMenuItem;
  91.     N13: TMenuItem;
  92.     SavecurrentView1: TMenuItem;
  93.     ViewsList1: TMenuItem;
  94.     Format1: TMenuItem;
  95.     Page1: TMenuItem;
  96.     Layer1: TMenuItem;
  97.     Linetype1: TMenuItem;
  98.     TextStyle1: TMenuItem;
  99.     PointStyle1: TMenuItem;
  100.     HatchStyle1: TMenuItem;
  101.     Blocks1: TMenuItem;
  102.     N14: TMenuItem;
  103.     DimensionStyle1: TMenuItem;
  104.     N15: TMenuItem;
  105.     Grid1: TMenuItem;
  106.     ObjectSnap1: TMenuItem;
  107.     AngleSnap1: TMenuItem;
  108.     N16: TMenuItem;
  109.     Units1: TMenuItem;
  110.     Private1: TMenuItem;
  111.     Preferences1: TMenuItem;
  112.     Point1: TMenuItem;
  113.     Spline1: TMenuItem;
  114.     CenterDiameter1: TMenuItem;
  115.     N2Points1: TMenuItem;
  116.     ArcSME: TMenuItem;
  117.     Hatch1: TMenuItem;
  118.     N17: TMenuItem;
  119.     DistanceArea1: TMenuItem;
  120.     Statistics1: TMenuItem;
  121.     Help1: TMenuItem;
  122.     About1: TMenuItem;
  123.     Test1: TMenuItem;
  124.     Sinus1: TMenuItem;
  125.     procedure FormCreate(Sender: TObject);
  126.     procedure FormResize(Sender: TObject);
  127.     procedure New1Click(Sender: TObject);
  128.     procedure Open1Click(Sender: TObject);
  129.     procedure Save1Click(Sender: TObject);
  130.     procedure SaveAs1Click(Sender: TObject);
  131.     procedure Properties1Click(Sender: TObject);
  132.     procedure CloseAll1Click(Sender: TObject);
  133.     procedure List1Click(Sender: TObject);
  134.     procedure AutoCADDXF1Click(Sender: TObject);
  135.     procedure AutoCADDXF2Click(Sender: TObject);
  136.     procedure HPGL1Click(Sender: TObject);
  137.     procedure RasterImage1Click(Sender: TObject);
  138.     procedure Print1Click(Sender: TObject);
  139.     procedure Exit1Click(Sender: TObject);
  140.     procedure Undo2Click(Sender: TObject);
  141.     procedure Cut1Click(Sender: TObject);
  142.     procedure Copy2Click(Sender: TObject);
  143.     procedure Paste1Click(Sender: TObject);
  144.     procedure Redo2Click(Sender: TObject);
  145.     procedure ObjectsProperties1Click(Sender: TObject);
  146.     procedure Copy1Click(Sender: TObject);
  147.     procedure Move1Click(Sender: TObject);
  148.     procedure Rotate1Click(Sender: TObject);
  149.     procedure Scale1Click(Sender: TObject);
  150.     procedure Mirror1Click(Sender: TObject);
  151.     procedure Explode1Click(Sender: TObject);
  152.     procedure Group1Click(Sender: TObject);
  153.     procedure Erase1Click(Sender: TObject);
  154.     procedure ZoomAll1Click(Sender: TObject);
  155.     procedure ZoomWindow1Click(Sender: TObject);
  156.     procedure ZoomPage2Click(Sender: TObject);
  157.     procedure ZoomIn1Click(Sender: TObject);
  158.     procedure ZoomOut1Click(Sender: TObject);
  159.     procedure ViewsList1Click(Sender: TObject);
  160.     procedure PageFirst1Click(Sender: TObject);
  161.     procedure PageLasttEnd1Click(Sender: TObject);
  162.     procedure PageNext1Click(Sender: TObject);
  163.     procedure PagePrevious1Click(Sender: TObject);
  164.     procedure SelectPage1Click(Sender: TObject);
  165.     procedure SavecurrentView1Click(Sender: TObject);
  166.     procedure Page1Click(Sender: TObject);
  167.     procedure Layer1Click(Sender: TObject);
  168.     procedure Linetype1Click(Sender: TObject);
  169.     procedure TextStyle1Click(Sender: TObject);
  170.     procedure PointStyle1Click(Sender: TObject);
  171.     procedure HatchStyle1Click(Sender: TObject);
  172.     procedure Blocks1Click(Sender: TObject);
  173.     procedure DimensionStyle1Click(Sender: TObject);
  174.     procedure Grid1Click(Sender: TObject);
  175.     procedure ObjectSnap1Click(Sender: TObject);
  176.     procedure AngleSnap1Click(Sender: TObject);
  177.     procedure Units1Click(Sender: TObject);
  178.     procedure Private1Click(Sender: TObject);
  179.     procedure Preferences1Click(Sender: TObject);
  180.     procedure Point1Click(Sender: TObject);
  181.     procedure Line1Click(Sender: TObject);
  182.     procedure Polyline1Click(Sender: TObject);
  183.     procedure Spline1Click(Sender: TObject);
  184.     procedure centerradius1Click(Sender: TObject);
  185.     procedure CenterDiameter1Click(Sender: TObject);
  186.     procedure N2Points1Click(Sender: TObject);
  187.     procedure N3point1Click(Sender: TObject);
  188.     procedure ArcCSEClick(Sender: TObject);
  189.     procedure ArcSEMClick(Sender: TObject);
  190.     procedure ArcSMEClick(Sender: TObject);
  191.     procedure Ellipse1Click(Sender: TObject);
  192.     procedure Rectangle1Click(Sender: TObject);
  193.     procedure Hatch1Click(Sender: TObject);
  194.     procedure Horizontal1Click(Sender: TObject);
  195.     procedure Vertical1Click(Sender: TObject);
  196.     procedure Parallel1Click(Sender: TObject);
  197.     procedure Angular1Click(Sender: TObject);
  198.     procedure Radius1Click(Sender: TObject);
  199.     procedure Diameter1Click(Sender: TObject);
  200.     procedure Ordinate1Click(Sender: TObject);
  201.     procedure Text1Click(Sender: TObject);
  202.     procedure Symbol1Click(Sender: TObject);
  203.     procedure InsertBlock1Click(Sender: TObject);
  204.     procedure InsertImage1Click(Sender: TObject);
  205.     procedure DistanceArea1Click(Sender: TObject);
  206.     procedure PrintRectangles1Click(Sender: TObject);
  207.     procedure Statistics1Click(Sender: TObject);
  208.     procedure Test1Click(Sender: TObject);
  209.     procedure Sinus1Click(Sender: TObject);
  210.   private
  211.     { Private declarations }
  212.   public
  213.     { Public declarations }
  214.   end;
  215.  
  216. var
  217.   Form1: TForm1;
  218.  
  219. implementation
  220.  
  221. uses VecApi, DwgProc, Funcs;
  222.  
  223. {$R *.DFM}
  224.  
  225.  
  226. procedure TForm1.FormCreate(Sender: TObject);
  227. begin
  228.   CreateVecWindow( Handle )
  229. end;
  230.  
  231. procedure TForm1.FormResize(Sender: TObject);
  232. begin
  233.   ResizeVecWindow( Handle )
  234. end;
  235.  
  236.  
  237. procedure TForm1.New1Click(Sender: TObject);
  238. begin
  239.   FileNew();
  240. end;
  241.  
  242. procedure TForm1.Open1Click(Sender: TObject);
  243. begin
  244.   FileOpen();
  245. end;
  246.  
  247. procedure TForm1.Save1Click(Sender: TObject);
  248. begin
  249.   vlExecute( VC_FILE_SAVE );
  250. end;
  251.  
  252. procedure TForm1.SaveAs1Click(Sender: TObject);
  253. begin
  254.   vlExecute( VC_FILE_SAVEAS );
  255. end;
  256.  
  257. procedure TForm1.Properties1Click(Sender: TObject);
  258. begin
  259.   vlExecute( VC_FILE_CLOSE );
  260. end;
  261.  
  262. procedure TForm1.CloseAll1Click(Sender: TObject);
  263. begin
  264.   vlExecute( VC_FILE_CLOSEALL );
  265. end;
  266.  
  267. procedure TForm1.List1Click(Sender: TObject);
  268. begin
  269.   vlExecute( VC_FILE_LIST );
  270. end;
  271.  
  272. procedure TForm1.AutoCADDXF1Click(Sender: TObject);
  273. begin
  274.   vlExecute( VC_IMPORT_DXF );
  275. end;
  276.  
  277. procedure TForm1.AutoCADDXF2Click(Sender: TObject);
  278. begin
  279.   vlExecute( VC_EXPORT_DXF );
  280. end;
  281.  
  282. procedure TForm1.HPGL1Click(Sender: TObject);
  283. begin
  284.   vlExecute( VC_EXPORT_HPGL );
  285. end;
  286.  
  287. procedure TForm1.RasterImage1Click(Sender: TObject);
  288. begin
  289.   vlExecute( VC_EXPORT_BMP );
  290. end;
  291.  
  292. procedure TForm1.Print1Click(Sender: TObject);
  293. begin
  294.   vlExecute( VC_PRINT );
  295. end;
  296.  
  297. procedure TForm1.Exit1Click(Sender: TObject);
  298. begin
  299.   Close
  300. end;
  301.  
  302. procedure TForm1.Undo2Click(Sender: TObject);
  303. begin
  304.   vlExecute( VC_EDIT_UNDO );
  305. end;
  306.  
  307. procedure TForm1.Redo2Click(Sender: TObject);
  308. begin
  309.   vlExecute( VC_EDIT_REDO );
  310. end;
  311.  
  312. procedure TForm1.Cut1Click(Sender: TObject);
  313. begin
  314.   vlExecute( VC_EDIT_CBCUT );
  315. end;
  316.  
  317. procedure TForm1.Copy2Click(Sender: TObject);
  318. begin
  319.   vlExecute( VC_EDIT_CBCOPY );
  320. end;
  321.  
  322. procedure TForm1.Paste1Click(Sender: TObject);
  323. begin
  324.   vlExecute( VC_EDIT_CBPASTE );
  325. end;
  326.  
  327. procedure TForm1.ObjectsProperties1Click(Sender: TObject);
  328. begin
  329.   vlExecute( VC_EDIT_ENTPROP );
  330. end;
  331.  
  332. procedure TForm1.Copy1Click(Sender: TObject);
  333. begin
  334.   vlExecute( VC_EDIT_COPY );
  335. end;
  336.  
  337. procedure TForm1.Move1Click(Sender: TObject);
  338. begin
  339.   vlExecute( VC_EDIT_MOVE );
  340. end;
  341.  
  342. procedure TForm1.Rotate1Click(Sender: TObject);
  343. begin
  344.   vlExecute( VC_EDIT_ROTATE );
  345. end;
  346.  
  347. procedure TForm1.Scale1Click(Sender: TObject);
  348. begin
  349.   vlExecute( VC_EDIT_SCALE );
  350. end;
  351.  
  352. procedure TForm1.Mirror1Click(Sender: TObject);
  353. begin
  354.   vlExecute( VC_EDIT_MIRROR );
  355. end;
  356.  
  357. procedure TForm1.Explode1Click(Sender: TObject);
  358. begin
  359.   vlExecute( VC_EDIT_EXPLODE );
  360. end;
  361.  
  362. procedure TForm1.Group1Click(Sender: TObject);
  363. begin
  364.   vlExecute( VC_EDIT_CREBLOCK );
  365. end;
  366.  
  367. procedure TForm1.Erase1Click(Sender: TObject);
  368. begin
  369.   vlExecute( VC_EDIT_ERASE );
  370. end;
  371.  
  372. procedure TForm1.ZoomAll1Click(Sender: TObject);
  373. begin
  374.   vlExecute( VC_ZOOM_ALL );
  375. end;
  376.  
  377. procedure TForm1.ZoomWindow1Click(Sender: TObject);
  378. begin
  379.   vlExecute( VC_ZOOM_WIN );
  380. end;
  381.  
  382. procedure TForm1.ZoomPage2Click(Sender: TObject);
  383. begin
  384.   vlExecute( VC_ZOOM_PAGE );
  385. end;
  386.  
  387. procedure TForm1.ZoomIn1Click(Sender: TObject);
  388. begin
  389.   vlExecute( VC_ZOOM_IN );
  390. end;
  391.  
  392. procedure TForm1.ZoomOut1Click(Sender: TObject);
  393. begin
  394.   vlExecute( VC_ZOOM_OUT );
  395. end;
  396.  
  397. procedure TForm1.PageFirst1Click(Sender: TObject);
  398. begin
  399.   vlExecute( VC_PAGE_FIRST );
  400. end;
  401.  
  402. procedure TForm1.PageLasttEnd1Click(Sender: TObject);
  403. begin
  404.   vlExecute( VC_PAGE_LAST );
  405. end;
  406.  
  407. procedure TForm1.PageNext1Click(Sender: TObject);
  408. begin
  409.   vlExecute( VC_PAGE_NEXT );
  410. end;
  411.  
  412. procedure TForm1.PagePrevious1Click(Sender: TObject);
  413. begin
  414.   vlExecute( VC_PAGE_PREV );
  415. end;
  416.  
  417. procedure TForm1.SelectPage1Click(Sender: TObject);
  418. begin
  419.   vlExecute( VC_PAGE_DLG );
  420. end;
  421.  
  422. procedure TForm1.SavecurrentView1Click(Sender: TObject);
  423. begin
  424.   vlExecute( VC_VIEW_SAVE );
  425. end;
  426.  
  427. procedure TForm1.ViewsList1Click(Sender: TObject);
  428. begin
  429.   vlExecute( VC_VIEW_LIST );
  430. end;
  431.  
  432.  
  433. procedure TForm1.Page1Click(Sender: TObject);
  434. begin
  435.   vlExecute( VC_FMT_PAGE );
  436. end;
  437.  
  438. procedure TForm1.Layer1Click(Sender: TObject);
  439. begin
  440.   vlExecute( VC_FMT_LAYER );
  441. end;
  442.  
  443. procedure TForm1.Linetype1Click(Sender: TObject);
  444. begin
  445.   vlExecute( VC_FMT_STLINE );
  446. end;
  447.  
  448. procedure TForm1.TextStyle1Click(Sender: TObject);
  449. begin
  450.   vlExecute( VC_FMT_STTEXT );
  451. end;
  452.  
  453. procedure TForm1.PointStyle1Click(Sender: TObject);
  454. begin
  455.   vlExecute( VC_FMT_STPOINT );
  456. end;
  457.  
  458. procedure TForm1.HatchStyle1Click(Sender: TObject);
  459. begin
  460.   vlExecute( VC_FMT_STHATCH );
  461. end;
  462.  
  463. procedure TForm1.Blocks1Click(Sender: TObject);
  464. begin
  465.   vlExecute( VC_FMT_BLOCK );
  466. end;
  467.  
  468. procedure TForm1.DimensionStyle1Click(Sender: TObject);
  469. begin
  470.   vlExecute( VC_FMT_STDIM );
  471. end;
  472.  
  473. procedure TForm1.Grid1Click(Sender: TObject);
  474. begin
  475.   vlExecute( VC_FMT_GRID );
  476. end;
  477.  
  478. procedure TForm1.ObjectSnap1Click(Sender: TObject);
  479. begin
  480.   vlExecute( VC_FMT_OSNAP );
  481. end;
  482.  
  483. procedure TForm1.AngleSnap1Click(Sender: TObject);
  484. begin
  485.   vlExecute( VC_FMT_PSNAP );
  486. end;
  487.  
  488. procedure TForm1.Units1Click(Sender: TObject);
  489. begin
  490.   vlExecute( VC_FMT_UNITS );
  491. end;
  492.  
  493. procedure TForm1.Private1Click(Sender: TObject);
  494. begin
  495.   vlExecute( VC_FMT_PRIVATE );
  496. end;
  497.  
  498. procedure TForm1.Preferences1Click(Sender: TObject);
  499. begin
  500.   vlExecute( VC_FMT_PREFERS );
  501. end;
  502.  
  503. procedure TForm1.Point1Click(Sender: TObject);
  504. begin
  505.   vlExecute( VC_DRAW_POINT );
  506. end;
  507.  
  508. procedure TForm1.Line1Click(Sender: TObject);
  509. begin
  510.   vlExecute( VC_DRAW_LINE );
  511. end;
  512.  
  513. procedure TForm1.Polyline1Click(Sender: TObject);
  514. begin
  515.   vlExecute( VC_DRAW_POLYLINE );
  516. end;
  517.  
  518. procedure TForm1.Spline1Click(Sender: TObject);
  519. begin
  520.   vlExecute( VC_DRAW_SPLINE );
  521. end;
  522.  
  523. procedure TForm1.centerradius1Click(Sender: TObject);
  524. begin
  525.   vlExecute( VC_DRAW_CIRC_CR );
  526. end;
  527.  
  528. procedure TForm1.CenterDiameter1Click(Sender: TObject);
  529. begin
  530.   vlExecute( VC_DRAW_CIRC_CD );
  531. end;
  532.  
  533. procedure TForm1.N2Points1Click(Sender: TObject);
  534. begin
  535.   vlExecute( VC_DRAW_CIRC_2P );
  536. end;
  537.  
  538. procedure TForm1.N3point1Click(Sender: TObject);
  539. begin
  540.   vlExecute( VC_DRAW_CIRC_3P );
  541. end;
  542.  
  543. procedure TForm1.ArcCSEClick(Sender: TObject);
  544. begin
  545.   vlExecute( VC_DRAW_ARC_CSE );
  546. end;
  547.  
  548. procedure TForm1.ArcSEMClick(Sender: TObject);
  549. begin
  550.   vlExecute( VC_DRAW_ARC_SEM );
  551. end;
  552.  
  553. procedure TForm1.ArcSMEClick(Sender: TObject);
  554. begin
  555.   vlExecute( VC_DRAW_ARC_SME );
  556. end;
  557.  
  558. procedure TForm1.Ellipse1Click(Sender: TObject);
  559. begin
  560.   vlExecute( VC_DRAW_ELLIPSE );
  561. end;
  562.  
  563. procedure TForm1.Rectangle1Click(Sender: TObject);
  564. begin
  565.   vlExecute( VC_DRAW_RECT );
  566. end;
  567.  
  568. procedure TForm1.Hatch1Click(Sender: TObject);
  569. begin
  570.   vlExecute( VC_DRAW_HATCH );
  571. end;
  572.  
  573. procedure TForm1.Horizontal1Click(Sender: TObject);
  574. begin
  575.   vlExecute( VC_DRAW_DIM_HOR );
  576. end;
  577.  
  578. procedure TForm1.Vertical1Click(Sender: TObject);
  579. begin
  580.   vlExecute( VC_DRAW_DIM_VER );
  581. end;
  582.  
  583. procedure TForm1.Parallel1Click(Sender: TObject);
  584. begin
  585.   vlExecute( VC_DRAW_DIM_PAR );
  586. end;
  587.  
  588. procedure TForm1.Angular1Click(Sender: TObject);
  589. begin
  590.   vlExecute( VC_DRAW_DIM_ANG );
  591. end;
  592.  
  593. procedure TForm1.Radius1Click(Sender: TObject);
  594. begin
  595.   vlExecute( VC_DRAW_DIM_RAD );
  596. end;
  597.  
  598. procedure TForm1.Diameter1Click(Sender: TObject);
  599. begin
  600.   vlExecute( VC_DRAW_DIM_DIAM );
  601. end;
  602.  
  603. procedure TForm1.Ordinate1Click(Sender: TObject);
  604. begin
  605.   vlExecute( VC_DRAW_DIM_ORD );
  606. end;
  607.  
  608. procedure TForm1.Text1Click(Sender: TObject);
  609. begin
  610.   vlExecute( VC_INS_TEXT );
  611. end;
  612.  
  613. procedure TForm1.Symbol1Click(Sender: TObject);
  614. begin
  615.   vlExecute( VC_INS_SYMBOL );
  616. end;
  617.  
  618. procedure TForm1.InsertBlock1Click(Sender: TObject);
  619. begin
  620.   vlExecute( VC_INS_BLOCK );
  621. end;
  622.  
  623. procedure TForm1.InsertImage1Click(Sender: TObject);
  624. begin
  625.   vlExecute( VC_INS_IMAGE );
  626. end;
  627.  
  628. procedure TForm1.DistanceArea1Click(Sender: TObject);
  629. begin
  630.   vlExecute( VC_TOOL_DIST );
  631. end;
  632.  
  633. procedure TForm1.PrintRectangles1Click(Sender: TObject);
  634. begin
  635.   vlExecute( VC_TOOL_PRNRECT );
  636. end;
  637.  
  638. procedure TForm1.Statistics1Click(Sender: TObject);
  639. begin
  640.   vlExecute( VC_TOOL_STAT );
  641. end;
  642.  
  643. procedure TForm1.Test1Click(Sender: TObject);
  644. begin
  645.   TestLineStyles();
  646. end;
  647.  
  648. procedure TForm1.Sinus1Click(Sender: TObject);
  649. var
  650.   x, y, step : Double;
  651. begin
  652.   vlFileNew( ghwVec, @MyDwgProc, '' );
  653.   step := 0.314;
  654.   vlPolylineBegin();
  655.   x :=0;
  656.   repeat
  657.     y := sin( x );
  658.     vlVertex( x, y );
  659.     x := x + step;
  660.   until x>6.3;
  661.   vlAddPolyline( VL_POLY_LINE, false );
  662.   vlUpdate();
  663.   vlZoom( VL_ZOOM_ALL );
  664. end;
  665.  
  666. end.
  667.