object MainForm: TMainForm
  Left = 192
  Height = 575
  Top = 261
  Width = 790
  HorzScrollBar.Page = 789
  VertScrollBar.Page = 574
  ActiveControl = Button1
  Caption = 'Demo for drag''n drop and clipboard transfers'
  ClientHeight = 575
  ClientWidth = 790
  Font.CharSet = ANSI_CHARSET
  Font.Height = -12
  Font.Name = 'Arial'
  OnCreate = FormCreate
  Visible = True
  object Label1: TLabel
    Left = 10
    Height = 15
    Top = 96
    Width = 239
    Caption = 'Tree 1 uses OLE when initiating a drag operation.'
    Font.CharSet = ANSI_CHARSET
    Font.Height = -11
    Font.Name = 'Arial'
    ParentColor = False
  end
  object Label2: TLabel
    Left = 360
    Height = 33
    Top = 80
    Width = 337
    AutoSize = False
    Caption = 'Tree 2 uses VCL when initiating a drag operation. It also uses manual drag mode. Only marked lines are allowed to start a drag operation.'
    Font.CharSet = ANSI_CHARSET
    Font.Height = -11
    Font.Name = 'Arial'
    ParentColor = False
    WordWrap = True
  end
  object Panel3: TPanel
    Height = 69
    Width = 790
    Align = alTop
    ClientHeight = 69
    ClientWidth = 790
    Color = clWhite
    ParentColor = False
    TabOrder = 0
    object Label6: TLabel
      Left = 36
      Height = 42
      Top = 15
      Width = 273
      AutoSize = False
      Caption = 'This demo shows how to cope with OLE drag''n drop as well as cut, copy and paste.'
      Font.CharSet = ANSI_CHARSET
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentColor = False
      WordWrap = True
    end
  end
  object Button1: TButton
    Left = 705
    Height = 25
    Top = 527
    Width = 75
    Anchors = [akRight, akBottom]
    BorderSpacing.InnerBorder = 4
    Caption = 'Close'
    OnClick = Button1Click
    TabOrder = 1
  end
  object Button3: TButton
    Left = 709
    Height = 25
    Top = 80
    Width = 75
    Anchors = [akTop, akRight]
    BorderSpacing.InnerBorder = 4
    Caption = 'Tree font...'
    OnClick = Button3Click
    ParentShowHint = False
    TabOrder = 2
  end
  object Tree2: TVirtualStringTree
    Left = 364
    Height = 180
    Top = 116
    Width = 330
    ClipboardFormats.Strings = (
      'Plain text'
      'Unicode text'
      'Virtual Tree Data'
    )
    Colors.BorderColor = clWindowText
    Colors.HotColor = clBlack
    DefaultNodeHeight = 24
    DragOperations = [doCopy, doMove, doLink]
    DragType = dtVCL
    DragWidth = 350
    EditDelay = 500
    Font.CharSet = ANSI_CHARSET
    Font.Height = -11
    Font.Name = 'Lucida Sans Unicode'
    Header.Font.Height = -11
    Header.Font.Name = 'MS Sans Serif'
    Header.MainColumn = -1
    Header.Options = [hoColumnResize, hoDrag]
    HintMode = hmTooltip
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
    TreeOptions.AnimationOptions = [toAnimatedToggle]
    TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScroll, toAutoScrollOnExpand, toAutoTristateTracking, toAutoHideButtons]
    TreeOptions.MiscOptions = [toAcceptOLEDrop, toInitOnSave, toToggleOnDblClick, toWheelPanning]
    TreeOptions.SelectionOptions = [toMultiSelect, toCenterScrollIntoView]
    OnBeforeItemErase = Tree2BeforeItemErase
    OnDragAllowed = Tree2DragAllowed
    OnDragOver = TreeDragOver
    OnDragDrop = TreeDragDrop
    OnGetText = Tree1GetText
    OnInitNode = TreeInitNode
    OnNewText = Tree1NewText
    Columns = <>
  end
  object Tree1: TVirtualStringTree
    Left = 8
    Height = 180
    Top = 116
    Width = 330
    ClipboardFormats.Strings = (
      'CSV'
      'HTML Format'
      'Plain text'
      'Rich Text Format'
      'Rich Text Format Without Objects'
      'Unicode text'
    )
    Colors.BorderColor = clWindowText
    Colors.HotColor = clBlack
    DefaultNodeHeight = 24
    DragMode = dmAutomatic
    DragWidth = 350
    EditDelay = 500
    Font.CharSet = ANSI_CHARSET
    Font.Height = -11
    Font.Name = 'Verdana'
    Header.Font.Height = -11
    Header.Font.Name = 'MS Sans Serif'
    Header.MainColumn = -1
    Header.Options = [hoColumnResize, hoDrag]
    HintMode = hmTooltip
    Images = TreeImages
    ParentShowHint = False
    ShowHint = True
    TabOrder = 4
    TreeOptions.AnimationOptions = [toAnimatedToggle]
    TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScroll, toAutoScrollOnExpand, toAutoTristateTracking, toAutoHideButtons, toAutoDeleteMovedNodes]
    TreeOptions.MiscOptions = [toAcceptOLEDrop, toInitOnSave, toToggleOnDblClick, toWheelPanning]
    TreeOptions.SelectionOptions = [toMultiSelect]
    OnDragOver = TreeDragOver
    OnDragDrop = TreeDragDrop
    OnGetText = Tree1GetText
    OnInitNode = TreeInitNode
    OnNewText = Tree1NewText
    Columns = <>
  end
  object PageControl1: TPageControl
    Left = 12
    Height = 245
    Top = 308
    Width = 685
    ActivePage = TabSheet1
    Anchors = [akTop, akLeft, akBottom]
    TabIndex = 3
    TabOrder = 5
    object RichTextTabSheet: TTabSheet
      Caption = 'Rich text'
      ClientHeight = 219
      ClientWidth = 677
      ImageIndex = 1
      object Label3: TLabel
        Left = 8
        Height = 15
        Top = 8
        Width = 453
        Caption = 'You can use the rich edit control as source and as target. It initiates OLE drag'' drop.'
        ParentColor = False
      end
    end
    object LogTabSheet: TTabSheet
      Caption = 'Drag''n drop operation log'
      ClientHeight = 219
      ClientWidth = 677
      object Label7: TLabel
        Left = 6
        Height = 41
        Top = 8
        Width = 403
        AutoSize = False
        Caption = 'The log below shows textual representations of the operation carried out. You can also use the control as VCL drag source.'
        ParentColor = False
        WordWrap = True
      end
      object LogListBox: TListBox
        Left = 4
        Height = 145
        Hint = 'Use the list box to initiate a VCL drag''n drop.'
        Top = 56
        Width = 661
        Anchors = [akTop, akLeft, akRight, akBottom]
        DragMode = dmAutomatic
        ItemHeight = 15
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
      end
      object Button2: TButton
        Left = 590
        Height = 25
        Top = 10
        Width = 75
        Anchors = [akTop, akRight]
        BorderSpacing.InnerBorder = 4
        Caption = 'Clear log'
        OnClick = Button2Click
        TabOrder = 1
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'More info'
      ClientHeight = 219
      ClientWidth = 677
      ImageIndex = 3
      object Label4: TLabel
        Left = 12
        Height = 37
        Top = 52
        Width = 649
        AutoSize = False
        Caption = 'For drag''n drop however it can (mainly for compatibility) either use OLE or VCL for drag operations. Since both approaches are incompatible and cannot be used together only one of them can be active at a time.'
        ParentColor = False
        WordWrap = True
      end
      object Label5: TLabel
        Left = 12
        Height = 29
        Top = 94
        Width = 653
        AutoSize = False
        Caption = 'This, though, applies only to the originator of a drag operation. The receiver can handle both situations simultanously.'
        ParentColor = False
        WordWrap = True
      end
      object Label9: TLabel
        Left = 12
        Height = 33
        Top = 12
        Width = 637
        AutoSize = False
        Caption = 'Virtual Treeview always uses OLE for clipboard operations. Windows ensures that  an IDataObject is always available, even if an application used the clipboard in the old way.'
        ParentColor = False
        WordWrap = True
      end
    end
    object TabSheet1: TTabSheet
      Caption = 'Tips'
      ClientHeight = 219
      ClientWidth = 677
      ImageIndex = 2
      object Label8: TLabel
        Left = 12
        Height = 37
        Top = 16
        Width = 653
        AutoSize = False
        Caption = 'Try drag''n drop and clipboard operations also together with other applications like Word or the Internet Explorer.'
        ParentColor = False
        WordWrap = True
      end
      object Label10: TLabel
        Left = 12
        Height = 37
        Top = 48
        Width = 653
        AutoSize = False
        Caption = 'Also quite interesting is to start more than one instance of this demo and drag data between these instances. This works however only for OLE drag'' drop.'
        ParentColor = False
        WordWrap = True
      end
    end
  end
  object ActionList1: TActionList
    left = 724
    top = 156
    object CutAction: TAction
      Caption = 'Cut'
      DisableIfNoHandler = True
      OnExecute = CutActionExecute
      ShortCut = 16472
    end
    object CopyAction: TAction
      Caption = 'Copy'
      DisableIfNoHandler = True
      OnExecute = CopyActionExecute
      ShortCut = 16451
    end
    object PasteAction: TAction
      Caption = 'Paste'
      DisableIfNoHandler = True
      OnExecute = PasteActionExecute
      ShortCut = 16470
    end
  end
  object FontDialog: TFontDialog
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    left = 756
    top = 168
  end
  object TreeImages: TImageList
    left = 706
    top = 212
    Bitmap = {
[encoded data, 40896 characters]
      0000000000000000000000000000
    }
  end
end
