spritesheetexport.lfm

object SpriteSheetExportForm: TSpriteSheetExportForm
  Left = 413
  Height = 703
  Top = 323
  Width = 1233
  Caption = 'Sprite Sheet Export'
  ClientHeight = 703
  ClientWidth = 1233
  OnActivate = FormActivate
  Menu = MainMenu1
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  Position = poOwnerFormCenter
  LCLVersion = '3.4.0.0'
  object Splitter1: TSplitter
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = Owner
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
    Cursor = crVSplit
    Left = 0
    Height = 16
    Top = 162
    Width = 1233
    Align = alNone
    Anchors = [akLeft, akRight]
    AutoSnap = False
    Color = 11625216
    ParentColor = False
    ResizeAnchor = akBottom
  end
  object ScrollBox1: TScrollBox
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = Splitter1
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
    AnchorSideBottom.Control = StatusBar1
    Left = 0
    Height = 502
    Top = 178
    Width = 1233
    HorzScrollBar.Page = 105
    HorzScrollBar.Tracking = True
    VertScrollBar.Page = 105
    VertScrollBar.Tracking = True
    Anchors = [akTop, akLeft, akRight, akBottom]
    BorderStyle = bsNone
    OnMouseWheel = ScrollBox1MouseWheel
    ClientHeight = 502
    ClientWidth = 1233
    TabOrder = 1
    object SpriteSheetPaintBox: TPaintBox
      Left = 0
      Height = 105
      Top = 0
      Width = 105
      OnPaint = SpriteSheetPaintBoxPaint
    end
  end
  object Panel1: TPanel
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = Owner
    AnchorSideRight.Control = ZoomTrackBar
    AnchorSideBottom.Control = Splitter1
    Left = 0
    Height = 162
    Top = 0
    Width = 1176
    Anchors = [akTop, akLeft, akRight, akBottom]
    ClientHeight = 162
    ClientWidth = 1176
    TabOrder = 2
    object StaticText1: TStaticText
      Left = 16
      Height = 17
      Top = 20
      Width = 65
      Caption = 'Sprite Sheet'
      TabOrder = 0
    end
    object SpriteSheet: TComboBox
      Left = 88
      Height = 23
      Top = 20
      Width = 100
      ItemHeight = 15
      ItemIndex = 0
      Items.Strings = (
        '320X200'
        '640X200'
        '640X350'
        '640X480'
        '800X600'
        '1024X768'
        'Custom'
      )
      Style = csDropDownList
      TabOrder = 1
      Text = '320X200'
      OnChange = SpriteSheetChange
    end
    object StaticText2: TStaticText
      Left = 208
      Height = 17
      Top = 20
      Width = 65
      Caption = 'Sprite Size'
      TabOrder = 2
    end
    object SpriteSize: TComboBox
      Left = 280
      Height = 23
      Top = 20
      Width = 100
      ItemHeight = 15
      ItemIndex = 2
      Items.Strings = (
        '8X8'
        '16X16'
        '32X32'
        '64X64'
        '128X128'
        '256X256'
        'Custom'
      )
      Style = csDropDownList
      TabOrder = 3
      Text = '32X32'
      OnChange = SpriteSheetChange
    end
    object StaticText3: TStaticText
      Left = 408
      Height = 17
      Top = 20
      Width = 65
      Caption = 'Direction'
      TabOrder = 4
    end
    object Direction: TComboBox
      Left = 464
      Height = 23
      Top = 20
      Width = 100
      ItemHeight = 15
      ItemIndex = 0
      Items.Strings = (
        'Horizontal'
        'Vertical'
      )
      Style = csDropDownList
      TabOrder = 5
      Text = 'Horizontal'
      OnChange = DirectionChange
    end
    object StaticText4: TStaticText
      Left = 584
      Height = 17
      Top = 24
      Width = 137
      Caption = 'Items Per Row / Column'
      TabOrder = 6
    end
    object ItemsPerRow: TSpinEdit
      Left = 728
      Height = 23
      Top = 24
      Width = 48
      MaxValue = 1000
      MinValue = 1
      TabOrder = 7
      Value = 5
    end
    object lblPadding: TLabel
      Left = 656
      Height = 15
      Top = 55
      Width = 41
      Caption = 'Padding'
    end
    object SpinPadding: TSpinEdit
      Left = 728
      Height = 23
      Top = 52
      Width = 48
      MaxValue = 9
      MinValue = 0
      TabOrder = 9
      Value = 0
    end
    object Apply: TButton
      Left = 880
      Height = 58
      Top = 42
      Width = 75
      Caption = 'Apply'
      TabOrder = 8
      OnClick = ApplyClick
    end
    object ExportToClipBoard: TButton
      Left = 433
      Height = 25
      Top = 75
      Width = 131
      Caption = 'Export to Clipboard'
      TabOrder = 9
      OnClick = ExportToClipBoardClick
    end
    object ExportToFile: TButton
      Left = 433
      Height = 25
      Top = 104
      Width = 131
      Caption = 'Export to File'
      TabOrder = 10
      OnClick = ExportToFileClick
    end
    object DescExportToClipboard: TButton
      Left = 688
      Height = 25
      Top = 75
      Width = 131
      Caption = 'Export To Clipboard'
      TabOrder = 11
      OnClick = DescExportToFileClick
    end
    object StaticText5: TStaticText
      Left = 584
      Height = 17
      Top = 56
      Width = 129
      Caption = 'Export Description File'
      TabOrder = 12
    end
    object DescriptionFile: TComboBox
      Left = 584
      Height = 23
      Top = 75
      Width = 100
      ItemHeight = 15
      ItemIndex = 0
      Items.Strings = (
        'QB64'
        'QBasic'
        'Freepascal'
        'Turbo Pascal'
        'TMT Pascal'
        'Amiga Pascal'
        'Quick Pascal'
        'gcc \ Emscripten'
        'Open Watcom C'
        'Turbo C'
        'Quick C'
        'Amiga C'
        'JSON'
        'BM Font'
        'GWBASIC'
        'Turbo\Power Basic'
        'AmigaBasic'
        'FreeBASIC'
        'FreeBASIC - QB Mode'
        'Amiga QuickBasic AQB'
        'JavaScript'
      )
      Style = csDropDownList
      TabOrder = 13
      Text = 'QB64'
      OnChange = SpriteSheetChange
    end
    object StaticText6: TStaticText
      Left = 408
      Height = 17
      Top = 56
      Width = 105
      Caption = 'Sprite Sheet Export'
      TabOrder = 14
    end
    object StaticText7: TStaticText
      Left = 16
      Height = 17
      Top = 56
      Width = 136
      Caption = 'Custom Sprite Sheet Size'
      ParentBidiMode = False
      TabOrder = 15
    end
    object StaticText8: TStaticText
      Left = 8
      Height = 17
      Top = 77
      Width = 65
      Alignment = taRightJustify
      Caption = 'Width'
      TabOrder = 16
    end
    object StaticText9: TStaticText
      Left = 8
      Height = 17
      Top = 112
      Width = 65
      Alignment = taRightJustify
      Caption = 'Height'
      TabOrder = 17
    end
    object CSWidth: TSpinEdit
      Left = 80
      Height = 23
      Top = 80
      Width = 64
      MaxValue = 4000
      MinValue = 256
      OnChange = SpriteSheetChange
      TabOrder = 18
      Value = 2000
    end
    object CSHeight: TSpinEdit
      Left = 80
      Height = 23
      Top = 112
      Width = 64
      MaxValue = 4000
      MinValue = 256
      OnChange = SpriteSheetChange
      TabOrder = 19
      Value = 2000
    end
    object DescExportToFile: TButton
      Left = 688
      Height = 25
      Top = 104
      Width = 131
      Caption = 'Export to File'
      TabOrder = 20
      OnClick = DescExportToFileClick
    end
    object Label1: TLabel
      Left = 232
      Height = 15
      Top = 80
      Width = 32
      Caption = 'Width'
    end
    object Label2: TLabel
      Left = 232
      Height = 15
      Top = 112
      Width = 36
      Caption = 'Height'
    end
    object SpinEditCustomSpriteWidth: TSpinEditEx
      Left = 277
      Height = 23
      Top = 80
      Width = 67
      MaxLength = 0
      NumbersOnly = True
      TabOrder = 21
      MaxValue = 256
      MinValue = 8
      NullValue = 0
      Value = 48
    end
    object SpinEditCustomSpriteHeight: TSpinEditEx
      Left = 277
      Height = 23
      Top = 112
      Width = 67
      MaxLength = 0
      NumbersOnly = True
      TabOrder = 22
      MaxValue = 256
      MinValue = 8
      NullValue = 0
      Value = 48
    end
    object Label3: TLabel
      Left = 208
      Height = 15
      Top = 56
      Width = 98
      Caption = 'Custom Sprite Size'
    end
    object SaveBackgroundAsTransparent: TCheckBox
      Left = 688
      Height = 19
      Top = 136
      Width = 245
      Caption = 'Save Background Color (Black) Transparent'
      Checked = True
      State = cbChecked
      TabOrder = 23
    end
  end
  object ZoomTrackBar: TTrackBar
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
    Left = 1176
    Height = 100
    Top = 20
    Width = 41
    Min = 1
    OnChange = ZoomTrackBarChange
    Orientation = trVertical
    Position = 1
    TickMarks = tmTopLeft
    Anchors = [akRight]
    BorderSpacing.Right = 16
    TabOrder = 3
  end
  object StatusBar1: TStatusBar
    Left = 0
    Height = 23
    Top = 680
    Width = 1233
    Align = alBottom
    Panels = <
      item
        Text = 'Sprites: 0'
        Width = 120
      end
      item
        Text = 'Sheet: 320x200'
        Width = 160
      end
      item
        Text = 'Cell: 32x32'
        Width = 120
      end
      item
        Text = 'Zoom: 1x'
        Width = 100
      end
      item
        Text = ''
        Width = 300
      end>
    SimplePanel = False
  end
  object MainMenu1: TMainMenu
    Left = 1050
    Top = 186
    object MenuFile: TMenuItem
      Caption = 'File'
      object MnuApply: TMenuItem
        Caption = 'Apply'
        OnClick = ApplyClick
      end
      object MnuSep1: TMenuItem
        Caption = '-'
      end
      object MnuExportImage: TMenuItem
        Caption = 'Export Sheet to File...'
        OnClick = ExportToFileClick
      end
      object MnuExportClipboard: TMenuItem
        Caption = 'Export Sheet to Clipboard'
        OnClick = ExportToClipBoardClick
      end
      object MnuSep2: TMenuItem
        Caption = '-'
      end
      object MnuExportDescFile: TMenuItem
        Caption = 'Export Description to File...'
        OnClick = DescExportToFileClick
      end
      object MnuExportDescClip: TMenuItem
        Caption = 'Export Description to Clipboard'
        OnClick = DescExportToFileClick
      end
      object MnuSep3: TMenuItem
        Caption = '-'
      end
      object MnuClose: TMenuItem
        Caption = 'Close'
        OnClick = MnuCloseClick
      end
    end
    object MenuView: TMenuItem
      Caption = 'View'
      object MnuZoomIn: TMenuItem
        Caption = 'Zoom In'
        OnClick = MnuZoomInClick
      end
      object MnuZoomOut: TMenuItem
        Caption = 'Zoom Out'
        OnClick = MnuZoomOutClick
      end
    end
  end
  object SaveDialog1: TSaveDialog
    Title = 'Export'
    Options = [ofOverwritePrompt, ofEnableSizing, ofViewDetail]
    Left = 1142
    Top = 123
  end
  object SaveDialog2: TSaveDialog
    Title = 'Export Description File'
    Options = [ofOverwritePrompt, ofEnableSizing, ofViewDetail]
    Left = 1148
    Top = 57
  end
end