frmmain.dfm

Apprehend Screen Capture Component Version 4.2 A non-visible component to capture images. Freeware w

object FormMain: TFormMain
  Left = 200
  Top = 216
  Width = 660
  Height = 420
  Caption = 'Apprehend 2001'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = []
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFF000000
    0FFF0000FF000FF000FF00FFFF0000000FFFF00FFF0F0FF0F0FF00FFFF000000
    0FFFF00FF00F0F00F0FF00FFFF0000000FFFFF00F00F0F00F0FF00FFFF000000
    0FFF0000F00F0F00F0FF00FFFF0000000FFFF000FF000FF000FF00FFFF000000
    0FFFFFFFFFFFFFFFFFFFFFFFFF0000000FFFFFFFFFFFFFFFFFFFFFFFFF000000
    00000000000000000000000000000000EE0B333B333033B0EE08000000000000
    EEE0BB0B0003BB0EEE08000000000000EEE0BB0B0003BB0EEE08000000000000
    EEEE0030EEE000EEEE08000000000000EEEEEE0EEEEEEEEEEE08000000000000
    EEEEEEEEEEEEEEEEEE08000000000000EEEEEEEEEEEEEEEEEE08000000000000
    EEEEEEEEEEEEEEEEEE08000000000000EEEEEEEEEEEE000EEE08000000000000
    EEEEEEEEEEE0BBB0EE08000000000000EEEEEEEEEEE0BBB0EE08000000000000
    EEEEEEEEEEE0BBB0EE08000000000000EEEEEEEEEEEE000EEE08000000000000
    EEEEEEEEEEEEEEEEEE08000000000000EEEEEEEEEEEEEEEEEE08000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000FFFF
    FFFFFFFFFFFFF0000001F0000001F0000001F0000001F0000001F0000001F000
    0001F0000001F0000001F0000001E0000001E00000FFE00000FFE00000FFE000
    00FFE00000FFE00000FFE00000FFE00000FFE00000FFE00000FFE00000FFE000
    00FFE00000FFE00000FFE00000FFE00001FFFFFFFFFFFFFFFFFFFFFFFFFF}
  OldCreateOrder = False
  Position = poScreenCenter
  ShowHint = True
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 14
  object StatusBar1: TStatusBar
    Left = 0
    Top = 374
    Width = 652
    Height = 19
    Panels = <
      item
        Width = 200
      end
      item
        Width = 200
      end
      item
        Width = 160
      end
      item
        Width = 160
      end
      item
        Width = 150
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 76
    Width = 652
    Height = 290
    Align = alClient
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    Images = CaptureImageList
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    OnChange = PageControl1Change
  end
  object ProgressBar1: TProgressBar
    Left = 0
    Top = 366
    Width = 652
    Height = 8
    Align = alBottom
    Min = 0
    Max = 100
    TabOrder = 2
    Visible = False
  end
  object Op: TActionList
    Images = ImageList1
    Left = 52
    Top = 164
    object FileNew1: TAction
      Category = 'File'
      Caption = '&New'
      Hint = 'New|Create a new file'
      ImageIndex = 6
      ShortCut = 16462
      OnExecute = FileNew1Execute
    end
    object FileOpen1: TAction
      Category = 'File'
      Caption = '&Open'
      Hint = 'Open|Open a file'
      ImageIndex = 7
      ShortCut = 16463
      OnExecute = FileOpen1Execute
    end
    object FileClose1: TWindowClose
      Category = 'File'
      Caption = '&Close'
      Hint = 'Close|Close current file'
      ImageIndex = 24
      OnExecute = FileClose1Execute
    end
    object FileCloseAll1: TAction
      Category = 'File'
      Caption = 'File Close All'
      Hint = 'Close All|Close all open files'
      ImageIndex = 26
      OnExecute = FileCloseAll1Execute
    end
    object FileSave1: TAction
      Category = 'File'
      Caption = '&Save'
      Hint = 'Save|Save current file'
      ImageIndex = 8
      ShortCut = 16467
      OnExecute = FileSave1Execute
    end
    object FileSaveAs1: TAction
      Category = 'File'
      Caption = 'Save &As...'
      Hint = 'Save As|Save current file with different name'
      ImageIndex = 25
      OnExecute = FileSaveAs1Execute
    end
    object FileProperties1: TAction
      Category = 'File'
      Caption = '&Properties...'
      Hint = 'Image properties'
      ImageIndex = 10
      OnExecute = FileProperties1Execute
    end
    object FileExit1: TAction
      Category = 'File'
      Caption = 'E&xit'
      Hint = 'Exit|Exit application'
      ImageIndex = 23
      OnExecute = FileExit1Execute
    end
    object EditCut1: TAction
      Category = 'Edit'
      Caption = 'Cut'
      Hint = 'Cut|Cut selection to clipboard'
      ImageIndex = 0
      OnExecute = EditCut1Execute
    end
    object EditCopy1: TEditCopy
      Category = 'Edit'
      Caption = '&Copy'
      Hint = 'Copy|Copies the selection and puts it on the clipboard'
      ImageIndex = 1
      ShortCut = 16451
      OnExecute = EditCopy1Execute
    end
    object EditPaste1: TEditPaste
      Category = 'Edit'
      Caption = '&Paste clipboard to active image'
      Hint = 'Paste|Inserts clipboard contents'
      ImageIndex = 2
      ShortCut = 16470
      OnExecute = EditPaste1Execute
    end
    object HelpAbout1: TAction
      Category = 'Help'
      Caption = '&About...'
      Hint = 
        'About|Displays program information, version number, and copyrigh' +
        't'
      OnExecute = HelpAbout1Execute
    end
    object CaptureDesktop1: TAction
      Category = 'Capture'
      Caption = 'Desktop'
      Hint = 'Capture desktop|Capture image of the desktop'
      ImageIndex = 19
      OnExecute = CaptureDesktop1Execute
    end
    object CaptureArea1: TAction
      Category = 'Capture'
      Caption = 'CaptureArea'
      Hint = 'Capture selection|Capture image of selected area'
      ImageIndex = 20
      OnExecute = CaptureArea1Execute
    end
    object CaptureActive1: TAction
      Category = 'Capture'
      Caption = 'CaptureActive1'
      Hint = 'Capture active window|Capture image of active window'
      ImageIndex = 21
      OnExecute = CaptureActive1Execute
    end
    object CaptureObject1: TAction
      Category = 'Capture'
      Caption = 'CaptureObject1'
      Hint = 'Capture object|Capture image of selected object'
      ImageIndex = 22
      OnExecute = CaptureObject1Execute
    end
    object OptionsMinimize1: TAction
      Category = 'Options'
      Caption = ' Minimize'
      Checked = True
      Hint = 'Minimize main window|Minimize main window before capture'
      OnExecute = OptionsMinimize1Execute
    end
    object OptionsAutomatic1: TAction
      Category = 'Options'
      Caption = 'Automatic'
      Hint = 'Automatic|Automatically send image to clipboard on capture'
      OnExecute = OptionsAutomatic1Execute
    end
    object HelpContents1: TAction
      Category = 'Help'