object frmMain: TfrmMain
  Left = 1092
  Height = 668
  Top = 213
  Width = 790
  HorzScrollBar.Page = 780
  HorzScrollBar.Range = 489
  VertScrollBar.Page = 570
  VertScrollBar.Range = 344
  ActiveControl = pnlList
  AllowDropFiles = True
  ClientHeight = 648
  ClientWidth = 790
  Color = clBtnFace
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Icon.Data = {
[encoded data, 32499 characters]
    0000FC010000FC030000FC070000FC1F0000
  }
  Menu = mmMain
  OnClose = FormClose
  OnCreate = FormCreate
  OnDropFiles = FormDropFiles
  Position = poScreenCenter
  LCLVersion = '1.5'
  object pnlStatus: TPanel
    Left = 0
    Height = 30
    Top = 618
    Width = 790
    Align = alBottom
    BevelOuter = bvLowered
    ClientHeight = 30
    ClientWidth = 790
    TabOrder = 2
    object lblStatus: TLabel
      Left = 76
      Height = 28
      Top = 1
      Width = 182
      Align = alClient
      Alignment = taRightJustify
      Layout = tlCenter
      ParentColor = False
    end
    object pbProgress: TProgressBar
      Left = 258
      Height = 28
      Top = 1
      Width = 531
      Align = alRight
      Anchors = [akTop, akLeft, akRight, akBottom]
      Smooth = True
      TabOrder = 1
      BarShowText = True
    end
    object btnStopScan: TButton
      Left = 1
      Height = 28
      Top = 1
      Width = 75
      Action = actStopScan
      Align = alLeft
      TabOrder = 0
    end
  end
  object cbbFiles: TComboBox
    Left = 0
    Height = 21
    Top = 0
    Width = 790
    Align = alTop
    DropDownCount = 30
    Enabled = False
    ItemHeight = 13
    OnChange = actChangeFileExecute
    OnCloseUp = actReturnFocusExecute
    Style = csDropDownList
    TabOrder = 0
  end
  object pnlMain: TPanel
    Left = 0
    Height = 597
    Top = 21
    Width = 790
    Align = alClient
    BevelOuter = bvNone
    ClientHeight = 597
    ClientWidth = 790
    TabOrder = 1
    object splMain: TSplitter
      Left = 253
      Height = 597
      Top = 0
      Width = 5
    end
    object pnlList: TPanel
      Left = 0
      Height = 597
      Top = 0
      Width = 253
      Align = alLeft
      BevelOuter = bvNone
      ClientHeight = 597
      ClientWidth = 253
      TabOrder = 0
      object lvList: TListView
        Left = 0
        Height = 412
        Top = 0
        Width = 253
        Align = alClient
        Columns = <        
          item
            AutoSize = True
            Caption = '# / 0'
            Width = 249
          end        
          item
            Alignment = taCenter
            AutoSize = True
            Caption = 'BPP'
            Width = 30
          end        
          item
            Alignment = taCenter
            AutoSize = True
            Caption = 'CLUTs'
            Width = 42
          end        
          item
            Alignment = taCenter
            AutoSize = True
            Caption = 'Type'
            Width = 36
          end        
          item
            Alignment = taCenter
            AutoSize = True
            Caption = 'W x H'
            Width = 41
          end>
        ColumnClick = False
        OwnerData = True
        PopupMenu = pmList
        ReadOnly = True
        RowSelect = True
        ScrollBars = ssAutoBoth
        TabOrder = 0
        ToolTips = False
        ViewStyle = vsReport
        OnData = lvListData
        OnSelectItem = lvListSelectItem
      end
      object tblTimInfo: TStringGrid
        Left = 0
        Height = 185
        Top = 412
        Width = 253
        Align = alBottom
        AutoEdit = False
        AutoFillColumns = True
        ColCount = 2
        DefaultRowHeight = 20
        Enabled = False
        Flat = True
        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goSmoothScroll]
        RowCount = 9
        TabOrder = 1
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'Tahoma'
        ColWidths = (
          102
          133
        )
        Cells = (
          10
          0
          0
          'Field'
          0
          1
          'Position'
          0
          2
          'Version'
          0
          3
          'Good'
          0
          5
          'VRAM (X/Y)'
          0
          6
          'Colors Count'
          0
          8
          'VRAM (X/Y)'
          1
          0
          'Value'
          1
          4
          'CLUT'
          1
          7
          'IMAGE'
        )
      end
    end
    object pnlImage: TPanel
      Left = 258
      Height = 597
      Top = 0
      Width = 532
      Align = alClient
      BevelOuter = bvLowered
      ClientHeight = 597
      ClientWidth = 532
      Color = clBtnFace
      ParentColor = False
      TabOrder = 1
      object pnlImageOptions: TPanel
        Left = 1
        Height = 27
        Top = 569
        Width = 530
        Align = alBottom
        AutoSize = True
        BevelOuter = bvLowered
        ClientHeight = 27
        ClientWidth = 530
        Color = clBtnFace
        ParentColor = False
        TabOrder = 0
        object btnShowClut: TButton
          Left = 476
          Height = 23
          Top = 2
          Width = 52
          Align = alRight
          BorderSpacing.Around = 1
          Caption = 'CLUT'
          OnClick = btnShowClutClick
          TabOrder = 0
        end
        object cbbBitMode: TComboBox
          Left = 2
          Height = 21
          Top = 2
          Width = 159
          Align = alLeft
          BorderSpacing.Around = 1
          ItemHeight = 13
          ItemIndex = 0
          Items.Strings = (
            'Real'
            '4 BPP (Inner palette)'
            '4 BPP (Random palette) '
            '8 BPP (Inner palette)'
            '8 BPP (Random palette)'
            '16 BPP'
            '24 BPP'
          )
          OnChange = cbbBitModeChange
          OnCloseUp = actReturnFocusExecute
          Style = csDropDownList
          TabOrder = 1
          Text = 'Real'
        end
        object cbbTranspMode: TComboBox
          Left = 162
          Height = 21
          Top = 2
          Width = 150
          Align = alLeft
          BorderSpacing.Around = 1
          ItemHeight = 13
          ItemIndex = 1
          Items.Strings = (
            'Full transparence'
            'Black Transparence'
            'Semi Transparence'
            'No Transparence'
          )
          OnChange = cbbTranspModeChange
          OnCloseUp = actReturnFocusExecute
          Style = csDropDownList
          TabOrder = 2
          Text = 'Black Transparence'
        end
        object cbbCLUT: TComboBox
          Left = 366
          Height = 21
          Top = 2
          Width = 109
          Align = alRight
          BorderSpacing.Around = 1
          DropDownCount = 16
          ItemHeight = 13
          OnChange = actChangeClutIdxExecute
          Style = csDropDownList
          TabOrder = 3
        end
      end
      object pnlClut: TPanel
        Left = 1
        Height = 192
        Top = 377
        Width = 530
        Align = alBottom
        BevelOuter = bvLowered
        ClientHeight = 192
        ClientWidth = 530
        Color = clBtnFace
        ParentColor = False
        TabOrder = 1
        Visible = False
        object grdClut: TDrawGrid
          Left = 1
          Height = 138
          Top = 1
          Width = 528
          Align = alClient
          AutoEdit = False
          ColCount = 1
          DefaultColWidth = 14
          DefaultRowHeight = 14
          Enabled = False
          ExtendedSelect = False
          FixedCols = 0
          FixedRows = 0
          Options = [goFixedVertLine, goFixedHorzLine, goDrawFocusSelected]
          RowCount = 1
          ScrollBars = ssAutoVertical
          TabOrder = 0
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'Tahoma'
          OnDblClick = grdClutDblClick
          OnDrawCell = grdClutDrawCell
          OnKeyUp = grdClutKeyUp
        end
        object lblClutHint: TLabel
          Left = 1
          Height = 52
          Top = 139
          Width = 528
          Align = alBottom
          Alignment = taCenter
          Caption = 'Double-click to change color.'#10'Press "Space" key to invert Transparence bit.'#13#10'H-splitted color = black transparent.'#13#10'V-splitted color = non-black transparent.'
          Layout = tlCenter
          ParentColor = False
          WordWrap = True
        end
      end
      object imgTim: TImage
        Left = 1
        Height = 376
        Top = 1
        Width = 530
        AntialiasingMode = amOff
        Align = alClient
        Center = True
        PopupMenu = pmImage
        Proportional = True
      end
    end
  end
  object dlgOpenFile: TOpenDialog
    Title = 'Please, select File...'
    DefaultExt = '.bin'
    Filter = 'All Files (*.*)|*.*'
    Options = [ofHideReadOnly, ofNoChangeDir, ofAllowMultiSelect, ofNoNetworkButton, ofEnableSizing, ofForceShowHidden]
    left = 560
    top = 112
  end
  object mmMain: TMainMenu
    left = 336
    top = 112
    object mnFile: TMenuItem
      Caption = '&File'
      object mnScanFile: TMenuItem
        Action = actScanFile
      end
      object mnScanDir: TMenuItem
        Action = actScanDir
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object mnCloseFile: TMenuItem
        Action = actCloseFile
      end
      object mnCloseAllFiles: TMenuItem
        Action = actCloseFiles
      end
      object mnExit: TMenuItem
        Action = actExit
      end
    end
    object mnImage: TMenuItem
      Caption = '&Image'
      object mnSaveTIM: TMenuItem
        Action = actExtractTim
      end
      object mnReplaceIn: TMenuItem
        Action = actReplaceTim
      end
      object MenuItem1: TMenuItem
        Caption = '-'
      end
      object mnSaveToPNG: TMenuItem
        Action = actPngExport
      end
      object mnImportPng: TMenuItem
        Action = actPngImport
      end
    end
    object mnExport: TMenuItem
      Caption = '&Export'
      object mnExtractAllPngs3: TMenuItem
        Action = actExtractPngs
      end
      object mnExtractAllTims3: TMenuItem
        Action = actExtractTims
      end
      object N22: TMenuItem
        Caption = '-'
      end
      object mnExtractAllTimsAll: TMenuItem
        Action = actExtractTimsAll
      end
      object mnExtractAllPngsAll: TMenuItem
        Action = actExtractPngsAll
        ShortCut = 24691
      end
    end
    object mnOptions: TMenuItem
      Caption = '&Options'
      object mnAssociate: TMenuItem
        Action = actAddToSendto
        AutoCheck = True
      end
      object N8: TMenuItem
        Caption = '-'
      end
      object mnShowTimInfo: TMenuItem
        Action = actShowFileInfo
        AutoCheck = True
        ShowAlwaysCheckable = True
      end
      object mnStretchImage: TMenuItem
        Action = actStretch
        AutoCheck = True
      end
      object mnChangeBackColor2: TMenuItem
        Action = actChangeBackColor
      end
    end
    object mnHelp: TMenuItem
      Caption = '&Help'
      object mnSVN: TMenuItem
        Action = actOpenRepo
      end
      object mnSite: TMenuItem
        Action = actOpenLab
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object mnAbout: TMenuItem
        Action = actAbout
      end
    end
  end
  object dlgSavePNG: TSavePictureDialog
    Title = 'Please, select filename for PNG...'
    DefaultExt = '.png'
    Filter = 'Portable Network Graphics (*.png)|*.png'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofNoChangeDir, ofNoNetworkButton, ofEnableSizing]
    left = 672
    top = 112
  end
  object dlgSaveFile: TSaveDialog
    Title = 'Please, select where to save TIM file...'
    DefaultExt = '.tim'
    Filter = 'PSX TIM Files (*.tim)|*.tim|PSX CLT Files (*.clt)|*.clt|PSX PXL Files (*.pxl)|*.pxl|All Files (*.*)|*.*'
    FilterIndex = 0
    Options = [ofOverwritePrompt, ofHideReadOnly, ofNoChangeDir, ofNoNetworkButton, ofEnableSizing]
    left = 592
    top = 112
  end
  object dlgColor: 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 = 480
    top = 112
  end
  object actList: TActionList
    left = 400
    top = 112
    object actScanFile: TAction
      Caption = 'Scan &File...'
      OnExecute = actScanFileExecute
      ShortCut = 117
    end
    object actScanDir: TAction
      Caption = 'Scan &Directory...'
      OnExecute = actScanDirExecute
      ShortCut = 118
    end
    object actCloseFile: TAction
      Caption = 'Close &this File'
      OnExecute = actCloseFileExecute
      ShortCut = 119
    end
    object actCloseFiles: TAction
      Caption = 'Close &all Files'
      OnExecute = actCloseFilesExecute
      ShortCut = 120
    end
    object actExit: TAction
      Caption = '&Exit...'
      OnExecute = actExitExecute
      ShortCut = 121
    end
    object actExtractTim: TAction
      Caption = '&Extract TIM...'
      OnExecute = actExtractTimExecute
      ShortCut = 113
    end
    object actPngExport: TAction
      Caption = 'Export &PNG...'
      OnExecute = actPngExportExecute
      ShortCut = 115
    end
    object actPngImport: TAction
      Caption = '&Import PNG...'
      OnExecute = actPngImportExecute
      ShortCut = 116
    end
    object actReplaceTim: TAction
      Caption = '&Replace TIM...'
      OnExecute = actReplaceTimExecute
      ShortCut = 114
    end
    object actOpenRepo: TAction
      Caption = 'Tim2Vew &SVN Repo'
      OnExecute = actOpenRepoExecute
    end
    object actOpenLab: TAction
      Caption = '[&Lab313] Forum'
      OnExecute = actOpenLabExecute
    end
    object actAbout: TAction
      Caption = '&About...'
      OnExecute = actAboutExecute
    end
    object actStretch: TAction
      AutoCheck = True
      Caption = '&Stretch Image'
      OnExecute = actStretchExecute
    end
    object actAddToSendto: TAction
      AutoCheck = True
      Caption = '&SendTo Shortcut for Tim2View'
      OnExecute = actAddToSendtoExecute
    end
    object actExtractTims: TAction
      Caption = 'Extract all &TIMs (This File)'
      OnExecute = actExtractTimsExecute
      ShortCut = 8305
    end
    object actExtractTimsAll: TAction
      Caption = 'Extract all TIMs (&All Files)'
      OnExecute = actExtractTimsAllExecute
      ShortCut = 24689
    end
    object actExtractPngs: TAction
      Caption = '&Extract all PNGs (This File)'
      OnExecute = actExtractPngsExecute
      ShortCut = 8307
    end
    object actExtractPngsAll: TAction
      Caption = 'Extract all PNGs (All &Files)'
      OnExecute = actExtractPngsAllExecute
    end
    object actChangeClutIdx: TAction
      OnExecute = actChangeClutIdxExecute
    end
    object actReturnFocus: TAction
      OnExecute = actReturnFocusExecute
    end
    object actChangeFile: TAction
      OnExecute = actChangeFileExecute
    end
    object actStopScan: TAction
      Caption = '&Stop Scan'
      Enabled = False
      OnExecute = actStopScanExecute
    end
    object actChangeBackColor: TAction
      Caption = '&Background Color'
      OnExecute = actChangeBackColorExecute
    end
    object actShowFileInfo: TAction
      AutoCheck = True
      Caption = '&Show File Info'
      OnExecute = actShowFileInfoExecute
    end
  end
  object pmList: TPopupMenu
    left = 432
    top = 112
    object mnSaveTIM1: TMenuItem
      Action = actExtractTim
    end
    object mnReplaceIn1: TMenuItem
      Action = actReplaceTim
    end
    object N7: TMenuItem
      Caption = '-'
    end
    object mnSaveToPNG1: TMenuItem
      Action = actPngExport
    end
    object mnImportPng1: TMenuItem
      Action = actPngImport
    end
    object N20: TMenuItem
      Caption = '-'
    end
    object mnExtractAllTims2: TMenuItem
      Action = actExtractTims
    end
    object mnExtractAllPngs2: TMenuItem
      Action = actExtractPngs
    end
  end
  object pmImage: TPopupMenu
    left = 368
    top = 112
    object mnSaveAsPng: TMenuItem
      Action = actPngExport
    end
    object mnSaveAsTim: TMenuItem
      Action = actExtractTim
    end
    object N5: TMenuItem
      Caption = '-'
    end
    object mnStretch: TMenuItem
      Action = actStretch
      AutoCheck = True
    end
    object mnChangeBackColor: TMenuItem
      Action = actChangeBackColor
    end
  end
  object dlgSelectDir: TSelectDirectoryDialog
    Options = [ofNoChangeDir, ofNoNetworkButton, ofEnableSizing, ofViewDetail]
    left = 512
    top = 112
  end
  object dlgOpenPNG: TOpenPictureDialog
    Title = 'Please, select PNG...'
    DefaultExt = '.png'
    Filter = 'Portable Network Graphics (*.png)|*.png'
    Options = [ofHideReadOnly, ofNoChangeDir, ofNoNetworkButton, ofEnableSizing]
    left = 640
    top = 112
  end
end
