QBasic & Borland Pascal & C/Delphi5.iso/Runimage/Delphi50/Demos/FastNet/Nntp/NNTPDEM.DFM/NNTPDEM.txt

Text File | 1999-08-11 | 10.8 KB | 490 lines

object Form1: TForm1
  Left = 207
  Top = 93
  Width = 549
  Height = 424
  Caption = 'NNTP Demo'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  PixelsPerInch = 120
  TextHeight = 16
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 541
    Height = 374
    ActivePage = TabSheet2
    Align = alClient
    TabOrder = 0
    object TabSheet3: TTabSheet
      Caption = 'Connection/Account'
      object Label1: TLabel
        Left = 48
        Top = 26
        Width = 34
        Height = 16
        Caption = 'Host: '
      end
      object Label2: TLabel
        Left = 52
        Top = 55
        Width = 30
        Height = 16
        Caption = 'Port: '
      end
      object Label3: TLabel
        Left = 290
        Top = 26
        Width = 48
        Height = 16
        Caption = 'UserID: '
      end
      object Label4: TLabel
        Left = 274
        Top = 55
        Width = 66
        Height = 16
        Caption = 'Password: '
      end
      object Label5: TLabel
        Left = 0
        Top = 232
        Width = 506
        Height = 17
        Align = alBottom
        Alignment = taCenter
        AutoSize = False
        Caption = 'Newsgroup List (Double Click to Select)'
      end
      object Label6: TLabel
        Left = 41
        Top = 94
        Width = 102
        Height = 16
        Caption = 'Cache Directory: '
      end
      object Label7: TLabel
        Left = 14
        Top = 130
        Width = 127
        Height = 16
        Caption = 'Attachment File Path: '
      end
      object Edit1: TEdit
        Left = 85
        Top = 21
        Width = 149
        Height = 24
        TabOrder = 0
        Text = 'forums.borland.com'
      end
      object Edit2: TEdit
        Left = 85
        Top = 50
        Width = 44
        Height = 24
        TabOrder = 1
        Text = '119'
      end
      object Edit3: TEdit
        Left = 341
        Top = 21
        Width = 149
        Height = 24
        TabOrder = 2
      end
      object Edit4: TEdit
        Left = 341
        Top = 50
        Width = 149
        Height = 24
        TabOrder = 3
      end
      object Button1: TButton
        Left = 133
        Top = 185
        Width = 92
        Height = 30
        Caption = 'Connect'
        TabOrder = 4
        OnClick = Button1Click
      end
      object Button2: TButton
        Left = 224
        Top = 185
        Width = 92
        Height = 30
        Caption = 'Disconnect'
        TabOrder = 5
        OnClick = Button2Click
      end
      object Edit5: TEdit
        Left = 144
        Top = 90
        Width = 149
        Height = 24
        TabOrder = 6
        Text = 'C:'
      end
      object Edit6: TEdit
        Left = 144
        Top = 126
        Width = 149
        Height = 24
        TabOrder = 7
        Text = 'C:'
      end
      object GroupBox1: TGroupBox
        Left = 361
        Top = 82
        Width = 103
        Height = 87
        Caption = 'Cache Mode'
        TabOrder = 8
        object RadioButton1: TRadioButton
          Left = 12
          Top = 18
          Width = 68
          Height = 21
          Caption = 'Local'
          TabOrder = 0
        end
        object RadioButton2: TRadioButton
          Left = 12
          Top = 38
          Width = 68
          Height = 21
          Caption = 'Mixed'
          Checked = True
          TabOrder = 1
          TabStop = True
        end
        object RadioButton3: TRadioButton
          Left = 12
          Top = 59
          Width = 78
          Height = 21
          Caption = 'Remote'
          TabOrder = 2
        end
      end
      object CheckBox1: TCheckBox
        Left = 148
        Top = 158
        Width = 139
        Height = 20
        Caption = 'Parse Attachments'
        TabOrder = 9
        OnClick = CheckBox1Click
      end
      object ListBox1: TListBox
        Left = 0
        Top = 249
        Width = 506
        Height = 93
        Align = alBottom
        ItemHeight = 16
        TabOrder = 10
        OnDblClick = ListBox1DblClick
      end
    end
    object TabSheet4: TTabSheet
      Caption = 'Article List Summary'
      object Panel1: TPanel
        Left = 0
        Top = 0
        Width = 506
        Height = 50
        Align = alTop
        TabOrder = 0
        object Button3: TButton
          Left = 5
          Top = 10
          Width = 223
          Height = 31
          Caption = 'List Articles in [Newsgroup]'
          TabOrder = 0
          OnClick = Button3Click
        end
        object Button8: TButton
          Left = 409
          Top = 10
          Width = 92
          Height = 31
          Caption = 'Abort'
          TabOrder = 1
          OnClick = Button8Click
        end
      end
      object Memo4: TMemo
        Left = 0
        Top = 50
        Width = 506
        Height = 292
        Align = alClient
        ScrollBars = ssVertical
        TabOrder = 1
      end
    end
    object TabSheet1: TTabSheet
      Caption = 'Reading Articles'
      object Label8: TLabel
        Left = 0
        Top = 274
        Width = 506
        Height = 16
        Align = alBottom
        Alignment = taCenter
        AutoSize = False
        Caption = 'Attachments'
      end
      object Label9: TLabel
        Left = 0
        Top = 120
        Width = 506
        Height = 22
        Align = alBottom
        Alignment = taCenter
        AutoSize = False
        Caption = 'Article Body'
      end
      object Label10: TLabel
        Left = 0
        Top = 18
        Width = 506
        Height = 20
        Align = alBottom
        Alignment = taCenter
        AutoSize = False
        Caption = 'Article Header'
      end
      object Memo1: TMemo
        Left = 0
        Top = 290
        Width = 506
        Height = 52
        Align = alBottom
        ScrollBars = ssVertical
        TabOrder = 0
      end
      object Memo2: TMemo
        Left = 0
        Top = 142
        Width = 506
        Height = 132
        Align = alBottom
        ScrollBars = ssVertical
        TabOrder = 1
      end
      object Memo3: TMemo
        Left = 0
        Top = 38
        Width = 506
        Height = 82
        Align = alBottom
        ScrollBars = ssVertical
        TabOrder = 2
      end
      object Button4: TButton
        Left = 20
        Top = 0
        Width = 92
        Height = 31
        Caption = 'Get Article #'
        TabOrder = 3
        OnClick = Button4Click
      end
      object Edit7: TEdit
        Left = 117
        Top = 1
        Width = 50
        Height = 24
        TabOrder = 4
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Posting Articles'
      object Label11: TLabel
        Left = 0
        Top = 249
        Width = 533
        Height = 21
        Align = alBottom
        Alignment = taCenter
        AutoSize = False
        Caption = 'Attachments'
      end
      object Label12: TLabel
        Left = 0
        Top = 124
        Width = 533
        Height = 16
        Align = alBottom
        Alignment = taCenter
        AutoSize = False
        Caption = 'Article Body'
      end
      object Panel2: TPanel
        Left = 0
        Top = 270
        Width = 533
        Height = 73
        Align = alBottom
        TabOrder = 0
        object ListBox2: TListBox
          Left = 1
          Top = 1
          Width = 424
          Height = 71
          Align = alLeft
          ItemHeight = 16
          TabOrder = 0
        end
        object Button5: TButton
          Left = 433
          Top = 7
          Width = 83
          Height = 31
          Caption = 'Add'
          TabOrder = 1
          OnClick = Button5Click
        end
        object Button6: TButton
          Left = 433
          Top = 37
          Width = 83
          Height = 31
          Caption = 'Remove'
          TabOrder = 2
          OnClick = Button6Click
        end
      end
      object Memo5: TMemo
        Left = 0
        Top = 140
        Width = 533
        Height = 109
        Align = alBottom
        TabOrder = 1
      end
      object Panel3: TPanel
        Left = 0
        Top = 0
        Width = 533
        Height = 124
        Align = alClient
        BevelInner = bvLowered
        BevelWidth = 2
        TabOrder = 2
        object Label14: TLabel
          Left = 5
          Top = 15
          Width = 91
          Height = 16
          Caption = 'From Address: '
        end
        object Label15: TLabel
          Left = 246
          Top = 14
          Width = 117
          Height = 16
          Caption = 'Reply-To Address: '
        end
        object Label16: TLabel
          Left = 20
          Top = 53
          Width = 45
          Height = 16
          Caption = 'Subject'
        end
        object Edit9: TEdit
          Left = 96
          Top = 10
          Width = 149
          Height = 24
          TabOrder = 0
        end
        object Edit10: TEdit
          Left = 361
          Top = 9
          Width = 149
          Height = 24
          TabOrder = 1
        end
        object Edit11: TEdit
          Left = 75
          Top = 48
          Width = 399
          Height = 24
          Ctl3D = True
          ParentCtl3D = False
          TabOrder = 2
        end
        object Button7: TButton
          Left = 202
          Top = 80
          Width = 92
          Height = 31
          Caption = 'Send'
          TabOrder = 3
          OnClick = Button7Click
        end
      end
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 374
    Width = 541
    Height = 23
    Panels = <>
    SimplePanel = True
  end
  object NMNNTP1: TNMNNTP
    Port = 119
    ReportLevel = 0
    OnDisconnect = NMNNTP1Disconnect
    OnConnect = NMNNTP1Connect
    OnInvalidHost = NMNNTP1InvalidHost
    OnHostResolved = NMNNTP1HostResolved
    OnStatus = NMNNTP1Status
    OnConnectionFailed = NMNNTP1ConnectionFailed
    CacheMode = cmMixed
    ParseAttachments = False
    NewsDir = 'c:\'
    PostHeader.Strings = (
      'X-Newsreader:      NetMasters NNTP Demo')
    PostRecord.PrAppName = '     NetMasters NNTP Demo'
    OnConnectionRequired = NMNNTP1ConnectionRequired
    OnGroupSelect = NMNNTP1GroupSelect
    OnGroupListUpdate = NMNNTP1GroupListUpdate
    OnGroupListCacheUpdate = NMNNTP1GroupListCacheUpdate
    OnGroupSelectRequired = NMNNTP1GroupSelectRequired
    OnHeaderList = NMNNTP1HeaderList
    OnHeaderListCacheUpdate = NMNNTP1HeaderListCacheUpdate
    OnHeader = NMNNTP1Header
    OnHeaderCacheUpdate = NMNNTP1HeaderCacheUpdate
    OnArticle = NMNNTP1Article
    OnArticleCacheUpdate = NMNNTP1ArticleCacheUpdate
    OnBody = NMNNTP1Body
    OnBodyCacheUpdate = NMNNTP1BodyCacheUpdate
    OnAbort = NMNNTP1Abort
    OnPosted = NMNNTP1Posted
    OnPostFailed = NMNNTP1PostFailed
    OnInvalidArticle = NMNNTP1InvalidArticle
    Left = 391
    Top = 240
  end
  object OpenDialog1: TOpenDialog
    InitialDir = '.'
    Title = 'Add Attachment'
    Left = 362
    Top = 240
  end
end