object MainForm: TMainForm Left = 100 Top = 100 HorzScrollBar.Tracking = True VertScrollBar.Tracking = True Caption = 'Vectorial Demo - www.ImageEn.com' ClientHeight = 744 ClientWidth = 903 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] Menu = MainMenu1 OldCreateOrder = True Position = poScreenCenter ShowHint = True OnActivate = FormActivate PixelsPerInch = 96 TextHeight = 13 object ImageEnVect1: TImageEnVect Left = 114 Top = 0 Width = 593 Height = 725 Background = clBtnFace ParentCtl3D = False BorderStyle = bsNone LegacyBitmap = False OnViewChange = ImageEnVect1ViewChange EnableInteractionHints = True Align = alClient TabOrder = 0 MUnit = ieuCENTIMETERS OnSelectObject = ImageEnVect1SelectObject OnMeasureHint = ImageEnVect1MeasureHint OnTextKeyDown = ImageEnVect1TextKeyDown end object Panel2: TPanel Left = 0 Top = 0 Width = 114 Height = 725 Align = alLeft BevelOuter = bvNone TabOrder = 1 object Label13: TLabel Left = 24 Top = 8 Width = 65 Height = 13 Caption = 'COMMANDS' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object SpeedButton16: TSpeedButton Left = 16 Top = 520 Width = 81 Height = 18 AllowAllUp = True GroupIndex = 50 Caption = 'Hide objects' Flat = True OnClick = SpeedButton16Click end object spdForceAltKey: TSpeedButton Left = 16 Top = 546 Width = 81 Height = 18 Hint = 'Holding down the Alt key provides standard sizes and angles (e.g' + '. squares, circles and right-angles)' AllowAllUp = True GroupIndex = 50 Caption = 'Force ALT Key' Flat = True OnClick = spdForceAltKeyClick end object GroupBox1: TGroupBox Left = 8 Top = 24 Width = 99 Height = 82 Caption = ' Zoom ' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentColor = False ParentFont = False TabOrder = 0 object SpeedButton4: TSpeedButton Left = 8 Top = 35 Width = 81 Height = 18 AllowAllUp = True GroupIndex = 2 Caption = 'Rectangle' Flat = True OnClick = CommandButtonClick end object SpeedButton1: TSpeedButton Left = 8 Top = 16 Width = 81 Height = 18 AllowAllUp = True GroupIndex = 1 Caption = 'Click' Flat = True OnClick = CommandButtonClick end object SpeedButton8: TSpeedButton Left = 8 Top = 54 Width = 81 Height = 18 AllowAllUp = True GroupIndex = 3 Caption = 'Scroll' Flat = True OnClick = CommandButtonClick end end object GroupBox2: TGroupBox Left = 8 Top = 112 Width = 99 Height = 100 Caption = ' Selection ' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentColor = False ParentFont = False TabOrder = 1 object SpeedButton7: TSpeedButton Left = 8 Top = 37 Width = 81 Height = 18 AllowAllUp = True GroupIndex = 5 Caption = 'Rectangle' Flat = True OnClick = CommandButtonClick end object SpeedButton11: TSpeedButton Left = 8 Top = 55 Width = 81 Height = 18 AllowAllUp = True GroupIndex = 6 Caption = 'Polygon' Flat = True OnClick = CommandButtonClick end object SpeedButton12: TSpeedButton Left = 8 Top = 73 Width = 81 Height = 18 AllowAllUp = True GroupIndex = 7 Caption = 'Ellipse' Flat = True OnClick = CommandButtonClick end object SpeedButton13: TSpeedButton Left = 8 Top = 16 Width = 81 Height = 18 AllowAllUp = True GroupIndex = 4 Caption = 'Object' Flat = True OnClick = CommandButtonClick end end object GroupBox3: TGroupBox Left = 8 Top = 218 Width = 99 Height = 81 Caption = ' Measures ' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentColor = False ParentFont = False TabOrder = 2 object SpeedButton2: TSpeedButton Left = 8 Top = 17 Width = 81 Height = 18 AllowAllUp = True GroupIndex = 8 Caption = 'Area' Flat = True OnClick = CommandButtonClick end object SpeedButton3: TSpeedButton Left = 8 Top = 35 Width = 81 Height = 18 AllowAllUp = True GroupIndex = 9 Caption = 'Length/Perim.' Flat = True OnClick = CommandButtonClick end object SpeedButton15: TSpeedButton Left = 8 Top = 53 Width = 81 Height = 18 AllowAllUp = True GroupIndex = 9 Caption = 'Drag length' Flat = True OnClick = CommandButtonClick end end object GroupBox4: TGroupBox Left = 8 Top = 305 Width = 99 Height = 208 Caption = ' Insert objects ' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentColor = False ParentFont = False TabOrder = 3 object SpeedButton5: TSpeedButton Left = 8 Top = 18 Width = 81 Height = 18 AllowAllUp = True GroupIndex = 10 Caption = 'Line' Flat = True OnClick = CommandButtonClick end object SpeedButton6: TSpeedButton Left = 8 Top = 36 Width = 81 Height = 18 AllowAllUp = True GroupIndex = 11 Caption = 'Box' Flat = True OnClick = CommandButtonClick end object SpeedButton9: TSpeedButton Left = 8 Top = 54 Width = 81 Height = 18 AllowAllUp = True GroupIndex = 12 Caption = 'Ellipse' Flat = True OnClick = CommandButtonClick end object SpeedButton10: TSpeedButton Left = 8 Top = 72 Width = 81 Height = 18 AllowAllUp = True GroupIndex = 13 Caption = 'Image' Flat = True OnClick = CommandButtonClick end object SpeedButton14: TSpeedButton Left = 8 Top = 90 Width = 81 Height = 18 AllowAllUp = True GroupIndex = 14 Caption = 'Text' Flat = True OnClick = CommandButtonClick end object SpeedButton17: TSpeedButton Left = 8 Top = 108 Width = 81 Height = 18 AllowAllUp = True GroupIndex = 14 Caption = 'Ruler' Flat = True OnClick = CommandButtonClick end object SpeedButton18: TSpeedButton Left = 8 Top = 144 Width = 81 Height = 18 AllowAllUp = True GroupIndex = 14 Caption = 'Polyline' Flat = True OnClick = CommandButtonClick end object SpeedButton19: TSpeedButton Left = 8 Top = 126 Width = 81 Height = 18 AllowAllUp = True GroupIndex = 14 Caption = 'Angle' Flat = True OnClick = CommandButtonClick end object SpeedButton20: TSpeedButton Left = 8 Top = 162 Width = 81 Height = 18 AllowAllUp = True GroupIndex = 14 Caption = 'Memo' Flat = True OnClick = CommandButtonClick end object SpeedButton21: TSpeedButton Left = 8 Top = 180 Width = 81 Height = 18 AllowAllUp = True GroupIndex = 14 Caption = 'Edit Polygon' Flat = True OnClick = CommandButtonClick end end end object StatusBar1: TStatusBar Left = 0 Top = 725 Width = 903 Height = 19 Panels = <> end object ScrollBox1: TScrollBox Left = 707 Top = 0 Width = 196 Height = 725 Align = alRight BorderStyle = bsNone TabOrder = 3 object Label14: TLabel Left = 48 Top = 8 Width = 69 Height = 13 Caption = 'PROPERTIES' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object GroupBox5: TGroupBox Left = 11 Top = 24 Width = 177 Height = 411 Caption = ' Object ' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentColor = False ParentFont = False TabOrder = 0 object Label1: TLabel Left = 12 Top = 18 Width = 48 Height = 13 Caption = 'Pen color:' end object Label2: TLabel Left = 12 Top = 38 Width = 57 Height = 13 Caption = 'Brush color:' end object Label3: TLabel Left = 12 Top = 61 Width = 48 Height = 13 Caption = 'Pen style:' end object Label9: TLabel Left = 12 Top = 87 Width = 51 Height = 13 Caption = 'Pen width:' end object Label7: TLabel Left = 12 Top = 112 Width = 57 Height = 13 Caption = 'Brush style:' end object Label19: TLabel Left = 12 Top = 139 Width = 70 Height = 13 Caption = 'Transparency:' end object Panel3: TShape Left = 75 Top = 19 Width = 54 Height = 13 Brush.Color = clRed OnMouseDown = Panel3MouseDown end object Panel4: TShape Left = 75 Top = 39 Width = 54 Height = 13 Brush.Color = clNavy OnMouseDown = Panel4MouseDown end object cmbPen: TComboBox Left = 73 Top = 57 Width = 89 Height = 21 Style = csDropDownList TabOrder = 0 OnChange = StyleControlChange Items.Strings = ( 'Solid' 'Dash' 'Dot' 'Dash-Dot' 'Dash-Dot-Dot' 'Clear' 'Inside Frame') end object Edit2: TEdit Left = 73 Top = 84 Width = 33 Height = 21 TabOrder = 1 Text = '1' OnChange = StyleControlChange end object UpDown2: TUpDown Left = 106 Top = 84 Width = 16 Height = 21 Associate = Edit2 Min = 1 Position = 1 TabOrder = 2 end object cmbBrush: TComboBox Left = 73 Top = 109 Width = 66 Height = 21 Style = csDropDownList TabOrder = 3 OnChange = StyleControlChange Items.Strings = ( 'Solid' 'Clear' 'Horizontal' 'Vertical' 'FDiagonal' 'BDiagonal' 'Cross' 'Diag. Cross') end object PageControl1: TPageControl Left = 10 Top = 248 Width = 154 Height = 153 ActivePage = TabSheet1 HotTrack = True TabOrder = 4 object TabSheet1: TTabSheet Caption = 'Line' object Label10: TLabel Left = 7 Top = 20 Width = 28 Height = 13 Caption = 'Start:' end object Label11: TLabel Left = 7 Top = 44 Width = 22 Height = 13 Caption = 'End:' end object cmbLineStart: TComboBox Left = 58 Top = 17 Width = 84 Height = 21 Style = csDropDownList TabOrder = 0 OnChange = StyleControlChange Items.Strings = ( 'None' 'Arrow In' 'Arrow Out') end object cmbLineEnd: TComboBox Left = 58 Top = 41 Width = 84 Height = 21 Style = csDropDownList TabOrder = 1 OnChange = StyleControlChange Items.Strings = ( 'None' 'Arrow In' 'Arrow Out') end end object TabSheet2: TTabSheet Caption = 'Image' object Button1: TButton Left = 6 Top = 8 Width = 61 Height = 21 Caption = 'Set Image' TabOrder = 0 OnClick = Button1Click end object Button2: TButton Left = 6 Top = 40 Width = 61 Height = 21 Caption = 'Adjust' TabOrder = 1 OnClick = Button2Click end object Panel5: TPanel Left = 75 Top = 8 Width = 67 Height = 57 BevelOuter = bvNone Caption = 'Panel5' TabOrder = 2 object ImageEnView1: TImageEnView Left = 0 Top = 0 Width = 67 Height = 57 Background = clBtnFace ParentCtl3D = False LegacyBitmap = False EnableInteractionHints = True Align = alClient TabOrder = 0 end end end object TabSheet3: TTabSheet Caption = 'Text' object Label17: TLabel Left = 6 Top = 34 Width = 31 Height = 13 Caption = 'Angle:' end object Label18: TLabel Left = 6 Top = 63 Width = 51 Height = 13 Caption = 'Alignment:' end object Button3: TButton Left = 6 Top = 5 Width = 61 Height = 21 Caption = 'Set Font' TabOrder = 0 OnClick = Button3Click end object Edit6: TEdit Left = 52 Top = 31 Width = 33 Height = 21 ReadOnly = True TabOrder = 1 Text = '0' OnChange = StyleControlChange end object UpDown4: TUpDown Left = 85 Top = 31 Width = 16 Height = 21 Associate = Edit6 Min = -360 Max = 360 TabOrder = 2 end object cmbTextAlign: TComboBox Left = 60 Top = 59 Width = 78 Height = 21 Style = csDropDownList ItemIndex = 1 TabOrder = 3 Text = 'Align Right' OnChange = StyleControlChange Items.Strings = ( 'Align Left' 'Align Right' 'Center' 'Justify') end object Button4: TButton Left = 76 Top = 5 Width = 61 Height = 21 Caption = 'Stretch' TabOrder = 4 OnClick = Button4Click end object CheckBox6: TCheckBox Left = 6 Top = 86 Width = 107 Height = 17 Caption = 'Memo Multi-Font' TabOrder = 5 OnClick = StyleControlChange end end end object CheckBox1: TCheckBox Left = 12 Top = 180 Width = 97 Height = 17 Caption = 'Visible' TabOrder = 5 OnClick = StyleControlChange end object CheckBox2: TCheckBox Left = 12 Top = 212 Width = 97 Height = 17 Caption = 'Moveable' TabOrder = 6 OnClick = StyleControlChange end object CheckBox3: TCheckBox Left = 12 Top = 228 Width = 97 Height = 17 Caption = 'Sizeable' TabOrder = 7 OnClick = StyleControlChange end object CheckBox4: TCheckBox Left = 12 Top = 196 Width = 97 Height = 17 Caption = 'Selectable' TabOrder = 9 OnClick = StyleControlChange end object CheckBox5: TCheckBox Left = 12 Top = 163 Width = 98 Height = 17 Caption = 'Shadow' TabOrder = 11 OnClick = StyleControlChange end object Edit7: TEdit Left = 89 Top = 134 Width = 33 Height = 21 TabOrder = 8 Text = '255' OnChange = StyleControlChange end object UpDown5: TUpDown Left = 122 Top = 134 Width = 16 Height = 21 Associate = Edit7 Max = 255 Increment = 5 Position = 255 TabOrder = 10 end end object GroupBox6: TGroupBox Left = 11 Top = 441 Width = 177 Height = 121 Caption = ' Measure ' TabOrder = 1 object Label4: TLabel Left = 12 Top = 20 Width = 23 Height = 13 Caption = 'Unit:' end object Label5: TLabel Left = 12 Top = 44 Width = 29 Height = 13 Caption = 'Scale:' end object Label6: TLabel Left = 62 Top = 44 Width = 10 Height = 13 Caption = '1:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label8: TLabel Left = 12 Top = 69 Width = 30 Height = 13 Caption = 'Digits:' end object Label12: TLabel Left = 12 Top = 93 Width = 46 Height = 13 Caption = 'Precision:' end object ComboBox2: TComboBox Left = 63 Top = 16 Width = 81 Height = 21 Style = csDropDownList TabOrder = 0 OnChange = ComboBox2Change Items.Strings = ( 'Pixels' 'Inches' 'Km' 'Mt' 'Cm' 'mm' 'Micron') end object Edit1: TEdit Left = 77 Top = 41 Width = 66 Height = 21 TabOrder = 1 Text = '1' OnChange = ComboBox2Change end object Edit3: TEdit Left = 65 Top = 66 Width = 33 Height = 21 TabOrder = 2 Text = '2' OnChange = ComboBox2Change end object UpDown1: TUpDown Left = 98 Top = 66 Width = 16 Height = 21 Associate = Edit3 Min = 1 Position = 2 TabOrder = 3 end object Edit4: TEdit Left = 65 Top = 90 Width = 33 Height = 21 TabOrder = 4 Text = '15' OnChange = ComboBox2Change end object UpDown3: TUpDown Left = 98 Top = 90 Width = 16 Height = 21 Associate = Edit4 Min = 1 Position = 15 TabOrder = 5 end end object GroupBox7: TGroupBox Left = 11 Top = 568 Width = 177 Height = 73 Caption = ' Display ' TabOrder = 2 object Label15: TLabel Left = 12 Top = 19 Width = 30 Height = 13 Caption = 'Zoom:' end object Label16: TLabel Left = 118 Top = 19 Width = 11 Height = 13 Caption = '%' end object ComboBox1: TComboBox Left = 56 Top = 16 Width = 57 Height = 21 TabOrder = 0 Text = '100' OnChange = ComboBox1Change Items.Strings = ( 'Fit' '5' '10' '25' '50' '100' '200' '400' '600' '800' '1000' '1600' '2000') end object CheckBox7: TCheckBox Left = 13 Top = 48 Width = 97 Height = 17 Caption = 'Antialiasing' Checked = True State = cbChecked TabOrder = 1 OnClick = CheckBox7Click end end end object MainMenu1: TMainMenu Left = 536 Top = 24 object File1: TMenuItem Caption = '&File' object New: TMenuItem Caption = '&New' OnClick = NewClick end object Open1: TMenuItem Caption = '&Open...' OnClick = Open1Click end object Openbackgroundimage1: TMenuItem Caption = '&Open background image' OnClick = Openbackgroundimage1Click end object Import1: TMenuItem Caption = '&Import' object DXF1: TMenuItem Caption = '&DXF' OnClick = DXF1Click end end object Saveas1: TMenuItem Caption = '&Save as...' OnClick = Saveas1Click end object N1: TMenuItem Caption = '-' end object Exit1: TMenuItem Caption = '&Exit' OnClick = Exit1Click end end object Edit5: TMenuItem Caption = '&Edit Bitmap' object Undo1: TMenuItem Caption = '&Undo' OnClick = Undo1Click end object N2: TMenuItem Caption = '-' end object Copy1: TMenuItem Caption = '&Copy' OnClick = Copy1Click end object Cut1: TMenuItem Caption = '&Cut' OnClick = Cut1Click end object Paste1: TMenuItem Caption = '&Paste' OnClick = Paste1Click end object Pasteinrect1: TMenuItem Caption = 'Paste in &rect.' OnClick = Pasteinrect1Click end object N3: TMenuItem Caption = '-' end object Fitbitmaptoobjects1: TMenuItem Caption = 'Fit bitmap to objects' OnClick = Fitbitmaptoobjects1Click end end object Editobjects1: TMenuItem Caption = 'Edit Objects' object Undo2: TMenuItem Caption = 'Undo' OnClick = Undo2Click end object N5: TMenuItem Caption = '-' end object Copy2: TMenuItem Caption = 'Copy' OnClick = Copy2Click end object Cut2: TMenuItem Caption = 'Cut' OnClick = Cut2Click end object Paste2: TMenuItem Caption = 'Paste' OnClick = Paste2Click end object Deleteobject1: TMenuItem Caption = '&Delete object' OnClick = Deleteobject1Click end object N4: TMenuItem Caption = '-' end object Selectall1: TMenuItem Caption = 'Select all' OnClick = Selectall1Click end end object Tools1: TMenuItem Caption = '&Tools' object Adjustcolor1: TMenuItem Caption = '&Adjust color' OnClick = Adjustcolor1Click end object Effects1: TMenuItem Caption = '&Effects' OnClick = Effects1Click end object Grayforce1: TMenuItem Caption = '&Gray force' OnClick = Grayforce1Click end object Copyobjectstobackground1: TMenuItem Caption = 'Copy objects to background' OnClick = Copyobjectstobackground1Click end object Objectscount1: TMenuItem Caption = 'Objects count' OnClick = Objectscount1Click end end end object ColorDialog1: TColorDialog Options = [cdFullOpen] Left = 300 Top = 24 end object SaveDialog1: TSaveDialog DefaultExt = 'IEV' Filter = 'ImageEn Objects|*.IEV' FilterIndex = 0 Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofOldStyleDialog] Title = 'Save objects' Left = 222 Top = 24 end object FontDialog1: TFontDialog Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] Options = [fdTrueTypeOnly, fdEffects] Left = 379 Top = 24 end object OpenDialog1: TOpenDialog Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofOldStyleDialog] Title = 'Open' Left = 144 Top = 24 end object dlgOpenImage: TOpenImageEnDialog Filter = 'All graphics|*.tif;*.tiff;*.jpg;*.jpeg;*.jpe;*.pcx;*.bmp;*.dib;*' + '.rle;*.ico;*.cur;*.png;*.wmf;*.emf;*.tga;*.targa;*.vda;*.icb;*.v' + 'st;*.pix;*.pxm;*.ppm;*.pgm;*.pbm;*.avi|TIFF Bitmap (TIF;TIFF)|*.' + 'tif;*.tiff|JPEG Bitmap (JPG;JPEG;JPE)|*.jpg;*.jpeg;*.jpe|PaintBr' + 'ush (PCX)|*.pcx|Windows Bitmap (BMP;DIB;RLE)|*.bmp;*.dib;*.rle|W' + 'indows Icon (ICO)|*.ico|Windows Cursor (CUR)|*.cur|Portable Netw' + 'ork Graphics (PNG)|*.png|Windows Metafile (WMF)|*.wmf|Enhanced W' + 'indows Metafile (EMF)|*.emf|Targa Bitmap (TGA;TARGA;VDA;ICB;VST;' + 'PIX)|*.tga;*.targa;*.vda;*.icb;*.vst;*.pix|Portable Pixmap, Grey' + 'Map, BitMap (PXM;PPM;PGM;PBM)|*.pxm;*.ppm;*.pgm;*.pbm|Video for ' + 'Windows (AVI)|*.avi' Left = 457 Top = 24 end end