home *** CD-ROM | disk | FTP | other *** search
/ PC Format Collection 48 / SENT14D.ISO / tech / delphi / disk15 / ddedemo.pak / DDESRV.DFM / DDESRV.txt
Encoding:
Text File  |  1995-08-24  |  1.6 KB  |  85 lines
  1. object DdeSrvrForm: TDdeSrvrForm
  2.   Left = 251
  3.   Top = 155
  4.   AutoScroll = False
  5.   ActiveControl = Edit1
  6.   BorderIcons = [biSystemMenu, biMinimize]
  7.   BorderStyle = bsSingle
  8.   Caption = 'DdeSrvrForm'
  9.   ClientHeight = 167
  10.   ClientWidth = 239
  11.   Font.Color = clBlack
  12.   Font.Height = -11
  13.   Font.Name = 'MS Sans Serif'
  14.   Font.Style = [fsBold]
  15.   Menu = MainMenu1
  16.   PixelsPerInch = 96
  17.   TextHeight = 13
  18.   object Label3: TLabel
  19.     Left = 32
  20.     Top = 28
  21.     Width = 157
  22.     Height = 13
  23.     Caption = 'Topic Name: DdeTestTopic'
  24.   end
  25.   object Label4: TLabel
  26.     Left = 33
  27.     Top = 46
  28.     Width = 137
  29.     Height = 13
  30.     Caption = 'Item Name: DdeTesttem'
  31.   end
  32.   object Label1: TLabel
  33.     Left = 34
  34.     Top = 12
  35.     Width = 134
  36.     Height = 13
  37.     Caption = 'Service Name: DdeSrvr'
  38.   end
  39.   object Bevel1: TBevel
  40.     Left = 8
  41.     Top = 8
  42.     Width = 225
  43.     Height = 65
  44.   end
  45.   object Edit1: TMemo
  46.     Left = 8
  47.     Top = 80
  48.     Width = 225
  49.     Height = 81
  50.     Lines.Strings = (
  51.       'Edit1')
  52.     ScrollBars = ssVertical
  53.     TabOrder = 0
  54.     OnChange = doOnChange
  55.   end
  56.   object DdeTestTopic: TDdeServerConv
  57.     OnExecuteMacro = doMacro
  58.     Left = 186
  59.     Top = 3
  60.   end
  61.   object DdeTestItem: TDdeServerItem
  62.     ServerConv = DdeTestTopic
  63.     Text = 'Edit1'
  64.     Lines.Strings = (
  65.       'Edit1')
  66.     OnPokeData = doOnPoke
  67.     Left = 218
  68.     Top = 3
  69.   end
  70.   object MainMenu1: TMainMenu
  71.     Left = 215
  72.     Top = 36
  73.     object File1: TMenuItem
  74.       Caption = 'File'
  75.     end
  76.     object Edit2: TMenuItem
  77.       Caption = 'Edit'
  78.       object Copy1: TMenuItem
  79.         Caption = 'Copy'
  80.         OnClick = CopyClick
  81.       end
  82.     end
  83.   end
  84. end
  85.