Micromanía: 150 Juegos 2009/150Juegos_15.iso/Shareware/NETPong/Netpong.exe/0/RCDATA/TFORM1/TFORM1.txt

Text File | 1999-09-16 | 3.7 KB | 179 lines

object Form1: TForm1
  Left = 192
  Top = 107
  HorzScrollBar.Visible = False
  VertScrollBar.Visible = False
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = 'NETPong! v0.2�'
  ClientHeight = 329
  ClientWidth = 505
  Color = clBlack
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poScreenCenter
  OnClick = FormClick
  OnClose = FormClose
  OnMouseMove = FormMouseMove
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Score2: TLabel
    Left = 400
    Top = 16
    Width = 32
    Height = 48
    Caption = '0'
    Font.Charset = OEM_CHARSET
    Font.Color = clWhite
    Font.Height = -47
    Font.Name = 'Terminal'
    Font.Style = []
    ParentFont = False
    OnClick = FormClick
    OnMouseMove = Score2MouseMove
  end
  object Score1: TLabel
    Left = 72
    Top = 16
    Width = 32
    Height = 48
    Caption = '0'
    Font.Charset = OEM_CHARSET
    Font.Color = clWhite
    Font.Height = -47
    Font.Name = 'Terminal'
    Font.Style = []
    ParentFont = False
    OnClick = FormClick
    OnMouseMove = Score1MouseMove
  end
  object Net: TShape
    Left = 248
    Top = 8
    Width = 9
    Height = 297
    OnMouseMove = NetMouseMove
  end
  object Paddle2: TShape
    Left = 480
    Top = 8
    Width = 17
    Height = 57
    OnMouseMove = Paddle2MouseMove
  end
  object Paddle1: TShape
    Left = 7
    Top = 8
    Width = 17
    Height = 57
    OnMouseMove = Paddle1MouseMove
  end
  object Ball: TShape
    Left = 288
    Top = 96
    Width = 17
    Height = 17
    Shape = stSquare
  end
  object Memo1: TMemo
    Left = 288
    Top = 192
    Width = 185
    Height = 89
    Lines.Strings = (
      'Memo1')
    TabOrder = 0
    Visible = False
    OnKeyDown = Memo1KeyDown
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 310
    Width = 505
    Height = 19
    Panels = <
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object ClientSocket1: TClientSocket
    Active = False
    ClientType = ctNonBlocking
    Port = 4000
    OnConnect = ClientSocket1Connect
    OnDisconnect = ClientSocket1Disconnect
    OnRead = ClientSocket1Read
    Left = 128
    Top = 32
  end
  object ServerSocket1: TServerSocket
    Active = False
    Port = 4000
    ServerType = stNonBlocking
    OnClientConnect = ServerSocket1ClientConnect
    OnClientDisconnect = ServerSocket1ClientDisconnect
    OnClientRead = ServerSocket1ClientRead
    Left = 160
    Top = 32
  end
  object MainMenu1: TMainMenu
    Left = 64
    Top = 32
    object Pong1: TMenuItem
      Caption = 'NETPong!'
      object Connect: TMenuItem
        Caption = 'Connect'
        ShortCut = 16451
        OnClick = ConnectClick
      end
      object Listen: TMenuItem
        Caption = 'Listen'
        ShortCut = 16460
        OnClick = ListenClick
      end
      object Disconnect: TMenuItem
        Caption = 'Disconnect'
        ShortCut = 16452
        OnClick = DisconnectClick
      end
      object Options: TMenuItem
        Caption = 'Options'
        ShortCut = 16463
        OnClick = OptionsClick
      end
      object Exit1: TMenuItem
        Caption = 'Exit'
        OnClick = Exit1Click
      end
    end
    object Help1: TMenuItem
      Caption = 'Help'
      object AboutNETPong1: TMenuItem
        Caption = 'About NETPong!'
        OnClick = AboutNETPong1Click
      end
    end
  end
  object Timer1: TTimer
    Interval = 1
    OnTimer = Timer1Timer
    Left = 32
    Top = 32
  end
  object NMUDP1: TNMUDP
    RemotePort = 4001
    LocalPort = 4001
    ReportLevel = 1
    OnDataReceived = NMUDP1DataReceived
    Left = 96
    Top = 32
  end
end