| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117 |
- object Form1: TForm1
- Left = 639
- Top = 369
- AutoScroll = False
- Caption = 'Multi Target demo'
- ClientHeight = 305
- ClientWidth = 475
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- OldCreateOrder = False
- Position = poScreenCenter
- OnDestroy = FormDestroy
- OnMouseMove = FormMouseMove
- PixelsPerInch = 96
- TextHeight = 14
- object Label1: TLabel
- Left = 0
- Top = 0
- Width = 475
- Height = 48
- Align = alTop
- Alignment = taCenter
- Caption =
- 'Demo of multiple controls registrered to a single drop target co' +
- 'mponent'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -21
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- WordWrap = True
- end
- object MemoLeft: TMemo
- Left = 40
- Top = 80
- Width = 185
- Height = 105
- TabOrder = 0
- OnMouseMove = FormMouseMove
- end
- object MemoRight: TMemo
- Left = 248
- Top = 80
- Width = 193
- Height = 105
- TabOrder = 1
- OnMouseMove = FormMouseMove
- end
- object CheckBoxLeft: TCheckBox
- Left = 88
- Top = 56
- Width = 97
- Height = 17
- Caption = 'Drop target'
- TabOrder = 2
- OnClick = CheckBoxLeftClick
- end
- object CheckBoxRight: TCheckBox
- Left = 296
- Top = 56
- Width = 97
- Height = 17
- Caption = 'Drop target'
- TabOrder = 3
- OnClick = CheckBoxRightClick
- end
- object MemoSource: TMemo
- Left = 40
- Top = 192
- Width = 401
- Height = 97
- Alignment = taCenter
- Lines.Strings = (
- 'Drag this text to one of the controls above...')
- TabOrder = 4
- WantReturns = False
- WordWrap = False
- OnMouseDown = MemoSourceMouseDown
- end
- object DropTextTarget1: TDropTextTarget
- Dragtypes = [dtCopy]
- GetDataOnEnter = False
- OnEnter = DropTextTarget1Enter
- OnLeave = DropTextTarget1Leave
- OnDrop = DropTextTarget1Drop
- ShowImage = True
- MultiTarget = True
- AllowAsyncTransfer = False
- Left = 224
- Top = 104
- end
- object DropTextSource1: TDropTextSource
- DragTypes = [dtCopy]
- ImageIndex = 0
- ShowImage = False
- ImageHotSpotX = 16
- ImageHotSpotY = 16
- AllowAsyncTransfer = False
- Left = 224
- Top = 232
- end
- object DropDummy1: TDropDummy
- Dragtypes = [dtCopy, dtMove, dtLink]
- GetDataOnEnter = False
- ShowImage = True
- Target = Owner
- AllowAsyncTransfer = False
- Left = 224
- Top = 48
- end
- end
|