RealICQClient/Includes/DRAGDROP/Demo/AutoScroll/main.dfm

object FormAutoScroll: TFormAutoScroll
  Left = 251
  Top = 176
  AutoScroll = False
  Caption = 'Custom auto scroll demo'
  ClientHeight = 409
  ClientWidth = 428
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = []
  OldCreateOrder = False
  Position = poDefaultPosOnly
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 14
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 428
    Height = 264
    Align = alClient
    BevelOuter = bvNone
    BorderWidth = 4
    Caption = ' '
    TabOrder = 0
    object StringGrid1: TStringGrid
      Left = 4
      Top = 45
      Width = 420
      Height = 215
      Align = alClient
      ColCount = 50
      RowCount = 26
      Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goThumbTracking]
      TabOrder = 0
      RowHeights = (
        24
        24
        24
        24
        24
        24
        24
        24
        24
        24
        24
        24
        24
        24
        24
        24
        24
        24
        24
        24
        24
        24
        24
        24
        24
        24)
    end
    object PanelSource: TPanel
      Left = 4
      Top = 4
      Width = 420
      Height = 41
      Align = alTop
      BevelOuter = bvNone
      Caption = 'Drag from here and into the grid below'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      OnMouseDown = PanelSourceMouseDown
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 264
    Width = 428
    Height = 145
    Align = alBottom
    BevelOuter = bvNone
    BorderWidth = 4
    Caption = ' '
    TabOrder = 1
    object RichEdit1: TRichEdit
      Left = 4
      Top = 4
      Width = 420
      Height = 137
      Align = alClient
      BorderStyle = bsNone
      Enabled = False
      Lines.Strings = (
        'This application demonstrates custom auto scroll margins.'
        ''
        
          'Standard auto scroll uses fixed size scroll margins (or "scroll ' +
          'zone") where the size of '
        
          'the margins are calculated based on the target control scroll ba' +
          'r width.'
        ''
        
          'This works well for most uses, but in some situations it is desi' +
          'reable to be able to '
        
          'define different scroll margins for each of the target control'#39's' +
          ' edges. An example is the '
        
          'above grid where we would like the scroll zone to be calculated ' +
          'relative to the data '
        'area of the grid.'
        ' ')
      ParentColor = True
      ReadOnly = True
      TabOrder = 0
      WantReturns = False
    end
  end
  object DropTextTarget1: TDropTextTarget
    Dragtypes = [dtCopy]
    GetDataOnEnter = False
    OnEnter = DropTextTarget1Enter
    OnDragOver = DropTextTarget1DragOver
    OnDrop = DropTextTarget1Drop
    ShowImage = True
    Target = StringGrid1
    AllowAsyncTransfer = False
    Left = 24
    Top = 56
  end
  object DropTextSource1: TDropTextSource
    DragTypes = [dtCopy]
    ImageIndex = 0
    ShowImage = False
    ImageHotSpotX = 16
    ImageHotSpotY = 16
    AllowAsyncTransfer = False
    Left = 24
    Top = 8
  end
end