main.lfm

object VectorEditor: TVectorEditor
  Left = 589
  Height = 675
  Top = 141
  Width = 986
  Caption = 'VectorEditor'
  ClientHeight = 655
  ClientWidth = 986
  Color = clWhite
  KeyPreview = True
  Menu = MainMenu
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  LCLVersion = '1.6.0.4'
  object PaintBox: TPaintBox
    AnchorSideLeft.Control = ToolPanel
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = ColorPanel
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = VerticalScrollBar
    AnchorSideBottom.Control = DebugPanel
    Left = 145
    Height = 468
    Top = 84
    Width = 821
    Align = alCustom
    Anchors = [akTop, akLeft, akRight, akBottom]
    ParentColor = False
    OnMouseDown = PaintBoxMouseDown
    OnMouseMove = PaintBoxMouseMove
    OnMouseUp = PaintBoxMouseUp
    OnMouseWheelDown = PaintBoxMouseWheelDown
    OnMouseWheelUp = PaintBoxMouseWheelUp
    OnPaint = PaintBoxPaint
    OnResize = PaintBoxResize
  end
  object ToolPanel: TPanel
    Left = 0
    Height = 655
    Top = 0
    Width = 145
    Align = alLeft
    BevelOuter = bvNone
    ClientHeight = 655
    ClientWidth = 145
    Color = 16119285
    ParentColor = False
    TabOrder = 0
    object ScaleFloatSpinEdit: TFloatSpinEdit
      AnchorSideTop.Control = ToolButtonPanel
      AnchorSideTop.Side = asrBottom
      AnchorSideRight.Control = ToolButtonPanel
      AnchorSideRight.Side = asrBottom
      Left = 72
      Height = 28
      Top = 0
      Width = 73
      Alignment = taRightJustify
      Anchors = [akTop, akRight]
      AutoSelect = False
      Font.Height = -15
      Increment = 10
      MaxValue = 1600
      MinValue = 6.25
      OnChange = ScaleFloatSpinEditChange
      ParentFont = False
      TabStop = False
      TabOrder = 0
      Value = 100
    end
    object ScaleLabel: TLabel
      AnchorSideTop.Control = ToolButtonPanel
      AnchorSideTop.Side = asrBottom
      AnchorSideRight.Control = ScaleFloatSpinEdit
      Left = -8
      Height = 20
      Top = 3
      Width = 72
      Alignment = taRightJustify
      AutoSize = False
      BorderSpacing.Top = 3
      Caption = 'Масштаб'
      Font.Height = -15
      ParentColor = False
      ParentFont = False
    end
    object PercentLabel: TLabel
      AnchorSideLeft.Control = ScaleFloatSpinEdit
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = ToolButtonPanel
      AnchorSideTop.Side = asrBottom
      Left = 146
      Height = 16
      Top = 3
      Width = 18
      AutoSize = False
      BorderSpacing.Left = 1
      BorderSpacing.Top = 3
      Caption = '%'
      Font.Height = -15
      ParentColor = False
      ParentFont = False
      Visible = False
    end
    object ParamPanel: TPanel
      AnchorSideLeft.Control = ToolPanel
      AnchorSideTop.Control = ScaleFloatSpinEdit
      AnchorSideTop.Side = asrBottom
      AnchorSideRight.Control = ToolPanel
      AnchorSideRight.Side = asrBottom
      AnchorSideBottom.Control = ToolPanel
      AnchorSideBottom.Side = asrBottom
      Left = 0
      Height = 627
      Top = 28
      Width = 145
      Anchors = [akTop, akLeft, akRight, akBottom]
      BevelOuter = bvNone
      Color = 16119285
      ParentColor = False
      TabOrder = 1
    end
    object ToolButtonPanel: TPanel
      AnchorSideLeft.Control = ToolPanel
      AnchorSideTop.Control = ToolPanel
      AnchorSideRight.Control = ToolPanel
      AnchorSideRight.Side = asrBottom
      Left = 0
      Height = 0
      Top = 0
      Width = 145
      Anchors = [akTop, akLeft, akRight]
      AutoSize = True
      BevelOuter = bvNone
      Color = 16119285
      ParentColor = False
      TabOrder = 2
    end
  end
  object HorizontalScrollBar: TScrollBar
    AnchorSideLeft.Control = ToolPanel
    AnchorSideLeft.Side = asrBottom
    AnchorSideRight.Control = VerticalScrollBar
    AnchorSideBottom.Control = Owner
    AnchorSideBottom.Side = asrBottom
    Left = 145
    Height = 20
    Top = 635
    Width = 821
    Anchors = [akLeft, akRight, akBottom]
    Max = 0
    PageSize = 1
    TabOrder = 1
    TabStop = False
    OnChange = HorizontalScrollBarChange
  end
  object VerticalScrollBar: TScrollBar
    AnchorSideLeft.Control = HorizontalScrollBar
    AnchorSideLeft.Side = asrCenter
    AnchorSideTop.Control = Owner
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
    AnchorSideBottom.Control = HorizontalScrollBar
    Left = 966
    Height = 635
    Top = 0
    Width = 20
    Anchors = [akTop, akRight, akBottom]
    Kind = sbVertical
    Max = 0
    PageSize = 1
    TabOrder = 2
    TabStop = False
    OnChange = VerticalScrollBarChange
  end
  object DebugPanel: TPanel
    AnchorSideLeft.Control = ToolPanel
    AnchorSideLeft.Side = asrBottom
    AnchorSideRight.Control = VerticalScrollBar
    AnchorSideBottom.Control = HorizontalScrollBar
    Left = 145
    Height = 83
    Top = 552
    Width = 821
    Anchors = [akLeft, akRight, akBottom]
    ClientHeight = 83
    ClientWidth = 821
    ParentColor = False
    TabOrder = 3
    Visible = False
    object OffsetXLabel: TLabel
      Left = 8
      Height = 15
      Top = 16
      Width = 67
      Caption = 'OffsetXLabel'
      ParentColor = False
    end
    object OffsetYLabel: TLabel
      Left = 8
      Height = 15
      Top = 32
      Width = 67
      Caption = 'OffsetYLabel'
      ParentColor = False
    end
    object OffsetLabel: TLabel
      Left = 8
      Height = 15
      Top = 1
      Width = 35
      Caption = 'Offset:'
      ParentColor = False
    end
    object MouseDspLabel: TLabel
      Left = 328
      Height = 15
      Top = 1
      Width = 59
      Caption = 'MouseDsp:'
      ParentColor = False
    end
    object MouseXDspLabel: TLabel
      Left = 328
      Height = 15
      Top = 12
      Width = 91
      Caption = 'MouseXDspLabel'
      ParentColor = False
    end
    object MouseYDspLabel: TLabel
      Left = 328
      Height = 15
      Top = 25
      Width = 91
      Caption = 'MouseYDspLabel'
      ParentColor = False
    end
    object MouseWrldLabel: TLabel
      Left = 432
      Height = 15
      Top = 1
      Width = 89
      Caption = 'MouseWrldLabel'
      ParentColor = False
    end
    object MouseXWrldLabel: TLabel
      Left = 432
      Height = 15
      Top = 12
      Width = 96
      Caption = 'MouseXWrldLabel'
      ParentColor = False
    end
    object MouseYWrldLabel: TLabel
      Left = 432
      Height = 15
      Top = 25
      Width = 96
      Caption = 'MouseYWrldLabel'
      ParentColor = False
    end
    object ImageBoundsLabel: TLabel
      Left = -50
      Height = 15
      Top = 1
      Width = 101
      Anchors = [akTop]
      Caption = 'ImageBoundsLabel'
      ParentColor = False
    end
    object ImageBoundsX: TLabel
      Left = 96
      Height = 15
      Top = 16
      Width = 80
      Caption = 'ImageBoundsX'
      ParentColor = False
    end
    object ImageBoundsY: TLabel
      Left = 97
      Height = 15
      Top = 32
      Width = 80
      Caption = 'ImageBoundsY'
      ParentColor = False
    end
    object ScrollbarsLabel: TLabel
      Left = 208
      Height = 15
      Top = 1
      Width = 79
      Caption = 'ScrollbarsLabel'
      ParentColor = False
    end
    object ScrollbarMinLabel: TLabel
      Left = 208
      Height = 15
      Top = 16
      Width = 95
      Caption = 'ScrollbarMinLabel'
      ParentColor = False
    end
    object ScrollbarMaxLabel: TLabel
      Left = 210
      Height = 15
      Top = 45
      Width = 96
      Caption = 'ScrollbarMaxLabel'
      ParentColor = False
    end
    object ScrollbarPosLabel: TLabel
      Left = 210
      Height = 15
      Top = 32
      Width = 93
      Caption = 'ScrollbarPosLabel'
      ParentColor = False
    end
    object Buffercaption: TLabel
      Left = 544
      Height = 15
      Top = 2
      Width = 72
      Caption = 'Buffercaption'
      ParentColor = False
    end
    object BufferCurrent: TLabel
      Left = 544
      Height = 15
      Top = 16
      Width = 72
      Caption = 'BufferCurrent'
      ParentColor = False
    end
    object BufferStart: TLabel
      Left = 545
      Height = 15
      Top = 32
      Width = 56
      Caption = 'BufferStart'
      ParentColor = False
    end
    object BufferEnd: TLabel
      Left = 544
      Height = 15
      Top = 42
      Width = 52
      Caption = 'BufferEnd'
      ParentColor = False
    end
    object BufferSaved: TLabel
      Left = 545
      Height = 15
      Top = 58
      Width = 63
      Caption = 'BufferSaved'
      ParentColor = False
    end
  end
  object ColorPanel: TPanel
    AnchorSideLeft.Control = ToolPanel
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = Owner
    AnchorSideRight.Control = VerticalScrollBar
    Left = 145
    Height = 84
    Top = 0
    Width = 821
    Anchors = [akTop, akLeft, akRight]
    ClientHeight = 84
    ClientWidth = 821
    ParentColor = False
    TabOrder = 4
    object PaletteGrid: TDrawGrid
      Left = 80
      Height = 84
      Top = 0
      Width = 210
      AutoEdit = False
      ColCount = 10
      DefaultColWidth = 21
      DefaultDrawing = False
      DefaultRowHeight = 21
      ExtendedSelect = False
      FixedCols = 0
      FixedRows = 0
      Flat = True
      ParentColor = True
      RowCount = 4
      ScrollBars = ssNone
      TabAdvance = aaNone
      TabOrder = 0
      TabStop = False
      OnDblClick = PaletteGridDblClick
      OnDrawCell = PaletteGridDrawCell
      OnMouseDown = PaletteGridMouseDown
    end
    object BrushColorPanel: TPanel
      Left = 24
      Height = 50
      Top = 24
      Width = 50
      Color = clWhite
      ParentColor = False
      TabOrder = 1
    end
    object PenColorPanel: TPanel
      Left = 5
      Height = 50
      Top = 5
      Width = 50
      Color = clBlack
      ParentColor = False
      TabOrder = 2
    end
  end
  object MainMenu: TMainMenu
    left = 776
    top = 112
    object FileMenuItem: TMenuItem
      Caption = 'Файл'
      object OpenFileMenuItem: TMenuItem
        Action = OpenFileAction
        Caption = 'Открыть'
      end
      object SaveFileMenuItem: TMenuItem
        Action = SaveFileAction
        Caption = 'Сохранить'
      end
      object SaveFileAsMenuItem: TMenuItem
        Action = SaveFileAsAction
        Caption = 'Сохранить как'
      end
      object ShowEverythingMenuItem: TMenuItem
        Action = ShowEverythigAction
        Caption = 'Показать всё'
      end
      object ClearMenuItem: TMenuItem
        Action = ClearFigures
        Caption = 'Очистить'
      end
      object FileDividerMenuItem: TMenuItem
        Caption = '-'
      end
      object ExitMenuItem: TMenuItem
        Caption = 'Выйти'
        OnClick = ExitMenuItemClick
      end
    end
    object EditMenuItem: TMenuItem
      Caption = 'Правка'
      OnClick = EditMenuItemClick
      object UndoMenuItem: TMenuItem
        Action = UndoAction
      end
      object RedoMenuItem: TMenuItem
        Action = RedoAction
      end
    end
    object HelpMenuItem: TMenuItem
      Caption = 'Помощь'
      object AboutMenuItem: TMenuItem
        Caption = 'О программе'
        OnClick = AboutMenuItemClick
      end
    end
  end
  object ColorDialog: TColorDialog
    Color = clBlack
    CustomColors.Strings = (
      'ColorA=000000'
      'ColorB=000080'
      'ColorC=008000'
      'ColorD=008080'
      'ColorE=800000'
      'ColorF=800080'
      'ColorG=808000'
      'ColorH=808080'
      'ColorI=C0C0C0'
      'ColorJ=0000FF'
      'ColorK=00FF00'
      'ColorL=00FFFF'
      'ColorM=FF0000'
      'ColorN=FF00FF'
      'ColorO=FFFF00'
      'ColorP=FFFFFF'
      'ColorQ=C0DCC0'
      'ColorR=F0CAA6'
      'ColorS=F0FBFF'
      'ColorT=A4A0A0'
    )
    left = 736
    top = 112
  end
  object ActionList: TActionList
    left = 320
    top = 168
    object SaveFileAction: TAction
      Caption = 'SaveFileAction'
      OnExecute = SaveFileActionExecute
      ShortCut = 16467
    end
    object OpenFileAction: TAction
      Caption = 'OpenFileAction'
      OnExecute = OpenFileActionExecute
      ShortCut = 16463
    end
    object SaveFileAsAction: TAction
      Caption = 'SaveFileAsAction'
      OnExecute = SaveFileAsActionExecute
    end
    object ClearFigures: TAction
      Caption = 'ClearFigures'
      OnExecute = ClearFiguresExecute
    end
    object UndoAction: TAction
      Caption = 'Отмена'
      OnExecute = UndoActionExecute
      ShortCut = 16474
    end
    object RedoAction: TAction
      Caption = 'Повтор'
      OnExecute = RedoActionExecute
      ShortCut = 16473
    end
    object ShowEverythigAction: TAction
      Caption = 'ShowEverythigAction'
      OnExecute = ShowEverythigActionExecute
    end
  end
  object SaveFileDialog: TSaveDialog
    DefaultExt = '.vgi'
    Filter = 'Default|*.vgi'
    InitialDir = 'C:\programming\Pascal\Alpha-Vector-Editor\'
    Options = [ofOverwritePrompt, ofEnableSizing, ofViewDetail]
    left = 192
    top = 168
  end
  object OpenFileDialog: TOpenDialog
    DefaultExt = '.vgi'
    Filter = 'Default|*.vgi'
    Options = [ofPathMustExist, ofFileMustExist, ofEnableSizing, ofViewDetail]
    left = 248
    top = 168
  end
end