frmmain.dfm

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

    Filter = 
      'All (*.jpg;*.jpeg;*.bmp;|*.jpg;*.jpeg;*.bmp;|JPEG Image File (*.' +
      'jpg)|*.jpg|JPEG Image File (*.jpeg)|*.jpeg|Bitmaps (*.bmp)|*.bmp'
    FilterIndex = 0
    Left = 24
    Top = 64
  end
  object SavePictureDialog1: TSavePictureDialog
    DefaultExt = '.jpg'
    Filter = 
      'All (*.jpg;*.jpeg;*.bmp;|*.jpg;*.jpeg;*.bmp;|JPEG Image File (*.' +
      'jpg)|*.jpg|JPEG Image File (*.jpeg)|*.jpeg|Bitmaps (*.bmp)|*.bmp'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
    Left = 56
    Top = 64
  end
  object MainMenu1: TMainMenu
    Images = ImageList1
    Left = 88
    Top = 64
    object File1: TMenuItem
      Caption = '&File'
      Hint = 'File related commands'
      object FileNewItem: TMenuItem
        Action = FileNew1
      end
      object FileOpenItem: TMenuItem
        Action = FileOpen1
      end
      object FileCloseItem: TMenuItem
        Action = FileClose1
      end
      object FileCloseAll2: TMenuItem
        Action = FileCloseAll1
      end
      object FileSaveItem: TMenuItem
        Action = FileSave1
      end
      object FileSaveAsItem: TMenuItem
        Action = FileSaveAs1
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object FilePrint11: TMenuItem
        Action = FilePrint1
        ImageIndex = 14
      end
      object TMenuItem
        Action = FilePrintSetup1
      end
      object N7: TMenuItem
        Caption = '-'
      end
      object FileExitItem: TMenuItem
        Action = FileExit1
      end
    end
    object Edit1: TMenuItem
      Caption = '&Edit'
      Hint = 'Edit commands'
      object CopyItem: TMenuItem
        Action = EditCopy1
      end
      object CopyToSel1: TMenuItem
        Action = EditCopyToSel1
        Caption = 'Copy &Selection'
      end
      object PasteItem: TMenuItem
        Action = EditPaste1
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object Crop1: TMenuItem
        Action = EditCrop1
      end
      object Undo1: TMenuItem
        Action = EditUndo1
      end
    end
    object Colors1: TMenuItem
      Caption = 'Colors'
      object Device1: TMenuItem
        Tag = 1
        Action = EditDevice1
        GroupIndex = 1
        RadioItem = True
      end
      object BlackandWhite1: TMenuItem
        Tag = 2
        Action = EditBlackandWhite1
        GroupIndex = 1
        RadioItem = True
      end
      object N16Color1: TMenuItem
        Tag = 3
        Action = Edit16Color1
        GroupIndex = 1
        RadioItem = True
      end
      object N256Color1: TMenuItem
        Tag = 4
        Action = Edit256Color1
        GroupIndex = 1
        RadioItem = True
      end
      object N15Bit1: TMenuItem
        Tag = 5
        Action = Edit15Bit1
        GroupIndex = 1
        RadioItem = True
      end
      object N16Bit1: TMenuItem
        Tag = 6
        Action = Edit16Bit1
        GroupIndex = 1
        RadioItem = True
      end
      object N24Bit1: TMenuItem
        Tag = 7
        Action = Edit24Bit1
        Caption = '24 Bit True Color'
        GroupIndex = 1
        RadioItem = True
      end
      object N32Bit1: TMenuItem
        Tag = 8
        Action = Edit32Bit1
        Caption = '32 Bit True Color'
        GroupIndex = 1
        RadioItem = True
      end
    end
    object Capture1: TMenuItem
      Caption = '&Capture'
      object Desktop1: TMenuItem
        Action = CaptureDesktop1
      end
      object Area1: TMenuItem
        Action = CaptureArea1
        Caption = '&Area'
      end
      object ActiveWindow1: TMenuItem
        Action = CaptureActive1
        Caption = '&Window'
      end
      object Object1: TMenuItem
        Action = CaptureObject1
        Caption = '&Object'
      end
    end
    object Miminized1: TMenuItem
      Caption = '&Options'
      object Minimize1: TMenuItem
        Action = OptionsMinimize1
      end
      object Automatic1: TMenuItem
        Action = OptionsAutomatic1
      end
      object Delay1: TMenuItem
        Action = OptionsDelay1
      end
    end
    object Help1: TMenuItem
      Caption = '&Help'
      Hint = 'Help topics'
      object HelpAboutItem: TMenuItem
        Action = HelpAbout1
      end
      object HelpContents2: TMenuItem
        Action = HelpContents1
      end
    end
  end
  object ActionList1: TActionList
    Images = ImageList1
    Left = 120
    Top = 64
    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 = '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 ExportForArticle1: TAction
      Category = 'File'
      Caption = 'ExportForArticle1'
      Hint = 'Export for Article'
      ImageIndex = 31
    end
    object FileProperties1: TAction
      Category = 'File'
      Caption = '&Properties'
      Hint = 'Properties|file Properties'
      ImageIndex = 10
    end
    object FilePrint1: TAction
      Category = 'File'
      Caption = '&Print'
      OnExecute = FilePrint1Execute
    end
    object FilePrintSetup1: TAction
      Category = 'File'
      Caption = 'Print &Setup'
      OnExecute = FilePrintSetup1Execute
    end
    object FileExit1: TAction
      Category = 'File'
      Caption = 'E&xit'
      Hint = 'Exit|Exit application'
      ImageIndex = 23
      OnExecute = FileExit1Execute
    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 EditCopyToSel1: TAction
      Category = 'Edit'
      Caption = 'Copy To Selection'
      Hint = 'Copy To Selection|Copy To Selection'
      ImageIndex = 1
    end
    object EditPaste1: TEditPaste
      Category = 'Edit'
      Caption = '&Paste'
      Hint = 'Paste|Inserts Clipboard contents'
      ImageIndex = 2
      ShortCut = 16470
      OnExecute = EditPaste1Execute