animate.lfm

object AnimationForm: TAnimationForm
  Left = 279
  Height = 747
  Top = 223
  Width = 1152
  Caption = 'Sprite Animation'
  ClientHeight = 747
  ClientWidth = 1152
  Menu = MainMenu1
  OnActivate = FormActivate
  OnCreate = FormCreate
  LCLVersion = '3.4.0.0'
  object Panel1: TPanel
    Left = 32
    Height = 209
    Top = 8
    Width = 208
    ClientHeight = 209
    ClientWidth = 208
    TabOrder = 6
    object FPSTrackBar: TTrackBar
      Left = 168
      Height = 128
      Top = 8
      Width = 25
      Max = 60
      Min = 1
      OnChange = FPSTrackBarChange
      Orientation = trVertical
      Position = 1
      TickMarks = tmTopLeft
      TabOrder = 0
    end
    object Image2: TImage
      Left = 88
      Height = 32
      Top = 168
      Width = 32
      OnClick = StopButtonClick
      Picture.Data = {
        07544269746D617076020000424D760200000000000076000000280000002000
        0000200000000100040000000000000200000000000000000000000000000000
        000000000000AA00000000AA0000AAAA00000000AA00AA00AA000055AA00AAAA
        AA0055555500FA55550055FA5500FAFA55005555FA00FA55FA0055FAFA00FAFA
        FA00000000000000000000000000000000000FF0000000000000000000000000
        00000FF000000000000000000000000000000FF7777777777777777777777777
        00000FF777777777777777777777777700000FF7777777777777777777777777
        00000FF777777777777777777777777700000FF7777777777777777777777777
        00000FF777777777777777777777777700000FF7777777777777777777777777
        00000FF777700000000000000000777700000FF7777000000000000000007777
        00000FF777700000000000000000777700000FF7777000000000000000007777
        00000FF777700000000000000000777700000FF7777000000000000000007777
        00000FF777700000000000000000777700000FF7777000000000000000007777
        00000FF777700000000000000000777700000FF7777000000000000000007777
        00000FF777700000000000000000777700000FF7777000000000000000007777
        00000FF777700000000000000000777700000FF7777777777777777777777777
        00000FF777777777777777777777777700000FF7777777777777777777777777
        00000FF777777777777777777777777700000FF7777777777777777777777777
        00000FF777777777777777777777777700000FFFFFFFFFFFFFFFFFFFFFFFFFFF
        FF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000000000
        0000
      }
    end
    object Image1: TImage
      Left = 48
      Height = 32
      Top = 168
      Width = 32
      OnClick = PlayButtonClick
      Picture.Data = {
        07544269746D617076020000424D760200000000000076000000280000002000
        0000200000000100040000000000000200000000000000000000000000000000
        000000000000AA00000000AA0000AAAA00000000AA00AA00AA000055AA00AAAA
        AA0055555500FA55550055FA5500FAFA55005555FA00FA55FA0055FAFA00FAFA
        FA00000000000000000000000000000000000FF0000000000000000000000000
        00000FF000000000000000000000000000000FF7777777777777777777777777
        00000FF777777777777777777777777700000FF7777777777777777777777777
        00000FF777777777777777777777777700000FF7777777777777777777777777
        00000FF777777777777777777777777700000FF7777777777777777777777777
        00000FF777777777707777777777777700000FF7777777777007777777777777
        00000FF777777777700077777777777700000FF7777777777000077777777777
        00000FF777777777700000777777777700000FF7777777777000000777777777
        00000FF777777777700000007777777700000FF7777777777000000777777777
        00000FF777777777700000777777777700000FF7777777777000077777777777
        00000FF777777777700077777777777700000FF7777777777007777777777777
        00000FF777777777707777777777777700000FF7777777777777777777777777
        00000FF777777777777777777777777700000FF7777777777777777777777777
        00000FF777777777777777777777777700000FF7777777777777777777777777
        00000FF777777777777777777777777700000FFFFFFFFFFFFFFFFFFFFFFFFFFF
        FF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000000000
        0000
      }
    end
  end
  object TopSplitter: TSplitter
    AnchorSideLeft.Control = Owner
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
    Cursor = crVSplit
    Left = 0
    Height = 9
    Top = 245
    Width = 1152
    Align = alNone
    Anchors = [akLeft, akRight]
    Color = 11625216
    ParentColor = False
    ResizeAnchor = akTop
  end
  object LeftSplitter: TSplitter
    AnchorSideTop.Control = TopSplitter
    AnchorSideTop.Side = asrBottom
    AnchorSideBottom.Control = Owner
    AnchorSideBottom.Side = asrBottom
    Left = 175
    Height = 493
    Top = 254
    Width = 9
    Align = alNone
    Anchors = [akTop, akLeft, akBottom]
    Color = 11625216
    ParentColor = False
  end
  object RightSplitter: TSplitter
    AnchorSideTop.Control = TopSplitter
    AnchorSideTop.Side = asrBottom
    AnchorSideBottom.Control = Owner
    AnchorSideBottom.Side = asrBottom
    Left = 952
    Height = 493
    Top = 254
    Width = 9
    Align = alNone
    Anchors = [akTop, akLeft, akBottom]
    Color = 11625216
    ParentColor = False
  end
  object LeftPanel: TPanel
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = TopSplitter
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = LeftSplitter
    AnchorSideBottom.Control = Owner
    AnchorSideBottom.Side = asrBottom
    Left = 0
    Height = 493
    Top = 254
    Width = 175
    Anchors = [akTop, akLeft, akRight, akBottom]
    Caption = 'LeftPanel'
    ClientHeight = 493
    ClientWidth = 175
    Color = 15790320
    ParentBackground = False
    ParentColor = False
    TabOrder = 0
    object SpriteListView: TListView
      AnchorSideLeft.Control = LeftPanel
      AnchorSideTop.Control = LeftPanel
      AnchorSideRight.Control = LeftPanel
      AnchorSideRight.Side = asrBottom
      AnchorSideBottom.Control = LeftPanel
      AnchorSideBottom.Side = asrBottom
      Left = 1
      Height = 491
      Top = 1
      Width = 173
      Anchors = [akTop, akLeft, akRight, akBottom]
      Color = 15790320
      Columns = <>
      DragMode = dmAutomatic
      IconOptions.AutoArrange = True
      LargeImages = RMMainForm.ImageList1
      LargeImagesWidth = 128
      PopupMenu = PopupMenu2
      ReadOnly = True
      TabOrder = 0
      ViewStyle = vsIcon
      OnDblClick = SpriteListViewDblClick
      OnDragDrop = SpriteListViewDragDrop
      OnDragOver = SpriteListViewDragOver
    end
  end
  object MiddlePanel: TPanel
    AnchorSideLeft.Control = LeftSplitter
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = TopSplitter
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = RightSplitter
    AnchorSideBottom.Control = Owner
    AnchorSideBottom.Side = asrBottom
    Left = 184
    Height = 493
    Top = 254
    Width = 768
    Anchors = [akTop, akLeft, akRight, akBottom]
    Caption = 'MiddlePanel'
    ClientHeight = 493
    ClientWidth = 768
    TabOrder = 1
    object CurrentAnimListView: TListView
      AnchorSideLeft.Control = MiddlePanel
      AnchorSideTop.Control = MiddlePanel
      AnchorSideRight.Control = MiddlePanel
      AnchorSideRight.Side = asrBottom
      AnchorSideBottom.Control = MiddlePanel
      AnchorSideBottom.Side = asrBottom
      Left = 1
      Height = 491
      Top = 1
      Width = 766
      Anchors = [akTop, akLeft, akRight, akBottom]
      Color = 15790320
      Columns = <>
      ColumnClick = False
      DragMode = dmAutomatic
      IconOptions.AutoArrange = True
      LargeImages = CurrentAnimationImageList
      LargeImagesWidth = 128
      ParentShowHint = False
      PopupMenu = PopupMenu1
      ReadOnly = True
      ShowColumnHeaders = False
      TabOrder = 0
      ViewStyle = vsIcon
      OnDragDrop = CurrentAnimListViewDragDrop
      OnDragOver = CurrentAnimListViewDragOver
    end
  end
  object RightPanel: TPanel
    AnchorSideLeft.Control = RightSplitter
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = TopSplitter
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
    AnchorSideBottom.Control = Owner
    AnchorSideBottom.Side = asrBottom
    Left = 961
    Height = 493
    Top = 254
    Width = 191
    Anchors = [akTop, akLeft, akRight, akBottom]
    Caption = 'RightPanel'
    ClientHeight = 493
    ClientWidth = 191
    TabOrder = 2
    object AllAnimListView: TListView
      AnchorSideLeft.Control = RightPanel
      AnchorSideTop.Control = RightPanel
      AnchorSideRight.Control = RightPanel
      AnchorSideRight.Side = asrBottom
      AnchorSideBottom.Control = RightPanel
      AnchorSideBottom.Side = asrBottom
      Left = 1
      Height = 491
      Top = 1
      Width = 189
      Anchors = [akTop, akLeft, akRight, akBottom]
      Color = 15790320
      Columns = <>
      IconOptions.AutoArrange = True
      LargeImages = AnimThumbImageList
      ParentShowHint = False
      PopupMenu = PopupMenu3
      ReadOnly = True
      ShowHint = True
      TabOrder = 0
      ViewStyle = vsIcon
      OnClick = AllAnimListViewClick
    end
  end
  object CurrentAnimationImageList: TImageList
    Left = 808
    Top = 592
  end
  object AnimThumbImageList: TImageList
    Left = 792
    Top = 520
  end
  object PopupMenu1: TPopupMenu
    Left = 424
    Top = 664
    object CopyMenu: TMenuItem
      Caption = 'Copy'
      OnClick = CopyMenuClick
    end
    object PasteMenu: TMenuItem
      Caption = 'Paste'
      OnClick = PasteMenuClick
    end
    object AddFrameMenu: TMenuItem
      Caption = 'Add Frame'
      OnClick = AddFrameMenuClick
    end
    object DeleteMenu: TMenuItem
      Caption = 'Delete Frame'
      OnClick = DeleteMenuClick
    end
  end
  object PopupMenu2: TPopupMenu
    Left = 224
    Top = 664
    object CopyFromThumbView: TMenuItem
      Caption = 'Copy'
      OnClick = CopyFromThumbViewClick
    end
  end
  object PopupMenu3: TPopupMenu
    Left = 816
    Top = 664
    object NewAnimationMenu: TMenuItem
      Caption = 'New Animation'
      OnClick = NewAnimationMenuClick
    end
    object AnimDeleteMenu: TMenuItem
      Caption = 'Delete'
      OnClick = AnimDeleteMenuClick
    end
    object AnimProperties: TMenuItem
      Caption = 'Properties'
      OnClick = AnimPropertiesClick
    end
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    OnStartTimer = Timer1StartTimer
    Left = 224
    Top = 312
  end
  object MainMenu1: TMainMenu
    Left = 312
    Top = 312
    object MenuItem1: TMenuItem
      Caption = 'File'
      object MenuItem8: TMenuItem
        Caption = 'New'
        object MenuItem9: TMenuItem
          Caption = 'Animation'
          OnClick = MenuItem9Click
        end
        object MenuItem10: TMenuItem
          Caption = 'Frame'
          OnClick = MenuItem10Click
        end
      end
      object MenuItem2: TMenuItem
        Caption = 'Open'
        OnClick = MenuItem2Click
      end
      object MenuItem3: TMenuItem
        Caption = 'Save'
        OnClick = MenuItem3Click
      end
      object MenuItem11: TMenuItem
        Caption = 'Delete'
        OnClick = MenuItem11Click
      end
      object MenuDeleteAll: TMenuItem
        Caption = 'Delete All'
        OnClick = MenuDeleteAllClick
      end
      object MenuItem12: TMenuItem
        Caption = 'Export'
        object FileExportBasicData: TMenuItem
          Caption = 'Basic'
          object ExportBasicAnimData: TMenuItem
            Caption = 'Animation Data Statements'
            OnClick = ExportBasicAnimDataClick
          end
        end
        object MenuItem13: TMenuItem
          Caption = 'C'
          object ExportCAnimArray: TMenuItem
            Caption = 'Animation Array'
            OnClick = ExportEmscriptenAnimArrayClick
          end
        end
        object MenuItem15: TMenuItem
          Caption = 'Emscripten'
          object ExportEmscriptenAnimArray: TMenuItem
            Caption = 'Animation Array'
            OnClick = ExportEmscriptenAnimArrayClick
          end
        end
        object MenuItem17: TMenuItem
          Caption = 'gcc'
          object ExportgccAnimArray: TMenuItem
            Caption = 'Animation Array'
            OnClick = ExportEmscriptenAnimArrayClick
          end
        end
        object pascal: TMenuItem
          Caption = 'pascal'
          object ExportPascalAnimArray: TMenuItem
            Caption = 'Animation Array'
            OnClick = FileExportPascalArrayClick
          end
        end
      end
      object MenuItem7: TMenuItem
        Caption = 'Export Anim As PNG''s'
        OnClick = AnimExportMenuClick
      end
    end
    object MenuItem4: TMenuItem
      Caption = 'Edit'
      object MenuItem5: TMenuItem
        Caption = 'Copy'
        OnClick = AnimCopyMenuClick
      end
      object MenuItem6: TMenuItem
        Caption = 'Paste'
        OnClick = AnimPasteMenuClick
      end
    end
  end
  object SelectDirectoryDialog1: TSelectDirectoryDialog
    Left = 384
    Top = 328
  end
  object SaveDialog1: TSaveDialog
    Options = [ofOverwritePrompt, ofEnableSizing, ofViewDetail]
    Left = 624
    Top = 424
  end
  object OpenDialog1: TOpenDialog
    Left = 616
    Top = 344
  end
end