unitclient.dfm

来自「一个文件传输的程序」· DFM 代码 · 共 331 行 · 第 1/2 页

object Form1: TForm1
  Left = 279
  Top = 252
  Width = 530
  Height = 386
  Caption = 'client'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Image1: TImage
    Left = 88
    Top = 184
    Width = 105
    Height = 105
  end
  object Memo1: TMemo
    Left = 0
    Top = 25
    Width = 522
    Height = 296
    Align = alClient
    Color = clSkyBlue
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    Lines.Strings = (
      'Memo1')
    TabOrder = 0
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 522
    Height = 25
    Align = alTop
    TabOrder = 1
    object SpeedButton1: TSpeedButton
      Left = 0
      Top = 0
      Width = 65
      Height = 22
      Caption = #20027#26426'IP'
    end
    object btnSendFile: TBitBtn
      Left = 432
      Top = 0
      Width = 89
      Height = 25
      Caption = #21457#36865#25991#20214
      TabOrder = 0
      OnClick = btnSendFileClick
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F0000000120B0000120B00001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777777700007777777777778F7B7B7700007777778787878FB7B7B700007777
        777777778FFFFFF700007777778777778B7B7B87000077777777777778B7B877
        0000777777877777778887770000777777777777777777770000777000000000
        777777770000778888888880777777770000778FB7B7B780777777770000778F
        7B7B7B80777777770000778FB7B7B780711111770000778FFFFFFF8077111177
        0000778B7B7B88877771111700007778B7B87777777717170000777788877777
        7777777700007777777777777777777700007777777777777777777700007777
        77777777777777770000}
    end
    object btnConnect: TBitBtn
      Left = 336
      Top = 0
      Width = 89
      Height = 25
      Caption = #36830#25509#20027#26426
      TabOrder = 1
      OnClick = btnConnectClick
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F0000000120B0000120B00001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        77777777FFFF77777777777777777777FFFE777777777777777777777FFF7777
        7777777777777777FFFF77700000000000000007FFFF77787777777777777707
        FFFF7778FFFFFFFFFFFFF707FFFE7778FFFFC0C0C0CFF7077FFF7778FFFFFFFF
        FFFFF707FFFF7778FFFF0C0C0C0FF707FFFF7778FFFFFFFFFFFFF707FFFF7778
        FFFFFFFFFF911707FFFE7778FC0C0FFFFF9117077FFF7778FFFFFFFFFFFFF707
        FFFF77788888888888888887FFFF77777777777777777777FFFF777777777777
        77777777FFFE777777777777777777777FFF77777777777777777777FFFF7777
        7777777777777777FFFF}
    end
    object edtIPAddress: TEdit
      Left = 72
      Top = 0
      Width = 121
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      TabOrder = 2
      Text = '127.0.0.1'
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 321
    Width = 522
    Height = 19
    HelpType = htKeyword
    Panels = <
      item
        Text = #27426#36814#20351#29992
        Width = 100
      end
      item
        Text = #26412#31243#24207#27491#22312#36827#19968#27493#23436#21892#20043#20013
        Width = 50
      end>
    SimplePanel = False
  end
  object OpenDialog1: TOpenDialog
    Left = 216
    Top = 80
  end
  object cs: TClientSocket
    Active = False
    ClientType = ctNonBlocking
    Port = 0
    OnRead = csRead
    Left = 328
    Top = 80
  end
  object MainMenu1: TMainMenu
    Images = ImageList1
    Left = 120
    Top = 80
    object N1: TMenuItem
      Bitmap.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        04000000000080000000CE0E0000C40E00001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        77777777777777777777000000000007777700333333333077770B0333333333
        07770FB03333333330770BFB0333333333070FBFB000000000000BFBFBFBFB07
        77770FBFBFBFBF0777770BFB0000000777777000777777770007777777777777
        7007777777770777070777777777700077777777777777777777}
      Caption = #25805#20316
      ImageIndex = 0
      object N2: TMenuItem
        Caption = #36830#25509#20027#26426
        OnClick = N2Click
      end
      object N3: TMenuItem
        Caption = #21457#36865#25991#20214
        OnClick = N3Click
      end
    end
    object N4: TMenuItem
      AutoHotkeys = maAutomatic
      Bitmap.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        04000000000080000000CE0E0000D80E00001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00222222222222
        2222222222200022222222222005580222222220055FF780222220055FF00778
        0222855FF0055077802285F00555550778028005553B55507780855555535555