home *** CD-ROM | disk | FTP | other *** search
/ Delphi Programming Unleashed / Delphi_Programming_Unleashed_SAMS_Publishing_1995.iso / misc / draglist / main.txt < prev   
Encoding:
Text File  |  1995-03-21  |  1.5 KB  |  71 lines
  1. object Form1: TForm1
  2.   Left = 201
  3.   Top = 99
  4.   ActiveControl = Edit1
  5.   AutoScroll = False
  6.   Caption = 'Drag and Drop Example'
  7.   ClientHeight = 186
  8.   ClientWidth = 427
  9.   Color = clNavy
  10.   Font.Color = clWindowText
  11.   Font.Height = -21
  12.   Font.Name = 'System'
  13.   Font.Style = []
  14.   KeyPreview = True
  15.   PixelsPerInch = 120
  16.   OnKeyDown = FormKeyDown
  17.   TextHeight = 20
  18.   object Label1: TLabel
  19.     Left = 72
  20.     Top = 16
  21.     Width = 316
  22.     Height = 22
  23.     Caption = 'Drag Text From ListBox to Edit Control'
  24.     Color = clNavy
  25.     Font.Color = clAqua
  26.     Font.Height = -20
  27.     Font.Name = 'Times New Roman'
  28.     Font.Style = []
  29.     ParentColor = False
  30.     ParentFont = False
  31.   end
  32.   object Edit1: TEdit
  33.     Left = 240
  34.     Top = 96
  35.     Width = 161
  36.     Height = 31
  37.     Color = clTeal
  38.     DragMode = dmAutomatic
  39.     Font.Color = clBlack
  40.     Font.Height = -20
  41.     Font.Name = 'Times New Roman'
  42.     Font.Style = []
  43.     ParentFont = False
  44.     TabOrder = 0
  45.     Text = 'Edit1'
  46.     OnDragDrop = Edit1DragDrop
  47.     OnDragOver = Edit1DragOver
  48.   end
  49.   object ListBox1: TListBox
  50.     Left = 32
  51.     Top = 56
  52.     Width = 161
  53.     Height = 113
  54.     Color = clTeal
  55.     DragMode = dmAutomatic
  56.     Font.Color = clBlack
  57.     Font.Height = -20
  58.     Font.Name = 'Times New Roman'
  59.     Font.Style = []
  60.     ItemHeight = 22
  61.     Items.Strings = (
  62.       'One'
  63.       'Two'
  64.       'Three'
  65.       'Four'
  66.       'Five')
  67.     ParentFont = False
  68.     TabOrder = 1
  69.   end
  70. end
  71.