mainform.dfm

局域网多线程文件传送delphi源码程序

object MainFrm: TMainFrm
  Left = 513
  Top = 181
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = 
    'Thread Manager - by [e-mail] - Delphi 7 versi' +
    'on'
  ClientHeight = 486
  ClientWidth = 641
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label4: TLabel
    Left = 13
    Top = 9
    Width = 198
    Height = 66
    Caption = #22810#32447#31243#22810#25773#31283#23450#20256#36865#22823#25991#20214
    Font.Charset = GB2312_CHARSET
    Font.Color = 8404992
    Font.Height = -32
    Font.Name = #21326#25991#26032#39759
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
    WordWrap = True
  end
  object Label1: TLabel
    Left = 16
    Top = 152
    Width = 66
    Height = 12
    Caption = #32447#31243#25968#37327' : '
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object DBText1: TDBText
    Left = 100
    Top = 152
    Width = 21
    Height = 13
    DataField = 'NR_THREADS'
    DataSource = ds_threads
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 16
    Top = 176
    Width = 72
    Height = 12
    Caption = #24050#23436#25104#25968#37327': '
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object LblThreadsDone: TLabel
    Left = 100
    Top = 176
    Width = 8
    Height = 13
    Caption = '0'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label3: TLabel
    Left = 480
    Top = 167
    Width = 129
    Height = 27
    Alignment = taCenter
    AutoSize = False
    Caption = #22312#19979#38754#30340'cell'#20013#36873#25321#32447#31243#30340#20248#20808#32423#21035
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
    WordWrap = True
  end
  object Label5: TLabel
    Left = 19
    Top = 85
    Width = 171
    Height = 14
    Caption = #29256#26435#25152#26377' ? 2004'#65293'2006 '
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object BtnAbout: TSpeedButton
    Left = 16
    Top = 432
    Width = 25
    Height = 25
    Hint = #20851#20110
    Glyph.Data = {
      EE030000424DEE03000000000000360000002800000012000000110000000100
      180000000000B803000000000000000000000000000000000000D8E9ECD8E9EC
      D8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9
      ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9EC0000D8E9ECD8E9ECD8E9ECD8E9ECD8E9
      ECD8E9ECD8E9ECD8E9EC303030303030303030D8E9ECD8E9ECD8E9ECD8E9ECD8
      E9ECD8E9ECD8E9EC0000D8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9EC30303030
      303000A0AB00A0AB00A0AB303030D8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9EC
      0000D8E9ECD8E9ECD8E9ECD8E9EC30303030303000A0AB00A0AB00F2FF00F2FF
      00F2FF00A0AB303030D8E9ECD8E9ECD8E9ECD8E9ECD8E9EC0000D8E9ECD8E9EC
      30303030303000A0AB00A0AB00F2FF00F2FF63360063360000A0AB00F2FF00A0
      AB303030D8E9ECD8E9ECD8E9ECD8E9EC0000D8E9EC63360000A0AB00A0AB00F2
      FF00F2FF6336007F5B00D9A77DD9A77D63360000A0AB00F2FF00A0AB303030D8
      E9ECD8E9ECD8E9EC0000D8E9EC63360000F2FF00F2FF6336007F5B00BC7200BC
      7200BC7200BC7200D9A77D63360000A0AB00F2FF00A0AB303030D8E9ECD8E9EC
      0000D8E9EC633600633600633600BC7200BC7200BC720000F2FFBC7200BC7200
      BC7200D9A77D63360000A0AB00F2FF00A0AB303030D8E9EC0000D8E9EC633600
      7F5B00A37600BC7200BC7200BC720068F5FFBC7200BC7200BC7200BC7200D9A7
      7D63360000A0AB303030D8E9ECD8E9EC0000D8E9ECD8E9EC633600FF9F2AD9A7
      7DBC7200BC7200BC7200BC720000F2FF00F2FFBC7200BC7200D9A77D63360030
      3030D8E9ECD8E9EC0000D8E9ECD8E9ECD8E9EC633600FF9F2AD9A77DBC7200BC
      7200BC7200BC720068F5FF00F2FF00F2FFBC7200D9A77D303030D8E9ECD8E9EC
      0000D8E9ECD8E9ECD8E9ECD8E9EC633600FFFF7FD9A77DBC720068F5FFBC7200
      BC720000F2FF00F2FFBC7200BC7200D9A77D303030D8E9EC0000D8E9ECD8E9EC
      D8E9ECD8E9ECD8E9EC633600FFFF7FD9A77DBC720068F5FF00F2FF00F2FFBC72
      00D9A77DFF9F2A7F5B00633600D8E9EC0000D8E9ECD8E9ECD8E9ECD8E9ECD8E9
      ECD8E9EC633600FFFF7FD9A77DBC7200BC7200D9A77DFF9F2A7F5B00633600D8
      E9ECD8E9ECD8E9EC0000D8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9EC63
      3600FFFF7FFFFF7FFFFF7F7F5B00633600D8E9ECD8E9ECD8E9ECD8E9ECD8E9EC
      0000D8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9EC633600633600
      633600D8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9EC0000D8E9ECD8E9EC
      D8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9
      ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9EC0000}
    ParentShowHint = False
    ShowHint = True
    OnClick = BtnAboutClick
  end
  object LblMaxThreads: TLabel
    Left = 242
    Top = 126
    Width = 91
    Height = 29
    AutoSize = False
    Caption = 'Max Threads in synchronized zone'
    WordWrap = True
  end
  object Label8: TLabel
    Left = 56
    Top = 104
    Width = 90
    Height = 14
    Caption = #20316#32773#65306#40644#26195#25996
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label6: TLabel
    Left = 32
    Top = 128
    Width = 158
    Height = 13
    Caption = 'Email: [e-mail]'
  end
  object SpeedButton1: TSpeedButton
    Left = 596
    Top = 136
    Width = 25
    Height = 25
    Cursor = crHandPoint
    Hint = #36873#25321#20256#36865#30340#25991#20214
    Flat = True
    Glyph.Data = {
      36030000424D3603000000000000360000002800000010000000100000000100
      1800000000000003000000000000000000000000000000000000FFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7F0000FFFF
      00FF0000000000FFFFFFFFFFFF00000000000000000000000000000000000000
      00000000000000007F0000FFFF00FF0000FF0000000000FFFFFF00909060CFCF
      60CFCF60CFCF60CFCF60CFCF60CFCF60CFCF0090907F0000FFFF00FF0000FF00
      00009090000000FFFFFF009090CFFFFF90CFFF90FFFF90CFFF90FFFF90CFFF90
      CFFF7F0000FFFF00FF0000FF000090CFFF60CFCF000000FFFFFF009090CFFFFF
      90FFFF90CFFF808080000000000000808080BFBFBFFF0000FF000090CFFF90CF
      FF60CFCF000000FFFFFF009090CFFFFF90CFFF808080BFBFBFFFFF00BFBFBF00
      0000808080007F7F90CFFF90FFFF90CFFF60CFCF000000FFFFFF009090CFFFFF
      808080FFFFFFFFFF00BFBFBFFFFF00BFBFBF00000090CFFF90FFFF90CFFF90FF
      FF60CFCF000000FFFFFF009090CFFFFF808080FFFF00FFFFFFFFFF00BFBFBFFF
      FF0000000090CFFF90CFFF90FFFF90CFFF60CFCF000000FFFFFF009090CFFFFF
      808080FFFFFFFFFF00FFFFFFFFFF00BFBFBF00000090CFFF90FFFF90CFFF90FF
      FF60CFCF000000FFFFFF009090CFFFFF90CFFF808080FFFFFFFFFF00FFFFFF00
      000080808090FFFF90FFFF90FFFF90CFFF60CFCF000000FFFFFF009090CFFFFF
      CFFFFF90CFFF808080808080000000808080CFFFFFCFFFFFCFFFFFCFFFFF90FF
      FF60CFCF000000FFFFFF00909060CFCF60CFCF60CFCF60CFCF60CFCF60CFCF60
      CFCF009090009090009090009090009090009090FFFFFFFFFFFFFFFFFF009090
      EFEFEFCFFFFFCFFFFF90FFFF90FFFF009090000000FFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00909000909000909000909000909000
      0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
    ParentShowHint = False
    ShowHint = True
    Transparent = False
    OnClick = SpeedButton1Click
  end
  object DBGridThreads: TDBGrid
    Left = 16
    Top = 200
    Width = 617
    Height = 225
    DataSource = ds_threads
    FixedColor = 16775660
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ImeName = #32043#20809#25340#38899#36755#20837#27861
    Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
    ParentFont = False
    ReadOnly = True
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clBlack
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnColEnter = DBGridThreadsColEnter
    OnDrawColumnCell = DBGridThreadsDrawColumnCell
    Columns = <
      item
        Expanded = False