object MainForm: TMainForm
  Left = 192
  Top = 107
  Width = 561
  Height = 447
  Caption = 'ScreenJPG'
  Color = clBtnFace
  Constraints.MinHeight = 200
  Constraints.MinWidth = 300
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poDefaultPosOnly
  ShowHint = True
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 553
    Height = 26
    AutoSize = True
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 22
        Width = 549
      end>
    OnResize = CoolBar1Resize
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 536
      Height = 22
      AutoSize = True
      Caption = 'ToolBar1'
      EdgeBorders = []
      Flat = True
      Images = ImageList1
      TabOrder = 0
      object ToolButton1: TToolButton
        Left = 0
        Top = 0
        Action = OpenFile1
      end
      object ToolButton3: TToolButton
        Left = 23
        Top = 0
        Action = SaveFile1
      end
      object ToolButton4: TToolButton
        Left = 46
        Top = 0
        Width = 8
        Caption = 'ToolButton4'
        ImageIndex = 1
        Style = tbsSeparator
      end
      object ToolButton5: TToolButton
        Left = 54
        Top = 0
        Action = Paste1
      end
      object ToolButton6: TToolButton
        Left = 77
        Top = 0
        Width = 8
        Caption = 'ToolButton6'
        ImageIndex = 2
        Style = tbsSeparator
      end
      object RatioComboBox: TComboBox
        Left = 85
        Top = 0
        Width = 58
        Height = 21
        Hint = 'Quality'
        TabStop = False
        Style = csDropDownList
        Color = clBtnFace
        Ctl3D = True
        DropDownCount = 10
        Enabled = False
        ItemHeight = 13
        ParentCtl3D = False
        TabOrder = 0
        OnChange = RatioComboBoxChange
      end
      object ColorComboBox: TComboBox
        Left = 143
        Top = 0
        Width = 58
        Height = 21
        Hint = 'Color'
        TabStop = False
        Style = csDropDownList
        Color = clBtnFace
        Ctl3D = True
        Enabled = False
        ItemHeight = 13
        Items.Strings = (
          'B/W'
          'Color')
        ParentCtl3D = False
        TabOrder = 1
        OnChange = RatioComboBoxChange
      end
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 382
    Width = 553
    Height = 19
    Panels = <
      item
        Width = 120
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object ScrollBox: TScrollBox
    Left = 0
    Top = 26
    Width = 553
    Height = 356
    HorzScrollBar.Tracking = True
    VertScrollBar.Tracking = True
    Align = alClient
    TabOrder = 2
    object Image1: TImage
      Left = 0
      Top = 0
      Width = 549
      Height = 352
      Align = alClient
      AutoSize = True
    end
  end
  object MainMenu1: TMainMenu
    Images = ImageList1
    Left = 8
    Top = 344
    object File1: TMenuItem
      Caption = 'File'
      object Open1: TMenuItem
        Action = OpenFile1
      end
      object SaveAs1: TMenuItem
        Action = SaveFile1
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Exit2: TMenuItem
        Action = Exit1
      end
    end
    object Edit1: TMenuItem
      Caption = 'Edit'
      object Paste11: TMenuItem
        Action = Paste1
      end
    end
    object Help1: TMenuItem
      Caption = 'Help'
      object About2: TMenuItem
        Action = About1
      end
    end
  end
  object ImageList1: TImageList
    Left = 40
    Top = 344
    Bitmap = {
[encoded data, 47215 characters]
      000000000000}
  end
  object ActionList1: TActionList
    Images = ImageList1
    Left = 72
    Top = 344
    object OpenFile1: TAction
      Caption = 'Open ...'
      Hint = 'Open a file'
      ImageIndex = 0
      ShortCut = 16463
      OnExecute = OpenFile1Execute
    end
    object Exit1: TAction
      Caption = 'Exit'
      ImageIndex = 3
      OnExecute = Exit1Execute
    end
    object SaveFile1: TAction
      Caption = 'Save As ...'
      ImageIndex = 1
      ShortCut = 16467
      OnExecute = SaveFile1Execute
      OnUpdate = SaveFile1Update
    end
    object Paste1: TAction
      Caption = 'Paste picture'
      Hint = 'Paste picture'
      ImageIndex = 2
      ShortCut = 16470
      OnExecute = Paste1Execute
      OnUpdate = Paste1Update
    end
    object About1: TAction
      Caption = 'About...'
      OnExecute = About1Execute
    end
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'jpeg'
    Filter = 'JPEG images|*.jpg;*.jpeg'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofEnableSizing]
    Left = 138
    Top = 348
  end
  object OpenDialog1: TOpenPictureDialog
    Filter = 'Bitmaps (*.bmp)|*.bmp||*.emf'
    Left = 106
    Top = 348
  end
end
