galfar.imaginglib/Demos/ObjectPascal/ImageBrowser/Main.lfm

object MainForm: TMainForm
  Left = 521
  Height = 791
  Top = 283
  Width = 1026
  Caption = 'Image Browser - Vampyre Imaging Library Demo'
  ClientHeight = 791
  ClientWidth = 1026
  Color = clWindow
  Font.CharSet = EASTEUROPE_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  Position = poScreenCenter
  LCLVersion = '2.2.0.4'
  object Splitter1: TSplitter
    Left = 249
    Height = 791
    Top = 0
    Width = 5
  end
  object LeftPanel: TPanel
    Left = 0
    Height = 791
    Top = 0
    Width = 249
    Align = alLeft
    BevelOuter = bvNone
    ClientHeight = 791
    ClientWidth = 249
    TabOrder = 0
    object Tree: TShellTreeView
      Left = 0
      Height = 791
      Top = 0
      Width = 249
      Align = alClient
      FileSortType = fstFoldersFirst
      Images = ImageList
      Indent = 19
      RightClickSelect = True
      TabOrder = 0
      OnChange = TreeChange
      OnKeyDown = TreeKeyDown
      Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoRightClickSelect, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
      ObjectTypes = [otFolders, otNonFolders, otHidden]
    end
  end
  object RightPanel: TPanel
    Left = 254
    Height = 791
    Top = 0
    Width = 772
    Align = alClient
    BevelOuter = bvNone
    ClientHeight = 791
    ClientWidth = 772
    Constraints.MinHeight = 300
    Constraints.MinWidth = 400
    TabOrder = 1
    object InfoPanel: TPanel
      Left = 0
      Height = 90
      Top = 4
      Width = 772
      Align = alTop
      AutoSize = True
      BorderSpacing.Top = 4
      BorderSpacing.Bottom = 4
      BevelOuter = bvNone
      ClientHeight = 90
      ClientWidth = 772
      Color = clWindow
      ParentColor = False
      TabOrder = 0
      object LabDataFormat: TLabel
        Left = 132
        Height = 13
        Top = 53
        Width = 436
        AutoSize = False
      end
      object LabFileFormat: TLabel
        Left = 132
        Height = 13
        Top = 37
        Width = 436
        AutoSize = False
      end
      object LabDim: TLabel
        Left = 132
        Height = 13
        Top = 21
        Width = 436
        AutoSize = False
      end
      object LabFileName: TLabel
        Left = 132
        Height = 13
        Top = 5
        Width = 436
        AutoSize = False
        BorderSpacing.Around = 4
      end
      object Label3: TLabel
        Left = 4
        Height = 13
        Top = 53
        Width = 65
        BorderSpacing.Around = 4
        Caption = 'Data format:'
      end
      object Label2: TLabel
        Left = 4
        Height = 13
        Top = 37
        Width = 59
        BorderSpacing.Around = 4
        Caption = 'File format:'
      end
      object Label1: TLabel
        Left = 4
        Height = 13
        Top = 21
        Width = 64
        BorderSpacing.Around = 4
        Caption = 'Dimensions:'
      end
      object Lab1: TLabel
        Left = 4
        Height = 13
        Top = 5
        Width = 69
        BorderSpacing.Around = 4
        Caption = 'Selected file:'
      end
      object Label4: TLabel
        Left = 4
        Height = 13
        Top = 69
        Width = 90
        BorderSpacing.Around = 4
        Caption = 'Active subimage:'
      end
      object LabActImage: TLabel
        Left = 132
        Height = 13
        Top = 69
        Width = 281
        AutoSize = False
      end
      object BtnPrev: TSpeedButton
        Left = 228
        Height = 22
        Hint = 'Previous subimage'
        Top = 68
        Width = 23
        Glyph.Data = {
          76050000424D7605000000000000360400002800000011000000100000000100
          0800000000004001000000000000000000000001000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00710000005001
          0000ACCEBE00C023BD00000102000405060008090A000C0D0E00101112001415
          160018191A001C1D1E00202022002424260028282A002C2C2E00303032003434
          360038383A003C3C3E004041410044454600484949004C4D4E00505151005455
          5600585959005C5D5E0070000000910000000000000000BBBE00223401005003
          94000CBBBE007C7D7E008081820018BBBE0088898A008C8D8E0024BBBE009395
          960098999A0030BBBE00A0A1A200A3A5A6003CBBBE00ACADAE00C00000009100
          00000000000050BBBE00BE33010088B6AE005CBBBE0060BBBE00D0D1D20068BB
          BE0000000000DCDDDE0074BBBE00E3E5E600E8E9EA0080BBBE00910000005000
          00008CBBBE004023BD000000000098BBBE000000000000000000A4BBBE000000
          000000000000B0BBBE0000000000000000000000000000000000000000000000
          0000000000001E001F0050010000410000000000000000000000550B13004C72
          BE0000000000C90A89005472BE0000000000690B05005C72BE0000000000DB0A
          72006472BE00120000004100000031000000F8BBBE00E0BBBE00000000000000
          0000D4BBBE00ECBBBE0000000000FF00FF00FFFF0000FFFFFF0031000000D100
          0000333333003333330030000000333333003333330030000000333F33003333
          330030000000338EFF003333330030000000338EEE003333330030000000338E
          EE00FF33330030000000338EEE00EEFF330030000000338EEE00EEEEFF003000
          0000338EEE00EEEE880030000000338EEE00EE88330030000000338EEE008833
          330030000000338EEE003333330030000000338E880033333300300000003388
          3300333333003000000033333300333333003000000033333300333333003000
          0000FFFFFF000F000000D1000000810000002800000011000000100000000100
          040000000000C000000000000000000000001000000010000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FF00FF0000FF
          FF00FFFFFF00EE4F00008100000041000000D0BDBE0000000000C1330100C4FC
          BD00D4BDBE00C0300100D4FCBD00B8BDBE000400000000000000000000000000
          000000000000FFFFFF00410000004100000050BEBE00000000003F34010084FC
          BD0000000000C233010094FCBD00E0BDBE00BE330100A4FCBD00ECBDBE00AC30
          0100B4FCBD004023BD004100000041000000E096BE0000000000BF33010074FC
          BD002CBEBE00000000000000000038BEBE000000000000000000030303030303
          0303030303030303030303000000030303030303030303030303030303030300
          0000030303030303030303030303030F03030300000003030303030303030303
          030F0F0E0803030000000303030303030303030F0F0E0E0E0803030000000303
          03030303030F0F0E0E0E0E0E08030300000003030303030F0F0E0E0E0E0E0E0E
          0803030000000303030F0F0E0E0E0E0E0E0E0E0E08030300000003030F08080E
          0E0E0E0E0E0E0E0E080303000000030303030308080E0E0E0E0E0E0E08030300
          00000303030303030308080E0E0E0E0E08030300000003030303030303030308
          080E0E0E080303000000030303030303030303030308080E0803030000000303
          0303030303030303030303080803030000000303030303030303030303030303
          0303030000000303030303030303030303030303030303000000
        }
        OnClick = BtnPrevClick
        ShowHint = True
        ParentShowHint = False
      end
      object BtnNext: TSpeedButton
        Left = 257
        Height = 22
        Hint = 'Next subimage'
        Top = 68
        Width = 23
        Glyph.Data = {
          76050000424D7605000000000000360400002800000011000000100000000100
          0800000000004001000000000000000000000001000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000030303030303
          0303030303030303030303000000030303030303030303030303030303030300
          00000303030F030303030303030303030303030000000303080E0F0F03030303
          030303030303030000000303080E0E0E0F0F0303030303030303030000000303
          080E0E0E0E0E0F0F030303030303030000000303080E0E0E0E0E0E0E0F0F0303
          0303030000000303080E0E0E0E0E0E0E0E0E0F0F0303030000000303080E0E0E
          0E0E0E0E0E0E08080F03030000000303080E0E0E0E0E0E0E0808030303030300
          00000303080E0E0E0E0E0808030303030303030000000303080E0E0E08080303
          030303030303030000000303080E080803030303030303030303030000000303
          0808030303030303030303030303030000000303030303030303030303030303
          0303030000000303030303030303030303030303030303000000
        }
        Layout = blGlyphRight
        OnClick = BtnNextClick
        ShowHint = True
        ParentShowHint = False
      end
      object BtnFirst: TSpeedButton
        Left = 316
        Height = 22
        Hint = 'First subimage'
        Top = 68
        Width = 23
        Glyph.Data = {
          76050000424D7605000000000000360400002800000014000000100000000100
          0800000000004001000000000000000000000001000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000030303030303
          0303030303030303030303030303030303030303030303030303030303030303
          03030303080F0F03030303030303030303030F0F03030303080E0F0303030303
          030303030F0F0E0F03030303080E0F030303030303030F0F0E0E0E0F03030303
          080E0F03030303030F0F0E0E0E0E0E0F03030303080E0F0303030F0F0E0E0E0E
          0E0E0E0F03030303080E0F03030F0E0E0E0E0E0E0E0E0E0F03030303080E0F03
          08080E0E0E0E0E0E0E0E0E0F03030303080E0F03030308080E0E0E0E0E0E0E0F
          03030303080E0F030303030308080E0E0E0E0E0F03030303080E0F0303030303
          030308080E0E0E0F03030303080E0F03030303030303030308080E0F03030303
          08080F0303030303030303030303080F03030303030303030303030303030303
          0303030303030303030303030303030303030303030303030303
        }
        OnClick = BtnFirstClick
        ShowHint = True
        ParentShowHint = False
      end
      object BtnLast: TSpeedButton
        Left = 345
        Height = 22
        Hint = 'Last subimage'
        Top = 68
        Width = 23
        Glyph.Data = {
          B6050000424DB605000000000000360400002800000015000000100000000100
          0800000000008001000000000000000000000001000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000030303030303
          0303030303030303030303030303030000000303030303030303030303030303
          030303030303030000000303030F030303030303030303030303080F0F030300
          00000303080E0F0F03030303030303030303080E0F03030000000303080E0E0E
          0F0F0303030303030303080E0F03030000000303080E0E0E0E0E0F0F03030303
          0303080E0F03030000000303080E0E0E0E0E0E0E0F0F03030303080E0F030300
          00000303080E0E0E0E0E0E0E0E0E0F0F0303080E0F03030000000303080E0E0E
          0E0E0E0E0E0E08080F03080E0F03030000000303080E0E0E0E0E0E0E08080303
          0303080E0F03030000000303080E0E0E0E0E0808030303030303080E0F030300
          00000303080E0E0E08080303030303030303080E0F03030000000303080E0808
          03030303030303030303080E0F03030000000303080803030303030303030303
          030308080F030300000003030303030303030303030303030303030303030300
          0000030303030303030303030303030303030303030303000000
        }
        OnClick = BtnLastClick
        ShowHint = True
        ParentShowHint = False
      end
      object BtnSave: TButton
        Left = 639
        Height = 25
        Top = 0
        Width = 129
        Anchors = [akTop, akRight]
        Caption = 'Save Image Copy'
        OnClick = BtnSaveClick
        TabOrder = 0
      end
      object CheckFilter: TCheckBox
        Left = 655
        Height = 18
        Top = 36
        Width = 105
        Anchors = [akTop, akRight]
        Caption = 'Bicubic filtering'
        Checked = True
        OnClick = CheckFilterClick
        State = cbChecked
        TabOrder = 1
      end
    end
    object ViewPanel: TPanel
      Left = 0
      Height = 693
      Top = 98
      Width = 772
      Align = alClient
      BevelOuter = bvNone
      ClientHeight = 693
      ClientWidth = 772
      Color = 16777126
      ParentColor = False
      TabOrder = 1
      OnResize = ViewPanelResize
      object PaintBox: TPaintBox
        Left = 0
        Height = 675
        Top = 0
        Width = 772
        Align = alClient
        Color = 16773862
        ParentColor = False
        OnPaint = PaintBoxPaint
      end
      object StatusBar: TStatusBar
        Left = 0
        Height = 18
        Top = 675
        Width = 772
        Color = clWhite
        Panels = <>
        ParentColor = False
      end
    end
  end
  object SaveDialog: TSavePictureDialog
    Left = 104
    Top = 320
  end
  object ImageList: TImageList
    DrawingStyle = dsTransparent
    Left = 578
    Top = 241
    Bitmap = {
      4C7A0200000010000000100000001C0100000000000078DA63601858E0E0E0F0
      9F52FCF7F572A271FCF77BFF59FEFFFBDFFCF522C9FA3FBD590DD6CBF0FFFF7F
      8BDF6F70EABFF4A4FBFFA7970BB09AD1FFE5EC7F8D3F1FFFAFFF7808ABFE5FAF
      97FE3738ADF03FF9B21386DE7BF726A3F0B1E92FBFE6FF9FE10823186F7E5006
      17DF7CA6ECBF403B178A19E8FA8F3D6EFECF729405AE5FE438DFFF572F66FF7F
      F670C67F910EDEFF0C0D0CFF2DA6ABFEFFF56A2986FE6FAF16FDD738250DD70B
      C3FE174CFFBBCFD307EB85E1F24DFE18FA8BAFF962E885E3990C28FA599A98FF
      EF3E5F0DD77FE851238ABB31F04120EE403543A24B00AE5FE1A4186EBD30BC19
      881B51CDA046DA6518E180D2B001A973BDF71F0353433FB1189B7E6230B5F41F
      FEFC9F2C3CAA9F3AFA8772FE07009115DD97
    }
  end
end