btdemof.dfm

由delphi实现的bt下载器示例程序

object BTMain: TBTMain
  Left = 192
  Top = 114
  Width = 548
  Height = 304
  Caption = 'BT Demo'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  DesignSize = (
    540
    270)
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 256
    Width = 60
    Height = 13
    Anchors = [akLeft, akBottom]
    Caption = 'Total links: '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clMaroon
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsItalic]
    ParentFont = False
  end
  object StringGrid1: TStringGrid
    Left = 0
    Top = 112
    Width = 540
    Height = 137
    Anchors = [akLeft, akTop, akRight, akBottom]
    ColCount = 7
    Ctl3D = False
    FixedCols = 0
    RowCount = 2
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goRowSelect]
    ParentCtl3D = False
    TabOrder = 0
    OnDrawCell = StringGrid1DrawCell
    OnKeyDown = StringGrid1KeyDown
    OnTopLeftChanged = StringGrid1TopLeftChanged
    ColWidths = (
      107
      90
      63
      49
      54
      67
      96)
  end
  object Button1: TButton
    Left = 0
    Top = 0
    Width = 425
    Height = 57
    Anchors = [akLeft, akTop, akRight]
    Caption = 'Click to select a .torrent file'
    TabOrder = 1
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 0
    Top = 56
    Width = 425
    Height = 57
    Anchors = [akLeft, akTop, akRight]
    Caption = 'Save to: DEFAULT'
    TabOrder = 2
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 424
    Top = 0
    Width = 116
    Height = 113
    Anchors = [akTop, akRight]
    Caption = 'Add'
    TabOrder = 3
    OnClick = Button3Click
  end
  object OpenDialog1: TOpenDialog
    Filter = 'Torrent files|*.torrent|All files|*.*'
    Options = [ofPathMustExist, ofFileMustExist, ofEnableSizing]
    Left = 504
  end
end