unit_main.dfm

dos example for create a profesional templeta

object Form1: TForm1
  Left = 217
  Top = 130
  Width = 737
  Height = 526
  Caption = 'Screen Transfer Demo Cli'
  Color = clWindow
  Ctl3D = False
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object ScrollBox1: TScrollBox
    Left = 0
    Top = 26
    Width = 729
    Height = 468
    Align = alClient
    TabOrder = 0
    object Image1: TImage
      Left = 0
      Top = -1
      Width = 105
      Height = 105
    end
    object Image2: TImage
      Left = 136
      Top = 88
      Width = 12
      Height = 20
      AutoSize = True
      Picture.Data = {
        07544269746D617006030000424D060300000000000036000000280000000C00
        0000140000000100180000000000D0020000120B0000120B0000000000000000
        0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF4F4F4FCFCFC
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF6F5F5FFFEFEFFFE
        FEB1A8A3FEFEFEFFFFFFFFFFFFF7F7F7FFFFFFFFFFFFFFFFFFFFFFFFFFFEFED4
        8848CB6A24FFFEFEF8F8F8FFFFFFFFFFFFFFFFFEDBD9D8FFFFFFFFFFFFF9F8F8
        FFFFFFCF7626D48348FFFFFFF8F8F8FFFFFFFFFFFFFFFFFEFFFFFEE5E4E2FFFF
        FFFFFFFFDC944AD17A26FFFFFFAFA8A2FFFFFFFFFFFFFEFEFEFFFFFEE3AF4CFF
        FFFEE5E2DDFFFFFFD68427DB924AFFFEFEF5F5F5FFFFFFFFFFFFFDFDFDFFFFFE
        DFA633E3AE4CFFFFFFE1A14BD88B27FFFFFFCBC4BDFFFFFFF3F3F3F6F6F6FDFD
        FDFFFFFEE0AD44DEA62EE3AE4BDD9927E1A14BFFFFFEFFFFFEFFFEFEFFFEFEFF
        FEFEFDFDFDFFFFFFE2B555E0AB3FDEA02BDE9D28DC9627DA8D27D78827DB944A
        FFFEFEB8B7B5FDFDFDFFFFFFE3BD62E1B251E0AA39DEA228DE9928DC9127DF9C
        4BFFFFFEB4B2AFFBFBFBFCFCFCFFFFFFE5C372E2BA5EE0AF49DFA635DE9E28E3
        AA4CFFFFFEB4B2AFFAFAFAFFFFFFFBFBFBFFFFFFE5CB7DE4C36BE2B958E0AD44
        E3B251FFFFFEB4B2AFFAFAFAFFFFFFFFFFFFFBFBFBFFFFFFE6D189E5CA78E4C0
        66E7C171FFFFFEB4B3AFFAFAFAFFFFFFFFFFFFFFFFFFFBFBFBFFFFFFE9D699E6
        D086E9D08BFFFFFEB4B3B1FAFAFAFFFFFFFFFFFFFFFFFFFFFFFFFBFBFBFFFFFF
        E9D7A3EBDBA3FFFFFFB4B4B1F9F9F9FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFAFA
        FAFFFFFFEDDFBBFFFFFFB5B4B2F9F9F9FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFBFBFBFFFFFFFFFFFFB5B4B3F9F9F9FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFDFDFDFFFFFFAEADACFAFAFAFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFAEADADFDFDFDFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
      Transparent = True
      Visible = False
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 729
    Height = 26
    Align = alTop
    TabOrder = 1
    object Label1: TLabel
      Left = 8
      Top = 4
      Width = 26
      Height = 13
      Caption = 'Host:'
    end
    object Label2: TLabel
      Left = 159
      Top = 4
      Width = 24
      Height = 13
      Caption = 'Port:'
    end
    object Button1: TButton
      Left = 247
      Top = 2
      Width = 74
      Height = 21
      Caption = 'Connect'
      TabOrder = 0
      OnClick = Button1Click
    end
    object Edit2: TEdit
      Left = 189
      Top = 2
      Width = 36
      Height = 19
      TabOrder = 1
      Text = '7892'
    end
    object Button2: TButton
      Left = 351
      Top = 2
      Width = 75
      Height = 21
      Caption = 'BeginTrans'
      TabOrder = 2
      OnClick = Button2Click
    end
    object ComboBox1: TComboBox
      Left = 35
      Top = 2
      Width = 118
      Height = 21
      ItemHeight = 13
      TabOrder = 3
      Text = '127.0.0.1'
      Items.Strings = (
        '127.0.0.1'
        '222.24.121.245'
        '222.24.121.23'
        '222.24.121.67'
        '222.24.121.235'
        '222.24.121.')
    end
    object ComboBox2: TComboBox
      Left = 456
      Top = 2
      Width = 81
      Height = 21
      ItemHeight = 13
      ItemIndex = 1
      TabOrder = 4
      Text = '8'#20301#33394
      OnChange = ComboBox2Change
      Items.Strings = (
        '4'#20301#33394
        '8'#20301#33394
        '16'#20301#33394
        '24'#20301#33394)
    end
  end
  object IdTCPClient1: TIdTCPClient
    MaxLineAction = maException
    ReadTimeout = 5000
    OnDisconnected = IdTCPClient1Disconnected
    OnConnected = IdTCPClient1Connected
    Port = 0
    Left = 488
    Top = 64
  end
  object IdAntiFreeze1: TIdAntiFreeze
    Left = 432
    Top = 64
  end
  object XPManifest1: TXPManifest
    Left = 624
    Top = 103
  end
end