home *** CD-ROM | disk | FTP | other *** search
/ PC Format Collection 48 / SENT14D.ISO / tech / delphi / disk15 / dragdrop.pak / DROPFONT.DFM / DROPFONT.txt
Encoding:
Text File  |  1995-08-24  |  1.7 KB  |  87 lines
  1. object Form1: TForm1
  2.   Left = 246
  3.   Top = 99
  4.   ActiveControl = Memo1
  5.   BorderStyle = bsDialog
  6.   Caption = 'Drag & Drop Demo'
  7.   ClientHeight = 221
  8.   ClientWidth = 380
  9.   Font.Color = clWindowText
  10.   Font.Height = -13
  11.   Font.Name = 'System'
  12.   Font.Style = []
  13.   PixelsPerInch = 96
  14.   TextHeight = 16
  15.   object Label1: TLabel
  16.     Left = 224
  17.     Top = 8
  18.     Width = 117
  19.     Height = 24
  20.     Caption = 'MS Sans Serif'
  21.     DragMode = dmAutomatic
  22.     Font.Color = clBlack
  23.     Font.Height = -19
  24.     Font.Name = 'MS Sans Serif'
  25.     Font.Style = []
  26.     ParentFont = False
  27.   end
  28.   object Label2: TLabel
  29.     Left = 224
  30.     Top = 56
  31.     Width = 144
  32.     Height = 21
  33.     Caption = 'Times New Roman'
  34.     DragMode = dmAutomatic
  35.     Font.Color = clBlack
  36.     Font.Height = -19
  37.     Font.Name = 'Times New Roman'
  38.     Font.Style = [fsItalic]
  39.     ParentFont = False
  40.   end
  41.   object Label3: TLabel
  42.     Left = 224
  43.     Top = 136
  44.     Width = 77
  45.     Height = 14
  46.     Caption = 'Courier New'
  47.     DragMode = dmAutomatic
  48.     Font.Color = clBlack
  49.     Font.Height = -11
  50.     Font.Name = 'Courier New'
  51.     Font.Style = []
  52.     ParentFont = False
  53.   end
  54.   object Label4: TLabel
  55.     Left = 224
  56.     Top = 96
  57.     Width = 49
  58.     Height = 16
  59.     Caption = 'System'
  60.     DragMode = dmAutomatic
  61.     Font.Color = clBlack
  62.     Font.Height = -13
  63.     Font.Name = 'System'
  64.     Font.Style = [fsBold]
  65.     ParentFont = False
  66.   end
  67.   object Memo1: TMemo
  68.     Left = 8
  69.     Top = 8
  70.     Width = 201
  71.     Height = 209
  72.     Lines.Strings = (
  73.       'Drag & Drop Demo'
  74.       ''
  75.       'Drag from any label and '
  76.       'drop '
  77.       'on this memo field. '
  78.       ''
  79.       'The memo takes on the '
  80.       'font '
  81.       'of the label...')
  82.     TabOrder = 0
  83.     OnDragDrop = Memo1DragDrop
  84.     OnDragOver = Memo1DragOver
  85.   end
  86. end
  87.