Net Power 2000 February/NetCD1.iso/mir/_SETUP.1/cw.exe/0/RCDATA/TFRMMAIN/TFRMMAIN.txt

Text File | 1999-08-27 | 4.4 KB | 198 lines

object frmMain: TfrmMain
  Left = 303
  Top = 230
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'ｿｽｿｽｿｽｿｽ ｿｽｿｽｿｽｿｽｿｽｿｽ (CW)'
  ClientHeight = 393
  ClientWidth = 561
  Color = clBtnFace
  Font.Charset = HANGEUL_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'ｿｽｿｽｿｽｿｽ'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Menu = MainMenu1
  OldCreateOrder = True
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnPaint = FormPaint
  OnResize = FormResize
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 561
    Height = 351
    Align = alClient
    TabOrder = 2
    Visible = False
  end
  object sbar: TStatusBar
    Left = 0
    Top = 374
    Width = 561
    Height = 19
    Panels = <
      item
        Width = 50
      end
      item
        Width = 50
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object Panel1: TPanel
    Left = 0
    Top = 351
    Width = 561
    Height = 23
    Align = alBottom
    BevelOuter = bvNone
    Caption = 'Panel1'
    TabOrder = 0
    object Edit1: TEdit
      Left = 0
      Top = 2
      Width = 649
      Height = 21
      Font.Charset = HANGEUL_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'ｿｽｿｽｿｽｿｽﾃｼ'
      Font.Pitch = fpFixed
      Font.Style = []
      ImeName = 'ｿｽﾑｱｿｽｿｽｿｽ(ｿｽﾑｱｿｽ)'
      ParentFont = False
      TabOrder = 0
      OnKeyPress = Edit1KeyPress
    end
  end
  object MainMenu1: TMainMenu
    Left = 136
    Top = 96
    object File1: TMenuItem
      Caption = 'ｿｽｿｽｿｽｿｽ(&F)'
      object Connect1: TMenuItem
        Caption = 'ｿｽｿｽｿｽｿｽ(&C)'
        ShortCut = 113
        OnClick = Connect1Click
      end
      object Disconnect1: TMenuItem
        Caption = 'ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ(&D)'
        Enabled = False
        ShortCut = 114
        OnClick = Disconnect1Click
      end
      object Dial1: TMenuItem
        Caption = 'ｿｽｿｽﾈｭｿｽﾉｱｿｽ'
        Enabled = False
        ShortCut = 16452
        OnClick = Dial1Click
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object mResetTerm: TMenuItem
        Caption = 'ﾈｭｿｽｿｽ ｿｽｿｽｿｽｿｽ'
        ShortCut = 16503
        OnClick = mResetTermClick
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Exit1: TMenuItem
        Caption = 'ｿｽｿｽｿｽｿｽ(&X)'
        ShortCut = 16465
        OnClick = Exit1Click
      end
    end
    object Options1: TMenuItem
      Caption = 'ｿｽｿｽｿｽｿｽ(&S)'
      object Setting1: TMenuItem
        Caption = 'ﾈｯｿｽ貍ｳｿｽｿｽ'
        ShortCut = 16467
        OnClick = Setting1Click
      end
      object AnsSet: TMenuItem
        Caption = 'ｿｽﾚｵｿｽｿｽｿｽｿｽｿｽ'
        ShortCut = 16449
        OnClick = AnsSetClick
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object AnsEnable: TMenuItem
        Caption = 'ｿｽﾚｵｿｽｿｽｿｽｿｽｿｽ ｿｽｿｽｿｽ'
        Checked = True
        OnClick = AnsEnableClick
      end
    end
    object Help1: TMenuItem
      Caption = 'ｿｽｿｽｿｽｿｽ(&H)'
      object About1: TMenuItem
        Caption = 'CWｿｽｿｽｿｽｿｽ(&A)...'
        OnClick = About1Click
      end
    end
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 200
    OnTimer = Timer1Timer
    Left = 40
    Top = 112
  end
  object Comm: TComm32
    BaudRate = 0
    CommPort = 'COM2'
    OnReceiveData = CommReceiveData
    OnRequestHangup = CommRequestHangup
    Left = 232
    Top = 48
  end
  object telnet: TTnCnx
    Port = '23'
    Location = 'TNCNX'
    TermType = 'VT100'
    LocalEcho = False
    OnSessionConnected = telnetSessionConnected
    OnSessionClosed = telnetSessionClosed
    OnDataAvailable = telnetDataAvailable
    OnDisplay = telnetDisplay
    OnEndOfRecord = telnetEndOfRecord
    Left = 416
    Top = 80
  end
  object csock: TClientSocket
    Active = False
    ClientType = ctNonBlocking
    Port = 0
    OnConnecting = csockConnecting
    OnConnect = csockConnect
    OnDisconnect = csockDisconnect
    OnRead = csockRead
    OnError = csockError
    Left = 72
    Top = 56
  end
  object ssock: TServerSocket
    Active = True
    Port = 2000
    ServerType = stNonBlocking
    OnClientConnect = ssockClientConnect
    OnClientDisconnect = ssockClientDisconnect
    OnClientRead = ssockClientRead
    OnClientError = ssockClientError
    Left = 256
    Top = 176
  end
end