frmmain.dfm

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

  object ActionList1: TActionList
    Images = ImageList1
    Left = 128
    Top = 120
    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 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'
      Caption = 'Help Contents'
      Hint = 'Help Contents|Display Component Help Contents'
      OnExecute = HelpContents1Execute
    end
    object OptionsDelay1: TAction
      Category = 'Options'
      Caption = 'Delay...'
      Hint = 'Set screen capture delay'
      OnExecute = OptionsDelay1Execute
    end
    object EditPasteSelection1: TAction
      Category = 'Edit'
      Caption = 'Paste to &selection'
      Hint = 'Paste clipboard to seleected area'
      ImageIndex = 37
      OnExecute = EditPasteSelection1Execute
    end
    object EditPasteNew1: TAction
      Category = 'Edit'
      Caption = 'Paste clipboard into new image'
      ImageIndex = 39
      ShortCut = 16470
      OnExecute = EditPasteNew1Execute
    end
    object EditCrop1: TAction
      Category = 'Edit'
      Caption = 'Crop'
      Hint = 'Crop|Crop the image to the selected area'
      ImageIndex = 27
      OnExecute = EditCrop1Execute
    end
    object EditUndo1: TAction
      Category = 'Edit'
      Caption = 'Undo'
      Hint = 'Undo|Undo last change'
      ImageIndex = 3
      OnExecute = EditUndo1Execute
    end
    object SelectZoom1: TAction
      Category = 'Select'
      Caption = 'SelectZoom1'
      Hint = 'Zoom to selection'
      OnExecute = SelectZoom1Execute
    end
    object SelectRect1: TAction
      Category = 'Select'
      Caption = 'SelectRect1'
      Checked = True
      Hint = 'Select Rectanngle'
      OnExecute = SelectRect1Execute
    end
    object SelectMove1: TAction
      Category = 'Select'
      Caption = 'SelectMove1'
      Hint = 'Move Selection'
      OnExecute = SelectMove1Execute
    end
    object SelectCircle1: TAction
      Category = 'Select'
      Caption = 'SelectCircle1'
      Hint = 'Select circle'
      OnExecute = SelectCircle1Execute
    end
    object SelectPolygon1: TAction
      Category = 'Select'
      Caption = 'SelectPolygon1'
      Hint = 'Select polygon'
      OnExecute = SelectPolygon1Execute
    end
    object SelectNone1: TAction
      Category = 'Select'
      Caption = 'SelectNone1'
      Hint = 'Select none'
      OnExecute = SelectNone1Execute
    end
    object ImageGrayScale1: TAction
      Category = 'Colors'
      Caption = '&GrayScale'
      Hint = 'Convert to grayscale'
      OnExecute = ImageGrayScale1Execute
    end
    object ImageBW1: TAction
      Category = 'Colors'
      Caption = '&Black && White'
      Hint = 'convert to black & white'
      OnExecute = ImageBW1Execute
    end
    object Image16Color1: TAction
      Category = 'Colors'
      Caption = '16 Color'
      Hint = 'Convert to 16 color'
      OnExecute = Image16Color1Execute
    end
    object Image256Color1: TAction
      Category = 'Colors'
      Caption = '256 Color'
      Hint = 'Convert to 256 color'
      OnExecute = Image256Color1Execute
    end
    object ImageTrueColor1: TAction
      Category = 'Colors'
      Caption = '&True Color'
      Hint = 'Convert to True Color'
      OnExecute = ImageTrueColor1Execute
    end
    object ImageEffects1: TAction
      Category = 'Image'
      Caption = '&Effects...'
      Hint = 'Image Effects'
      ImageIndex = 29
      OnExecute = ImageEffects1Execute
    end
    object ImageBrightness1: TAction
      Category = 'Colors'
      Caption = '&Brightness'
      Hint = 'Set image brightness'
      OnExecute = ImageBrightness1Execute
    end
    object ImageRotate1: TAction
      Category = 'Image'
      Caption = '&Rotate...'
      Hint = 'Rotate Image'
      ImageIndex = 30
      OnExecute = ImageRotate1Execute
    end
    object ImageCalcColors1: TAction
      Category = 'Image'
      Caption = 'Calculate &Number of Image Colors'
      Hint = 'Calculate Number of Image Colors'
      OnExecute = ImageCalcColors1Execute
    end
    object ImageResize1: TAction
      Category = 'Image'
      Caption = 'Resize &Canvas...'
      Hint = 'Resize Canvas'
      ImageIndex = 33
      OnExecute = ImageResize1Execute
    end
    object ImageResample1: TAction
      Category = 'Image'
      Caption = 'Resize &Image'
      Hint = 'Resize Image'
      ImageIndex = 34
      OnExecute = ImageResample1Execute
    end
    object ViewFullScreen1: TAction
      Category = 'View'
      Caption = '&Full Screen'
      Hint = 'View Full Screen'
      ImageIndex = 38
      OnExecute = ViewFullScreen1Execute
    end
    object ImageVertFlip1: TAction
      Category = 'Image'
      Caption = '&Vertical'
      Hint = 'Flip image vertically'
      ImageIndex = 31
      OnExecute = ImageVertFlip1Execute
    end
    object ImageHorzFlip1: TAction
      Category = 'Image'
      Caption = '&Horzontal'
      Hint = 'Flip image horzontally'
      ImageIndex = 32