| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121 |
- object Form1: TForm1
- Left = 193
- Top = 169
- AutoScroll = False
- Caption = 'TDropPidlSource & TDropPidlTarget demo'
- ClientHeight = 261
- ClientWidth = 437
- Color = clBtnFace
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- OldCreateOrder = True
- Position = poScreenCenter
- Scaled = False
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- PixelsPerInch = 96
- TextHeight = 15
- object ListView1: TListView
- Left = 0
- Top = 60
- Width = 437
- Height = 182
- Align = alClient
- Columns = <
- item
- Caption = 'Name'
- Width = 400
- end>
- MultiSelect = True
- TabOrder = 0
- ViewStyle = vsReport
- OnDblClick = ListView1DblClick
- OnKeyPress = ListView1KeyPress
- OnMouseDown = ListView1MouseDown
- end
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 437
- Height = 60
- Align = alTop
- BevelOuter = bvNone
- TabOrder = 1
- object Label1: TLabel
- Left = 43
- Top = 10
- Width = 149
- Height = 14
- Caption = '©1997-99 Johnson && Melander'
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- end
- object sbUpLevel: TSpeedButton
- Left = 4
- Top = 4
- Width = 25
- Height = 25
- Enabled = False
- Glyph.Data = {
- 5A010000424D5A01000000000000760000002800000014000000130000000100
- 040000000000E400000000000000000000001000000010000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
- 7777777700007777777777777777777700007777777777777777777700007700
- 00000000000007770000770FBFBFBFBFBFBF07770000770BFBFBFBFBFBFB0777
- 0000770FBFB000000FBF07770000770BFBF0FBFBFBFB07770000770FBFB0BFBF
- BFBF07770000770BF00000FBFBFB07770000770FBF000FBFBFBF07770000770B
- FBF0FBFBFBFB07770000770FBFBFBFBFBFBF0777000077000000000000007777
- 00007770BFBFB077777777770000777700000777777777770000777777777777
- 777777770000777777777777777777770000777777777777777777770000}
- OnClick = sbUpLevelClick
- end
- object Button1: TButton
- Left = 373
- Top = 5
- Width = 62
- Height = 25
- Cancel = True
- Caption = 'E&xit'
- TabOrder = 0
- OnClick = Button1Click
- end
- end
- object StatusBar1: TStatusBar
- Left = 0
- Top = 242
- Width = 437
- Height = 19
- Panels = <>
- SimplePanel = True
- SimpleText = ' Copy files and/or folders by dragging them to and from Explorer'
- end
- object DropPIDLSource1: TDropPIDLSource
- DragTypes = [dtCopy, dtMove, dtLink]
- ImageIndex = 0
- ShowImage = False
- ImageHotSpotX = 40
- ImageHotSpotY = 8
- AllowAsyncTransfer = False
- Left = 403
- Top = 98
- end
- object DropPIDLTarget1: TDropPIDLTarget
- Dragtypes = [dtCopy, dtMove]
- GetDataOnEnter = False
- OnDragOver = DropPIDLTarget1DragOver
- OnDrop = DropPIDLTarget1Drop
- ShowImage = True
- AllowAsyncTransfer = False
- Left = 403
- Top = 129
- end
- end
|