frmmain.dfm

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

        Top = 104
        Width = 43
        Height = 13
        Caption = 'Rotation:'
      end
      object Panel4: TPanel
        Left = 1
        Top = 1
        Width = 128
        Height = 16
        Align = alTop
        BevelOuter = bvNone
        Caption = 'Magnifier (All) Properties'
        Color = clActiveCaption
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindow
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
      end
      object MagnOpacity: TGaugeBar
        Left = 16
        Top = 40
        Width = 105
        Height = 12
        HandleSize = 16
        Max = 255
        ShowArrows = False
        ShowHandleGrip = True
        Position = 255
        OnChange = MagnOpacityChange
      end
      object MagnMagnification: TGaugeBar
        Left = 16
        Top = 80
        Width = 105
        Height = 12
        HandleSize = 16
        Max = 50
        ShowArrows = False
        ShowHandleGrip = True
        Position = 10
        OnChange = MagnMagnificationChange
      end
      object MagnRotation: TGaugeBar
        Left = 16
        Top = 120
        Width = 105
        Height = 12
        HandleSize = 16
        Max = 180
        Min = -180
        ShowArrows = False
        ShowHandleGrip = True
        Position = 0
        OnChange = MagnRotationChange
      end
      object MagnInterpolate: TCheckBox
        Left = 16
        Top = 144
        Width = 97
        Height = 17
        Caption = 'Interpolated'
        TabOrder = 4
      end
    end
    object pnlBitmapLayer: TPanel
      Left = 1
      Top = 106
      Width = 130
      Height = 168
      Align = alTop
      TabOrder = 1
      Visible = False
      object Label2: TLabel
        Left = 8
        Top = 24
        Width = 39
        Height = 13
        Caption = 'Opacity:'
      end
      object Panel3: TPanel
        Left = 1
        Top = 1
        Width = 128
        Height = 16
        Align = alTop
        BevelOuter = bvNone
        Caption = 'Bitmap Layer Properties'
        Color = clActiveCaption
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindow
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
      end
      object LayerOpacity: TGaugeBar
        Left = 16
        Top = 40
        Width = 105
        Height = 12
        HandleSize = 16
        Max = 255
        ShowArrows = False
        ShowHandleGrip = True
        Position = 255
        OnChange = LayerOpacityChange
      end
      object LayerInterpolate: TCheckBox
        Left = 16
        Top = 64
        Width = 97
        Height = 17
        Caption = 'Interpolated'
        TabOrder = 2
        OnClick = LayerInterpolateClick
      end
      object LayerRescale: TButton
        Left = 16
        Top = 112
        Width = 105
        Height = 17
        Caption = 'Rescale'
        TabOrder = 3
        OnClick = LayerRescaleClick
      end
      object LayerResetScale: TButton
        Left = 16
        Top = 136
        Width = 105
        Height = 17
        Caption = 'Scale to 100%'
        TabOrder = 4
        OnClick = LayerResetScaleClick
      end
      object Cropped: TCheckBox
        Left = 16
        Top = 88
        Width = 97
        Height = 17
        Caption = 'Cropped'
        TabOrder = 5
        OnClick = CroppedClick
      end
    end
    object pnlImage: TPanel
      Left = 1
      Top = 1
      Width = 130
      Height = 105
      Align = alTop
      TabOrder = 2
      object Label1: TLabel
        Left = 8
        Top = 24
        Width = 30
        Height = 13
        Caption = 'Scale:'
      end
      object ScaleCombo: TComboBox
        Left = 16
        Top = 40
        Width = 105
        Height = 21
        DropDownCount = 9
        ItemHeight = 13
        TabOrder = 0
        Text = '100%'
        OnChange = ScaleComboChange
        Items.Strings = (
          '    25%'
          '    50%'
          '    75%'
          '  100%'
          '  200%'
          '  300%'
          '  400%'
          '  800%'
          '1600%')
      end
      object Panel2: TPanel
        Left = 1
        Top = 1
        Width = 128
        Height = 16
        Align = alTop
        BevelOuter = bvNone
        Caption = 'Image Properties'
        Color = clActiveCaption
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindow
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
      end
      object ImageInterpolate: TCheckBox
        Left = 16
        Top = 72
        Width = 97
        Height = 17
        Caption = 'Interpolated'
        TabOrder = 2
        OnClick = ImageInterpolateClick
      end
    end
  end
  object OpenPictureDialog1: TOpenPictureDialog
    Left = 24
    Top = 64
  end
  object SavePictureDialog1: TSavePictureDialog
    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 FileExitItem: TMenuItem
        Action = FileExit1
      end
    end
    object Edit1: TMenuItem
      Caption = '&Edit'
      Hint = 'Edit commands'
      object CopyItem: TMenuItem
        Action = EditCopy1
      end
      object PasteItem: TMenuItem
        Action = EditPaste1
      end
      object Crop1: TMenuItem
        Action = EditCrop1
      end
      object Undo1: TMenuItem
        Action = EditUndo1
      end
    end
    object Selection1: TMenuItem
      Caption = 'Selection'
      object SelectionMagnifier11: TMenuItem
        Action = SelectionMagnifier1
      end
      object SelectionRubberband11: TMenuItem
        Action = SelectionRubberband1
      end
      object SelectionDelete11: TMenuItem
        Action = SelectionDelete1
      end
    end
    object Capture1: TMenuItem
      Caption = '&Capture'
      object Desktop1: TMenuItem
        Action = CaptureDesktop1
      end
      object Area1: TMenuItem
        Action = CaptureArea1
        Caption = '&Area'
      end