| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141 |
- object FormMain: TFormMain
- Left = 269
- Top = 106
- AutoScroll = False
- Caption = 'TDataFormatAdapter demo'
- ClientHeight = 306
- ClientWidth = 518
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- Position = poDefaultPosOnly
- PixelsPerInch = 96
- TextHeight = 13
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 518
- Height = 57
- Align = alTop
- BevelOuter = bvNone
- BorderWidth = 2
- Caption = ' '
- TabOrder = 0
- object Label1: TLabel
- Left = 2
- Top = 2
- Width = 514
- Height = 53
- Align = alClient
- AutoSize = False
- Caption =
- 'This application demonstrates how to use the TDataFormatAdapter ' +
- 'component to extend existing drop target (or source) components ' +
- 'with support for additional data formats.'
- WordWrap = True
- end
- end
- object GroupBox1: TGroupBox
- Left = 0
- Top = 57
- Width = 518
- Height = 72
- Align = alTop
- Caption = ' Text '
- TabOrder = 1
- object MemoText: TMemo
- Left = 2
- Top = 15
- Width = 514
- Height = 55
- Align = alClient
- BorderStyle = bsNone
- ParentColor = True
- TabOrder = 0
- end
- end
- object GroupBox2: TGroupBox
- Left = 0
- Top = 201
- Width = 518
- Height = 72
- Align = alTop
- Caption = ' URLs '
- TabOrder = 2
- object MemoURL: TMemo
- Left = 2
- Top = 15
- Width = 514
- Height = 55
- Align = alClient
- BorderStyle = bsNone
- ParentColor = True
- TabOrder = 0
- end
- end
- object GroupBox3: TGroupBox
- Left = 0
- Top = 129
- Width = 518
- Height = 72
- Align = alTop
- Caption = ' Files '
- TabOrder = 3
- object MemoFile: TMemo
- Left = 2
- Top = 15
- Width = 514
- Height = 55
- Align = alClient
- BorderStyle = bsNone
- ParentColor = True
- TabOrder = 0
- end
- end
- object Panel2: TPanel
- Left = 0
- Top = 273
- Width = 518
- Height = 33
- Align = alClient
- BevelOuter = bvNone
- BorderWidth = 4
- Caption = 'Drop text, files or URLs anywhere within this window.'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 4
- end
- object DropTextTarget1: TDropTextTarget
- Dragtypes = [dtCopy, dtLink]
- GetDataOnEnter = False
- OnDrop = DropTextTarget1Drop
- ShowImage = True
- Target = Owner
- AllowAsyncTransfer = False
- Left = 24
- Top = 32
- end
- object DataFormatAdapterFile: TDataFormatAdapter
- DragDropComponent = DropTextTarget1
- DataFormatName = 'TFileDataFormat'
- Enabled = True
- Left = 76
- Top = 32
- end
- object DataFormatAdapterURL: TDataFormatAdapter
- DragDropComponent = DropTextTarget1
- DataFormatName = 'TURLDataFormat'
- Enabled = True
- Left = 116
- Top = 32
- end
- end
|