BabelForm.dfm
上传用户:fh681027
上传日期:2022-07-23
资源大小:1959k
文件大小:1k
源码类别:

Delphi控件源码

开发平台:

Delphi

  1. object Form1: TForm1
  2.   Left = 204
  3.   Top = 215
  4.   Width = 664
  5.   Height = 175
  6.   Caption = 'BabelFish'
  7.   Color = clBtnFace
  8.   Font.Charset = DEFAULT_CHARSET
  9.   Font.Color = clWindowText
  10.   Font.Height = -11
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = []
  13.   OldCreateOrder = False
  14.   PixelsPerInch = 96
  15.   TextHeight = 13
  16.   object Button1: TButton
  17.     Left = 40
  18.     Top = 32
  19.     Width = 75
  20.     Height = 25
  21.     Caption = 'Translate'
  22.     TabOrder = 0
  23.     OnClick = Button1Click
  24.   end
  25.   object EditSource: TEdit
  26.     Left = 160
  27.     Top = 32
  28.     Width = 465
  29.     Height = 21
  30.     TabOrder = 1
  31.     Text = 'This is a sample message for an automatic translation'
  32.   end
  33.   object EditTarget: TEdit
  34.     Left = 160
  35.     Top = 72
  36.     Width = 465
  37.     Height = 21
  38.     TabOrder = 2
  39.   end
  40.   object ComboBoxType: TComboBox
  41.     Left = 40
  42.     Top = 72
  43.     Width = 81
  44.     Height = 21
  45.     ItemHeight = 13
  46.     TabOrder = 3
  47.     Text = 'en_it'
  48.     Items.Strings = (
  49.       'en_it'
  50.       'en_fr'
  51.       'en_de'
  52.       'en_pt'
  53.       'en_es')
  54.   end
  55.   object HTTPRIO1: THTTPRIO
  56.     WSDLLocation = 'C:md6code23BabelFishBabelFishService.xml'
  57.     Service = 'BabelFish'
  58.     Port = 'BabelFishPort'
  59.     HTTPWebNode.Agent = 'Borland SOAP 1.1'
  60.     HTTPWebNode.UseUTF8InHeader = False
  61.     Converter.Options = [soSendMultiRefObj, soTryAllSchema]
  62.     Left = 32
  63.     Top = 24
  64.   end
  65. end