galfar.imaginglib/Demos/ObjectPascal/LCLImager/mainunit.lfm

object MainForm: TMainForm
  Left = 473
  Height = 680
  Top = 405
  Width = 997
  AllowDropFiles = True
  Caption = 'LCL Imager (Vampyre Imaging Library Demo)'
  ClientHeight = 660
  ClientWidth = 997
  Constraints.MinHeight = 240
  Constraints.MinWidth = 320
  Icon.Data = {
    BE0800000000010001002020000100000000A808000016000000280000002000
    0000400000000100080000000000800400000000000000000000000000000000
    000000000000000080000080000000808000800000008000800080800000C0C0
    C000C0DCC000F0CAA6000020400000206000002080000020A0000020C0000020
    E00000400000004020000040400000406000004080000040A0000040C0000040
    E00000600000006020000060400000606000006080000060A0000060C0000060
    E00000800000008020000080400000806000008080000080A0000080C0000080
    E00000A0000000A0200000A0400000A0600000A0800000A0A00000A0C00000A0
    E00000C0000000C0200000C0400000C0600000C0800000C0A00000C0C00000C0
    E00000E0000000E0200000E0400000E0600000E0800000E0A00000E0C00000E0
    E00040000000400020004000400040006000400080004000A0004000C0004000
    E00040200000402020004020400040206000402080004020A0004020C0004020
    E00040400000404020004040400040406000404080004040A0004040C0004040
    E00040600000406020004060400040606000406080004060A0004060C0004060
    E00040800000408020004080400040806000408080004080A0004080C0004080
    E00040A0000040A0200040A0400040A0600040A0800040A0A00040A0C00040A0
    E00040C0000040C0200040C0400040C0600040C0800040C0A00040C0C00040C0
    E00040E0000040E0200040E0400040E0600040E0800040E0A00040E0C00040E0
    E00080000000800020008000400080006000800080008000A0008000C0008000
    E00080200000802020008020400080206000802080008020A0008020C0008020
    E00080400000804020008040400080406000804080008040A0008040C0008040
    E00080600000806020008060400080606000806080008060A0008060C0008060
    E00080800000808020008080400080806000808080008080A0008080C0008080
    E00080A0000080A0200080A0400080A0600080A0800080A0A00080A0C00080A0
    E00080C0000080C0200080C0400080C0600080C0800080C0A00080C0C00080C0
    E00080E0000080E0200080E0400080E0600080E0800080E0A00080E0C00080E0
    E000C0000000C0002000C0004000C0006000C0008000C000A000C000C000C000
    E000C0200000C0202000C0204000C0206000C0208000C020A000C020C000C020
    E000C0400000C0402000C0404000C0406000C0408000C040A000C040C000C040
    E000C0600000C0602000C0604000C0606000C0608000C060A000C060C000C060
    E000C0800000C0802000C0804000C0806000C0808000C080A000C080C000C080
    E000C0A00000C0A02000C0A04000C0A06000C0A08000C0A0A000C0A0C000C0A0
    E000C0C00000C0C02000C0C04000C0C06000C0C08000C0C0A000F0FBFF00A4A0
    A000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
    FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
    FFFFFFFFFFFFFFFFFFFFFFF6F6F6F6F6F6F6F6FFFFFFFFFFFFFFFFFFFFFFFFFF
    FFFFFFFFFFFFFFFFFFFFF6F6F6EFEFEFEFF6F6F6F6FFFFFFFFFFFFFFFFFFFFFF
    FFFFFFFFFFFFFFFFFFF6F6EFEFEFAFEFEFEFEFEFF6F6F6FFFFFFFFFFFFFFFFFF
    FFFFFFFFFFFFFFFFF6F6EFAFA7A7A7A7A7AFEFEFEFF6F6F6FFFFFFFFFFFFFFFF
    FFFFFFFFFFFFFFF6F6EF9F97979797979F9FA7AFEFEFEFF6F6FFFFFFFFFFFFFF
    FFFFFFFFFFFFFFF6E7979797979797979797979FA7EFEFEFF6F6FFFFFFFFFFFF
    FFFFFFFFFFFFFFF69F97979F9F9FA79F9797979797A7EFEFEFF6F6FFFFFFFFFF
    FFFFFFFFFFFFFFF69F97A7EFEFF6F6F6EFE79F9797979FEFEFEFF6F6FFFFFFFF
    FFFFFFFFFFFFFFF6E79FEFF6F6F6F6F6F6F6EFE79797979FEFEFF6F6FFFFFFFF
    FFFFFFFFFFFFFFF6EFE7EFF6F6F6FFFFFFFFF6F6EF979797A7EFEFF6F6FFFFFF
    FFFFFFFFFFFFFFFFF6EFEFF6FFFFFFFFFFFFFFF6F6E79797A7EFEFF6F6FFFFFF
    FFFFFFFFFFFFFFFFF6F6F6F6FFFFFFFFFFFFFFFFF6EF97979FAFEFEFF6FFFFFF
    FFFFFFFFFFFFFFFFFFFFF6FFFFFFFFFFFFFFFFFFFFF69F9797A7EFEFF6FFFFFF
    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF6A79797A7EFEFF6FFFFFF
    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF6E797979FEFEFF6FFFFFF
    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF6F6F6FFFFFFF6EF97979FEFEFF6FFFFFF
    FFFFFFFFFFFFFFFFFFFFFFFFFFFFF6F6F6F6F6FFFFF6EF97979FEFEFF6F6FFFF
    FFFFFFFFFFFFFFFFFFFFFFFFFFF6F6F6F6F6F6FFFFF6EF97979FEFEFF6F6FFFF
    FFFFFFFFFFFFFFFFFFFFFFFFF6F6F6F6EFF6F6FFFFF6EF97979FEFEFF6F6FFFF
    FFFFFFFFFFFFFFFFFFFFFFFFF6E7E7EFEFF6F6F6FFF6EF97979FAFEFF6F6FFFF
    FFFFFFFFFFFFFFFFFFFFFFF6F69F9FEFEFEFF6F6F6F6EF97979FAFEFF6F6FFFF
    FFFFFFFFFFFFFFFFFFFFFFF6EF9F9FA7EFEFEFEFF6EFEF97979FAFEFF6F6FFFF
    FFFFFFFFFFFFFFFFFFFFFFF6EF9F97A7EFAFAFEFEFEFA797979FAFEFF6F6FFFF
    FFFFFFFFFFFFFFFFFFFFFFF6EF9F97A7A7A7A7A7A7A79F9797A7EFEFF6F6FFFF
    FFFFFFFFFFFFFFFFFFFFFFF6EF9F97979F9F9F9F9F97979797A7EFF6F6F6FFFF
    FFFFFFFFFFFFFFFFFFFFFFFFF6A79797979797979797979797E7F6F6F6FFFFFF
    FFFFFFFFFFFFFFFFFFFFFFFFF6EFA79F9F9F9F9F9F9F9F9F9FEFF6F6FFFFFFFF
    FFFFFFFFFFFFFFFFFFFFFFFFFFF6F6F6F6F6F6F6F6F6F6EFF6F6F6FFFFFFFFFF
    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF6F6F6F6FFFFFFF6F6FFFFFFFFFFFFFF
    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
    FFFF000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000
  }
  Menu = MainMenu
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnDropFiles = FormDropFiles
  OnShow = FormShow
  Position = poWorkAreaCenter
  LCLVersion = '2.0.4.0'
  Visible = True
  object StatusBar: TStatusBar
    Left = 0
    Height = 23
    Top = 637
    Width = 997
    Panels = <>
  end
  object PairSplitter: TPairSplitter
    Left = 0
    Height = 637
    Top = 0
    Width = 997
    Align = alClient
    Position = 180
    object PairSplitterSideLeft: TPairSplitterSide
      Cursor = crArrow
      Left = 0
      Height = 637
      Top = 0
      Width = 180
      ClientWidth = 180
      ClientHeight = 637
      object TreeImage: TTreeView
        Left = 0
        Height = 637
        Top = 0
        Width = 180
        Align = alClient
        AutoExpand = True
        HotTrack = True
        ParentShowHint = False
        ReadOnly = True
        RightClickSelect = True
        ShowHint = True
        TabOrder = 0
        OnSelectionChanged = TreeImageSelectionChanged
        Options = [tvoAutoExpand, tvoAutoItemHeight, tvoHideSelection, tvoHotTrack, tvoKeepCollapsedNodes, tvoReadOnly, tvoRightClickSelect, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
      end
    end
    object PairSplitterSideRight: TPairSplitterSide
      Cursor = crArrow
      Left = 185
      Height = 637
      Top = 0
      Width = 812
      ClientWidth = 812
      ClientHeight = 637
      object Image: TImage
        Cursor = crHandPoint
        Left = 4
        Height = 637
        Top = 0
        Width = 804
        Align = alClient
        AutoSize = True
        BorderSpacing.Left = 4
        BorderSpacing.Right = 4
        Center = True
        OnClick = ImageClick
        Proportional = True
        Stretch = True
      end
    end
  end
  object MainMenu: TMainMenu
    left = 112
    top = 40
    object MenuItem1: TMenuItem
      Caption = 'File'
      object MenuItem3: TMenuItem
        Caption = 'Open'
        ShortCut = 16463
        OnClick = MenuItem3Click
      end
      object MenuItem44: TMenuItem
        Caption = 'Reload'
        ShortCut = 16466
        OnClick = MenuItem44Click
      end
      object MenuItem5: TMenuItem
        Caption = 'Save As...'
        ShortCut = 16467
        OnClick = MenuItem5Click
      end
      object MenuItem93: TMenuItem
        Caption = '-'
      end
      object MenuItem92: TMenuItem
        Caption = 'Add Image(s) From File...'
        OnClick = MenuItem92Click
      end
      object MenuItem25: TMenuItem
        Caption = '-'
      end
      object MenuItem7: TMenuItem
        Caption = 'Exit'
        OnClick = MenuItem7Click
      end
    end
    object MenuItem6: TMenuItem
      Caption = 'View'
      object MenuItem11: TMenuItem
        Action = ActViewInfo
        ShortCut = 16457
        OnClick = ActViewInfoExecute
      end
      object MenuItem86: TMenuItem
        Caption = 'Show Metadata'
        ShortCut = 16461
        OnClick = MenuItem86Click
      end
      object MenuItem87: TMenuItem
        Caption = '-'
      end
      object MenuItem16: TMenuItem
        Action = ActViewFitToWindow
        Checked = True
        OnClick = ActViewFitToWindowExecute
      end
      object MenuItem17: TMenuItem
        Action = ActViewActualSize
        OnClick = ActViewActualSizeExecute
      end
      object MenuItem32: TMenuItem
        Caption = '-'
      end
      object MenuItemActSubImage: TMenuItem
        Caption = 'Active Subimage:'
      end
      object MenuItem34: TMenuItem
        Caption = 'Next Subimage'
        ShortCut = 39
        OnClick = MenuItem34Click
      end
      object MenuItem35: TMenuItem
        Caption = 'Previous Subimage'
        ShortCut = 37
        OnClick = MenuItem35Click
      end
    end
    object FormatItem: TMenuItem
      Caption = 'Format'
      object MenuItemConvertAll: TMenuItem
        AutoCheck = True
        Caption = 'Convert all subimages'
        Checked = True
        GlyphShowMode = gsmNever
      end
    end
    object MenuItem8: TMenuItem
      Caption = 'Manipulate'
      object MenuItem2: TMenuItem
        Caption = 'Flip'
        OnClick = MenuItem2Click
      end
      object MenuItem4: TMenuItem
        Caption = 'Mirror'
        OnClick = MenuItem4Click
      end
      object MenuItem23: TMenuItem
        Caption = 'Rotate 90 CW'
        OnClick = MenuItem23Click
      end
      object MenuItem24: TMenuItem
        Caption = 'Rotate 90 CCW'
        OnClick = MenuItem24Click
      end
      object MenuItem80: TMenuItem
        Caption = 'Free Rotate'
        OnClick = MenuItem80Click
      end
      object MenuItem21: TMenuItem
        Caption = 'Resize To 50%'
        object MenuItem26: TMenuItem
          Caption = 'Nearest'
          OnClick = MenuItem26Click
        end
        object MenuItem27: TMenuItem
          Caption = 'Bilinear'
          OnClick = MenuItem27Click
        end
        object MenuItem28: TMenuItem
          Caption = 'Bicubic'
          OnClick = MenuItem28Click
        end
        object MenuItem88: TMenuItem
          Caption = 'Lanczos'
          OnClick = MenuItem88Click
        end
      end
      object MenuItem22: TMenuItem
        Caption = 'Resize To 200%'
        object MenuItem29: TMenuItem
          Caption = 'Nearest'
          OnClick = MenuItem29Click
        end
        object MenuItem30: TMenuItem
          Caption = 'Bilinear'
          OnClick = MenuItem30Click
        end
        object MenuItem31: TMenuItem
          Caption = 'Bicubic'
          OnClick = MenuItem31Click
        end
        object MenuItem89: TMenuItem
          Caption = 'Lanczos'
          OnClick = MenuItem89Click
        end
      end
      object MenuItem81: TMenuItem
        Caption = 'Free Resize'
        object MenuItem83: TMenuItem
          Caption = 'Nearest'
          OnClick = MenuItem83Click
        end
        object MenuItem84: TMenuItem
          Caption = 'Bilinear'
          OnClick = MenuItem84Click
        end
        object MenuItem85: TMenuItem
          Caption = 'Bicubic'
          OnClick = MenuItem85Click
        end
        object MenuItem90: TMenuItem
          Caption = 'Lanczos'
          OnClick = MenuItem90Click
        end
      end
      object MenuItem12: TMenuItem
        Caption = 'Swap Red <=> Blue'
        OnClick = MenuItem12Click
      end
      object MenuItem13: TMenuItem
        Caption = 'Swap Red <=> Green'
        OnClick = MenuItem13Click
      end
      object MenuItem14: TMenuItem
        Caption = 'Swap Green <=> Blue'
        OnClick = MenuItem14Click
      end
      object MenuItem15: TMenuItem
        Caption = 'Set Used Colors To 1024'
        OnClick = MenuItem15Click
      end
      object MenuItem18: TMenuItem
        Caption = 'Set Used Colors To 256'
        OnClick = MenuItem18Click
      end
      object MenuItem19: TMenuItem
        Caption = 'Set Used Colors To 64'
        OnClick = MenuItem19Click
      end
      object MenuItem20: TMenuItem
        Caption = 'Set Used Colors To 16'
        OnClick = MenuItem20Click
      end
      object MenuItem33: TMenuItem
        Caption = 'Set Used Colors To 2'
        OnClick = MenuItem33Click
      end
    end
    object MenuItem36: TMenuItem
      Caption = 'Linear Filters'
      object MenuItem37: TMenuItem
        Caption = 'Gaussian Blur'
        OnClick = MenuItem37Click
      end
      object MenuItem38: TMenuItem
        Caption = 'Gaussian Blur More'
        OnClick = MenuItem38Click
      end
      object MenuItem39: TMenuItem
        Caption = 'Sharpen'
        OnClick = MenuItem39Click
      end
      object MenuItem40: TMenuItem
        Caption = 'Sharpen More'
        OnClick = MenuItem40Click
      end
      object MenuItem41: TMenuItem
        Caption = 'Edge Detect (LoG)'
        OnClick = MenuItem41Click
      end
      object MenuItem42: TMenuItem
        Caption = 'Edge Detect Horizontal'
        object MenuItem49: TMenuItem
          Caption = 'Sobel'
          OnClick = MenuItem42Click
        end
        object MenuItem50: TMenuItem
          Caption = 'Prewitt'
          OnClick = MenuItem50Click
        end
        object MenuItem51: TMenuItem
          Caption = 'Kirsh'
          OnClick = MenuItem51Click
        end
      end
      object MenuItem43: TMenuItem
        Caption = 'Edge Detect Vertical'
        object MenuItem52: TMenuItem
          Caption = 'Sobel'
          OnClick = MenuItem43Click
        end
        object MenuItem53: TMenuItem
          Caption = 'Prewitt'
          OnClick = MenuItem53Click
        end
        object MenuItem54: TMenuItem
          Caption = 'Kirsh'
          OnClick = MenuItem54Click
        end
      end
      object MenuItem48: TMenuItem
        Caption = 'Edge Enhance'
        OnClick = MenuItem48Click
      end
      object MenuItem46: TMenuItem
        Caption = 'Emboss'
        OnClick = MenuItem46Click
      end
      object MenuItem45: TMenuItem
        Caption = 'Glow'
        OnClick = MenuItem45Click
      end
    end
    object MenuItem63: TMenuItem
      Caption = 'Nonlinear Filters'
      object MenuItem64: TMenuItem
        Caption = 'Median 3x3'
        OnClick = MenuItem64Click
      end
      object MenuItem65: TMenuItem
        Caption = 'Median 5x5'
        OnClick = MenuItem65Click
      end
      object MenuItem66: TMenuItem
        Caption = 'Min 3x3'
        OnClick = MenuItem66Click
      end
      object MenuItem67: TMenuItem
        Caption = 'Min 5x5'
        OnClick = MenuItem67Click
      end
      object MenuItem68: TMenuItem
        Caption = 'Max 3x3'
        OnClick = MenuItem68Click
      end
      object MenuItem69: TMenuItem
        Caption = 'Max 5x5'
        OnClick = MenuItem69Click
      end
    end
    object MenuItem55: TMenuItem
      Caption = 'Point Transforms'
      object MenuItem56: TMenuItem
        Caption = 'Invert Colors'
        OnClick = MenuItem56Click
      end
      object MenuItem47: TMenuItem
        Caption = '+ Contrast'
        OnClick = MenuItem47Click
      end
      object MenuItem57: TMenuItem
        Caption = '- Contrast'
        OnClick = MenuItem57Click
      end
      object MenuItem58: TMenuItem
        Caption = '+ Brightness'
        OnClick = MenuItem58Click
      end
      object MenuItem59: TMenuItem
        Caption = '- Brightness'
        OnClick = MenuItem59Click
      end
      object MenuItem60: TMenuItem
        Caption = '+ Gamma'
        OnClick = MenuItem60Click
      end
      object MenuItem61: TMenuItem
        Caption = '- Gamma'
        OnClick = MenuItem61Click
      end
      object MenuItem62: TMenuItem
        Caption = 'RGB Tresholding'
        OnClick = MenuItem62Click
      end
      object MenuItem75: TMenuItem
        Caption = 'Levels (B:0.0;W:0.5;M:1.0)'
        OnClick = MenuItem75Click
      end
      object MenuItem76: TMenuItem
        Caption = 'Levels (B:0.35;W:1.0;M:0.9)'
        OnClick = MenuItem76Click
      end
      object MenuItem78: TMenuItem
        Caption = 'Premultiply Alpha'
        OnClick = MenuItem78Click
      end
      object MenuItem79: TMenuItem
        Caption = 'UnPremultiply Alpha'
        OnClick = MenuItem79Click
      end
    end
    object MenuItem77: TMenuItem
      Caption = 'Colors'
      object AlphaItem: TMenuItem
        Caption = 'Alpha'
      end
      object RedItem: TMenuItem
        Caption = 'Red'
      end
      object GreenItem: TMenuItem
        Caption = 'Green'
      end
      object BlueItem: TMenuItem
        Caption = 'Blue'
      end
      object MenuItem82: TMenuItem
        Caption = 'Show Histograms'
        OnClick = MenuItem82Click
      end
    end
    object MIAdditional: TMenuItem
      Caption = 'Additional Operations'
      object MIMorphology: TMenuItem
        Caption = 'Binary Morphology'
        object MenuItem71: TMenuItem
          Caption = 'Erode'
          OnClick = MenuItem71Click
        end
        object MenuItem72: TMenuItem
          Caption = 'Dilate'
          OnClick = MenuItem72Click
        end
        object MenuItem73: TMenuItem
          Caption = 'Open'
          OnClick = MenuItem73Click
        end
        object MenuItem74: TMenuItem
          Caption = 'Close'
          OnClick = MenuItem74Click
        end
      end
      object MenuItem70: TMenuItem
        Caption = 'Otsu Thresholding'
        OnClick = MenuItem70Click
      end
      object MenuItem91: TMenuItem
        Caption = 'Deskewing (for text)'
        OnClick = MenuItem91Click
      end
    end
    object MenuItem9: TMenuItem
      Caption = 'Help'
      object MenuItem10: TMenuItem
        Caption = 'About'
        OnClick = MenuItem10Click
      end
    end
  end
  object OpenDialog: TOpenPictureDialog
    Filter = 'Graphic (*.dds;*.tga;*.png;*.jpe;*.jfif;*.jif;*.jpeg;*.jpg;*.dib;*.bmp;*.ico;*.ppm;*.pgm;*.pbm;*.png;*.xpm;*.bmp)|*.dds;*.tga;*.png;*.jpe;*.jfif;*.jif;*.jpeg;*.jpg;*.dib;*.bmp;*.ico;*.ppm;*.pgm;*.pbm;*.png;*.xpm;*.bmp|DirectDraw Surface (*.dds)|*.dds|True'
    FilterIndex = 0
    Options = [ofFileMustExist, ofEnableSizing, ofViewDetail, ofAutoPreview]
    left = 232
    top = 104
  end
  object ActionList: TActionList
    left = 112
    top = 104
    object ActViewFitToWindow: TAction
      Category = 'View'
      Caption = 'Fit To Window'
      OnExecute = ActViewFitToWindowExecute
    end
    object ActViewActualSize: TAction
      Category = 'View'
      Caption = 'Actual Size'
      Checked = True
      OnExecute = ActViewActualSizeExecute
    end
    object ActViewInfo: TAction
      Category = 'View'
      Caption = 'Image Info'
      OnExecute = ActViewInfoExecute
    end
  end
  object SaveDialog: TSavePictureDialog
    DefaultExt = '.png'
    Filter = 'Graphic (*.dds;*.tga;*.png;*.jpe;*.jfif;*.jif;*.jpeg;*.jpg;*.dib;*.bmp;*.ico;*.ppm;*.pgm;*.pbm;*.png;*.xpm;*.bmp)|*.dds;*.tga;*.png;*.jpe;*.jfif;*.jif;*.jpeg;*.jpg;*.dib;*.bmp;*.ico;*.ppm;*.pgm;*.pbm;*.png;*.xpm;*.bmp|DirectDraw Surface (*.dds)|*.dds|True'
    FilterIndex = 0
    Options = [ofOverwritePrompt, ofHideReadOnly, ofExtensionDifferent, ofPathMustExist, ofEnableSizing, ofViewDetail, ofAutoPreview]
    left = 232
    top = 40
  end
end