rmmain.lfm

object RMMainForm: TRMMainForm
  Left = 261
  Height = 854
  Top = 190
  Width = 1491
  Align = alClient
  Caption = 'Raster Master'
  ClientHeight = 854
  ClientWidth = 1491
  DefaultMonitor = dmDesktop
  Menu = MainMenu1
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  Position = poDefault
  LCLVersion = '3.4.0.0'
  Scaled = False
  object RightPanel: TPanel
    AnchorSideLeft.Control = RightHSplitter
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = Owner
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
    AnchorSideBottom.Control = Owner
    AnchorSideBottom.Side = asrBottom
    Left = 1253
    Height = 854
    Top = 0
    Width = 238
    Anchors = [akTop, akLeft, akRight, akBottom]
    ClientHeight = 854
    ClientWidth = 238
    TabOrder = 5
    object RMPanel: TPanel
      AnchorSideRight.Control = RightPanel
      AnchorSideRight.Side = asrBottom
      AnchorSideBottom.Control = RightPanel
      AnchorSideBottom.Side = asrBottom
      Cursor = crNo
      Left = 64
      Height = 121
      Top = 722
      Width = 158
      Anchors = [akRight, akBottom]
      BorderSpacing.Right = 15
      BorderSpacing.Bottom = 10
      ClientHeight = 121
      ClientWidth = 158
      TabOrder = 0
      OnClick = RMPanelClick
      object RMLogo: TImage
        AnchorSideTop.Control = RMPanel
        Cursor = crHandPoint
        Left = 16
        Height = 64
        Hint = 'Click Me! And Subscribe to my YouTube Channel!'
        Top = 17
        Width = 128
        AutoSize = True
        BorderSpacing.Top = 16
        OnClick = RMLogoClick
        ParentShowHint = False
        ShowHint = True
        StretchOutEnabled = False
        StretchInEnabled = False
        Transparent = True
      end
    end
    object ColorBox: TShape
      Left = 8
      Height = 64
      Top = 8
      Width = 60
      Brush.Color = clSkyBlue
      ParentShowHint = False
      OnMouseDown = ColorBoxMouseDown
      OnMouseEnter = ColorBoxMouseEnter
      ShowHint = True
    end
    object ColorPalette1: TColorPalette
      Left = 8
      Height = 234
      Top = 80
      Width = 60
      ButtonHeight = 30
      ButtonWidth = 30
      ColumnCount = 8
      Flipped = True
      PickedIndex = 0
      SelectionColor = clWhite
      SelectionKind = pskThickInverted
      OnColorPick = ColorPalette1ColorPick
      OnGetHintText = ColorPalette1GetHintText
      ParentColor = False
      ParentShowHint = False
      ShowHint = True
    end
  end
  object MiddleBottomPanel: TPanel
    AnchorSideLeft.Control = LeftHSplitter
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = MiddleTopPanel
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = RightHSplitter
    AnchorSideBottom.Control = Owner
    AnchorSideBottom.Side = asrBottom
    Left = 307
    Height = 742
    Top = 112
    Width = 935
    Anchors = [akTop, akLeft, akRight, akBottom]
    BevelOuter = bvNone
    ClientHeight = 742
    ClientWidth = 935
    TabOrder = 1
    object ZoomScrollBox: TScrollBox
      AnchorSideLeft.Control = MiddleBottomPanel
      AnchorSideTop.Control = MiddleBottomPanel
      Left = 0
      Height = 742
      Top = 0
      Width = 935
      HorzScrollBar.Increment = 93
      HorzScrollBar.Page = 862
      HorzScrollBar.Tracking = True
      VertScrollBar.Increment = 69
      VertScrollBar.Page = 670
      VertScrollBar.Tracking = True
      Align = alClient
      Anchors = [akRight, akBottom]
      BorderStyle = bsNone
      ClientHeight = 742
      ClientWidth = 935
      TabOrder = 0
      object ZoomPaintBox: TPaintBox
        AnchorSideLeft.Control = ZoomScrollBox
        AnchorSideTop.Control = ZoomScrollBox
        Cursor = crCross
        Left = 0
        Height = 670
        Top = 0
        Width = 862
        OnMouseDown = ZPaintBoxMouseDown
        OnMouseMove = ZPaintBoxMouseMove
        OnMouseUp = ZPaintBoxMouseUp
        OnPaint = ZoomPaintBoxPaint
      end
    end
  end
  object LeftPanel: TPanel
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = Owner
    AnchorSideRight.Control = LeftHSplitter
    AnchorSideRight.Side = asrBottom
    AnchorSideBottom.Control = Owner
    AnchorSideBottom.Side = asrBottom
    Left = 0
    Height = 854
    Top = 0
    Width = 307
    Anchors = [akTop, akLeft, akRight, akBottom]
    BevelOuter = bvNone
    ClientHeight = 854
    ClientWidth = 307
    TabOrder = 0
    object LeftVSplitter: TSplitter
      AnchorSideLeft.Control = LeftPanel
      AnchorSideTop.Control = ActualPane
      AnchorSideTop.Side = asrBottom
      AnchorSideRight.Control = LeftPanel
      AnchorSideRight.Side = asrCenter
      AnchorSideBottom.Control = ListView1
      Cursor = crVSplit
      Left = 0
      Height = 13
      Top = 280
      Width = 305
      Align = alNone
      Anchors = [akLeft, akRight]
      Color = 11625216
      ParentColor = False
      ResizeAnchor = akBottom
    end
    object ListView1: TListView
      AnchorSideLeft.Control = LeftPanel
      AnchorSideTop.Control = LeftVSplitter
      AnchorSideTop.Side = asrBottom
      AnchorSideRight.Control = LeftPanel
      AnchorSideRight.Side = asrBottom
      AnchorSideBottom.Control = LeftPanel
      AnchorSideBottom.Side = asrBottom
      Left = 0
      Height = 561
      Top = 293
      Width = 296
      Anchors = [akTop, akLeft, akRight, akBottom]
      BorderSpacing.Right = 11
      Color = 15790320
      Columns = <>
      IconOptions.AutoArrange = True
      LargeImages = ImageList1
      LargeImagesWidth = 128
      PopupMenu = ExportPropsMenu
      ReadOnly = True
      TabOrder = 1
      ViewStyle = vsIcon
      OnClick = ListView1Click
    end
    object ActualPane: TPanel
      AnchorSideLeft.Control = LeftPanel
      AnchorSideTop.Control = LeftPanel
      AnchorSideRight.Control = LeftPanel
      AnchorSideRight.Side = asrBottom
      AnchorSideBottom.Control = LeftVSplitter
      Left = 0
      Height = 280
      Top = 0
      Width = 292
      Anchors = [akTop, akLeft, akRight, akBottom]
      BorderSpacing.Right = 15
      BevelOuter = bvNone
      ClientHeight = 280
      ClientWidth = 292
      TabOrder = 0
      object ActualBox: TImage
        Left = 16
        Height = 256
        Top = 8
        Width = 256
      end
    end
  end
  object LeftHSplitter: TSplitter
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = Owner
    AnchorSideBottom.Control = Owner
    AnchorSideBottom.Side = asrBottom
    Left = 296
    Height = 854
    Top = 0
    Width = 11
    Align = alNone
    Anchors = [akTop, akBottom]
    Color = 11625216
    ParentColor = False
  end
  object RightHSplitter: TSplitter
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = Owner
    AnchorSideBottom.Control = Owner
    AnchorSideBottom.Side = asrBottom
    Left = 1242
    Height = 854
    Top = 0
    Width = 11
    Align = alNone
    Anchors = [akTop, akBottom]
    Color = 11625216
    ParentColor = False
  end
  object MiddleTopPanel: TPanel
    AnchorSideLeft.Control = LeftHSplitter
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = Owner
    AnchorSideRight.Control = RightHSplitter
    Left = 307
    Height = 112
    Top = 0
    Width = 935
    Anchors = [akTop, akLeft, akRight]
    ClientHeight = 112
    ClientWidth = 935
    TabOrder = 2
    object ToolPanel: TPanel
      AnchorSideTop.Control = MiddleTopPanel
      AnchorSideRight.Control = MiddleTopPanel
      AnchorSideRight.Side = asrBottom
      Left = 450
      Height = 88
      Top = 8
      Width = 434
      Anchors = [akTop, akRight]
      BorderSpacing.Top = 7
      BorderSpacing.Right = 50
      ClientHeight = 88
      ClientWidth = 434
      TabOrder = 0
      object ToolCircleIcon: TImage
        Left = 96
        Height = 32
        Hint = 'Empty Circle'
        Top = 8
        Width = 32
        OnClick = ToolCircleMenuClick
        ParentShowHint = False
        ShowHint = True
      end
      object ToolFCircleIcon: TImage
        Left = 96
        Height = 32
        Hint = 'Filled Circle'
        Top = 48
        Width = 32
        OnClick = ToolFCircleMenuClick
        ParentShowHint = False
        ShowHint = True
      end
      object ToolPencilIcon: TImage
        Left = 16
        Height = 32
        Hint = 'Pencil'
        Top = 8
        Width = 32
        OnClick = ToolPencilMenuClick
        ParentShowHint = False
        ShowHint = True
      end
      object ToolLineIcon: TImage
        Left = 16
        Height = 32
        Hint = 'Line'
        Top = 48
        Width = 32
        OnClick = ToolLineMenuClick
        ParentShowHint = False
        ShowHint = True
      end
      object ToolRectangleIcon: TImage
        Left = 56
        Height = 32
        Hint = 'Empty Rectangle'
        Top = 8
        Width = 32
        OnClick = ToolRectangleMenuClick
        ParentShowHint = False
        ShowHint = True
      end
      object ToolFRectangleIcon: TImage
        Left = 56
        Height = 32
        Hint = 'Filled Rectangle'
        Top = 48
        Width = 32
        OnClick = ToolFRectangleMenuClick
        ParentShowHint = False
        ShowHint = True
      end
      object ToolSprayPaintIcon: TImage
        Left = 176
        Height = 32
        Hint = 'Spray Paint'
        Top = 8
        Width = 32
        OnClick = ToolMenuSprayPaintClick
        ParentShowHint = False
        ShowHint = True
      end
      object ToolPaintIcon: TImage
        Left = 176
        Height = 32
        Hint = 'Paint'
        Top = 48
        Width = 32
        OnClick = ToolMenuPaintClick
        ParentShowHint = False
        ShowHint = True
      end
      object ToolGridIcon: TImage
        Left = 216
        Height = 32
        Hint = 'Toggle Grid'
        Top = 7
        Width = 32
        OnClick = ToolGridMenuClick
        ParentShowHint = False
        ShowHint = True
      end
      object ToolSelectAreaIcon: TImage
        Left = 216
        Height = 32
        Hint = 'Select Area'
        Top = 48
        Width = 32
        OnClick = ToolMenuSelectAreaMenuClick
        ParentShowHint = False
        ShowHint = True
      end
      object ToolHFLIPButton: TButton
        Left = 296
        Height = 31
        Hint = 'Horizontal Flip'
        Top = 9
        Width = 54
        Caption = 'HFLIP'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnClick = ToolFlipHorizMenuClick
      end
      object ToolVFLIPButton: TButton
        Left = 354
        Height = 31
        Hint = 'Vertical Flip'
        Top = 8
        Width = 54
        Caption = 'VFLIP'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        OnClick = ToolFlipVirtMenuClick
      end
      object ToolScrollLeftIcon: TImage
        Left = 256
        Height = 32
        Hint = 'Scroll Left'
        Top = 48
        Width = 32
        OnClick = ToolScrollLeftMenuClick
        ParentShowHint = False
        ShowHint = True
      end
      object ToolScrollRightIcon: TImage
        Left = 296
        Height = 32
        Hint = 'Scroll Right'
        Top = 48
        Width = 32
        OnClick = ToolScrollRightMenuClick
        ParentShowHint = False
        ShowHint = True
      end
      object ToolScrollUpIcon: TImage
        Left = 336
        Height = 32
        Hint = 'Scroll Up'
        Top = 48
        Width = 32
        OnClick = ToolScrollUpMenuClick
        ParentShowHint = False
        ShowHint = True
      end
      object ToolScrollDownIcon: TImage
        Left = 376
        Height = 32
        Hint = 'Scroll Down'
        Top = 48
        Width = 32
        OnClick = ToolScrollDownMenuClick
        ParentShowHint = False
        ShowHint = True
      end
      object ToolUndoIcon: TImage
        Left = 256
        Height = 32
        Hint = 'Undo'
        Top = 8
        Width = 32
        OnClick = ToolUndoIconClick
        ParentShowHint = False
        ShowHint = True
      end
      object ToolEllipseIcon: TImage
        Left = 136
        Height = 32
        Hint = 'Empty Ellipse'
        Top = 9
        Width = 32
        OnClick = ToolEllipseMenuClick
        ParentShowHint = False
        ShowHint = True
      end
      object ToolFEllipseIcon: TImage
        Left = 136
        Height = 32
        Hint = 'Filled Ellipse'
        Top = 48
        Width = 32
        OnClick = ToolFEllipseMenuClick
        ParentShowHint = False
        ShowHint = True
      end
    end
    object ZoomTrackBar: TTrackBar
      Left = 899
      Height = 110
      Hint = 'Zoom Level'
      Top = 1
      Width = 30
      Max = 20
      Min = 1
      OnChange = ZoomTrackBarChange
      Orientation = trVertical
      Position = 1
      TickMarks = tmTopLeft
      Align = alRight
      BorderSpacing.Right = 5
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
    end
    object StatusBar1: TStatusBar
      AnchorSideRight.Control = ToolPanel
      Left = 16
      Height = 23
      Top = 8
      Width = 424
      Align = alNone
      Anchors = [akTop, akLeft, akRight]
      BorderSpacing.Around = 10
      Panels = <>
    end
    object StatusBar2: TStatusBar
      AnchorSideRight.Control = ToolPanel
      Left = 16
      Height = 23
      Top = 40
      Width = 424
      Align = alNone
      Anchors = [akTop, akLeft, akRight]
      BorderSpacing.Around = 10
      Panels = <>
    end
  end
  object MainMenu1: TMainMenu
    Left = 1176
    Top = 248
    object FileExitMenu: TMenuItem
      Caption = 'File'
      object NewFile: TMenuItem
        Caption = 'New'
        OnClick = NewClick
      end
      object OpenFile: TMenuItem
        Caption = 'Open'
        OnClick = OpenFileClick
      end
      object OpenProjectFile: TMenuItem
        Caption = 'Open Project'
        OnClick = OpenProjectFileClick
      end
      object InsertProjectFile: TMenuItem
        Caption = 'Insert Project'
        OnClick = OpenProjectFileClick
      end
      object SaveFile: TMenuItem
        Caption = 'Save'
        OnClick = SaveFileClick
      end
      object SaveProjectFile: TMenuItem
        Caption = 'Save Project'
        OnClick = SaveProjectFileClick
      end
      object FileDelete: TMenuItem
        Caption = 'Delete'
        OnClick = FileDeleteClick
      end
      object DeleteAll: TMenuItem
        Caption = 'Delete All'
        OnClick = DeleteAllClick
      end
      object SaveFileAs: TMenuItem
        Caption = 'Save As'
        Enabled = False
        Visible = False
      end
      object MenuItem10: TMenuItem
        Caption = 'Import'
        Enabled = False
        Visible = False
      end
      object MenuItem9: TMenuItem
        Caption = 'Export'
        object ExportRESInclude: TMenuItem
          Caption = 'RES Text Include File'
          OnClick = RESExportClick
        end
        object ExportRESBinary: TMenuItem
          Caption = 'RES Binary File'
          OnClick = RESExportClick
        end
        object AmigaBasic: TMenuItem
          Caption = 'AmigaBasic'
          object ABPutData: TMenuItem
            Caption = 'Put Data Statements'
            OnClick = AmigaBasicClick
          end
          object ABPutPlusMaskData: TMenuItem
            Caption = 'Put+Mask Data Statements'
            OnClick = AmigaBasicClick
          end
          object ABBobData: TMenuItem
            Caption = 'Bob Data Statements'
            OnClick = AmigaBasicClick
          end
          object ABVSpriteData: TMenuItem
            Caption = 'VSprite Data Statements'
            OnClick = AmigaBasicClick
          end
          object ABPutFile: TMenuItem
            Caption = 'Put File'
            OnClick = AmigaBasicClick
          end
          object ABBobFile: TMenuItem
            Caption = 'Bob File'
            OnClick = AmigaBasicClick
          end
          object ABVSpriteFile: TMenuItem
            Caption = 'VSprite File'
            OnClick = AmigaBasicClick
          end
        end
        object AmigaC: TMenuItem
          Caption = 'Amiga C'
          object CBOBBitmapArray: TMenuItem
            Caption = 'Bob Bitmap Array'
            OnClick = AmigaCClick
          end
          object CVSpriteBitmapArray: TMenuItem
            Caption = 'VSprite Bitmap Array'
            OnClick = AmigaCClick
          end
          object ACBobFile: TMenuItem
            Caption = 'Bob Bitmap File'
            OnClick = AmigaCClick
          end
          object ACVSpriteFile: TMenuItem
            Caption = 'VSprite Bitmap File'
            OnClick = AmigaCClick
          end
        end
        object AmigaPascal: TMenuItem
          Caption = 'Amiga Pascal'
          object PascalBOBBitmapArray: TMenuItem
            Caption = 'Bob Bitmap Array'
            OnClick = AmigaPascalClick
          end
          object PascalVSpriteBitmapArray: TMenuItem
            Caption = 'VSprite Bitmap Array'
            OnClick = AmigaPascalClick
          end
          object PascalBOBBitmapFile: TMenuItem
            Caption = 'Bob Bitmap File'
            OnClick = AmigaPascalClick
          end
          object PascalVSpriteBitmapFile: TMenuItem
            Caption = 'VSprite Bitmap File'
            OnClick = AmigaPascalClick
          end
        end
        object MenuItem13: TMenuItem
          Caption = 'Amiga QuickBasic AQB'
          object AqbPsetBitMap: TMenuItem
            Caption = 'PSet BitMap Data'
            OnClick = AqbPsetBitMapClick
          end
        end
        object MenuItem1: TMenuItem
          Caption = 'BAM Basic'
          object BAMPutData: TMenuItem
            Caption = 'Put Data Statements'
            OnClick = BAMPutDataClick
          end
          object BAMPutPlusMaskData: TMenuItem
            Caption = 'Put+Mask Data Statements'
            OnClick = BAMPutDataClick
          end
          object BAMRGBPutData: TMenuItem
            Caption = 'Put RGB Data Statements'
            OnClick = BAMPutDataClick
          end
        end
        object FreeBASIC: TMenuItem
          Caption = 'FreeBASIC - QB Mode'
          object FBPutData: TMenuItem
            Caption = 'Put Data Statements'
            OnClick = FreeBASICClick
          end
          object FBPutPlusMaskData: TMenuItem
            Caption = 'Put+Mask Data Statements'
            OnClick = FreeBASICClick
          end
          object FBPutFile: TMenuItem
            Caption = 'Put File'
            OnClick = FreeBASICClick
          end
          object FBMouseShapeData: TMenuItem
            Caption = 'Mouse Shape Data Statements'
            OnClick = MouseSaveClick
          end
          object FBMouseShapeFile: TMenuItem
            Caption = 'Mouse Shape File'
            OnClick = MouseSaveClick
          end
        end
        object MenuItem8: TMenuItem
          Caption = 'FreeBASIC'
          object fbRayLibFuchsia: TMenuItem
            Caption = 'RGBA - Fuchsia Array'
            OnClick = RayLibExportClick
          end
          object fbRayLibIndex0: TMenuItem
            Caption = 'RGBA - Index 0 Array'
            OnClick = RayLibExportClick
          end
          object fbRayLibRGB: TMenuItem
            Caption = 'RGB Array'
            OnClick = RayLibExportClick
          end
        end
        object FreePascal: TMenuItem
          Caption = 'FreePascal'
          object FPPutImageArray: TMenuItem
            Caption = 'PutImage Array'
            OnClick = FreePascalClick
          end
          object FPPutImagePlusMaskArray: TMenuItem
            Caption = 'PutImage+Mask Array'
            OnClick = FreePascalClick
          end
          object FPPutImageFile: TMenuItem
            Caption = 'PutImage File'
            OnClick = FreePascalClick
          end
          object FPMouseShapeArray: TMenuItem
            Caption = 'Mouse Shape Array'
            OnClick = MouseSaveClick
          end
          object FPMouseShapeFile: TMenuItem
            Caption = 'Mouse Shape File'
            OnClick = MouseSaveClick
          end
          object fpRayLibFuchsia: TMenuItem
            Caption = 'RayLib (RGBA - Fuchsia) Array'
            OnClick = RayLibExportClick
          end
          object fpRayLibIndex0: TMenuItem
            Caption = 'RayLib (RGBA - Index 0) Array'
            OnClick = RayLibExportClick
          end
          object fpRayLibCustom: TMenuItem
            Caption = 'RayLib (RGBA - Custom) Array'
            OnClick = RayLibExportClick
          end
          object fpRayLibRGB: TMenuItem
            Caption = 'RayLib (RGB) Array'
            OnClick = RayLibExportClick
          end
        end
        object gcc: TMenuItem
          Caption = 'gcc \ Emscripten'
          object gccRayLibFuchsia: TMenuItem
            Caption = 'RayLib (RGBA - Fuchsia) Array'
            OnClick = RayLibExportClick
          end
          object gccRayLibIndex0: TMenuItem
            Caption = 'RayLib (RGBA - Index 0) Array'
            OnClick = RayLibExportClick
          end
          object gccRayLibCustom: TMenuItem
            Caption = 'RayLib (RGBA - Custom) Array'
            OnClick = RayLibExportClick
          end
          object gccRayLibRGB: TMenuItem
            Caption = 'RayLib (RGB) Array'
            OnClick = RayLibExportClick
          end
        end
        object GWBASIC: TMenuItem
          Caption = 'GWBASIC'
          object GWPutData: TMenuItem
            Caption = 'Put Data Statements'
            OnClick = GWBASICClick
          end
          object GWPutPlusMaskData: TMenuItem
            Caption = 'Put+Mask Data Statements'
            OnClick = GWBASICClick
          end
          object GWPutFile: TMenuItem
            Caption = 'Put File'
            OnClick = GWBASICClick
          end
          object GWMouseShapeData: TMenuItem
            Caption = 'Mouse Shape Data Statements'
            OnClick = MouseSaveClick
          end
          object GWMouseShapeFile: TMenuItem
            Caption = 'Mouse Shape File'
            OnClick = MouseSaveClick
          end
        end
        object JavaScript: TMenuItem
          Caption = 'JavaScript'
          object TransparentImage: TMenuItem
            Caption = 'Transparent Image Array'
            OnClick = javaScriptArrayClick
          end
          object NonTransparentImage: TMenuItem
            Caption = 'Non Transparent Image Array'
            OnClick = javaScriptArrayClick
          end
        end
        object OpenWatcom: TMenuItem
          Caption = 'Open Watcom C'
          object OWPutImageArray: TMenuItem
            Caption = '_putimage array'
            OnClick = OpenWatcomCClick
          end
          object OWPutImagePlusMaskArray: TMenuItem
            Caption = '_putimage+Mask array'
            OnClick = OpenWatcomCClick
          end
          object OWPutImageFile: TMenuItem
            Caption = '_putimage File'
            OnClick = OpenWatcomCClick
          end
          object OWMouseShapeArray: TMenuItem
            Caption = 'Mouse Shape Array'
            OnClick = MouseSaveClick
          end
          object MenuItem14: TMenuItem
            Caption = 'Mouse Shape File'
            OnClick = MouseSaveClick
          end
        end
        object QuickBasic: TMenuItem
          Caption = 'QBasic\QuickBasic'
          object QBPutData: TMenuItem
            Caption = 'Put Data Statements'
            OnClick = QBasicDataClick
          end
          object QBPutPlusMaskData: TMenuItem
            Caption = 'Put+Mask Data Statements'
            OnClick = QBasicDataClick
          end
          object QBPutFile: TMenuItem
            Caption = 'Put File'
            OnClick = QBasicDataClick
          end
          object QBMouseShapeData: TMenuItem
            Caption = 'Mouse Shape Data Statements'
            OnClick = MouseSaveClick
          end
          object QBMouseShapeFile: TMenuItem
            Caption = 'Mouse Shape File'
            OnClick = MouseSaveClick
          end
        end
        object QB64: TMenuItem
          Caption = 'QB64'
          object qb64RGBAFuchsia: TMenuItem
            Caption = 'RGBA - Fuchsia Data Statements'
            OnClick = RayLibExportClick
          end
          object qb64RGBAIndex0: TMenuItem
            Caption = 'RGBA - Index 0 Data Statements'
            OnClick = RayLibExportClick
          end
          object qb64RGBACustom: TMenuItem
            Caption = 'RGBA - Custom Data Statements'
            OnClick = RayLibExportClick
          end
          object qb64RGB: TMenuItem
            Caption = 'RGB Data Statements'
            OnClick = RayLibExportClick
          end
        end
        object QBJS: TMenuItem
          Caption = 'QBJS'
          object qbjsRGBAFuchsia: TMenuItem
            Caption = 'RGBA - Fuchsia Data Statements'
            OnClick = RayLibExportClick
          end
          object qbjsRGBAIndex0: TMenuItem
            Caption = 'RGBA - Index 0 Data Statements'
            OnClick = RayLibExportClick
          end
          object qbjsRGBACustom: TMenuItem
            Caption = 'RGBA - Custom Data Statements'
            OnClick = RayLibExportClick
          end
          object qbjsRGB: TMenuItem
            Caption = 'RGB Data Statements'
            OnClick = RayLibExportClick
          end
        end
        object QuickC: TMenuItem
          Caption = 'Quick C'
          object QCPutImageArray: TMenuItem
            Caption = '_putimage array'
            OnClick = QuickCClick
          end
          object QCPutImagePlusMaskArray: TMenuItem
            Caption = '_putimage+Mask array'
            OnClick = QuickCClick
          end
          object QCPutImageFile: TMenuItem
            Caption = '_putimage File'
            OnClick = QuickCClick
          end
          object QCMouseShapeArray: TMenuItem
            Caption = 'Mouse Shape Array'
            OnClick = MouseSaveClick
          end
          object QCMouseShapeFile: TMenuItem
            Caption = 'Mouse Shape File'
            OnClick = MouseSaveClick
          end
        end
        object QuickPascal: TMenuItem
          Caption = 'Quick Pascal'
          object QPPutImageArray: TMenuItem
            Caption = 'PutImage Array'
            OnClick = QuickPascalClick
          end
          object QPPutImagePlusMaskArray: TMenuItem
            Caption = 'PutImage+Mask Array'
            OnClick = QuickPascalClick
          end
          object QPPutImageFile: TMenuItem
            Caption = 'PutImage File'
            OnClick = QuickPascalClick
          end
          object QPMouseShapeArray: TMenuItem
            Caption = 'Mouse Shape Array'
            OnClick = MouseSaveClick
          end
          object QPMouseShapeFile: TMenuItem
            Caption = 'Mouse Shape File'
            OnClick = MouseSaveClick
          end
        end
        object TurboBasic: TMenuItem
          Caption = 'Turbo\Power Basic'
          object TBPutData: TMenuItem
            Caption = 'Put Data Statements'
            OnClick = TurboPowerBasicClick
          end
          object TBPutPlusMaskData: TMenuItem
            Caption = 'Put+Mask Data Statements'
            OnClick = TurboPowerBasicClick
          end
          object TBPutFile: TMenuItem
            Caption = 'Put File'
            OnClick = TurboPowerBasicClick
          end
          object TBMouseShapeData: TMenuItem
            Caption = 'Mouse Shape Data Statements'
            OnClick = MouseSaveClick
          end
          object TBMouseShapeFile: TMenuItem
            Caption = 'Mouse Shape File'
            OnClick = MouseSaveClick
          end
        end
        object TurboPascal: TMenuItem
          Caption = 'Turbo Pascal'
          object TPPutImageArray: TMenuItem
            Caption = 'PutImage Array'
            OnClick = TurboPascalClick
          end
          object TPPutImagePlusMaskArray: TMenuItem
            Caption = 'PutImage+Mask Array'
            OnClick = TurboPascalClick
          end
          object TPPutImageFile: TMenuItem
            Caption = 'PutImage File'
            OnClick = TurboPascalClick
          end
          object TPMouseShapeArray: TMenuItem
            Caption = 'Mouse Shape Array'
            OnClick = MouseSaveClick
          end
          object TPMouseShapeFile: TMenuItem
            Caption = 'Mouse Shape File'
            OnClick = MouseSaveClick
          end
          object TPDOSLBMArray: TMenuItem
            Caption = 'DOS Xlib LBM Array'
            OnClick = TurboPascalClick
          end
          object TPDOSLBMFile: TMenuItem
            Caption = 'DOS Xlib LBM File'
            OnClick = TurboPascalClick
          end
          object TPDOSPBMArray: TMenuItem
            Caption = 'DOS Xlib PBM Array'
            OnClick = TurboPascalClick
          end
          object TPDOSPBMFile: TMenuItem
            Caption = 'DOS Xlib PBM File'
            OnClick = TurboPascalClick
          end
        end
        object TurboC: TMenuItem
          Caption = 'Turbo C'
          object TCPutImageArray: TMenuItem
            Caption = 'putimage Array'
            OnClick = TurboCClick
          end
          object TCPutImagePlusMaskArray: TMenuItem
            Caption = 'putimage+Mask Array'
            OnClick = TurboCClick
          end
          object TCPutImageFile: TMenuItem
            Caption = 'putimage File'
            OnClick = TurboCClick
          end
          object TCMouseShapeArray: TMenuItem
            Caption = 'Mouse Shape Array'
            OnClick = MouseSaveClick
          end
          object TCMouseShapeFile: TMenuItem
            Caption = 'Mouse Shape File'
            OnClick = MouseSaveClick
          end
          object TCDOSLBMArray: TMenuItem
            Caption = 'DOS Xlib LBM Array'
            OnClick = TurboCClick
          end
          object TCDOSLBMFile: TMenuItem
            Caption = 'DOS Xlib LBM File'
            OnClick = TurboCClick
          end
          object TCDOSPBMArray: TMenuItem
            Caption = 'DOS Xlib PBM Array'
            OnClick = TurboCClick
          end
          object TCDOSPBMFile: TMenuItem
            Caption = 'DOS Xlib PBM File'
            OnClick = TurboCClick
          end
        end
        object MenuItem12: TMenuItem
          Caption = 'TMT Pascal'
          object TMTPutImageArray: TMenuItem
            Caption = 'PutImage Array'
            OnClick = TMTPascalClick
          end
          object TMTPutImageFile: TMenuItem
            Caption = 'PutImage File'
            OnClick = TMTPascalClick
          end
        end
      end
      object BulkExportPNG: TMenuItem
        Caption = 'Bulk Export PNG''s'
        OnClick = BulkExportPNGClick
      end
      object PropertiesFileDialog: TMenuItem
        Caption = 'Properties'
        OnClick = PropertiesFileDialogClick
      end
      object MenuItem11: TMenuItem
        Caption = 'Exit'
        OnClick = FileExitMenuClick
      end
    end
    object MenuEdit: TMenuItem
      Caption = 'Edit'
      object EditClear: TMenuItem
        Caption = 'Clear'
        OnClick = EditClearClick
      end
      object EditClone: TMenuItem
        Caption = 'Clone'
        OnClick = EditCloneClick
      end
      object EditUndo: TMenuItem
        Caption = 'Undo'
        OnClick = ToolUndoIconClick
      end
      object EditCopy: TMenuItem
        Caption = 'Copy'
        OnClick = EditCopyClick
      end
      object EditPaste: TMenuItem
        Caption = 'Paste'
        OnClick = EditPasteClick
      end
      object EditProperties: TMenuItem
        Caption = 'Properties'
        OnClick = PropertiesClick
      end
    end
    object MenuItem17: TMenuItem
      Caption = 'View'
      object MenuItem18: TMenuItem
        Caption = 'Sprite Size'
        object EditResizeTo8: TMenuItem
          Caption = '8 X 8'
          OnClick = EditResizeToNewSize
        end
        object EditResizeTo16: TMenuItem
          Caption = '16 X 16'
          OnClick = EditResizeToNewSize
        end
        object EditResizeTo32: TMenuItem
          Caption = '32 X 32'
          OnClick = EditResizeToNewSize
        end
        object EditResizeTo64: TMenuItem
          Caption = '64 X 64'
          OnClick = EditResizeToNewSize
        end
        object EditResizeTo128: TMenuItem
          Caption = '128 X 128'
          OnClick = EditResizeToNewSize
        end
        object EditResizeTo256: TMenuItem
          Caption = '256 X 256'
          OnClick = EditResizeToNewSize
        end
        object ShowCustomSize: TMenuItem
          Enabled = False
        end
        object EditResizeCustom: TMenuItem
          Caption = 'Set Custom Size'
          OnClick = EditResizeCustomClick
        end
      end
      object MenuItem27: TMenuItem
        Caption = 'Grid Cell Size'
        object gcNormal: TMenuItem
          Caption = 'Normal (10 X 9)'
          OnClick = SetGridCellClick
        end
        object gcWide: TMenuItem
          Caption = 'Wide (16 X 8)'
          OnClick = SetGridCellClick
        end
        object gcTall: TMenuItem
          Caption = 'Tall (10 X 18)'
          OnClick = SetGridCellClick
        end
        object gcCustomShow: TMenuItem
          Enabled = False
        end
        object gcCustom: TMenuItem
          Caption = 'Set Custom Size'
          OnClick = SetCustomGridCellClick
        end
      end
    end
    object MenuItem4: TMenuItem
      Caption = 'Palette'
      object PaletteCopy: TMenuItem
        Caption = 'Copy'
        OnClick = PaletteCopyClick
      end
      object PalettePaste: TMenuItem
        Caption = 'Paste'
        OnClick = PalettePasteClick
      end
      object PaletteOpen: TMenuItem
        Caption = 'Open'
        OnClick = PaletteOpenClick
      end
      object PaletteSave: TMenuItem
        Caption = 'Save'
        OnClick = PaletteSaveClick
      end
      object PaletteExport: TMenuItem
        Caption = 'Export'
        object PaletteExportAmigaBasic: TMenuItem
          Caption = 'AmigaBasic'
          object ABPaletteData: TMenuItem
            Caption = 'Palette Data Statements'
            OnClick = PaletteExportAmigaBasicClick
          end
          object ABPaletteCommands: TMenuItem
            Caption = 'Palette Commands'
            OnClick = PaletteExportAmigaBasicClick
          end
        end
        object MenuItem6: TMenuItem
          Caption = 'Amiga C'
          object ACVSpriteColorArray: TMenuItem
            Caption = 'VSprite Color Array'
            OnClick = AmigaCPaletteClick
          end
          object ACPaletteArray: TMenuItem
            Caption = 'Palettte Array'
            OnClick = AmigaCPaletteClick
          end
          object ACRGB4PaletteArray: TMenuItem
            Caption = 'RGB4 Palette Array'
            OnClick = AmigaCPaletteClick
          end
        end
        object MenuItem5: TMenuItem
          Caption = 'Amiga Pascal'
          object APVSpriteColorArray: TMenuItem
            Caption = 'VSprite Color Array'
            OnClick = AmigaPascalPaletteClick
          end
          object APPaletteArray: TMenuItem
            Caption = 'Palette Array'
            OnClick = AmigaPascalPaletteClick
          end
          object APRGB4PaletteArray: TMenuItem
            Caption = 'RGB4 Palette Array'
            OnClick = AmigaPascalPaletteClick
          end
        end
        object MenuItem16: TMenuItem
          Caption = 'BAM Basic'
          object BAMPaletteData: TMenuItem
            Caption = 'Palette Data Statements'
            OnClick = PaletteExportQBasicClick
          end
          object BAMPaletteCommands: TMenuItem
            Caption = 'Palette Commands'
            OnClick = PaletteExportQBasicClick
          end
        end
        object MenuItem3: TMenuItem
          Caption = 'FreeBASIC'
          object FBPaletteData: TMenuItem
            Caption = 'Palette Data Statements'
            OnClick = PaletteExportQBasicClick
          end
          object FBPaletteCommands: TMenuItem
            Caption = 'Palette Commands'
            OnClick = PaletteExportQBasicClick
          end
        end
        object MenuItem2: TMenuItem
          Caption = 'FreePascal'
          object FPPaletteArray: TMenuItem
            Caption = 'Palettte Array'
            OnClick = PaletteExportTurboPascalClick
          end
          object FPPaletteCommands: TMenuItem
            Caption = 'Palette Commands'
            OnClick = PaletteExportTurboPascalClick
          end
        end
        object PaletteExportGWBasic: TMenuItem
          Caption = 'GWBASIC'
          object GWPaletteData: TMenuItem
            Caption = 'Palette Data Statements'
            OnClick = PaletteExportGWBasicClick
          end
          object GWPaletteCommands: TMenuItem
            Caption = 'Palette Commands'
            OnClick = PaletteExportGWBasicClick
          end
        end
        object MenuItem15: TMenuItem
          Caption = 'Open Watcom C'
          object OWPaletteArray: TMenuItem
            Caption = 'Palettte Array'
            OnClick = PaletteExportOWCClick
          end
          object OWPaletteCommands: TMenuItem
            Caption = 'Palette Commands'
            OnClick = PaletteExportOWCClick
          end
        end
        object PaletteExportQBasic: TMenuItem
          Caption = 'QuickBasic\QB64'
          object QBPaletteData: TMenuItem
            Caption = 'Palette Data Statements'
            OnClick = PaletteExportQBasicClick
          end
          object QBPaletteCommands: TMenuItem
            Caption = 'Palette Commands'
            OnClick = PaletteExportQBasicClick
          end
        end
        object PaletteExportQuickC: TMenuItem
          Caption = 'Quick C'
          object QCPaletteArray: TMenuItem
            Caption = 'Palettte Array'
            OnClick = PaletteExportQuickCClick
          end
          object QCPaletteCommands: TMenuItem
            Caption = 'Palette Commands'
            OnClick = PaletteExportQuickCClick
          end
        end
        object PaletteExportQuickPascal: TMenuItem
          Caption = 'QuickPascal'
          object QPPaletteArray: TMenuItem
            Caption = 'Palettte Array'
            OnClick = PaletteExportQuickCClick
          end
          object QPPaletteCommands: TMenuItem
            Caption = 'Palette Commands'
            OnClick = PaletteExportQuickCClick
          end
        end
        object MenuItem7: TMenuItem
          Caption = 'Turbo\Power Basic'
          object PBPaletteData: TMenuItem
            Caption = 'Palette Data Statements'
            OnClick = PaletteExportQBasicClick
          end
          object PBPaletteCommands: TMenuItem
            Caption = 'Palette Commands'
            OnClick = PaletteExportQBasicClick
          end
        end
        object PaletteExportTurboC: TMenuItem
          Caption = 'Turbo C'
          object TCPaletteArray: TMenuItem
            Caption = 'Palettte Array'
            OnClick = PaletteExportTurboCClick
          end
          object TCPaletteCommands: TMenuItem
            Caption = 'Palette Commands'
            OnClick = PaletteExportTurboCClick
          end
        end
        object PaletteExportTurboPascal: TMenuItem
          Caption = 'Turbo Pascal'
          object TPPaletteArray: TMenuItem
            Caption = 'Palettte Array'
            OnClick = PaletteExportTurboPascalClick
          end
          object TPPaletteCommands: TMenuItem
            Caption = 'Palette Commands'
            OnClick = PaletteExportTurboPascalClick
          end
        end
        object PaletteExportTMTPascal: TMenuItem
          Caption = 'TMT Pascal'
          object TMTPaletteArray: TMenuItem
            Caption = 'Palette Array'
            OnClick = PaletteExportTurboPascalClick
          end
          object TMTPaletteCommands: TMenuItem
            Caption = 'Palette Commands'
            OnClick = PaletteExportTurboPascalClick
          end
        end
      end
      object EditColor: TMenuItem
        Caption = 'Edit Colors'
        OnClick = PaletteEditColors
      end
      object PaletteMono: TMenuItem
        Caption = 'Mono'
        OnClick = PaletteMonoClick
      end
      object PaletteCGA0: TMenuItem
        Caption = 'CGA Palette 0'
        OnClick = PaletteCGA0Click
      end
      object PaletteCGA1: TMenuItem
        Caption = 'CGA Palette 1'
        OnClick = PaletteCGA1Click
      end
      object PaletteEGA: TMenuItem
        Caption = 'EGA Palette'
        OnClick = PaletteEGAClick
      end
      object PaletteVGA: TMenuItem
        Caption = 'VGA Palette'
        OnClick = PaletteVGAClick
      end
      object PaletteVGA256: TMenuItem
        Caption = 'VGA Palette 256'
        OnClick = PaletteVGA256Click
      end
      object PaletteXGA: TMenuItem
        Caption = 'XGA Palette'
        OnClick = PaletteXGAClick
      end
      object PaletteXGA256: TMenuItem
        Caption = 'XGA Palette 256'
        OnClick = PaletteXGA256Click
      end
      object PaletteAmiga: TMenuItem
        Caption = 'Amiga'
        object PaletteAmiga2: TMenuItem
          Caption = '2 Color'
          OnClick = PaletteAmiga2Click
        end
        object PaletteAmiga4: TMenuItem
          Caption = '4 Color'
          OnClick = PaletteAmiga4Click
        end
        object PaletteAmiga8: TMenuItem
          Caption = '8 Color'
          OnClick = PaletteAmiga8Click
        end
        object PaletteAmiga16: TMenuItem
          Caption = '16 Color'
          OnClick = PaletteAmiga16Click
        end
        object PaletteAmiga32: TMenuItem
          Caption = '32 Color'
          OnClick = PaletteAmiga32Click
        end
      end
    end
    object ToolMenu: TMenuItem
      Caption = 'Tools'
      object ToolPencilMenu: TMenuItem
        Caption = 'Pencil'
        OnClick = ToolPencilMenuClick
      end
      object ToolLineMenu: TMenuItem
        Caption = 'Line'
        OnClick = ToolLineMenuClick
      end
      object ToolRectangleMenu: TMenuItem
        Caption = 'Rectangle'
        OnClick = ToolRectangleMenuClick
      end
      object ToolFRectangleMenu: TMenuItem
        Caption = 'Filled Rectangle'
        OnClick = ToolFRectangleMenuClick
      end
      object ToolCircleMenu: TMenuItem
        Caption = 'Circle'
        OnClick = ToolCircleMenuClick
      end
      object ToolFCircleMenu: TMenuItem
        Caption = 'Filled Circle'
        OnClick = ToolFCircleMenuClick
      end
      object ToolEllipseMenu: TMenuItem
        Caption = 'Ellipse'
        OnClick = ToolEllipseMenuClick
      end
      object ToolFEllipseMenu: TMenuItem
        Caption = 'Filled Ellipse'
      end
      object ToolMenuPaint: TMenuItem
        Caption = 'Paint'
        OnClick = ToolMenuPaintClick
      end
      object ToolMenuSprayPaint: TMenuItem
        Caption = 'Spray Paint'
        OnClick = ToolMenuSprayPaintClick
      end
      object ToolSelectAreaMenu: TMenuItem
        Caption = 'Select Area'
        OnClick = ToolMenuSelectAreaMenuClick
      end
      object ToolGridMenu: TMenuItem
        Caption = 'Grid'
        OnClick = ToolGridMenuClick
      end
      object ToolFlipMenu: TMenuItem
        Caption = 'Flip'
        object ToolFlipHorizMenu: TMenuItem
          Caption = 'Horizontal'
          OnClick = ToolFlipHorizMenuClick
        end
        object ToolFlipVirtMenu: TMenuItem
          Caption = 'Vertical'
          OnClick = ToolFlipVirtMenuClick
        end
      end
      object ToolScrollMenu: TMenuItem
        Caption = 'Scroll'
        object ToolScrollRightMenu: TMenuItem
          Caption = 'Right'
          OnClick = ToolScrollRightMenuClick
        end
        object ToolScrollLeftMenu: TMenuItem
          Caption = 'Left'
          OnClick = ToolScrollLeftMenuClick
        end
        object ToolScrollUpMenu: TMenuItem
          Caption = 'Up'
          OnClick = ToolScrollUpMenuClick
        end
        object ToolScrollDownMenu: TMenuItem
          Caption = 'Down'
          OnClick = ToolScrollDownMenuClick
        end
      end
    end
    object Utilities: TMenuItem
      Caption = 'Utilities'
      object MapEditMenu: TMenuItem
        Caption = 'Map Editor'
        OnClick = MapEditMenuClick
      end
      object SpriteImportMenu: TMenuItem
        Caption = 'Sprite Sheet Import '
        OnClick = SpriteImportMenuClick
      end
      object SpriteExportMenu: TMenuItem
        Caption = 'Sprite Sheet Export'
        OnClick = SpriteExportMenuClick
      end
      object SpriteAnimationMenu: TMenuItem
        Caption = 'Sprite Animation'
        OnClick = SpriteAnimationMenuClick
      end
      object SoundGenerator: TMenuItem
        Caption = 'Sound Generator (SFXR)'
        OnClick = SoundGeneratorClick
      end
    end
    object ScriptMenu: TMenuItem
      Caption = 'Script'
      object ScriptMenuLoad: TMenuItem
        Caption = 'Load from file'
        OnClick = ScriptMenuLoadClick
      end
      object ScriptMenuRun: TMenuItem
        Caption = 'Run'
        OnClick = ScriptMenuRunClick
      end
    end
    object HelpMenu: TMenuItem
      Caption = 'Help'
      object RMAboutDialog: TMenuItem
        Caption = 'About'
        OnClick = RMAboutDialogClick
      end
    end
  end
  object ActionList1: TActionList
    Left = 1176
    Top = 336
    object EditCut1: TEditCut
      Category = 'Edit'
      Caption = 'Cu&t'
      Hint = 'Cut'
      ShortCut = 16472
    end
    object Action1: TAction
      Caption = 'Action1'
    end
    object FileOpen1: TFileOpen
      Category = 'File'
      Caption = '&Open ...'
      Hint = 'Open'
      ShortCut = 16463
    end
  end
  object OpenDialog1: TOpenDialog
    Filter = 'Windows BMP|*.bmp|PC Paintbrush |*.pcx|All Files|*.*'
    Options = [ofFileMustExist, ofEnableSizing, ofViewDetail]
    Left = 1176
    Top = 416
  end
  object SaveDialog1: TSaveDialog
    Title = 'Save'
    Filter = 'Windows BMP|*.bmp|PC Paintbrush |*.pcx|*.lbm|Amiga ILBM|*.ilbm|Amiga ILBM|All Files|*.*'
    Options = [ofOverwritePrompt, ofEnableSizing, ofViewDetail]
    Left = 1176
    Top = 496
  end
  object ExportDialog: TSaveDialog
    Title = 'Export'
    Options = [ofOverwritePrompt, ofEnableSizing, ofViewDetail]
    Left = 1176
    Top = 568
  end
  object ImageList1: TImageList
    Left = 1176
    Top = 648
  end
  object ExportPropsMenu: TPopupMenu
    Left = 168
    Top = 376
    object NewImage: TMenuItem
      Caption = 'New Image'
      OnClick = NewClick
    end
    object DeleteImage: TMenuItem
      Caption = 'Delete'
      OnClick = DeleteImageClick
    end
    object ExportInclude: TMenuItem
      Caption = 'Export Include'
      OnClick = ThumbPopUpMenuExportClick
    end
    object Properties: TMenuItem
      Caption = 'Properties'
      OnClick = PropertiesClick
    end
  end
  object RMScript: TPSScript
    CompilerOptions = []
    OnCompile = RMScriptCompile
    Plugins = <    
      item
      end>
    UsePreProcessor = False
    Left = 1176
    Top = 160
  end
  object SelectDirectoryDialog: TSelectDirectoryDialog
    Title = 'Select Export Directory'
    Left = 1176
    Top = 704
  end
end