home *** CD-ROM | disk | FTP | other *** search
/ Delphi Programming Unleashed / Delphi_Programming_Unleashed_SAMS_Publishing_1995.iso / chap32 / ddepdox1 / main.txt < prev   
Text File  |  1995-03-20  |  3KB  |  144 lines
  1. object Form1: TForm1
  2.   Left = 212
  3.   Top = 93
  4.   Width = 243
  5.   Height = 302
  6.   ActiveControl = Edit1
  7.   Caption = 'DDEPDOX1'
  8.   Font.Color = clWindowText
  9.   Font.Height = -13
  10.   Font.Name = 'System'
  11.   Font.Style = []
  12.   PixelsPerInch = 96
  13.   OnCreate = FormCreate
  14.   TextHeight = 16
  15.   object Edit1: TEdit
  16.     Left = 8
  17.     Top = 48
  18.     Width = 185
  19.     Height = 24
  20.     TabOrder = 0
  21.     Text = 'Edit1'
  22.   end
  23.   object Edit2: TEdit
  24.     Left = 8
  25.     Top = 80
  26.     Width = 185
  27.     Height = 24
  28.     TabOrder = 1
  29.     Text = 'Edit2'
  30.   end
  31.   object Edit3: TEdit
  32.     Left = 8
  33.     Top = 112
  34.     Width = 185
  35.     Height = 24
  36.     TabOrder = 2
  37.     Text = 'Edit3'
  38.   end
  39.   object Edit4: TEdit
  40.     Left = 8
  41.     Top = 144
  42.     Width = 185
  43.     Height = 24
  44.     TabOrder = 3
  45.     Text = 'Edit4'
  46.   end
  47.   object Edit5: TEdit
  48.     Left = 8
  49.     Top = 176
  50.     Width = 185
  51.     Height = 24
  52.     TabOrder = 4
  53.     Text = 'Edit5'
  54.   end
  55.   object Edit6: TEdit
  56.     Left = 8
  57.     Top = 208
  58.     Width = 185
  59.     Height = 24
  60.     TabOrder = 5
  61.     Text = 'Edit6'
  62.   end
  63.   object Edit7: TEdit
  64.     Left = 8
  65.     Top = 240
  66.     Width = 185
  67.     Height = 24
  68.     TabOrder = 6
  69.     Text = 'Edit7'
  70.   end
  71.   object DdeClientConv1: TDdeClientConv
  72.     DdeService = 'pdoxdel'
  73.     DdeTopic = 'dbdemoscustomer'
  74.     Left = 8
  75.     Top = 8
  76.     LinkInfo = (
  77.       'Service pdoxdel'
  78.       'Topic dbdemoscustomer')
  79.   end
  80.   object DdeClientItem1: TDdeClientItem
  81.     Text = '1351  '
  82.     Lines.Strings = (
  83.       '1351  ')
  84.     DdeConv = DdeClientConv1
  85.     OnChange = DdeClientItem1Change
  86.     Left = 200
  87.     Top = 48
  88.   end
  89.   object DdeClientItem2: TDdeClientItem
  90.     Text = 'Sight Diver  '
  91.     Lines.Strings = (
  92.       'Sight Diver  ')
  93.     DdeConv = DdeClientConv1
  94.     OnChange = DdeClientItem1Change
  95.     Left = 202
  96.     Top = 80
  97.   end
  98.   object DdeClientItem3: TDdeClientItem
  99.     Text = '1 Neptune Lane  '
  100.     Lines.Strings = (
  101.       '1 Neptune Lane  ')
  102.     DdeConv = DdeClientConv1
  103.     OnChange = DdeClientItem1Change
  104.     Left = 200
  105.     Top = 112
  106.   end
  107.   object DdeClientItem4: TDdeClientItem
  108.     Text = '  '
  109.     Lines.Strings = (
  110.       '  ')
  111.     DdeConv = DdeClientConv1
  112.     OnChange = DdeClientItem1Change
  113.     Left = 200
  114.     Top = 144
  115.   end
  116.   object DdeClientItem5: TDdeClientItem
  117.     Text = 'Kato Paphos  '
  118.     Lines.Strings = (
  119.       'Kato Paphos  ')
  120.     DdeConv = DdeClientConv1
  121.     OnChange = DdeClientItem1Change
  122.     Left = 200
  123.     Top = 176
  124.   end
  125.   object DdeClientItem6: TDdeClientItem
  126.     Text = '  '
  127.     Lines.Strings = (
  128.       '  ')
  129.     DdeConv = DdeClientConv1
  130.     OnChange = DdeClientItem1Change
  131.     Left = 200
  132.     Top = 208
  133.   end
  134.   object DdeClientItem7: TDdeClientItem
  135.     Text = '  '
  136.     Lines.Strings = (
  137.       '  ')
  138.     DdeConv = DdeClientConv1
  139.     OnChange = DdeClientItem1Change
  140.     Left = 200
  141.     Top = 240
  142.   end
  143. end
  144.