frm_main.dfm

delphi语言开发的矢量图形处理对象

      end
      item
        Style = psOwnerDraw
        Width = 50
      end>
    OnDrawPanel = StatusBar1DrawPanel
  end
  object Panel2: TPanel
    Left = 0
    Top = 414
    Width = 730
    Height = 41
    Align = alBottom
    TabOrder = 3
    object Panel3: TPanel
      Left = 1
      Top = 1
      Width = 152
      Height = 39
      Align = alLeft
      BevelOuter = bvLowered
      Ctl3D = True
      ParentCtl3D = False
      TabOrder = 0
      object Label1: TLabel
        Left = 16
        Top = 5
        Width = 48
        Height = 12
        Caption = #30011#31508#39068#33394
        Font.Charset = ANSI_CHARSET
        Font.Color = clPurple
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label2: TLabel
        Left = 97
        Top = 5
        Width = 36
        Height = 12
        Caption = #22635#20805#33394
        Font.Charset = ANSI_CHARSET
        Font.Color = clPurple
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object pnlFore: TPanel
        Left = 6
        Top = 20
        Width = 72
        Height = 12
        BevelInner = bvLowered
        BevelOuter = bvLowered
        Color = clBlack
        TabOrder = 0
      end
      object pnlBk: TPanel
        Left = 80
        Top = 20
        Width = 70
        Height = 11
        BevelInner = bvLowered
        BevelOuter = bvLowered
        Color = clSilver
        TabOrder = 1
      end
    end
    object Panel4: TPanel
      Left = 153
      Top = 1
      Width = 576
      Height = 39
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 1
      object ColorGrid1: TColorGrid
        Left = 0
        Top = 2
        Width = 144
        Height = 32
        Ctl3D = True
        GridOrdering = go8x2
        ParentCtl3D = False
        TabOrder = 0
        OnChange = ColorGrid1Change
      end
    end
  end
  object Panel6: TPanel
    Left = 0
    Top = 51
    Width = 730
    Height = 5
    Align = alTop
    BevelInner = bvLowered
    Color = clMoneyGreen
    TabOrder = 4
  end
  object rightDockPanel: TPanel
    Left = 543
    Top = 56
    Width = 187
    Height = 358
    Align = alRight
    DockSite = True
    TabOrder = 5
    object ListViewObj: TListView
      Left = 1
      Top = 1
      Width = 185
      Height = 356
      Align = alClient
      Color = clMoneyGreen
      Columns = <>
      LargeImages = imageLstObj
      PopupMenu = objPopup
      TabOrder = 0
      OnClick = ListViewObjClick
      OnEdited = ListViewObjEdited
    end
  end
  object Panel7: TPanel
    Left = 0
    Top = 23
    Width = 730
    Height = 28
    Align = alTop
    BevelInner = bvLowered
    BevelOuter = bvNone
    TabOrder = 6
    object ActionToolBar1: TActionToolBar
      Left = 1
      Top = 1
      Width = 432
      Height = 28
      ActionManager = ActionManager1
      Align = alNone
      Caption = 'ActionToolBar'
      ColorMap.HighlightColor = 15660791
      ColorMap.BtnSelectedColor = clBtnFace
      ColorMap.UnusedColor = 15660791
      EdgeInner = esNone
      EdgeOuter = esLowered
      Spacing = 1
    end
    object CheckBox1: TCheckBox
      Left = 480
      Top = 8
      Width = 97
      Height = 17
      Caption = #23545#35937#21487#35265#24615
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = CheckBox1Click
    end
  end
  object ScrollBox1: TScrollBox
    Left = 36
    Top = 56
    Width = 503
    Height = 358
    Align = alClient
    TabOrder = 7
    object drwPaint: TPaintBox
      Left = 32
      Top = 32
      Width = 425
      Height = 353
      OnMouseDown = drwPaintMouseDown
      OnMouseMove = drwPaintMouseMove
      OnMouseUp = drwPaintMouseUp
      OnPaint = drwPaintPaint
    end
  end
  object ActionManager1: TActionManager
    ActionBars = <
      item
        ContextItems.AutoHotKeys = False
        ContextItems = <>
        Items = <
          item
            Items = <
              item
                Action = FileNew
                Caption = #26032#24314'(&Z)'
                ImageIndex = 6
              end
              item
                Action = fileNewObj
                ImageIndex = 24
              end
              item
                Action = FileOpen
                Caption = #25171#24320'(&Y)'
                ImageIndex = 7
              end
              item
                Caption = '-'
              end
              item
                Action = FileSave
                Caption = #20445#23384'(&W)'
                ImageIndex = 8
              end
              item
                Action = FileClose
                Caption = #20851#38381'(&X)'
              end
              item
                Caption = '-'
              end
              item
                Action = FileExit
                Caption = #36864#20986'(&V)'
                ImageIndex = 52
              end>
            Caption = #25991#20214#12304'&F'#12305
            ShowShortCut = False
          end
          item
            Items = <
              item
                Action = Edit_Copy
                Caption = #22797#21046'(&Z)'
                ImageIndex = 1
                ShortCut = 16451
              end
              item
                Action = Edit_Cut
                Caption = #21098#20999'(&Y)'
                ImageIndex = 0
                ShortCut = 16472
              end
              item
                Action = Edit_Paste
                Caption = #31896#24086'(&X)'
                ImageIndex = 2
                ShortCut = 16470
              end
              item
                Caption = '-'
              end
              item
                Action = Edit_Del
                Caption = #21024#38500'(&W)'
                ImageIndex = 15
              end
              item
                Caption = '-'
              end
              item
                Action = SendFront
                Caption = #25552#21069'(&T)'
                ImageIndex = 31
              end
              item
                Action = SendBack
                Caption = #32622#21518'(&S)'
                ImageIndex = 32
              end>
            Caption = #32534#36753#12304'&E'#12305
          end
          item
            Items = <
              item
                Action = Zoom_20
                Caption = '%&20'
              end
              item
                Action = Zoom_50
                Caption = '%&50'
              end
              item
                Action = Zoom_70
                Caption = '%&70'
              end
              item
                Action = Zoom_100
                Caption = '%&100'
              end
              item
                Action = Zoom_120
                Caption = '%12&0'
              end
              item
                Action = Zoom_150
              end
              item
                Action = Zoom_200
              end
              item
                Caption = '-'
              end
              item
                Action = actTool
                Caption = #24037#20855#31665'(&Z)'
                ImageIndex = 54
              end
              item