Chip Hitware 8/Chip_Hitware_Vol_08.iso/chiphit8/tools/95techfa/tekfct95.exe/0/RCDATA/TMAINFAX/TMAINFAX.txt

Text File | 1997-03-06 | 8KB | 342 lines

object MainFax: TMainFax
  Left = 283
  Top = 106
  Width = 467
  Height = 361
  BorderIcons = []
  Caption = 'TechFacts 95 Fax Utility'
  Font.Color = clWindowText
  Font.Height = -16
  Font.Name = 'System'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Position = poScreenCenter
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 120
  TextHeight = 20
  object Label1: TLabel
    Left = 20
    Top = 20
    Width = 58
    Height = 16
    Caption = 'Station Id:'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 20
    Top = 60
    Width = 76
    Height = 16
    Caption = 'Fax Number:'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label4: TLabel
    Left = 298
    Top = 60
    Width = 63
    Height = 16
    Caption = 'Dial Prefix:'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label9: TLabel
    Left = 20
    Top = 92
    Width = 74
    Height = 16
    Caption = 'Fax Header:'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label5: TLabel
    Left = 276
    Top = 92
    Width = 79
    Height = 18
    AutoSize = False
    Caption = 'Com Port:'
    Font.Color = clBlack
    Font.Height = -15
    Font.Name = 'Courier New'
    Font.Style = []
    ParentFont = False
  end
  object Label6: TLabel
    Left = 364
    Top = 92
    Width = 9
    Height = 17
    Font.Color = clBlack
    Font.Height = -15
    Font.Name = 'Courier New'
    Font.Style = []
    ParentFont = False
  end
  object Edit1: TEdit
    Left = 116
    Top = 18
    Width = 221
    Height = 24
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    Text = 'TechFacts 95'
  end
  object Edit2: TEdit
    Left = 116
    Top = 58
    Width = 171
    Height = 24
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
  end
  object Edit4: TEdit
    Left = 366
    Top = 58
    Width = 71
    Height = 24
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
  end
  object Panel1: TPanel
    Left = 20
    Top = 112
    Width = 429
    Height = 131
    TabOrder = 3
    object Label3: TLabel
      Left = 12
      Top = 94
      Width = 60
      Height = 16
      Caption = 'Message:'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label7: TLabel
      Left = 12
      Top = 13
      Width = 34
      Height = 16
      Caption = 'From:'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label8: TLabel
      Left = 12
      Top = 53
      Width = 20
      Height = 16
      Caption = 'To:'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Edit3: TEdit
      Left = 78
      Top = 91
      Width = 331
      Height = 24
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      Text = 'TechFacts 95 Fax Message'
    end
    object Edit6: TEdit
      Left = 78
      Top = 10
      Width = 171
      Height = 24
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
    end
    object Edit7: TEdit
      Left = 78
      Top = 50
      Width = 191
      Height = 24
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
    end
  end
  object Panel2: TPanel
    Left = 22
    Top = 248
    Width = 427
    Height = 31
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
  end
  object Panel3: TPanel
    Left = 0
    Top = 288
    Width = 459
    Height = 41
    Align = alBottom
    TabOrder = 5
    object Panel4: TPanel
      Left = 218
      Top = 1
      Width = 240
      Height = 39
      Align = alRight
      BevelOuter = bvNone
      TabOrder = 0
      object BitBtn2: TBitBtn
        Left = 10
        Top = 4
        Width = 103
        Height = 29
        Caption = '&Send Fax'
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        OnClick = BitBtn2Click
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00000000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333303
          333333333333337FF3333333333333903333333333333377FF33333333333399
          03333FFFFFFFFF777FF3000000999999903377777777777777FF0FFFF0999999
          99037F3337777777777F0FFFF099999999907F3FF777777777770F00F0999999
          99037F773777777777730FFFF099999990337F3FF777777777330F00FFFFF099
          03337F773333377773330FFFFFFFF09033337F3FF3FFF77733330F00F0000003
          33337F773777777333330FFFF0FF033333337F3FF7F3733333330F08F0F03333
          33337F7737F7333333330FFFF003333333337FFFF77333333333000000333333
          3333777777333333333333333333333333333333333333333333}
        NumGlyphs = 2
      end
      object BitBtn1: TBitBtn
        Left = 124
        Top = 4
        Width = 101
        Height = 29
        Caption = '&Cancel'
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        OnClick = BitBtn1Click
        Kind = bkCancel
      end
    end
  end
  object ApdComPort1: TApdComPort
    ComNumber = 3
    InSize = 8192
    OutSize = 8192
    AutoOpen = False
    HWFlowOptions = [hwfUseRTS, hwfRequireCTS]
    BufferFull = 7372
    BufferResume = 819
    TraceName = 'c:\APD.TRC'
    LogName = 'APD.LOG'
    Left = 344
  end
  object ApdSendFax1: TApdSendFax
    FaxClass = fcUnknown
    ComPort = ApdComPort1
    StatusDisplay = ApdFaxStatus1
    FaxFile = 'd:\async\read.apf'
    FaxFileExt = 'APF'
    OnFaxFinish = ApdSendFax1FaxFinish
    PhoneNumber = '260-7151'
    Left = 184
    FakeProperty = 1
  end
  object ApdFaxStatus1: TApdFaxStatus
    Position = poScreenCenter
    Ctl3D = True
    Visible = False
    Fax = ApdSendFax1
    Left = 216
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = 'TXT'
    FileEditStyle = fsEdit
    Filter = 'Text Files|*.txt|Fax Files|*.apf'
    Title = 'InfoSpy TechFax File Selection'
    Left = 248
  end
  object FaxConverter: TApdFaxConverter
    FontFile = 'APFAX.FNT'
    FontType = ffStandard
    Left = 312
  end
  object ApdModem1: TApdModem
    ComPort = ApdComPort1
    InitCmd = 'ATZ^M'
    DialCmd = 'ATDT'
    DialTerm = '^M'
    DialCancel = '^M'
    HangupCmd = '+++~~~ATH0^M'
    ConfigCmd = 'ATE1Q0X1V1^M'
    AnswerCmd = 'ATA^M'
    OkMsg = 'OK'
    ConnectMsg = 'CONNECT'
    BusyMsg = 'BUSY'
    VoiceMsg = 'VOICE'
    NoCarrierMsg = 'NO CARRIER'
    NoDialToneMsg = 'NO DIALTONE'
    ErrorMsg = 'ERROR'
    RingMsg = 'RING'
    LockDTE = True
    Left = 280
  end
end