object Form3: TForm3
  Left = 0
  Top = 0
  Caption = 'Form3'
  ClientHeight = 472
  ClientWidth = 603
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  DesignSize = (
    603
    472)
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 8
    Top = 130
    Width = 685
    Height = 486
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akBottom]
    TabOrder = 0
    object RichTextTabSheet: TTabSheet
      Caption = 'Rich text'
      ImageIndex = 1
      ExplicitLeft = 0
      ExplicitTop = 0
      ExplicitWidth = 0
      ExplicitHeight = 0
      DesignSize = (
        677
        458)
      object Label3: TLabel
        Left = 8
        Top = 8
        Width = 404
        Height = 13
        Caption = 
          'You can use the rich edit control as source and as target. It in' +
          'itiates OLE drag'#39' drop.'
        Transparent = True
      end
      object RichEdit1: TRichEdit
        Left = 3
        Top = 35
        Width = 665
        Height = 418
        Anchors = [akLeft, akTop, akRight, akBottom]
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = []
        HideSelection = False
        Lines.Strings = (
          'RichEdit1')
        ParentFont = False
        ScrollBars = ssBoth
        TabOrder = 0
        WordWrap = False
        ExplicitHeight = 177
      end
    end
    object LogTabSheet: TTabSheet
      Caption = 'Drag'#39'n drop operation log'
      DesignSize = (
        677
        458)
      object Label7: TLabel
        Left = 6
        Top = 8
        Width = 403
        Height = 41
        AutoSize = False
        Caption = 
          'The log below shows textual representations of the operation car' +
          'ried out. You can also use the control as VCL drag source.'
        Transparent = True
        WordWrap = True
      end
      object LogListBox: TListBox
        Left = 4
        Top = 56
        Width = 661
        Height = 386
        Hint = 'Use the list box to initiate a VCL drag'#39'n drop.'
        Anchors = [akLeft, akTop, akRight, akBottom]
        DragMode = dmAutomatic
        ItemHeight = 13
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
      end
      object Button2: TButton
        Left = 590
        Top = 10
        Width = 75
        Height = 25
        Anchors = [akTop, akRight]
        Caption = 'Clear log'
        TabOrder = 1
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'More info'
      ImageIndex = 3
      object Label4: TLabel
        Left = 12
        Top = 52
        Width = 649
        Height = 37
        AutoSize = False
        Caption = 
          'For drag'#39'n drop however it can (mainly for compatibility) either' +
          ' use OLE or VCL for drag operations. Since both approaches are i' +
          'ncompatible and cannot be used together only one of them can be ' +
          'active at a time.'
        Transparent = True
        WordWrap = True
      end
      object Label5: TLabel
        Left = 12
        Top = 94
        Width = 653
        Height = 29
        AutoSize = False
        Caption = 
          'This, though, applies only to the originator of a drag operation' +
          '. The receiver can handle both situations simultanously.'
        Transparent = True
        WordWrap = True
      end
      object Label9: TLabel
        Left = 12
        Top = 12
        Width = 637
        Height = 33
        AutoSize = False
        Caption = 
          'Virtual Treeview always uses OLE for clipboard operations. Windo' +
          'ws ensures that  an IDataObject is always available, even if an ' +
          'application used the clipboard in the old way.'
        Transparent = True
        WordWrap = True
      end
    end
    object TabSheet1: TTabSheet
      Caption = 'Tips'
      ImageIndex = 2
      ExplicitHeight = 217
      object Label8: TLabel
        Left = 12
        Top = 16
        Width = 653
        Height = 37
        AutoSize = False
        Caption = 
          'Try drag'#39'n drop and clipboard operations also together with othe' +
          'r applications like Word or the Internet Explorer.'
        Transparent = True
        WordWrap = True
      end
      object Label10: TLabel
        Left = 28
        Top = 176
        Width = 653
        Height = 37
        AutoSize = False
        Caption = 
          'Also quite interesting is to start more than one instance of thi' +
          's demo and drag data between these instances. This works however' +
          ' only for OLE drag'#39' drop.'
        Transparent = True
        WordWrap = True
      end
    end
  end
end