BSOne.SFC/EM.Lib/ImageEn_SRC/Demos/Other/MouseWheel/uMain.dfm

object frmMain: TfrmMain
  Left = 0
  Top = 0
  Caption = 'Mouse Wheel Demo - www.ImageEn.com'
  ClientHeight = 739
  ClientWidth = 849
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 153
    Top = 217
    Height = 503
  end
  object ImageEnMView1: TImageEnMView
    Left = 0
    Top = 217
    Width = 153
    Height = 503
    Background = clBtnFace
    ParentCtl3D = False
    StoreType = ietNormal
    ThumbWidth = 100
    ThumbHeight = 100
    HorizBorder = 4
    VertBorder = 4
    TextMargin = 0
    OnImageSelect = ImageEnMView1ImageSelect
    GridWidth = -1
    Style = iemsACD
    ThumbnailsBackground = clBtnFace
    ThumbnailsBackgroundSelected = clBtnFace
    MultiSelectionOptions = []
    ThumbnailsBorderWidth = 0
    Align = alLeft
    TabOrder = 0
  end
  object ImageEnView1: TImageEnView
    Left = 156
    Top = 217
    Width = 693
    Height = 503
    Cursor = 1784
    Background = clBtnFace
    ParentCtl3D = False
    OnViewChange = ImageEnView1ViewChange
    EnableInteractionHints = True
    Align = alClient
    TabOrder = 1
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 720
    Width = 849
    Height = 19
    Panels = <
      item
        Width = 150
      end
      item
        Width = 150
      end
      item
        Width = 150
      end
      item
        Width = 150
      end
      item
        Width = 50
      end>
  end
  object pnlTop: TPanel
    Left = 0
    Top = 0
    Width = 849
    Height = 217
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 2
    DesignSize = (
      849
      217)
    object lblFolder: TLabel
      Left = 11
      Top = 13
      Width = 34
      Height = 13
      Caption = 'Folder:'
    end
    object lblIEMMouseWheel: TLabel
      Left = 11
      Top = 158
      Width = 142
      Height = 27
      AutoSize = False
      Caption = 'Mouse Wheel Action for ImageEnMView:'
      WordWrap = True
    end
    object lblIEVMouseWheel: TLabel
      Left = 698
      Top = 158
      Width = 142
      Height = 27
      Alignment = taRightJustify
      Anchors = [akTop, akRight]
      AutoSize = False
      Caption = 'Mouse Wheel Action for ImageEnView:'
      WordWrap = True
    end
    object lblNote: TLabel
      Left = 268
      Top = 196
      Width = 281
      Height = 13
      Caption = 'Note: Select the control before actuating the mouse wheel'
    end
    object edtFolder: TEdit
      Left = 51
      Top = 9
      Width = 548
      Height = 21
      Anchors = [akLeft, akTop, akRight]
      TabOrder = 1
      Text = 'D:\Testing_Multimedia\Images'
    end
    object btnGoFolder: TButton
      Left = 605
      Top = 7
      Width = 90
      Height = 25
      Anchors = [akTop, akRight]
      Caption = 'Show Content'
      TabOrder = 0
      OnClick = btnGoFolderClick
    end
    object cmbIEMMouseWheel: TComboBox
      Left = 8
      Top = 188
      Width = 145
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 3
      OnChange = cmbMouseWheelChange
      Items.Strings = (
        'None'
        'Scroll'
        'Zoom'
        'Navigate')
    end
    object cmbIEVMouseWheel: TComboBox
      Left = 695
      Top = 188
      Width = 145
      Height = 21
      Style = csDropDownList
      Anchors = [akTop, akRight]
      ItemHeight = 13
      TabOrder = 4
      OnChange = cmbIEVMouseWheelChange
      Items.Strings = (
        'None'
        'Scroll'
        'Zoom'
        'Navigate')
    end
    object grpProps: TGroupBox
      Left = 11
      Top = 38
      Width = 414
      Height = 107
      Caption = 'Mouse Wheel Params'
      TabOrder = 2
      object lblMouseWheelValue: TLabel
        Left = 16
        Top = 27
        Width = 143
        Height = 13
        Caption = 'Change with each wheel click:'
      end
      object lblMouseWheelZoomPos: TLabel
        Left = 16
        Top = 56
        Width = 43
        Height = 13
        Caption = 'Zoom at:'
      end
      object chkInvertDirection: TCheckBox
        Left = 16
        Top = 80
        Width = 97
        Height = 17
        Caption = 'Invert Direction'
        TabOrder = 4
        OnClick = chkInvertDirectionClick
      end
      object edtMouseWheelValue: TEdit
        Left = 168
        Top = 23
        Width = 41
        Height = 21
        TabOrder = 0
        Text = '8'
        OnChange = edtMouseWheelValueChange
      end
      object updMouseWheelValue: TUpDown
        Left = 209
        Top = 23
        Width = 16
        Height = 21
        Associate = edtMouseWheelValue
        Min = 1
        Position = 8
        TabOrder = 1
      end
      object cmbMouseWheelVariation: TComboBox
        Left = 237
        Top = 23
        Width = 156
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        TabOrder = 2
        OnChange = cmbMouseWheelVariationChange
        Items.Strings = (
          'Pixels/units (iemwAbsolute)'
          '% (iemwPercentage)')
      end
      object cmbMouseWheelZoomPos: TComboBox
        Left = 65
        Top = 52
        Width = 208
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        TabOrder = 3
        OnChange = cmbMouseWheelZoomPosChange
        Items.Strings = (
          'Center of ImageEnView (iemwCenter)'
          'Cursor Position (iemwMouse)')
      end
    end
  end
end