zoomimagemainu.dfm

Zooming an image in a tpaintbox on a tscrollbox like magnifier in delphi , source code sample.

object ZoomImageMainform: TZoomImageMainform
  Left = 0
  Top = 0
  Caption = 'Zoom Image'
  ClientHeight = 559
  ClientWidth = 624
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -17
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Scaled = False
  OnDestroy = FormDestroy
  PixelsPerInch = 120
  TextHeight = 21
  object StatusBar: TStatusBar
    Left = 0
    Top = 540
    Width = 624
    Height = 19
    Panels = <>
    SimplePanel = True
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 439
    Height = 540
    Align = alClient
    Caption = 'Panel2'
    Padding.Left = 8
    Padding.Top = 8
    Padding.Right = 8
    Padding.Bottom = 8
    TabOrder = 1
    object ScrollBox: TScrollBox
      Left = 9
      Top = 9
      Width = 421
      Height = 522
      Align = alClient
      TabOrder = 0
      ExplicitLeft = 80
      ExplicitTop = 64
      ExplicitWidth = 193
      ExplicitHeight = 297
      object PaintBox: TPaintBox
        Left = 0
        Top = 0
        Width = 105
        Height = 105
        OnMouseUp = PaintBoxMouseUp
        OnPaint = PaintBoxPaint
      end
    end
  end
  object ButtonPanel: TPanel
    Left = 439
    Top = 0
    Width = 185
    Height = 540
    Align = alRight
    Padding.Left = 8
    Padding.Top = 8
    Padding.Right = 8
    Padding.Bottom = 8
    TabOrder = 2
    object Label1: TLabel
      Left = 9
      Top = 447
      Width = 163
      Height = 84
      Align = alBottom
      Caption = 
        'Left click zooms in, right click zooms out, middle button restor' +
        'es original size'
      WordWrap = True
    end
    object LoadImageButton: TButton
      AlignWithMargins = True
      Left = 9
      Top = 9
      Width = 167
      Height = 25
      Margins.Left = 0
      Margins.Top = 0
      Margins.Right = 0
      Margins.Bottom = 8
      Align = alTop
      Caption = '&Load image'
      TabOrder = 0
      OnClick = LoadImageButtonClick
      ExplicitLeft = 24
      ExplicitTop = 40
      ExplicitWidth = 75
    end
    object CloseButton: TButton
      AlignWithMargins = True
      Left = 9
      Top = 75
      Width = 167
      Height = 25
      Margins.Left = 0
      Margins.Top = 0
      Margins.Right = 0
      Margins.Bottom = 8
      Align = alTop
      Caption = 'Close'
      TabOrder = 1
      OnClick = CloseButtonClick
      ExplicitLeft = 32
      ExplicitTop = 88
      ExplicitWidth = 75
    end
    object ResetButton: TButton
      AlignWithMargins = True
      Left = 9
      Top = 42
      Width = 167
      Height = 25
      Margins.Left = 0
      Margins.Top = 0
      Margins.Right = 0
      Margins.Bottom = 8
      Align = alTop
      Caption = '&Reset'
      TabOrder = 2
      OnClick = ResetButtonClick
      ExplicitLeft = 32
      ExplicitTop = 88
      ExplicitWidth = 75
    end
    object ZoomInfoPanel: TPanel
      Left = 9
      Top = 108
      Width = 167
      Height = 24
      Align = alTop
      BevelOuter = bvNone
      TabOrder = 3
      object Label2: TLabel
        Left = 0
        Top = 0
        Width = 101
        Height = 21
        Align = alLeft
        Caption = 'Zoom factor: '
      end
      object ZoomFactorLabel: TLabel
        Left = 101
        Top = 0
        Width = 27
        Height = 21
        Align = alLeft
        Caption = '100'
      end
    end
  end
  object Messagetimer: TTimer
    Enabled = False
    OnTimer = MessagetimerTimer
    Left = 16
    Top = 16
  end
  object OpenPictureDialog: TOpenPictureDialog
    DefaultExt = 'JPG'
    Filter = 'JPEG Image File (*.jpg)|*.jpg|JPEG Image File (*.jpeg)|*.jpeg'
    Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofEnableSizing]
    Left = 16
    Top = 48
  end
end