PC Format Collection 48/SENT14D.ISO/tech/delphi/disk15/ddedemo.pak/DDCLI.DFM/DDCLI.txt

Text File | 1995-08-24 | 2.9 KB | 152 lines

object FormD: TFormD
  Left = 124
  Top = 108
  AutoScroll = False
  ActiveControl = AppName
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'DdeClientForm'
  ClientHeight = 201
  ClientWidth = 488
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = [fsBold]
  Menu = MainMenu1
  PixelsPerInch = 96
  Position = poScreenCenter
  TextHeight = 13
  object DdeDatLabel: TLabel
    Left = 8
    Top = 112
    Width = 62
    Height = 13
    Caption = '&DDE Data:'
    FocusControl = DdeDat
  end
  object GroupBox1: TGroupBox
    Left = 4
    Top = 4
    Width = 285
    Height = 101
    Caption = 'Link Info'
    TabOrder = 0
    object Label2: TLabel
      Left = 12
      Top = 24
      Width = 27
      Height = 13
      Caption = '&App:'
      FocusControl = AppName
    end
    object Label3: TLabel
      Left = 12
      Top = 48
      Width = 37
      Height = 13
      Caption = '&Topic:'
      FocusControl = TopicName
    end
    object Label4: TLabel
      Left = 12
      Top = 72
      Width = 29
      Height = 13
      Caption = '&Item:'
      FocusControl = ItemName
    end
    object AppName: TEdit
      Left = 60
      Top = 20
      Width = 217
      Height = 20
      TabOrder = 0
      Text = 'DdeSrvr'
    end
    object TopicName: TEdit
      Left = 60
      Top = 44
      Width = 217
      Height = 20
      TabOrder = 1
      Text = 'DdeTestTopic'
    end
    object ItemName: TEdit
      Left = 60
      Top = 68
      Width = 217
      Height = 20
      TabOrder = 2
      Text = 'DdeTestItem'
    end
  end
  object GroupBox2: TGroupBox
    Left = 296
    Top = 4
    Width = 185
    Height = 193
    Caption = 'Extras'
    TabOrder = 2
    object Button3: TButton
      Left = 8
      Top = 20
      Width = 77
      Height = 27
      Caption = 'Poke Data'
      TabOrder = 0
      OnClick = doPoke
    end
    object Button4: TButton
      Left = 96
      Top = 20
      Width = 77
      Height = 27
      Caption = 'Exec Macro'
      TabOrder = 1
      OnClick = doMacro
    end
    object XEdit: TMemo
      Left = 8
      Top = 52
      Width = 169
      Height = 129
      ScrollBars = ssVertical
      TabOrder = 2
    end
  end
  object DdeDat: TMemo
    Left = 8
    Top = 128
    Width = 281
    Height = 65
    ScrollBars = ssVertical
    TabOrder = 1
  end
  object MainMenu1: TMainMenu
    Left = 456
    object File1: TMenuItem
      Caption = 'File'
      object NewLink1: TMenuItem
        Caption = 'New Link'
        OnClick = doNewLink
      end
    end
    object Edit1: TMenuItem
      Caption = 'Edit'
      OnClick = Edit1Click
      object PasteLink1: TMenuItem
        Caption = 'Paste Link'
        OnClick = doPasteLink
      end
    end
  end
  object DdeClient: TDdeClientConv
    Left = 392
  end
  object DdeClientItem: TDdeClientItem
    OnChange = DdeClientItemChange
    Left = 424
    Top = 65532
  end
end